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

This puts default_directory in $HOME.

Browse Source
This commit is contained in:
freesource 2001-10-12 17:14:16 +00:00
parent 40b98f3f6b
commit 52ebd92ce2
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
SWIM/Conf.pm
View File

@ -29,7 +29,7 @@ use Exporter;
$splt $mv $imswim $swim_conf $debug $port $timeout $splt $mv $imswim $swim_conf $debug $port $timeout
$firewall $passive $apt_sources $HISTORY $alt); $firewall $passive $apt_sources $HISTORY $alt);
%EXPORT_TAGS = ( %EXPORT_TAGS = (
Path => [ qw($tmp $parent $base $library) ], Path => [ qw($tmp $parent $base $library $default_directory) ],
Deb => [ qw($pwd $dpkg_deb $ar $tar $grep $tmp $md5sum $cat $mv) ], Deb => [ qw($pwd $dpkg_deb $ar $tar $grep $tmp $md5sum $cat $mv) ],
Qftp => [ qw($default_root_directory $permission @FTP Qftp => [ qw($default_root_directory $permission @FTP
$default_directory $swim_conf) ], $default_directory $swim_conf) ],
@ -127,7 +127,7 @@ $alt = "debian";
# own choice. # own choice.
# Naming Convention: Contents = Contents-dist.gz # Naming Convention: Contents = Contents-dist.gz
# Packages = Packages-arch-dist-section.gz # Packages = Packages-arch-dist-section.gz
$default_directory = '/root/.swim'; $default_directory = $main::home . "/.swim";
# The default root directory is the key to easy management of packages # The default root directory is the key to easy management of packages

8
SWIM/MD.pm
View File

@ -54,7 +54,7 @@ sub process_md {
my $count1 = 1; my $count1 = 1;
my($place) = finddb(\%commands); my($place) = finddb(\%commands);
$place = "$main::home$place"; $place = "$default_directory$place";
# Let's determine what architecture and distribution this person is # Let's determine what architecture and distribution this person is
# interested in. # interested in.
@ -106,11 +106,11 @@ sub process_md {
if (($commands->{"dbpath"} && $commands->{"root"}) || if (($commands->{"dbpath"} && $commands->{"root"}) ||
($commands->{"dbpath"} && !$commands->{"root"}) || ($commands->{"dbpath"} && !$commands->{"root"}) ||
(!$commands->{"dbpath"} && !$commands->{"root"})) { (!$commands->{"dbpath"} && !$commands->{"root"})) {
$zing = tie %md, 'DB_File',"$main::home$parent$library/$fileindex$arch$dist.deb" $zing = tie %md, 'DB_File',"$default_directory$parent$library/$fileindex$arch$dist.deb"
or die "DB_File: $!"; or die "DB_File: $!";
} }
elsif (!$commands->{"dbpath"} && $commands->{"root"}) { elsif (!$commands->{"dbpath"} && $commands->{"root"}) {
$zing = tie %md, 'DB_File',"$main::home$parent$base/$fileindex$arch$dist.deb" $zing = tie %md, 'DB_File',"$default_directory$parent$base/$fileindex$arch$dist.deb"
or die "DB_File: $!"; or die "DB_File: $!";
} }
while ($count <= $#mi) { while ($count <= $#mi) {
@ -221,7 +221,7 @@ sub process_md {
my @statusindex = split(/\s/,$nsb{"/."}); my @statusindex = split(/\s/,$nsb{"/."});
if ($#fileindex < $#statusindex) { if ($#fileindex < $#statusindex) {
my $place = finddb(\%commands); my $place = finddb(\%commands);
$place = "$main::home$place"; $place = "$default_directory$place";
open(DIFF, ">$place/.packagesdiff$arch$dist.deb") open(DIFF, ">$place/.packagesdiff$arch$dist.deb")
or warn "couldn't create diff file\n"; or warn "couldn't create diff file\n";
my %uniques; my %uniques;