Re: [fortunes] [slrn] als Signatur nutzen
Hallo, ich mchte auch gerne in slrn fortune als Signatur nutzen, nur leider funktioniert es nicht so wie in slrn. Gibt es auch eine Mglichkeit dieses in slrn zu integrieren? -- Lotharmailto:[EMAIL PROTECTED] Das Schlaraffenland ist von einem Wall aus Griebrei umgeben. Wenn man erst mal drin ist, dann gibt es allerdings kaum etwas Angenehmeres. PGP signature
Re: [fortunes] [slrn] als Signatur nutzen
Hallo Lothar!
Lothar Schweikle-Droll schrieb am Donnerstag, 01. Mrz 2001:
ich mchte auch gerne in slrn fortune als Signatur nutzen, nur leider
funktioniert es nicht so wie in slrn.
Gibt es auch eine Mglichkeit dieses in slrn zu integrieren?
Sicherlich, wenn Du die 'angehngten' Skripte etwas modifizierst. :-)
Gre - Wilhelm
--
._. Wilhelm Wienemann [EMAIL PROTECTED]
/ _,\
| (_./ Debian GNU/Linux Version 2.2 Potato
\, ...denn fr 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 gehrt, dass es fr 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(FIX) {
print FIFO $_;
}
close(FIX);
}
if(opendir(DIR, $sigdir)) {
@randfiles = grep( !/^\./, readdir(DIR));
if(open(RAND, $sigdir . '/' . $randfiles[rand($#randfiles)])) {
while(RAND) {
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 msste das dann eigentlich funktionieren.
Marc
--
"Ich bekam den Titel eines DAJ (Dmmsten 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 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(FIX) {
print FIFO $_;
}
close(FIX);
}
if(opendir(DIR, $sigdir)) {
@randfiles = grep( !/^\./, readdir(DIR));
if(open(RAND, $sigdir . '/' . $randfiles[rand($#randfiles)])) {
while(RAND) {
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
