blob: 8b4046fb64d75c6b238a1a69df0de202c1058173 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#!/Perl/bin/perl
my %last_good;
my ($name, $hours, $when);
dbmopen( %last_good, "lastdb", 0666 );
foreach $name (sort keys(%last_good)) {
$when = $last_good{ $name };
$hours = int ((time - $when) / (3600*24));
write;
}
format STDOUT =
User @<<<<<<<<<<<: Der letzte richtige Tip war vor @<<<< Tagen.
$name, $hours
.
|
