File: aft.cgi.in

package info (click to toggle)
aft 2%3A5.098-2
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd, wheezy
  • size: 544 kB
  • ctags: 96
  • sloc: perl: 1,271; sh: 439; makefile: 105
file content (29 lines) | stat: -rwxr-xr-x 555 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
#!@PERL@
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use lib @prefix@/share/@PACKAGE@;
use AFT;

my $cgi = new CGI;


my $file = $cgi->param('file');

if (!defined($file)) {
  print $cgi->header();
  print <<"END_OF_FORM"
    <FORM ENCTYPE="multipart/form-data" ACTION="/cgi-bin/aft.cgi" METHOD="POST">
      <p>Please select an AFT file to upload: <br /> 
         <INPUT TYPE="FILE" NAME="file">
      </p>
      <p><INPUT TYPE="submit"></p>
    </FORM>
		  
END_OF_FORM

} else {
  print $cgi->header();
  &AFT::doFH_File($file, $file);
}