From 4fc38f64a1d394f65ed69b0fb99dca163f720781 Mon Sep 17 00:00:00 2001
From: freesource <freesource>
Date: Sat, 13 Oct 2001 00:38:29 +0000
Subject: [PATCH] Makes sure these programs do backups for info in the right
 place.

---
 bin/fastswim |  8 ++++----
 bin/imswim   | 10 ++++------
 2 files changed, 8 insertions(+), 10 deletions(-)

diff --git a/bin/fastswim b/bin/fastswim
index 94d80a5..6016f1c 100755
--- a/bin/fastswim
+++ b/bin/fastswim
@@ -47,7 +47,6 @@ my $temp;
 my %HL;
 my @name;
 my %version;
-my $home = $ENV{'HOME'} . "/";
 
 #$| = 1;
 #$#name = 2000;
@@ -115,9 +114,10 @@ my $home = $ENV{'HOME'} . "/";
              # humm let's rebuild the offending backup list, this
              # is important for --db.
              unshift(@redolist,"/."); 
-             open(REDOLIST, ">$home$ARGV[1]/backup/$thingy.bk.bk")
+             open(REDOLIST, ">$ARGV[3]/$ARGV[1]/backup/$thingy.bk.bk")
              or warn "needed to edit $thingy because it lacked /.,
-                      but could not open up a backup file\n";
+                      but could not open up a backup file
+                      $ARGV[3]/$ARGV[1]/backup/$thingy.bk.bk\n";
                my $rd;
                foreach $rd (@redolist) {
                  chomp $rd;
@@ -125,7 +125,7 @@ my $home = $ENV{'HOME'} . "/";
                }
              close(REDOLIST);
              rename
-             ("$ARGV[1]/backup/$thingy.bk.bk","$ARGV[1]/backup/$thingy.bk");
+             ("$ARGV[3]/$ARGV[1]/backup/$thingy.bk.bk","$ARGV[3]/$ARGV[1]/backup/$thingy.bk");
              $_ =  "/.";             
             }
           }
diff --git a/bin/imswim b/bin/imswim
index 7d4387a..0977567 100755
--- a/bin/imswim
+++ b/bin/imswim
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-#use diagnostics;
+
 require 5.004;
 use strict;
 
@@ -48,8 +48,6 @@ line.
 
 =cut
 
-    my $home = $ENV{'HOME'} . "/";
-
    if ($#ARGV == -1) {                                                          
      print STDERR "swim: imswim requires arguments, see program for instructions\n";                                                                      
          exit;                                                                  
@@ -84,7 +82,7 @@ line.
              # humm let's rebuild the offending backup list, this               
              # is important for --db.                                           
              unshift(@redolist,"/.");                                           
-             open(REDOLIST, ">$home$ARGV[0]/backup/$the[0].list.bk.bk")        
+             open(REDOLIST, ">$ARGV[2]/$ARGV[0]/backup/$the[0].list.bk.bk")        
              or warn "needed to edit $the[0].list because it lacked /.,              
                       but could not open up a backup file\n";                   
                my $rd;                                                          
@@ -93,8 +91,8 @@ line.
                  print REDOLIST "$rd\n";                                        
                }                                                                
              close(REDOLIST);                                                   
-             rename("$ARGV[0]/backup/$the[0].list.bk.bk",
-                    "$ARGV[0]/backup/$the[0].list.bk");    
+             rename("$ARGV[2]/$ARGV[0]/backup/$the[0].list.bk.bk",
+                    "$ARGV[2]/$ARGV[0]/backup/$the[0].list.bk");    
              $_ =  "/.";                                                        
             }                                                                   
           }