";
open (READIT, "$pod_templatedir/header.html");
read (READIT, $pod_header, 20000,0);
close (READIT);
return $pod_ph_text.$pod_header;
}
sub pod_page_footer{
my $pod_pf_text; my $pod_footer;
open (READIT,"$pod_templatedir/footer.html");
read (READIT, $pod_footer, 20000,0);
close (READIT);
# Change the footer to what you'd like it to read, but we would appreciate
# credit for the script *somewhere* on your Web site.
# Not including this credit is a breach of the licencing terms of the Personal
# Open Directory and action may be taken against you if attribution is not given.
$pod_pf_text=qq~
|