Re: Controlling access to pdf/doc files

[siput () email com]

I write like this in Perl:
-Open the file
-Write the correct Content-type
-Write to the output

sub download {
# ----------
# download file

   my $type = $in{'type'};
   
   if ($type eq "pdf") {

      open( IN, $PDF_FILE ) or die;  #quit on error
      binmode(IN);                 
      print "Content-type: application/pdf\n\n";
   
   } elsif ($type eq "zip") {
        
      open( IN, $ZIP_FILE ) or die;  
      binmode(IN);                  
      print "Content-type: application/x-zip-compressed\n\n";

   }
   
   while( read( IN, $i, 1024) ) {
      print $i;
   }
   close IN;
   
}

--Suhairi Mohd Jawi
-- 
___________________________________________________________
Sign-up for Ads Free at Mail.com
http://promo.mail.com/adsfreejump.htm