--- foxridge-archiver/MPIWGStor.pm	2006/02/10 17:01:18	1.6
+++ foxridge-archiver/MPIWGStor.pm	2007/03/06 17:41:25	1.8
@@ -12,7 +12,7 @@ use vars qw(@ISA @EXPORT $VERSION
 	    $file_perm);
 use Exporter;
 
-$VERSION = 0.6.2; #  ROC 10.2.2006
+$VERSION = 0.6.3; #  ROC 6.3.2007
 
 @ISA = qw(Exporter);
 
@@ -27,13 +27,24 @@ $debug = 0;
 
 # junk files
 %junk_files = (
-		  '.HSResource' => '.HSResource',
-		  '.HSancillary' => '.HSancillary',
-		  '.HSicon' => '.HSicon',
-		  'Network Trash Folder' => 'Network Trash Folder',
-		  'TheVolumeSettingsFolder' => 'TheVolumeSettingsFolder',
-		  '.DS_Store' => '.DS_Store'
-		  );
+    # netatalk stuff
+    '.AppleDB' => '.AppleDB',
+    '.AppleDesktop' => '.AppleDesktop',
+    '.AppleDouble' => '.AppleDouble',
+    '.FBCIndex' => '.FBCIndex',
+    '.FBCLockFolder' => '.FBCLockFolder',
+    ':2eTemporaryItems' => ':2eTemporaryItems',
+    ':2eDS_Store' => ':2eDS_Store',
+    # standard appleshare stuff
+    '.DS_Store' => '.DS_Store',
+    '.TemporaryItems' => '.TemporaryItems',
+    'Network Trash Folder' => 'Network Trash Folder',
+    'TheVolumeSettingsFolder' => 'TheVolumeSettingsFolder',
+    # old appleshare software turds
+    '.HSResource' => '.HSResource',
+    '.HSancillary' => '.HSancillary',
+    '.HSicon' => '.HSicon'
+    );
 
 # filenames to not delete (but archive)
 %index_files = ( 
@@ -155,15 +166,20 @@ sub split_file_path {
 
 
 #
-# $name = sstrip($name)
+# $name = sstrip($name, $slash)
 #
 # strips leading and trailing whitespace from $name
+# replaces double slashes with single ones with $slash.
 #
 sub sstrip {
-    my ($name) = @_;
+    my ($name, $slash) = @_;
     
     if ($name =~ /^\s*(.*?)\s*$/) {
-	return $1;
+	$name = $1;
+    }
+    if ($slash) {
+	# trim multiple slashes
+	$name =~ s/\/+/\//g;
     }
     return $name;
 }