#!/usr/bin/perl require "cgi-lib.pl"; $YARFbase = "./"; $YARFweb = "./"; ShowHeader("YARF! BackIssues"); &ReadParse(*input); #print "

", &PrintVariables (*input), "

"; # Debug output ShowLevel(1); print qq^ Most back issues are in print. We may not have them on hand at the moment. What da ya think we are, magicians? Anyway, here is the list of issues and prices. Print this page and send it in with your check or money order. Prices include shipping to all points in the US. Email us for shipping prices for overseas shipping rates. ^; # -- Run throught the text index file. $cnt = 0; open (INDEXDB, "${YARFbase}backissues.txt"); while () { chomp; $aline{$cnt} = $_; $cnt++; } close INDEXDB; $columns = 6; print qq^ ^; for ($iy=0; $iy<$columns; $iy++) { print qq^ ^; } $line0 = ""; print qq^
^; $rows = int(($cnt + $columns-1) / $columns); for ($ix=0; $ix < $rows; $ix++) { $bg = "#FFFFFF"; $bg = "#E0E0E0" if $ix & 1; $_ = $aline{$iy*$rows+$ix}; if (!$_) { $_ = " \t \t \t "; } ($ent0, $ent1, $ent2, $ent3) = split (/\t/ ); if ($ent0 =~ /A/i) { $ent0 = qq^^; } elsif ($ent0 =~ /X/i) { $bg = "#000000"; $ent0 = " "; } if ($ent1 =~ /([0-9]+(\/[0-9]+)?)/) { $issue = $1; } if ($ent1 =~ /18\/19/) { $ent1 = "18/19"; } $ent1 = "$ent1"; print qq^\n^; } print qq^
# \$ Pgs
$ent0$ent1$ent2$ent3
$ent[0]
^; print qq^ * Issue 40 - color cover, Issue 46 - color front, back & both inside covers!, Issue 50 - front & back covers, Issue 51 - color cover
Anthropomorphic Bibliography - Third Edition - \$9
Over 500 anthropomorphic books listed and reviewed (84 pages)
YARF! From A to YARF! - \$16
A Special of Comics and Art (174 pages)

Total Amount \$___________ (Ask us about discounts on quantity orders!)
Name _______________________________________________________________________
Address _____________________________________________________________________
City/Town _____________________________ State/Province __________________________
Country _______________________________ Zip Code ______________________________
Phone _________________________________ e-mail ________________________________
Special Instructions ____________________________________________________________
Mail To: YARF! The Journal of Applied Anthropomorphics
PO BOX 1299 Cupertino CA 95015-1299
^; ShowLevel(1); ShowFooter(); # ---- SUBROUTINES ---- sub ShowHeader { my $title = shift; print "Content-type: text/html\r\n\r\n"; print qq^ $title
Back Issues
^; } sub ShowLevel { my $level = shift; print qq^
Main page ^; print qq^
^; } sub ShowFooter { print qq^Contents copyright YARF! The Journal of Applied Anthropomorphics\n^; print qq^^; }