Re: TEMPLETE

[Scott Lutz]

asign headers and footers:
$pageheader = "/path/to/some/directory/pageheader.txt";
$pagefooter = "/path/to/some/directory/pagefooter.txt";



&header;
put a bunch of Perl code here to spit out some fancy bits
&footer;

sub header {

 open (FILE,"$pageheader"); 
   @pageheaderfile = <FILE>;
  close(FILE);

 print "Content-Type: text/html\n\n";

 foreach $hline (@pageheaderfile) {
  print "$hline";
   }
}

##############

sub footer {
 
 open (FILE,"$pagefooter");
   @pagefooterfile = <FILE>;
  close(FILE);

 foreach $fline (@pagefooterfile) {
  print "$fline";
 }
}





----- Original Message ----- 
From: "nafiseh saberi" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Saturday, November 03, 2001 11:45 PM
Subject: TEMPLETE


hi...
do u know how can I use templete in perl ??
(now I use html in perl source...)
thx.
  _________________________
              Best regards    

      Try to always be hopefull

           www.iraninfocenter.net
            www.electronegar.com
                  www.sorna.net  
   ____________________________



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]