#!/usr/bin/perl use CGI; print CGI->header; $NAME = 0; $NUM_TIX = 1; $CONTACT_METH = 2; $EMAIL_ADDR = 3; $PHONE_NUM = 4; $CITY = 5; $REGION = 6; $ZIP = 7; $UNLISTED = 0; $EMAIL = 3; $PHONE = 4; sub get_distributors { my @distribs; my $distdir = "distributors"; opendir (DISTDIR, $distdir); while (my $currfile = readdir(DISTDIR)) { if (-f "$distdir/$currfile") { open (DISTRIB, "$distdir/$currfile"); my @distributor; my $contact; for ($i=0; $i<8; $i++) { my $line = ; if ($i == $CONTACT_METH) { $contact = $line; chomp $contact; } push @distributor, $line; } close DISTRIB; push @distribs, \@distributor unless ($contact == 0); } } closedir DISTDIR; return @distribs; } my @distributors = &get_distributors; print << "END_HTML"; bianca.org
            








Available ticket distributors




For will-call tickets, you can no longer use paypal.  We're out :) :)
END_HTML

  foreach $dist (@distributors) {
    print << "END_HTML";
@$dist[$CITY] (@$dist[$ZIP] / @$dist[$REGION])



@$dist[$NAME]  

@$dist[$NUM_TIX] tickets left

Contact: @$dist[@$dist[$CONTACT_METH]]





END_HTML
}

  print << "END_HTML";

 
 


bianca loves you.















END_HTML