Simple Upload script

Bhargav Coca

I am TS6.7.1 on Linux. I do have that same sample upload script of devnet and modified a little to incorporate minor interactive changes. For some reason file get uploaded to Teamsite, but the file size is always "zero". I am thinking that binmode(UPLOADFILE) is not doing the job. Here is my sample snippet can anyone tell me where i was going wrong?

[html]
$filename =~ s/.*[\/\\](.*)/$1/;
my $import_target_path = $area_path;
$import_target_path =~ s/.*default/\/default/;
$import_target_path = $iwmount . $import_target_path;
# in this case we are uploading to a specific TS directory
my $upload_dir = "$import_target_path$target_dir/";

open (LOG,">$iwhome/tmp/dotcomPerformImport.log");

print LOG "upload dir:$upload_dir\n";
print LOG "filename:$filename\n";
print LOG "overwrite:$overwrite\n";
print LOG "upload_file_handle:$upload_file_handle\n";
close LOG;
if (! -d $upload_dir)
{
print $cgi->header();
ShowPathError();
exit 0;
}

open (LOG,">>$iwhome/tmp/PerformImport.log");
print LOG "FILENAME == $upload_dir$filename\n";
open(UPLOADFILE, ">/tmp/Sample.doc");
close UPLOADFILE;
close LOG;

if((! -e "$upload_dir$filename") || ($overwrite eq "Y"))
{

print LOG "FILENAME == $upload_dir$filename\n";
open(UPLOADFILE, ">$upload_dir$filename");
open (LOG,">>$iwhome/tmp/PerformImport.log");
# both files must be in binary mode
binmode(UPLOADFILE);
if ($overwrite eq "Y")
{
my $tmpfile = "$iwhome/tmp/$filename";
my $copycmd = "cp $tmpfile $upload_dir$filename";
print LOG "copycmd:[$tmpfile $upload_dir$filename]\n";
`$copycmd`;
}
else
{
binmode($upload_file_handle);
print LOG "upload_file_handle:$upload_file_handle\n";
while(<$upload_file_handle>)
{
print UPLOADFILE $_;
}
}

close UPLOADFILE;
close LOG;
# upload process complete, provide some feedback to the user
print $cgi->header();
ShowSuccess();
exit 0;

}

# file already exists
open(UPLOADFILE, ">$iwhome/tmp/$filename");

# both files must be in binary mode
binmode(UPLOADFILE);
binmode($upload_file_handle);

# read from the source file and write to the target file
while(<$upload_file_handle>)
{
print UPLOADFILE $_;
}

close UPLOADFILE;
print $cgi->header();
ShowFailure();
exit 0;

[/html]

Thank You

Adam Stoller

It might help if we could see the contents of $iwhome/tmp/PerformImport.log

Besides that - as far as I can tell, this will only upload files that already exist somewhere on the TeamSite server - not some user's client machine. Did you want to only upload files that already exist on the TeamSite server?

You're also opening up the file for writing with Perl, and then using a copy command, and then closing the file with Perl:

...
    open(UPLOADFILE, ">$upload_dir$filename");
    binmode(UPLOADFILE);
    if ($overwrite eq "Y") {
        ...
        `$copycmd`;
    } else {
        binmode($upload_file_handle);
        while (<$upload_file_handle>) {
            print UPLOADFILE $_;
        }
    }
    close UPLOADFILE;
...

If you are in overwrite mode, I believe that whatever $copycmd does will get overwritten when you close the file handle - If you move the highlighted lines to within the else clause, that should fix that problem.

However - you might want to just look at the File::Copy module instead.

If you were trying to upload files from the client machine - you have to do that through an HTTP connection - here is but one example that I found with a quick google search, I'm sure there are many others.