Zitat des Augenblicks
#!/usr/bin/perl
use CGI ':standard';
#############################
# Location of data file
#############################
$data_base="quotedata.txt";
#############################
# Setting of font for "Quote"
#############################
$qfontstart="";
$qfontend="";
#############################
#Setting of font for "Author"
#############################
$afontstart="";
$afontend="";
############################# DO NOT EDIT BELOW THIS LINE #############################
$category=param('Category');
@data=&read($data_base);
print "Content-type: text/html\nPragma: no-cache\n\n";
if (!$category){
srand;
foreach $line(@data){
if($line ne "\n"){
push(@data1,$line);
}
}
$index=int(rand $#data1);
$selected= $data1[$index];
}
else{
foreach $user(@data){
my ($one,$two,$three,$four,$five,$six)=split(/\|/,$user);
if($five eq "$category\n"){
push(@new_data,$user);
}
}
srand;
$index=int(rand $#new_data);
$selected=$new_data[$index];
}
($on,$tw,$thre,$fou,$fiv,$si)=split(/\|/,$selected);
if(!$fou){
$fou="Unknown";
}
print "$thre
$fou";
sub read{
my ($open_file)=@_;
open(DAT, "$open_file") || die("error_cannot_open_file \"$open_file\"");
my @data=;
close(DAT);
return @data;
}
