Changeset 16824

Show
Ignore:
Timestamp:
15.08.2008 15:32:32 (11 years ago)
Author:
davidb
Message:

Filenames are now quoted in system calls, so they can have spaces in them.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/ZIPPlugin.pm

    r16392 r16824  
    146146    my ($file) = @_; 
    147147 
    148     if (system ("bunzip $file")!=0) 
     148    if (system ("bunzip \"$file\"")!=0) 
    149149    { 
    150150    &util::rm ($file); 
     
    156156    my ($file) = @_; 
    157157 
    158     if (system ("bunzip2 $file")!=0) 
     158    if (system ("bunzip2 \"$file\"")!=0) 
    159159    { 
    160160    &util::rm ($file); 
     
    166166    my ($file) = @_; 
    167167 
    168     system ("unzip $file"); 
     168    system ("unzip \"$file\""); 
    169169    &util::rm ($file) if -e $file; 
    170170} 
     
    174174    my ($file) = @_; 
    175175 
    176     system ("tar xf $file"); 
     176    system ("tar xf \"$file\""); 
    177177    &util::rm ($file) if -e $file; 
    178178} 
     
    182182    my ($file) = @_; 
    183183 
    184     if (system ("gunzip $file")!=0) 
     184    if (system ("gunzip \"$file\"")!=0) 
    185185    { 
    186186    &util::rm ($file);