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

Non-root capabilities now.

Browse Source
This commit is contained in:
freesource 2001-10-12 05:42:14 +00:00
parent ba483f7247
commit 6e02dd8da4
3 changed files with 75 additions and 79 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

146
SWIM/Apt.pm
View File

@ -534,14 +534,14 @@ sub ftp {
# to a non-standard dist. # to a non-standard dist.
my $localfile = "$default_directory/partial/$the_site" . "_" . my $localfile = "$default_directory/partial/$the_site" . "_" .
"$distb" . "_dists_" . "$dist" . "_" . "Contents-$arch.gz"; "$distb" . "_dists_" . "$dist" . "_" . "Contents-$arch.gz";
my $home = "$default_directory/$the_site" . "_" . "$distb" . my $main::home = "$default_directory/$the_site" . "_" . "$distb" .
"_dists_" . "$dist" . "_" . "Contents-$arch.gz"; "_dists_" . "$dist" . "_" . "Contents-$arch.gz";
if (-e "$home") { if (-e "$main::home") {
my $size = my $size =
$ftp->size("$distbase/dists/$dist/Contents-$arch.gz"); $ftp->size("$distbase/dists/$dist/Contents-$arch.gz");
my $rmtime = my $rmtime =
$ftp->mdtm("$distbase/dists/$dist/Contents-$arch.gz"); $ftp->mdtm("$distbase/dists/$dist/Contents-$arch.gz");
my ($lmtime) = (stat($home))[9]; my ($lmtime) = (stat($main::home))[9];
my $file_exist = $ftp->code(); my $file_exist = $ftp->code();
print "swim: $distg[0]/Contents-$arch.gz does not exist on the server\n" print "swim: $distg[0]/Contents-$arch.gz does not exist on the server\n"
if $file_exist == 550 && $distbase !~ /non-US/ && if $file_exist == 550 && $distbase !~ /non-US/ &&
@ -554,13 +554,13 @@ sub ftp {
if ($lsize == $size && $complete == 226) { if ($lsize == $size && $complete == 226) {
print "swim: successful retrieval of $dist/Contents-$arch.gz\n"; print "swim: successful retrieval of $dist/Contents-$arch.gz\n";
$cc++ if $commands->{"onec"}; $cc++ if $commands->{"onec"};
rename("$localfile","$home") rename("$localfile","$main::home")
or system "$mv", "$localfile", "$home"; or system "$mv", "$localfile", "$main::home";
} }
else { else {
print "swim: unsuccessful retrieval of $dist/Contents-$arch.gz\n"; print "swim: unsuccessful retrieval of $dist/Contents-$arch.gz\n";
} }
utime(time,$rmtime,$home); utime(time,$rmtime,$main::home);
} }
elsif ($lmtime == $rmtime) { elsif ($lmtime == $rmtime) {
$cc++ if $commands->{"onec"}; $cc++ if $commands->{"onec"};
@ -583,14 +583,14 @@ sub ftp {
if ($lsize == $size && $complete == 226) { if ($lsize == $size && $complete == 226) {
print "swim: successful retrieval of $dist/Contents-$arch.gz\n"; print "swim: successful retrieval of $dist/Contents-$arch.gz\n";
$cc++ if $commands->{"onec"}; $cc++ if $commands->{"onec"};
rename("$localfile","$home") rename("$localfile","$main::home")
or system "$mv", "$localfile", "$home"; or system "$mv", "$localfile", "$main::home";
} }
else { else {
print "swim: unsuccessful retrieval of $dist/Contents-$arch.gz\n"; print "swim: unsuccessful retrieval of $dist/Contents-$arch.gz\n";
} }
if (-e $home) { if (-e $main::home) {
utime(time,$rmtime,$home); utime(time,$rmtime,$main::home);
} }
} }
} }
@ -600,14 +600,14 @@ sub ftp {
make_dir($place); make_dir($place);
my $localfile = "$default_directory/partial/$the_site" . "_" . my $localfile = "$default_directory/partial/$the_site" . "_" .
"$distb" . "_dists_" . "$dist" . "_" . "Contents-$arch.gz"; "$distb" . "_dists_" . "$dist" . "_" . "Contents-$arch.gz";
my $home = "$place/$the_site" . "_" . "$distb" . my $main::home = "$place/$the_site" . "_" . "$distb" .
"_dists_" . "$dist" . "_" . "Contents-$arch.gz"; "_dists_" . "$dist" . "_" . "Contents-$arch.gz";
if (-e "$home") { if (-e "$main::home") {
my $size = my $size =
$ftp->size("$distbase/dists/$dist/Contents-$arch.gz"); $ftp->size("$distbase/dists/$dist/Contents-$arch.gz");
my $rmtime = my $rmtime =
$ftp->mdtm("$distbase/dists/$dist/Contents-$arch.gz"); $ftp->mdtm("$distbase/dists/$dist/Contents-$arch.gz");
my ($lmtime) = (stat($home))[9]; my ($lmtime) = (stat($main::home))[9];
my $file_exist = $ftp->code(); my $file_exist = $ftp->code();
print "swim: $distg[0]/Contents-$arch.gz does not exist on the server\n" print "swim: $distg[0]/Contents-$arch.gz does not exist on the server\n"
if $file_exist == 550 && $distbase !~ /non-US/ && if $file_exist == 550 && $distbase !~ /non-US/ &&
@ -620,13 +620,13 @@ sub ftp {
if ($lsize == $size && $complete == 226) { if ($lsize == $size && $complete == 226) {
print "swim: successful retrieval of $dist/Contents-$arch.gz\n"; print "swim: successful retrieval of $dist/Contents-$arch.gz\n";
$cc++ if $commands->{"onec"}; $cc++ if $commands->{"onec"};
rename("$localfile","$home") rename("$localfile","$main::home")
or system "$mv", "$localfile", "$home"; or system "$mv", "$localfile", "$main::home";
} }
else { else {
print "swim: unsuccessful retrieval of $dist/Contents-$arch.gz\n"; print "swim: unsuccessful retrieval of $dist/Contents-$arch.gz\n";
} }
utime(time,$rmtime,$home); utime(time,$rmtime,$main::home);
} }
else { else {
$cc++ if $commands->{"onec"}; $cc++ if $commands->{"onec"};
@ -649,14 +649,14 @@ sub ftp {
if ($lsize == $size && $complete == 226) { if ($lsize == $size && $complete == 226) {
print "swim: successful retrieval of $dist/Contents-$arch.gz\n"; print "swim: successful retrieval of $dist/Contents-$arch.gz\n";
$cc++ if $commands->{"onec"}; $cc++ if $commands->{"onec"};
rename("$localfile","$home") rename("$localfile","$main::home")
or system "$mv", "$localfile", "$home"; or system "$mv", "$localfile", "$main::home";
} }
else { else {
print "swim: unsuccessful retrieval of $dist/Contents-$arch.gz\n"; print "swim: unsuccessful retrieval of $dist/Contents-$arch.gz\n";
} }
if (-e $home) { if (-e $main::home) {
utime(time,$rmtime,$home); utime(time,$rmtime,$main::home);
} }
} }
} }
@ -673,14 +673,14 @@ sub ftp {
!defined $commands->{"Release_only"}) { !defined $commands->{"Release_only"}) {
my $localfile = "$default_directory/partial/$the_site" . "_" . my $localfile = "$default_directory/partial/$the_site" . "_" .
"$distb" . "_dists_" . "$dist" . "_" . "Contents-$arch.gz"; "$distb" . "_dists_" . "$dist" . "_" . "Contents-$arch.gz";
my $home = "$default_directory/$the_site" . "_" . "$distb" . my $main::home = "$default_directory/$the_site" . "_" . "$distb" .
"_dists_" . "$dist" . "_" . "Contents-$arch.gz"; "_dists_" . "$dist" . "_" . "Contents-$arch.gz";
if (-e "$home") { if (-e "$main::home") {
my $size = my $size =
$ftp->size("$distbase/dists/$dist/Contents-$arch.gz"); $ftp->size("$distbase/dists/$dist/Contents-$arch.gz");
my $rmtime = my $rmtime =
$ftp->mdtm("$distbase/dists/$dist/Contents-$arch.gz"); $ftp->mdtm("$distbase/dists/$dist/Contents-$arch.gz");
my ($lmtime) = (stat($home))[9]; my ($lmtime) = (stat($main::home))[9];
my $file_exist = $ftp->code(); my $file_exist = $ftp->code();
print "swim: $dist/Contents-$arch.gz does not exist on the server\n" print "swim: $dist/Contents-$arch.gz does not exist on the server\n"
if $file_exist == 550 && $distbase !~ /non-US/ && if $file_exist == 550 && $distbase !~ /non-US/ &&
@ -693,13 +693,13 @@ sub ftp {
if ($lsize == $size && $complete == 226) { if ($lsize == $size && $complete == 226) {
print "swim: successful retrieval of $dist/Contents-$arch.gz\n"; print "swim: successful retrieval of $dist/Contents-$arch.gz\n";
$cc++ if $commands->{"onec"}; $cc++ if $commands->{"onec"};
rename("$localfile","$home") rename("$localfile","$main::home")
or system "$mv", "$localfile", "$home"; or system "$mv", "$localfile", "$main::home";
} }
else { else {
print "swim: unsuccessful retrieval of $dist/Contents-$arch.gz\n"; print "swim: unsuccessful retrieval of $dist/Contents-$arch.gz\n";
} }
utime(time,$rmtime,$home); utime(time,$rmtime,$main::home);
} }
else { else {
$cc++ if $commands->{"onec"}; $cc++ if $commands->{"onec"};
@ -722,14 +722,14 @@ sub ftp {
if ($lsize == $size && $complete == 226) { if ($lsize == $size && $complete == 226) {
print "swim: successful retrieval of $dist/Contents-$arch.gz\n"; print "swim: successful retrieval of $dist/Contents-$arch.gz\n";
$cc++ if $commands->{"onec"}; $cc++ if $commands->{"onec"};
rename("$localfile","$home") rename("$localfile","$main::home")
or system "$mv", "$localfile", "$home"; or system "$mv", "$localfile", "$main::home";
} }
else { else {
print "swim: unsuccessful retrieval of $dist/Contents-$arch.gz\n"; print "swim: unsuccessful retrieval of $dist/Contents-$arch.gz\n";
} }
if (-e $home) { if (-e $main::home) {
utime(time,$rmtime,$home); utime(time,$rmtime,$main::home);
} }
} }
} }
@ -744,18 +744,18 @@ sub ftp {
############## ##############
if (defined $commands->{"Packages"}) { if (defined $commands->{"Packages"}) {
if ($commands->{"Packages"} eq "DF") { if ($commands->{"Packages"} eq "DF") {
my ($home,$localfile,$release_home,$release_localfile); my ($main::home,$localfile,$release_home,$release_localfile);
my $nue = (split(m,/,,$dist))[0]; my $nue = (split(m,/,,$dist))[0];
$section ne "single" && $distb !~ /non-US|experimental/ $section ne "single" && $distb !~ /non-US|experimental/
? ($home = ? ($main::home =
"$default_directory/$the_site" . "_" . "$distb" . "_dists_" . "$default_directory/$the_site" . "_" . "$distb" . "_dists_" .
"$dist" . "_" . "$section" . "_" . "binary-$arch" . "$dist" . "_" . "$section" . "_" . "binary-$arch" .
"_" . "Packages.gz") "_" . "Packages.gz")
: $nue eq "project" : $nue eq "project"
? ($home = ? ($main::home =
"$default_directory/$the_site" . "_" . "$distb" . "$default_directory/$the_site" . "_" . "$distb" .
"_" . "Packages.gz") "_" . "Packages.gz")
: ($home = : ($main::home =
"$default_directory/$the_site" . "_" . "$distb" . "_" "$default_directory/$the_site" . "_" . "$distb" . "_"
. "$nue" . "_" . "binary-$arch" . "_" . "Packages.gz"); . "$nue" . "_" . "binary-$arch" . "_" . "Packages.gz");
$section ne "single" && $distb !~ /non-US|experimental/ $section ne "single" && $distb !~ /non-US|experimental/
@ -770,10 +770,10 @@ sub ftp {
: ($localfile = : ($localfile =
"$default_directory/partial/$the_site" . "_" . "$distb" . "_" "$default_directory/partial/$the_site" . "_" . "$distb" . "_"
. "$nue" . "_" . "binary-$arch" . "_" . "Packages.gz"); . "$nue" . "_" . "binary-$arch" . "_" . "Packages.gz");
($release_home = $home) =~ s,Packages.gz,Release,; ($release_home = $main::home) =~ s,Packages.gz,Release,;
($release_localfile = $localfile) =~ s,Packages.gz,Release,; ($release_localfile = $localfile) =~ s,Packages.gz,Release,;
if (-e "$home") { if (-e "$main::home") {
my ($lmtime) = (stat($home))[9]; my ($lmtime) = (stat($main::home))[9];
my $remotefile; my $remotefile;
$section ne "single" $section ne "single"
? ($remotefile = ? ($remotefile =
@ -789,9 +789,9 @@ sub ftp {
get($ftp,$remotefile,$localfile); get($ftp,$remotefile,$localfile);
my $lsize = (stat($localfile))[7]; my $lsize = (stat($localfile))[7];
my $complete = $ftp->code(); my $complete = $ftp->code();
two26($complete,$size,$lsize,$home,$localfile, two26($complete,$size,$lsize,$main::home,$localfile,
$section,$arch,$dist,$distb); $section,$arch,$dist,$distb);
utime(time,$rmtime,$home); utime(time,$rmtime,$main::home);
} }
} }
else { else {
@ -809,10 +809,10 @@ sub ftp {
get($ftp,$remotefile,$localfile); get($ftp,$remotefile,$localfile);
my $complete = $ftp->code(); my $complete = $ftp->code();
my $lsize = (stat($localfile))[7]; my $lsize = (stat($localfile))[7];
two26($complete,$size,$lsize,$home,$localfile, two26($complete,$size,$lsize,$main::home,$localfile,
$section,$arch,$dist,$distb); $section,$arch,$dist,$distb);
if (-e $home) { if (-e $main::home) {
utime(time,$rmtime,$home); utime(time,$rmtime,$main::home);
} }
} }
########### ###########
@ -858,18 +858,18 @@ sub ftp {
elsif ($commands->{"Packages"} ne "DF") { elsif ($commands->{"Packages"} ne "DF") {
my $place = $commands->{"Packages"}; my $place = $commands->{"Packages"};
make_dir($place); make_dir($place);
my($home,$localfile,$release_home,$release_localfile); my($main::home,$localfile,$release_home,$release_localfile);
my $nue = (split(m,/,,$dist))[0]; my $nue = (split(m,/,,$dist))[0];
$section ne "single" && $distb !~ /non-US|experimental/ $section ne "single" && $distb !~ /non-US|experimental/
? ($home = ? ($main::home =
"$place/$the_site" . "_" . "$distb" . "_dists_" . "$place/$the_site" . "_" . "$distb" . "_dists_" .
"$dist" . "_" . "$section" . "_" . "binary-$arch" . "$dist" . "_" . "$section" . "_" . "binary-$arch" .
"_" . "Packages.gz") "_" . "Packages.gz")
: $nue eq "project" : $nue eq "project"
? ($home = ? ($main::home =
"$place/$the_site" . "_" . "$distb" . "$place/$the_site" . "_" . "$distb" .
"_" . "Packages.gz") "_" . "Packages.gz")
: ($home = : ($main::home =
"$place/$the_site" . "_" . "$distb" . "_" "$place/$the_site" . "_" . "$distb" . "_"
. "$nue" . "_" . "binary-$arch" . "_" . "Packages.gz"); . "$nue" . "_" . "binary-$arch" . "_" . "Packages.gz");
$section ne "single" && $distb !~ /non-US|experimental/ $section ne "single" && $distb !~ /non-US|experimental/
@ -884,10 +884,10 @@ sub ftp {
: ($localfile = : ($localfile =
"$default_directory/partial/$the_site" . "_" . "$distb" . "_" "$default_directory/partial/$the_site" . "_" . "$distb" . "_"
. "$nue" . "_" . "binary-$arch" . "_" . "Packages.gz"); . "$nue" . "_" . "binary-$arch" . "_" . "Packages.gz");
($release_home = $home) =~ s,Packages.gz,Release,; ($release_home = $main::home) =~ s,Packages.gz,Release,;
($release_localfile = $localfile) =~ s,Packages.gz,Release,; ($release_localfile = $localfile) =~ s,Packages.gz,Release,;
if (-e "$home") { if (-e "$main::home") {
my ($lmtime) = (stat($home))[9]; my ($lmtime) = (stat($main::home))[9];
my $remotefile; my $remotefile;
$section ne "single" $section ne "single"
? ($remotefile = ? ($remotefile =
@ -903,9 +903,9 @@ sub ftp {
get($ftp,$remotefile,$localfile); get($ftp,$remotefile,$localfile);
my $lsize = (stat($localfile))[7]; my $lsize = (stat($localfile))[7];
my $complete = $ftp->code(); my $complete = $ftp->code();
two26($complete,$size,$lsize,$home,$localfile, two26($complete,$size,$lsize,$main::home,$localfile,
$section,$arch,$dist,$distb); $section,$arch,$dist,$distb);
utime(time,$rmtime,$home); utime(time,$rmtime,$main::home);
} }
} }
else { else {
@ -923,10 +923,10 @@ sub ftp {
get($ftp,$remotefile,$localfile); get($ftp,$remotefile,$localfile);
my $complete = $ftp->code(); my $complete = $ftp->code();
my $lsize = (stat($localfile))[7]; my $lsize = (stat($localfile))[7];
two26($complete,$size,$lsize,$home,$localfile, two26($complete,$size,$lsize,$main::home,$localfile,
$section,$arch,$dist,$distb); $section,$arch,$dist,$distb);
if (-e $home) { if (-e $main::home) {
utime(time,$rmtime,$home); utime(time,$rmtime,$main::home);
} }
} }
########### ###########
@ -976,18 +976,18 @@ sub ftp {
################################ ################################
if ((!defined $commands->{"Contents"} && if ((!defined $commands->{"Contents"} &&
!defined $commands->{"Packages"}) || defined $Go_on) { !defined $commands->{"Packages"}) || defined $Go_on) {
my ($home,$localfile,$release_home,$release_localfile); my ($main::home,$localfile,$release_home,$release_localfile);
my $nue = (split(m,/,,$dist))[0]; my $nue = (split(m,/,,$dist))[0];
$section ne "single" && $distb !~ /non-US|experimental/ $section ne "single" && $distb !~ /non-US|experimental/
? ($home = ? ($main::home =
"$default_directory/$the_site" . "_" . "$distb" . "_dists_" . "$default_directory/$the_site" . "_" . "$distb" . "_dists_" .
"$dist" . "_" . "$section" . "_" . "binary-$arch" . "$dist" . "_" . "$section" . "_" . "binary-$arch" .
"_" . "Packages.gz") "_" . "Packages.gz")
: $nue eq "project" : $nue eq "project"
? ($home = ? ($main::home =
"$default_directory/$the_site" . "_" . "$distb" . "$default_directory/$the_site" . "_" . "$distb" .
"_" . "Packages.gz") "_" . "Packages.gz")
: ($home = : ($main::home =
"$default_directory/$the_site" . "_" . "$distb" . "_" "$default_directory/$the_site" . "_" . "$distb" . "_"
. "$nue" . "_" . "binary-$arch" . "_" . "Packages.gz"); . "$nue" . "_" . "binary-$arch" . "_" . "Packages.gz");
$section ne "single" && $distb !~ /non-US|experimental/ $section ne "single" && $distb !~ /non-US|experimental/
@ -1002,11 +1002,11 @@ sub ftp {
: ($localfile = : ($localfile =
"$default_directory/partial/$the_site" . "_" . "$distb" . "_" "$default_directory/partial/$the_site" . "_" . "$distb" . "_"
. "$nue" . "_" . "binary-$arch" . "_" . "Packages.gz"); . "$nue" . "_" . "binary-$arch" . "_" . "Packages.gz");
($release_home = $home) =~ s,Packages.gz,Release,; ($release_home = $main::home) =~ s,Packages.gz,Release,;
($release_localfile = $localfile) =~ s,Packages.gz,Release,; ($release_localfile = $localfile) =~ s,Packages.gz,Release,;
if (-e "$home" && !$commands->{"Release_only"} && if (-e "$main::home" && !$commands->{"Release_only"} &&
!defined $Go_on) { !defined $Go_on) {
my ($lmtime) = (stat($home))[9]; my ($lmtime) = (stat($main::home))[9];
my $remotefile; my $remotefile;
$section ne "single" $section ne "single"
? ($remotefile = ? ($remotefile =
@ -1022,12 +1022,12 @@ sub ftp {
get($ftp,$remotefile,$localfile); get($ftp,$remotefile,$localfile);
my $lsize = (stat($localfile))[7]; my $lsize = (stat($localfile))[7];
my $complete = $ftp->code(); my $complete = $ftp->code();
two26($complete,$size,$lsize,$home,$localfile, two26($complete,$size,$lsize,$main::home,$localfile,
$section,$arch,$dist,$distb); $section,$arch,$dist,$distb);
utime(time,$rmtime,$home); utime(time,$rmtime,$main::home);
} }
} }
elsif (!-e "$home" && !$commands->{"Release_only"} && elsif (!-e "$main::home" && !$commands->{"Release_only"} &&
!defined $Go_on ) { !defined $Go_on ) {
my $remotefile; my $remotefile;
$section ne "single" $section ne "single"
@ -1043,10 +1043,10 @@ sub ftp {
get($ftp,$remotefile,$localfile); get($ftp,$remotefile,$localfile);
my $complete = $ftp->code(); my $complete = $ftp->code();
my $lsize = (stat($localfile))[7]; my $lsize = (stat($localfile))[7];
two26($complete,$size,$lsize,$home,$localfile, two26($complete,$size,$lsize,$main::home,$localfile,
$section,$arch,$dist,$distb); $section,$arch,$dist,$distb);
if (-e $home) { if (-e $main::home) {
utime(time,$rmtime,$home); utime(time,$rmtime,$main::home);
} }
} }
########### ###########
@ -1155,7 +1155,7 @@ sub download {
# Packages printout for ftp 226 success and the correct size # Packages printout for ftp 226 success and the correct size
sub two26 { sub two26 {
my ($complete,$size,$lsize,$home,$localfile,$section,$arch,$dist,$distb) my ($complete,$size,$lsize,$main::home,$localfile,$section,$arch,$dist,$distb)
= @_; = @_;
if ($complete == 226 && $size == $lsize) { if ($complete == 226 && $size == $lsize) {
@ -1166,8 +1166,8 @@ sub two26 {
if $section eq "single" && $distb !~ /non-US/; if $section eq "single" && $distb !~ /non-US/;
print "swim: successful retrieval of $distp[0]/non-US/$distp[1]/Packages.gz\n" print "swim: successful retrieval of $distp[0]/non-US/$distp[1]/Packages.gz\n"
if $distb =~ /non-US/ && $section !~ "non-US"; if $distb =~ /non-US/ && $section !~ "non-US";
rename("$localfile","$home") rename("$localfile","$main::home")
or system "$mv", "$localfile", "$home"; or system "$mv", "$localfile", "$main::home";
} }
else { else {
my @distp = split(m,/,,$dist); my @distp = split(m,/,,$dist);
@ -1185,12 +1185,12 @@ sub two26 {
# check download of Release file # check download of Release file
sub two26_r { sub two26_r {
my ($complete,$size,$lsize,$home,$localfile,$section,$arch,$dist) = @_; my ($complete,$size,$lsize,$main::home,$localfile,$section,$arch,$dist) = @_;
if ($complete == 226 && $size == $lsize) { if ($complete == 226 && $size == $lsize) {
#print "swim: successful retrieval of $dist/$section/binary-$arch/Packages.gz\n"; #print "swim: successful retrieval of $dist/$section/binary-$arch/Packages.gz\n";
rename("$localfile","$home") rename("$localfile","$main::home")
or system "$mv", "$localfile", "$home"; or system "$mv", "$localfile", "$main::home";
} }
else { else {
print "swim: unsuccessful retrieval of $dist/$section/binary-$arch/Packages.gz\n"; print "swim: unsuccessful retrieval of $dist/$section/binary-$arch/Packages.gz\n";

2
SWIM/Conf.pm
View File

@ -370,7 +370,7 @@ $passive = 0;
# files under dpkg are somewhere else (including /info*) , see --dbpath as # files under dpkg are somewhere else (including /info*) , see --dbpath as
# an alternative if you decide to access or make the databases somewhere # an alternative if you decide to access or make the databases somewhere
# else. I should point out that this program was designed to work with only # else. I should point out that this program was designed to work with only
# one user .. root. # one user .. root .. but now I am changing it --freesource
$base = '/var/lib/dpkg'; $base = '/var/lib/dpkg';
# --dbpath takes care of this so don't touch. # --dbpath takes care of this so don't touch.

6
SWIM/Global.pm
View File

@ -17,14 +17,13 @@
package SWIM::Global; package SWIM::Global;
#use strict;
use vars qw(@ISA @EXPORT %EXPORT_TAGS); use vars qw(@ISA @EXPORT %EXPORT_TAGS);
use Exporter; use Exporter;
@ISA = qw(Exporter); @ISA = qw(Exporter);
@EXPORT = qw(%db $ping %ndb %ib $zing %gb $ging %sb $sing %nsb %commands @EXPORT = qw(%db $ping %ndb %ib $zing %gb $ging %sb $sing %nsb %commands
$argument $save @stuff @PACKAGES @arg_holder $file_now $argument $save @stuff @PACKAGES @arg_holder $file_now
$arg_count $aptor_count $aptor_group $swim_version); $arg_count $aptor_count $aptor_group $main::home);
%EXPORT_TAGS = ( %EXPORT_TAGS = (
Info => [ qw($argument %db) ] Info => [ qw($argument %db) ]
); );
@ -56,7 +55,4 @@ my $file_now; # defined flag for -qlcx & -qglx for file()
$arg_count = 0; # helps in tricky situations $arg_count = 0; # helps in tricky situations
my $aptor_group; # helps when -z is called for groups my $aptor_group; # helps when -z is called for groups
# Swim's version
$swim_version = "0.3.6";
1; 1;