MAINTENANCE PAGE

##

#!/usr/lib/perl
# Maintenance_Framework.cgi
use strict;
use warnings;
use CGI;
use CGI::Carp 'fatalsToBrowser'; # debug only
$CGI::POST_MAX = 1024 * 5000;

my $upload_dir = '/opt/IBM/Maintenance/tmp';

my $q = new CGI;
my $Circle = $q->param('Circle');
my $Techno = $q->param('Techno');
my $newfilename = $Circle.'abc'.$Techno.'.csv';

my $upload_filehandle = $q->upload("filecsv");
open OUT, '>',"$upload_dir/$newfilename"  or die "$!";
binmode OUT;
while ( <$upload_filehandle> ) {
  print OUT;
}
close OUT;

print $q->header;
print << "HTM";

Maintenance Page

Thanks for uploading your file as $newfilename

HTM