#!/usr/bin/perl $mappath = '/var/www/alv/pages/imgmap.alv'; $filepath = '/var/www/alv/pages/'; use CGI; my $req = new CGI; $pagevar = $req->param("page"); if (length($pagevar) > 12) { $pg='contact'; } else { $pg = $pagevar; } if (index($pg,"\.") > 0) { $pg='contact'; } open CONTENT, "<$filepath$pg.alv"; @lines = ; close (CONTENT); foreach $line (@lines) { ($txtStart, $page, $txtEnd) = split(/:!/,$line); if ($req->param("target") ne "") { my $tg = $req->param("target"); $target = " target=\"$tg\""; } else { $target = ""; } if ($page ne "") { my $tp = $req->param("type"); $page = "HREF=\"buildpage.cgi?page=$page\&type=$tp\"$target"; $line = $txtStart . $page . $txtEnd; } } if ($req->param('type') ne "noframes") { print "Content-type: text/html\nPragma: no-cache\n\n"; print << "EOF"; Andrew Lewis Volunteers @lines EOF } else { open MAP, "<$mappath"; @maplines = ; close (MAP); foreach $mapline (@maplines) { ($txtStart, $page, $txtEnd) = split(/:!/,$mapline); if ($page ne "") { $page = "HREF=\"buildpage.cgi?page=$page\&type=noframes\""; $mapline = $txtStart . $page . $txtEnd; } } print "Content-type: text/html\nPragma: no-cache\n\n"; print << "EOF"; Andrew Lewis Volunteers

Andrew Lewis Volunteers

 

@lines

Click below to find out more about the corps.


@maplines EOF } exit;