#!/usr/bin/perl use CGI qw(:standard); use CGI::Carp qw( fatalsToBrowser ); use File::Basename; use Net::OpenSSH; use Net::SSH::Expect; use Data::Dumper; use Exporter qw(import); our @EXPORT = qw(copyToTarget); sub print_page() { print ("Content-type: text/html\n\n"); print <<__HTML__;

Maintenance File Upload


Customer:                Technology :


File to Upload:

   
__HTML__ } sub main() { $CGI::POST_MAX = 1024 *1024 ; my $safe_filename_characters = "a-zA-Z0-9_.-"; my $upload_dir = "/opt/IBM/Maintenance/tmp"; my $query = new CGI; print_page(); my $filename = $query->param("filecsv"); my $ctext = $query->param("Customer"); my $ttechno = $query->param("Techno"); my $content_length = $ENV{'CONTENT_LENGTH'}; if ( !$filename ) { print< Thanks!

File is too big for upload! $content_length

END_HTML2 exit; } else { print< Thanks!

File is in relevant size to upload! $content_length

END_HTML3 } }