#!/usr/bin/perl -w
# remd: éditeur personnel de texte, alain Adelmar 22 Janvier 2001.
# ce programme fonctionne bien.
do clear; # a revoir de façon a appeller dans bash la commande clear.

$x = 'x' x 30;
$p = 0;# p comme probleme
print "\n$x\nBienvenue sur l'éditeur alEd\npour sortir\nTaper: Ctrl-D\n$x\n\n";

@a = <STDIN>;

$aa = "\n[a_l_a_i_n // A_d_e_l_m_a_r]";
 

#=============================== sauvegarde:
print "Sous quel titre voulez vous sauver votre travail\n";
chomp ($resp=<STDIN>);
if ($resp eq "" ){
$p=1;
}
elsif ( $a[0] =~ /^#!\// ) {
open F, ">$resp" || print "Achtung, le prog $resp n\'a pu être sauver $!" && ( $p = 1);
print F @a;
close F ordie"Le script $resp est ouvert $!";
print "maintenant $resp est enregisré dans le rep courant\n";
}
else {
open F, ">$resp"||print"Achtung, le fichier $resp n\'a pu être sauver $!" && ( $p = 1);
@a = ("$x\n","$resp\n","$x\n",@a,"$aa");
print F@a;
close F or die "no es possibilé de siera el $resp $!";
rename ("$resp",("$resp".".txt"));
print "maintenant $resp.txt est enregisré dans le rep courant\n";
}

if ($p=1){
$lbnow ="trav".(localtime[6]).".log";
open L, ">$lbnow" || print "impossible de sauvegarder le travail: $!";
print L @a;
close L ;
print "c\'est fait\n";
$aa="[a_l_a_i_n // A_d_e_l_m_a_r]";
}
END;