[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[linux-team] mutt/signature
On Fri, Aug 27, 1999 at 09:43:12PM +0200, Jean-François Straeten wrote:
> On Thu, Aug 26, 1999 at 09:21:52AM +0200, Pascal Bleser wrote:
> > Tiens, lisez un peu le fortune cookie dans ma signature, je trouve que c'est
> > très bien observé :))
> Question (sans avoir cherché) : comment t'as fourré ça dans Mutt ?
héhé :)
Je me suis bricolé un petit script en Perl (mais il existe des trucs tout faits
plus puissants ;)) qui me balance un fichier au hasard dans ~/.sigs/ sur la
sortie standart. Pour l'avoir comme signature dans mutt, suffit de mettre ceci
dans ton ~/.muttrc:
set signature="sig|"
où "sig" est mon script qui sort les signatures au hasard.
A tout hasard, voici le script:
#!/usr/bin/perl
$sigdir = $ENV{"HOME"}."/.sigs";
$listbase = $sigdir."/.listbase";
chdir($sigdir);
@files = <*>;
$rnd = int(rand($#files+1));
$file = $files[$rnd];
if ($file =~ /\.list$/)
{
open(F, "<".$file) or die "cannot open $file";
@lines = <F>;
close(F);
$rnd = int(rand($#lines+1));
$line = $lines[$rnd];
chomp($line);
open(F, "<".$listbase) or die "cannot open $listbase";
@base = <F>;
close(F);
foreach (@base)
{
s/@@@/$line/ if /@@@/;
print "$_";
}
}
else
{
system("cat \"".$files[$rnd]."\"");
}
1;
Note que j'ai encore ajouté un truc...
Les fichiers ~/.sigs/*.list contiennent une liste de conneries, une par ligne.
Si le hasard tombe sur un tel fichier, il choisit encore une fois une ligne
du fichier au hasard, prend un fichier de base (~/.sigs/.listbase) et y
remplace le texte "@@@" par la ligne au hasard du fichier *.list :)
En clair, c'est un modèle, qui contient ma signature avec @@@ sur la ligne où
il y a de la place pour un message débile...
Tout ça, c'est pas encore optimal (pour bien faire, faudrait avoir un seul
fichier contenant le haut de la signature), mais je devrais y passer 10 min,
histoire de trouver un moyen d'automatiquement aligner le message en bloc,
bien proprement (ça va surement avec un module Perl Text::*)...
--
-o) / Pascal Bleser ATOS Payment Systems|
/\\ \ C++/UNIX Development Aachen, Germany|
_\_v \<guru@linuxbe.org> <pbleser@atos-group.com>|
---------------------------------------------------|
University, n.: :
Like a software house, except the software's free,:
and it's usable, and it works, and if it breaks:
they'll quickly tell you how to fix it, and ...:
---------------------------------------------------'
---------
Visit the Linux Supertore Online: http://www.redcorp.com !
If you want to be deleted from the list, send a mail to
majordomo@rtfm.be with "unsubscribe linux-team" in the body.