#!/usr/local/bin/perl -w
use strict;
my $file = "quotations.xml";
my $data;
if(open DATA, "<$file"){
undef $/;
$data = ;
close DATA;
} else {
print "content-type: text/html\n\n oops\n";
exit 0;
}
my $param = $ENV{QUERY_STRING} || '';
my $n1 = "";
my $n2 = "";
my $filter= "";
if($param =~ /filter=(.*)/){
$filter=$1;
$param="";
}
if($param =~ /^(.*):(.*)/){
$filter = $1;
$param = $2;
}
if($param =~ /(\d+)-(\d+)/){
$n1 = $1;
$n2 = $2;
} else {
if($param =~ /(\d+)/){
$n1 = $1;
$n2 = $1;
}
}
my $raw_filter=$filter;
$filter =~ s/\+/ /g;
my @data = ();
if(1){
my @list = split /
/, $data;
foreach $_ (@list){
s/<\/quote>.*//g;
s/^\s+//g;
s/\s+$//g;
if($_){
if(! $filter || $_ =~ /$filter/i){
push @data, $_;
}
}
}
}
my $len = scalar @data;
my $quote = "";
if($n1 =~ /^\d+$/){
if($n1 > $len){
$n1 = $len -1 ;
}
if($n2 > $len){
$n2 = $len -1 ;
}
foreach my $i ($n1 .. $n2){
$quote .= any_one($i);
}
} else {
$quote .= any_one($n1);
}
sub print_html_header {
print "content-type: text/html\n\n";
}
print_html_header();
my $prefix = "";
if($filter){
$prefix = $raw_filter . ":";
}
my $rand = random_number();
my $next = $n2+1;
my $prev = $n1-1;
print <<__EOF__;
$quote