NARAL Pro-Choice $affName

#!/usr/bin/perl # # template-top.pl # For use with ProChoiceAmerica.org and affiliated websites # # written by Michael Rathmann # (c)RathmannDesign.com. All right reserved. require 'template.pl'; require '../cgi-lib.pl'; # RUN PROGRAM print "Content-type: text/html\n\n"; &ReadParse(*FORM); $page = $FORM{'page'}; $level = $FORM{'level'}; $source = $FORM{'source'}; $subtitle = $FORM{'subtitle'}; $entry = $FORM{'entry'}; $ssl = $FORM{'ssl'}; $postYear = $FORM{'year'}; &getDate; @imgArray = ('brandphoto1','brandphoto2','brandphoto3','brandphoto4'); srand; $displayImg = $imgArray[int rand(@imgArray)]; if ($level eq "hp") { &buildHpHdr; } else { &buildIpHdr; } # END PROGRAM # SUBROUTINES sub buildHpHdr { $dataFile = '../db/metadata.db'; open (FILE, $dataFile); @lines = ; close(FILE); $entry = $lines[0]; @hpData = split(/\|/, $entry); chomp(@hpData); print qq[ NARAL Pro-Choice $affName

]; } #!/usr/bin/perl # # template-btm.pl # For use with ProChoiceAmerica.org and affiliated websites # # written by Michael Rathmann # (c)RathmannDesign.com. All right reserved. require 'template.pl'; require '../cgi-lib.pl'; # RUN PROGRAM print "Content-type: text/html\n\n"; &ReadParse(*FORM); $level = $FORM{'level'}; if ($level >= 1) { $colSpan = ' COLSPAN="2"'; } if ($level eq "hp") { &buildHpFtr; } else { &buildIpFtr; } # END PROGRAM # SUBROUTINES sub buildHpFtr { print qq[

•

Donate

•

#!/usr/bin/perl # # template-ltcol.pl # For use with ProChoiceAmerica.org and affiliated websites # # written by Michael Rathmann # (c)RathmannDesign.com. All right reserved. require 'template.pl'; require '../cgi-lib.pl'; # RUN PROGRAM print "Content-type: text/html\n\n"; &ReadParse(*FORM); $level = $FORM{'level'}; &getDate; &buildLtCol; # END PROGRAM # SUBROUTINES

* Incompatible Browser

Sorry, this form is compatible with Microsoft Internet Explorer 5.0+higher, Netscape Navigator 6.0+higher, and Firefox 1.5+higher browsers only.

Please download one of these browsers if you wish to use this online form.
We apologize for the inconvenience.

If you are currently using the appropriate browser, please make sure that you have it set to be JavaScript enabled. After JavaScript has been enabled, simply reload this page and you will be taken to the form. Thank you.

#!/usr/bin/perl # # pagedisplay.pl # For use with ProChoiceAmerica.org and affiliated websites # # written by Michael Rathmann # (c)RathmannDesign.com. All right reserved. require 'template.pl'; require '../cgi-lib.pl'; # RUN PROGRAM print "Content-type: text/html\n\n"; &ReadParse(*FORM); $page = $FORM{'page'}; $level = $FORM{'level'}; $subtitle = $FORM{'subtitle'}; $notitle = $FORM{'notitle'}; $title = ''; if (!$level) { for ($i=0;$i<=@secondaryPage;$i++) { if ($secondaryPage[$i] eq $page) { $title = $secondaryTit[$i]; } } } if ($level >= 1) { $title = $secTit[$level]; } if ($level eq 1) { if ($page) { for ($i=0;$i<=@sec1Page;$i++) { if ($sec1Page[$i] eq $page) { $title = $sec1Tit[$i]; } } } } if ($level eq 2) { if ($page) { for ($i=0;$i<=@sec2Page;$i++) { if ($sec2Page[$i] eq $page) { $title = $sec2Tit[$i]; } } } } if ($level eq 3) { if ($page) { for ($i=0;$i<=@sec3Page;$i++) { if ($sec3Page[$i] eq $page) { $title = $sec3Tit[$i]; } } } } if ($level eq 4) { if ($page) { for ($i=0;$i<=@sec4Page;$i++) { if ($sec4Page[$i] eq $page) { $title = $sec4Tit[$i]; } } } } if ($level eq 5) { if ($page) { for ($i=0;$i<=@sec5Page;$i++) { if ($sec5Page[$i] eq $page) { $title = $sec5Tit[$i]; } } } } if ($level eq 6) { if ($page) { for ($i=0;$i<=@sec6Page;$i++) { if ($sec6Page[$i] eq $page) { $title = $sec6Tit[$i]; } } } } if ($level eq 7) { if ($page) { for ($i=0;$i<=@sec7Page;$i++) { if ($sec7Page[$i] eq $page) { $title = $sec7Tit[$i]; } } } } if (!$page) { $dataFile = '../db/'.$secDir[$level].'.db'; } else { $dataFile = '../db/'.$secDir[$level].'_'.$page.'.db'; } open(FILE,"$dataFile"); @lines = ; close(FILE); if ($subtitle) { $displayTitle = $subtitle; } else { $displayTitle = $title; } if (!$notitle) { print qq[

$displayTitle

\n]; } print qq[ @lines]; # END PROGRAM

]; }