#!/util/bin/perl require "/home/unix/web/cgi-bin/cgi-lib.pl"; print &PrintHeader; $database = "test/test.db"; $foot = "foot.html"; print "WNY Web: Testimonials"; print ""; print "

Testimonials

\n"; if ($ARGV[0] !~ /./) { print ""; print "We believe that a site on the Web (small or large, expensive or free) can help bring success to your business. But don't take our word for it! Here are statements from people in the area who have had success in their Internet endeavors...


"; if (-r $database) { open (DB, $database); @dblines = ; close DB; } else { die ("Sorry, can't open database.\n"); } chop (@dblines); print "

\n"; foreach $t (sort sort_criteria @dblines) { @els = split(/\t/,$t); @timelist = localtime($els[0]); $date = $timelist[4]+1 . "/" . $timelist[3] . "/" . $timelist[5]; print "
$els[1] ($els[2])\n"; print "
$els[3]

\n"; } print "

"; print "

"; print "

Would you like to put YOUR testimonial here? Send it via email (text is fine) to: muse\@wnyweb.com
The intent is to convince other businesses to go on-line. This service is free; we reserve the right to exclude any testimonials. You will be notified if we need to make any edits to your text.
"; } else { print "
"; open (FILE,"test/$ARGV[0]"); @flines = ; close (FILE); print @flines; } open (FOOT,$foot); @feet = ; close (FOOT); print @feet; sub sort_criteria { @splita = split(/\t/,$a); @splitb = split(/\t/,$b); if ($splita[0] > $splitb[0]) { $retval = -1; } else { $retval = 1; } return $retval; }