Re: [fortunes] [slrn] als Signatur nutzen
Hallo Lothar! Lothar Schweikle-Droll schrieb am Donnerstag, 01. März 2001: > ich möchte auch gerne in slrn fortune als Signatur nutzen, nur leider > funktioniert es nicht so wie in slrn. > > Gibt es auch eine Möglichkeit dieses in slrn zu integrieren? Sicherlich, wenn Du die 'angehängten' Skripte etwas modifizierst. :-) Grüße - Wilhelm -- ._. Wilhelm Wienemann <[EMAIL PROTECTED]> / _,\ | (_./ Debian GNU/Linux Version 2.2 Potato \, ...denn für Experimente ist mir meine Zeit zu schade. :-) From [EMAIL PROTECTED] Wed Apr 26 00:44:33 2000 From: [EMAIL PROTECTED] (Marc Langer) Subject: Re: Wechselnde Signaturen =?iso-8859-1?Q?f=FCr?= slrn Date: 21 Apr 2000 20:30:38 GMT Lines: 141 Message-ID: <[EMAIL PROTECTED]> References: <[EMAIL PROTECTED]> NNTP-Posting-Host: marclanger.de NNTP-Posting-Date: 21 Apr 2000 20:30:38 GMT User-Agent: slrn/0.9.6.2-ml (Linux) Xref: kalwien.regio.rhein-ruhr.de de.comm.software.newsreader:10648 Am Mon, 17 Apr 2000 13:23:54 +0200 schrieb Johannes Segitz: >ich habe gehört, dass es für slrn Makros gibt, um die Signatur >durchzuwechseln. Wo kann ich so etwas zu bekommen, und welche >sind empfehlenswert? Hier ist eines: --- slrn.sl - define article_mode_hook () { variable signature_file = ".randsignature"; variable newsgroup = current_newsgroup (); set_string_variable ("signature", signature_file); }; define startup_hook () { system("sigrandom.pl"); } -- In der .slrnrc: "interpret slrn.sl". Das Perlscript (stammt von Stefan Scholl): --- sigrandom.pl - #! /usr/bin/perl -w # $Id: sigrandom.pl,v 1.4 1997/08/10 20:11:14 stesch Exp stesch $ chdir; # go home $FIFO = $ENV{'HOME'} . '/.randsignature'; $fixed = $ENV{'HOME'} . '/.sigfixed'; $sigdir = $ENV{'HOME'} . '/.Sig'; # $lockfile = '/var/lock/sigrandom.lock'; $lockfile = $ENV{'HOME'} . '/.sigrandom.lock'; # sub catch_zap { my $signame = shift; unlink($lockfile); die "Got SIG$signame"; } # $SIG{INT} = \&catch_zap; $SIG{TERM} = \&catch_zap; $SIG{QUIT} = \&catch_zap; $SIG{HUP} = \&catch_zap; exit if(-e $lockfile); unless (-p $FIFO) { unlink $FIFO; system('mknod', $FIFO, 'p') && die "can't mknod $FIFO: $!"; } # --- fork my $pid; FORK: { if($pid = fork) { print "sigrandom.pl forked\n"; sleep 1; exit; } elsif (defined $pid) { # forked process } elsif ($! =~ /No more process/) { # == EAGAIN sleep 5; redo FORK; } else { die "***Can't fork: $!\n"; } } # --- open(L, ">$lockfile") || die "can't open $lockfile: $!"; print L $$; close(L); srand ($$ ^ time); while (1) { unless (-p $FIFO) { unlink $FIFO; system('mknod', $FIFO, 'p') && die "can't mknod $FIFO: $!"; } # next line blocks until there's a reader open (FIFO, "> $FIFO") || die "can't write $FIFO: $!"; #print FIFO "-- \n"; if(open(FIX, $fixed)) { while() { print FIFO $_; } close(FIX); } if(opendir(DIR, $sigdir)) { @randfiles = grep( !/^\./, readdir(DIR)); if(open(RAND, $sigdir . '/' . $randfiles[rand($#randfiles)])) { while() { print FIFO $_; } close(RAND); } closedir(DIR); } close FIFO; sleep 2;# to avoid dup sigs } exit; -- Nun musst Du noch in ~/.Sig/ die Signaturen anlegen: Jede in eine Datei, ein fester Bestandteil kann in ~/.sigfixed geschrieben werden. Damit müsste das dann eigentlich funktionieren. Marc -- "Ich bekam den Titel eines DAJ (Dümmsten Anzunehmenden Journalisten) verliehen und landete erstmals im Killfile vieler Leser. Inzwischen hat sich das Internet kommerzialisiert, allem Geplonke zum Trotz." (Detlef Borchers in c't 21/99, Seite 132) pgpz3rLdiuZBc.pgp Description: PGP signature
Re: [fortunes] [slrn] als Signatur nutzen
Hallo Lothar! Lothar Schweikle-Droll schrieb am Donnerstag, 01. März 2001: > ich möchte auch gerne in slrn fortune als Signatur nutzen, nur leider > funktioniert es nicht so wie in slrn. > > Gibt es auch eine Möglichkeit dieses in slrn zu integrieren? Sicherlich, wenn Du die 'angehängten' Skripte etwas modifizierst. :-) Grüße - Wilhelm -- ._. Wilhelm Wienemann <[EMAIL PROTECTED]> / _,\ | (_./ Debian GNU/Linux Version 2.2 Potato \, ...denn für Experimente ist mir meine Zeit zu schade. :-) From [EMAIL PROTECTED] Wed Apr 26 00:44:33 2000 From: [EMAIL PROTECTED] (Marc Langer) Subject: Re: Wechselnde Signaturen =?iso-8859-1?Q?f=FCr?= slrn Date: 21 Apr 2000 20:30:38 GMT Lines: 141 Message-ID: <8dqdpe$9d9$[EMAIL PROTECTED]> References: <[EMAIL PROTECTED]> NNTP-Posting-Host: marclanger.de NNTP-Posting-Date: 21 Apr 2000 20:30:38 GMT User-Agent: slrn/0.9.6.2-ml (Linux) Xref: kalwien.regio.rhein-ruhr.de de.comm.software.newsreader:10648 Am Mon, 17 Apr 2000 13:23:54 +0200 schrieb Johannes Segitz: >ich habe gehört, dass es für slrn Makros gibt, um die Signatur >durchzuwechseln. Wo kann ich so etwas zu bekommen, und welche >sind empfehlenswert? Hier ist eines: --- slrn.sl - define article_mode_hook () { variable signature_file = ".randsignature"; variable newsgroup = current_newsgroup (); set_string_variable ("signature", signature_file); }; define startup_hook () { system("sigrandom.pl"); } -- In der .slrnrc: "interpret slrn.sl". Das Perlscript (stammt von Stefan Scholl): --- sigrandom.pl - #! /usr/bin/perl -w # $Id: sigrandom.pl,v 1.4 1997/08/10 20:11:14 stesch Exp stesch $ chdir; # go home $FIFO = $ENV{'HOME'} . '/.randsignature'; $fixed = $ENV{'HOME'} . '/.sigfixed'; $sigdir = $ENV{'HOME'} . '/.Sig'; # $lockfile = '/var/lock/sigrandom.lock'; $lockfile = $ENV{'HOME'} . '/.sigrandom.lock'; # sub catch_zap { my $signame = shift; unlink($lockfile); die "Got SIG$signame"; } # $SIG{INT} = \&catch_zap; $SIG{TERM} = \&catch_zap; $SIG{QUIT} = \&catch_zap; $SIG{HUP} = \&catch_zap; exit if(-e $lockfile); unless (-p $FIFO) { unlink $FIFO; system('mknod', $FIFO, 'p') && die "can't mknod $FIFO: $!"; } # --- fork my $pid; FORK: { if($pid = fork) { print "sigrandom.pl forked\n"; sleep 1; exit; } elsif (defined $pid) { # forked process } elsif ($! =~ /No more process/) { # == EAGAIN sleep 5; redo FORK; } else { die "***Can't fork: $!\n"; } } # --- open(L, ">$lockfile") || die "can't open $lockfile: $!"; print L $$; close(L); srand ($$ ^ time); while (1) { unless (-p $FIFO) { unlink $FIFO; system('mknod', $FIFO, 'p') && die "can't mknod $FIFO: $!"; } # next line blocks until there's a reader open (FIFO, "> $FIFO") || die "can't write $FIFO: $!"; #print FIFO "-- \n"; if(open(FIX, $fixed)) { while() { print FIFO $_; } close(FIX); } if(opendir(DIR, $sigdir)) { @randfiles = grep( !/^\./, readdir(DIR)); if(open(RAND, $sigdir . '/' . $randfiles[rand($#randfiles)])) { while() { print FIFO $_; } close(RAND); } closedir(DIR); } close FIFO; sleep 2;# to avoid dup sigs } exit; -- Nun musst Du noch in ~/.Sig/ die Signaturen anlegen: Jede in eine Datei, ein fester Bestandteil kann in ~/.sigfixed geschrieben werden. Damit müsste das dann eigentlich funktionieren. Marc -- "Ich bekam den Titel eines DAJ (Dümmsten Anzunehmenden Journalisten) verliehen und landete erstmals im Killfile vieler Leser. Inzwischen hat sich das Internet kommerzialisiert, allem Geplonke zum Trotz." (Detlef Borchers in c't 21/99, Seite 132) PGP signature
Re: [fortunes] [slrn] als Signatur nutzen
Hallo, ich möchte auch gerne in slrn fortune als Signatur nutzen, nur leider funktioniert es nicht so wie in slrn. Gibt es auch eine Möglichkeit dieses in slrn zu integrieren? -- Lotharmailto:[EMAIL PROTECTED] Das Schlaraffenland ist von einem Wall aus Grießbrei umgeben. Wenn man erst mal drin ist, dann gibt es allerdings kaum etwas Angenehmeres. pgpclOdreZ0S9.pgp Description: PGP signature
Re: [fortunes] [slrn] als Signatur nutzen
Hallo, ich möchte auch gerne in slrn fortune als Signatur nutzen, nur leider funktioniert es nicht so wie in slrn. Gibt es auch eine Möglichkeit dieses in slrn zu integrieren? -- Lotharmailto:[EMAIL PROTECTED] Das Schlaraffenland ist von einem Wall aus Grießbrei umgeben. Wenn man erst mal drin ist, dann gibt es allerdings kaum etwas Angenehmeres. PGP signature