home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.pdx.edu / 2014.03.ftp.cs.pdx.edu.tar / ftp.cs.pdx.edu / stash / CGI_WEB / my_list.cgi < prev    next >
Text File  |  1999-04-06  |  973b  |  43 lines
  1. #! /usr/bin/perl
  2. # 
  3. # CGI Script for displaying the contents of a file.
  4. # 
  5. # Version 1.0, 03/99
  6. # Author Matthias Lampe, lampe@cs.pdx.edu
  7. #
  8. # The scripts takes the name of the file as a parameter and simply
  9. # displays the content of the file.
  10. #
  11. # PARAMETERS:
  12. #    file
  13. #
  14. use CGI #qw(:standard);    # include CGI library
  15. $f = CGI->new;        # create new CGI instance
  16.  
  17. print $f->header("text/plain");    # print HTTP header
  18.  
  19. $file = $f->param("file");    # read parameter
  20. $file="list.cgi";
  21.  
  22. #--- just allow to read files in directory of script or
  23. #    subdirectories, i.e. '.' or '/' are not allowed as
  24. #    first characters in filename
  25.  
  26. if ($file =~ /^[.\/]/)
  27. {
  28.    print("Illegal filename $file.");
  29.    die("Illegal filename $file.\n");
  30. }
  31.  
  32. #--- open file or die if file not found
  33. open(FILE_HANDLE, $file) || (print("Error opening file $file: $!")
  34.             && die("Error opening file $file: $!\n"));
  35.  
  36. #--- read content of file
  37. while ($line = <FILE_HANDLE>)
  38. {
  39.    print $line;
  40. }
  41.  
  42. close(FILE_HANDLE);
  43.