diff --git a/remail b/remail deleted file mode 100644 index da8a61b1..00000000 Binary files a/remail and /dev/null differ diff --git a/remail.pas b/remail.pas deleted file mode 100644 index 2d016f74..00000000 --- a/remail.pas +++ /dev/null @@ -1,36 +0,0 @@ -program Email; -{ce programme permet de transformer /etc/CRANS/personne.cf en une liste d'Emails } -{script en pascal par jerome} -uses crt,dos; -var f: file of char; - c:char; - s:string[20]; -begin -if paramcount<>2 then -begin - writeln('orthographe : E-mail_all fichier.txt "subject"'); - writeln('permet au root d''envoyer un E-mail a tout le monde'); - writeln('s''integre dans le script E-mail_all, ne pas toucher'); - halt(0); -end; -assign (f,'personnes.cf'); -reset(f); -seek(f,0); -writeln('#! /bin/zsh'); -s:=' '; -repeat; -{$i-} -read(f,c); -{$i+} -if c=#58 then begin - repeat ; - read(f,c); - until c=#10; - writeln('cat ',paramstr(1),' | mail -s "', paramstr(2),'" ',s,'@crans.ens-cachan.fr'); - c:=#32; - s:=''; - end; -s:=s+c; -until ord(c)=35; -close(f); -end.