#!/usr/bin/perl
print "Content-Type: text/html\n\n";
print "";
srand();
open(COOKIE,"fortunes");
foreach () { push(@lines,$_); }
close(COOKIE);
$max = @lines;
$i = int(rand($max));
while (@lines[$i] ne "%\n") { $i++; }
$j = $i+1;
while (@lines[$j] ne "%\n") { $j++; }
print @lines[$i+1 .. $j-1];
print "";
exit 0;
#!/usr/bin/perl
srand ();
$dir = "/www/kp24.de/bill.de/joke";
$path = "http://www.bill.de/joke";
print "Content-Type: text/html\n\n";
opendir(DIR, "$dir/tmb") || die "can't opendir $dir: $!";
@files = grep { /.GIF/ && -f "$dir/tmb/$_" } readdir(DIR);
closedir DIR;
$max = 0; foreach (@files) { $max++; }
$rnd = int(rand($max))+1;
for (1 .. $rnd) { $filename = shift @files; }
$url = substr($filename,0,(length($filename)-4));
$bimg = substr($filename,3);
print "![](\"$path/tmb/$filename\") ";
exit 0;
|
