[BACK]Return to MPIWGStor.pm CVS log [TXT] [DIR] Up to [Repository] / foxridge-archiver

Diff for /foxridge-archiver/MPIWGStor.pm between versions 1.6 and 1.9

version 1.6, 2006/02/10 17:01:18 version 1.9, 2007/03/21 14:22:27
Line 12  use vars qw(@ISA @EXPORT $VERSION Line 12  use vars qw(@ISA @EXPORT $VERSION
         $file_perm);          $file_perm);
 use Exporter;  use Exporter;
   
 $VERSION = 0.6.2; #  ROC 10.2.2006  $VERSION = 0.6.3; #  ROC 6.3.2007
   
 @ISA = qw(Exporter);  @ISA = qw(Exporter);
   
Line 27  $debug = 0; Line 27  $debug = 0;
   
 # junk files  # junk files
 %junk_files = (  %junk_files = (
           '.HSResource' => '.HSResource',      # netatalk stuff
           '.HSancillary' => '.HSancillary',      '.AppleDB' => '.AppleDB',
           '.HSicon' => '.HSicon',      '.AppleDesktop' => '.AppleDesktop',
       '.AppleDouble' => '.AppleDouble',
       '.FBCIndex' => '.FBCIndex',
       '.FBCLockFolder' => '.FBCLockFolder',
       ':2eTemporaryItems' => ':2eTemporaryItems',
       ':2eDS_Store' => ':2eDS_Store',
       ':2eBridgeSort' => ':2eBridgeSort',
       # standard appleshare stuff
       '.DS_Store' => '.DS_Store',
       '.TemporaryItems' => '.TemporaryItems',
           'Network Trash Folder' => 'Network Trash Folder',            'Network Trash Folder' => 'Network Trash Folder',
           'TheVolumeSettingsFolder' => 'TheVolumeSettingsFolder',            'TheVolumeSettingsFolder' => 'TheVolumeSettingsFolder',
           '.DS_Store' => '.DS_Store'      # old appleshare software turds
       '.HSResource' => '.HSResource',
       '.HSancillary' => '.HSancillary',
       '.HSicon' => '.HSicon'
           );            );
   
 # filenames to not delete (but archive)  # filenames to not delete (but archive)
Line 155  sub split_file_path { Line 167  sub split_file_path {
   
   
 #  #
 # $name = sstrip($name)  # $name = sstrip($name, $slash)
 #  #
 # strips leading and trailing whitespace from $name  # strips leading and trailing whitespace from $name
   # replaces double slashes with single ones with $slash.
 #  #
 sub sstrip {  sub sstrip {
     my ($name) = @_;      my ($name, $slash) = @_;
           
     if ($name =~ /^\s*(.*?)\s*$/) {      if ($name =~ /^\s*(.*?)\s*$/) {
     return $1;      $name = $1;
       }
       if ($slash) {
       # trim multiple slashes
       $name =~ s/\/+/\//g;
     }      }
     return $name;      return $name;
 }  }
Removed from v.1.6  
changed lines
  Added in v.1.9

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>