Changeset 9203 for trunk/gsdl
- Timestamp:
- 2005-02-28T11:45:49+13:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/cgi-bin/upload
r8096 r9203 7 7 sub main 8 8 { 9 9 10 my $gsdl_cgi = new gsdlCGI(); 10 11 my $gsdlhome = $gsdl_cgi->get_config_info("gsdlhome"); … … 19 20 $gsdl_cgi->generate_error("No directory name specified"); 20 21 } 22 23 my $delete = $gsdl_cgi->clean_param("del"); 24 $delete = "all" if((!defined $delete) || ($delete eq "")); 21 25 22 26 $dir = "" if (($dir eq ".") || ($dir =~ m/^\.\./)); … … 35 39 36 40 my $col_dir = "$col/$dir"; # Unix specific 37 $gsdl_cgi->rm_rf($col_dir); 41 42 if($delete eq "all") { 43 $gsdl_cgi->rm_rf($col_dir); 44 } 45 elsif($delete eq "files") { 46 `cd $gsdlhome/$col_dir ; find -not -name "metadata.xml" -exec rm {} \;`; 47 } 48 elsif($delete eq "metadata") { 49 `cd $gsdlhome/$col_dir ; find -name "metadata.xml" -exec rm {} \;`; 50 } 51 38 52 if (!-e $col_dir) { 39 53 my $mkdir_cmd = "mkdir $col_dir"; 40 54 $gsdl_cgi->unix_cmd($mkdir_cmd); 41 55 } 42 56 43 57 if (open(ZOUT,"> $zip_fname")) { 44 58 … … 57 71 close(ZOUT); 58 72 59 60 ## print STDERR "**** Debug as /tmp/XXX.zip\n";61 ## `cp $zip_fname /tmp/XXX.zip`;62 63 73 `java -classpath $gsdlhome/bin/java/SignedGatherer.jar org.greenstone.gatherer.util.Unzip $gsdlhome/ $zip_fname`; 64 74 … … 73 83 74 84 &main(); 75
Note:
See TracChangeset
for help on using the changeset viewer.