X-Git-Url: https://vcs.fsf.org/?p=squirrelmail.git;a=blobdiff_plain;f=plugins%2Fmake_archive.pl;h=5df90b9d0b7daeaf9ed92b4cccc88306aace1885;hp=b7124bbc697418cf6920e87b3df8903d65d2c9db;hb=9eb3fcb302b8e0363760bee586f1c43e7050b365;hpb=a42ccc65af95b9691000901af5b41f1aeb2b9abb

diff --git a/plugins/make_archive.pl b/plugins/make_archive.pl
index b7124bbc..5df90b9d 100755
--- a/plugins/make_archive.pl
+++ b/plugins/make_archive.pl
@@ -29,7 +29,7 @@ foreach $arg (@ARGV)
     else
     {
         print "Unrecognized argument:  $arg\n";
-	exit(0);
+        exit(0);
     }
 }
 
@@ -67,12 +67,12 @@ $QuietString = " > /dev/null 2> /dev/null" if (! $Verbose);
 
 print "\n\n" if ($Verbose);
 print "Creating $Plugin.$Version-$SMVersion.tar.gz\n";
-system("tar cvfz $Plugin.$Version-$SMVersion.tar.gz $Plugin" . 
+system("tar cvfz $Plugin.$Version-$SMVersion.tar.gz $Plugin" .
     FindTarExcludes(@Files) . $QuietString);
-    
+
 #print "\n\n" if ($Verbose);
 #print "Creating $Plugin.$Version-$SMVersion.zip\n";
-#system("zip -r $Plugin.$Version-$SMVersion.zip $Plugin/" . 
+#system("zip -r $Plugin.$Version-$SMVersion.zip $Plugin/" .
 #    FindZipExcludes(@Files) . $QuietString);
 
 
@@ -80,11 +80,11 @@ system("tar cvfz $Plugin.$Version-$SMVersion.tar.gz $Plugin" .
 sub VerifyPluginDir
 {
     local ($Plugin) = @_;
-    
+
     if (! -e $Plugin && ! -d $Plugin)
     {
         print "The $Plugin directory doesn't exist, " .
-	    "or else it is not a directory.\n";
+            "or else it is not a directory.\n";
         exit(0);
     }
 }
@@ -93,39 +93,39 @@ sub VerifyPluginDir
 sub FindTarExcludes
 {
     local (@Files) = @_;
-    
+
     $ExcludeStr = "";
-    
+
     foreach $File (@Files)
     {
         if ($File =~ /^(.*\/CVS)\/$/)
-	{
-	    $ExcludeStr .= " --exclude $1";
-	}
+        {
+            $ExcludeStr .= " --exclude $1";
+        }
     }
-    
+
     return $ExcludeStr;
 }
 
 sub FindZipExcludes
 {
     local (@Files) = @_;
-    
+
     $ExcludeStr = "";
-    
+
     foreach $File (@Files)
     {
         if ($File =~ /^(.*\/CVS)\/$/)
-	{
-	    $ExcludeStr .= " $1/ $1/*";
-	}
+        {
+            $ExcludeStr .= " $1/ $1/*";
+        }
     }
-    
+
     if ($ExcludeStr ne "")
     {
         $ExcludeStr = " -x" . $ExcludeStr;
     }
-    
+
     return $ExcludeStr;
 }
 
@@ -133,25 +133,25 @@ sub RecurseDir
 {
     local ($Dir) = @_;
     local (@Files, @Results);
-    
+
     opendir(DIR, $Dir);
     @Files = readdir(DIR);
     closedir(DIR);
-    
+
     @Results = ("$Dir/");
-    
+
     foreach $file (@Files)
     {
         next if ($file =~ /^[\.]+/);
         if (-d "$Dir/$file")
-	{
-	    push (@Results, RecurseDir("$Dir/$file"));
-	}
-	else
-	{
-	    push (@Results, "$Dir/$file");
-	}
+        {
+            push (@Results, RecurseDir("$Dir/$file"));
+        }
+        else
+        {
+            push (@Results, "$Dir/$file");
+        }
     }
-    
+
     return @Results;
 }