cvs commit: httpd-apreq/eg/perl file_upload.pl

[jimw]

jimw        01/01/10 10:57:15

  Modified:    eg/perl  file_upload.pl
  Log:
  don't allow caching of this test page, and send proper html
  Obtained from: Alexander Farber <[EMAIL PROTECTED]>
  
  Revision  Changes    Path
  1.3       +2 -0      httpd-apreq/eg/perl/file_upload.pl
  
  Index: file_upload.pl
  ===================================================================
  RCS file: /home/cvs/httpd-apreq/eg/perl/file_upload.pl,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- file_upload.pl    2000/03/30 04:46:36     1.2
  +++ file_upload.pl    2001/01/10 18:57:13     1.3
  @@ -3,6 +3,7 @@
   
   my $r = shift;
   my $apr = Apache::Request->new($r);
  +$apr->no_cache(1);
   $apr->send_http_header('text/html');
   
   my $title = "File Upload Example";
  @@ -67,3 +68,4 @@
        print "No statistics selected.\n";
       }
   }
  +print "</BODY></HTML>";