bike/dswim
1
0
Fork 0
mirror of https://github.com/fspc/dswim.git synced 2025-02-22 00:23:28 -05:00
Code Issues Projects Releases Wiki Activity

Makes sure these programs do backups for info in the right place.

Browse Source
This commit is contained in:
freesource 2001-10-13 00:38:29 +00:00
parent 948c04b550
commit 4fc38f64a1
2 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
bin/fastswim
View File

@ -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");
$_ = "/.";
}
}

10
bin/imswim
View File

@ -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");
$_ = "/.";
}
}