- Timestamp:
- 2005-11-09T14:09:09+13:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/gsdl-2_62-distribution-branch/gsdl/cgi-bin/upload
r10584 r10874 24 24 } 25 25 26 my $collect_dir = &util::filename_cat($gsdlhome,"collect"); 26 27 my $full_col = &util::filename_cat($gsdlhome,"collect",$col); 27 28 28 #If the collection dir on the server somehow got erased, create it. 29 29 if(!-e $full_col) { … … 35 35 $gsdl_cgi->generate_error("No directory name specified"); 36 36 } 37 38 37 my $delete = $gsdl_cgi->clean_param("del"); 39 38 $delete = "all" if((!defined $delete) || ($delete eq "")); … … 52 51 my $col_dir = &util::filename_cat($col,$dir); 53 52 my $full_col_dir = &util::filename_cat($full_col,$dir); 54 55 53 if($delete eq "all") { 56 54 $gsdl_cgi->local_rm_r($col_dir); … … 72 70 73 71 my $zip_file_name = $col . ".zip"; 74 my $zip_file_path = &util::filename_cat($full_col_dir, $zip_file_name); 72 #my $zip_file_path = &util::filename_cat($full_col_dir, $zip_file_name); 73 my $zip_file_path = &util::filename_cat($collect_dir, $zip_file_name); 75 74 if (open(ZOUT, ">$zip_file_path")) { 76 75 binmode(ZOUT); … … 95 94 "SignedGatherer.jar"); 96 95 97 my $java_cmd = "$java -classpath \"$classpath\" org.greenstone.gatherer.util.Unzip \"$zip_file_path\" \"$full_col_dir\""; 96 #my $java_cmd = "$java -classpath \"$classpath\" org.greenstone.gatherer.util.Unzip \"$zip_file_path\" \"$full_col_dir\""; 97 my $java_cmd = "$java -classpath \"$classpath\" org.greenstone.gatherer.util.Unzip \"$zip_file_path\" \"$collect_dir\""; 98 98 $gsdl_cgi->generate_ok_message("Command: $java_cmd\n"); 99 99
Note:
See TracChangeset
for help on using the changeset viewer.