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 $return = 'maintenance.html';
my $upload_dir = '/opt/IBM/Maintenance/tmp';

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

if ($action eq 'Upload'){
  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
return

HTM

} elsif ($action eq 'Download'){

  if (-e "$upload_dir/$newfilename"){
    print "Content-Type:application/x-download\n";
    print "Content-Disposition:attachment;filename=$newfilename\n\n";
  
    open IN, '<',"$upload_dir/$newfilename" or die "$!";
    while (  ) {
      print;
    }
    close IN;
  } else {
    print $q->header;
    print << "HTM2";

Maintenance Page

ERROR - $newfilename does not exist 
return

HTM2
  }
} else {
  print $q->header;
  print << "HTM3";

Maintenance Page

ERROR - Action = '$action' 
return

HTM3
}