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

Checking for permissions, will need to make sure that Deb.pm is doing all its

Browse Source 
stuff in the personal tmp directory.
This commit is contained in:
freesource 2001-10-23 06:25:36 +00:00
parent 3c59b0b271
commit 41c0e2d114
1 changed files with 20 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
swim
View File

@ -793,7 +793,7 @@ sub command {
initndb(\%commands); initndb(\%commands);
} }
elsif ($commands{"ndb"}) { elsif ($commands{"ndb"}) {
require SWIM::NDB_Init; require SWIM::NDB_Init;
SWIM::NDB_Init->import(qw(initndb)); SWIM::NDB_Init->import(qw(initndb));
initndb(\%commands); initndb(\%commands);
} }
@ -805,23 +805,28 @@ sub command {
my $dpkg_status = "$parent$library/status"; my $dpkg_status = "$parent$library/status";
my $my_status = "$main::home$parent$library/status"; my $my_status = "$main::home$parent$library/status";
if (!-f $my_status) { if (!-f $my_status) {
# If /tmp is executable good, but -p will still fail.
if ( if (
(!-x $tmp && !-w $tmp) || (!-x $tmp && !-w $tmp) ||
!-x $tmp || (-x $tmp && !-w $tmp) ||
!-w $tmp (!-x && -w $tmp)
) { ) {
print STDERR "swim: $tmp is not "; print STDERR "swim: $tmp is not ";
print STDERR "readable" if !-r $tmp;
print STDERR "/" if !-r $tmp && !-w $tmp;
print STDERR "writable" if !-w $tmp; print STDERR "writable" if !-w $tmp;
print STDERR "/" if !-w $tmp; print STDERR "/" if !-w $tmp || !-r $tmp;
print STDERR "executable" if !-x $tmp; print STDERR "executable" if !-x $tmp;
print STDERR " by your effective uid/gid\n"; print STDERR " by your effective uid/gid\n";
print STDERR "swim: set \$tmp to a directory "; print STDERR "swim: set \$tmp to a directory ";
print STDERR "readable" if !-r $tmp;
print STDERR "/" if !-r $tmp && !-w $tmp;
print STDERR "writable" if !-w $tmp; print STDERR "writable" if !-w $tmp;
print STDERR "/" if !-w $tmp; print STDERR "/" if !-w $tmp || !-r $tmp;
print STDERR "executable" if !-x $tmp; print STDERR "executable" if !-x $tmp;
print STDERR " by your effective uid/gid " . print STDERR " by your effective uid/gid " .
"in $ENV{HOME}/.swimrc\n"; "in $ENV{HOME}/.swimrc\n";
@ -853,21 +858,25 @@ sub command {
if ( $diff ) { if ( $diff ) {
if ( if (
(!-x $tmp && !-w $tmp) || (!-x $tmp && !-w $tmp) ||
!-x $tmp || (-x $tmp && !-w $tmp) ||
!-w $tmp (!-x && -w $tmp)
) { ) {
print STDERR "swim: $tmp is not "; print STDERR "swim: $tmp is not ";
print STDERR "readable" if !-r $tmp;
print STDERR "/" if !-r $tmp && !-w $tmp;
print STDERR "writable" if !-w $tmp; print STDERR "writable" if !-w $tmp;
print STDERR "/" if !-w $tmp; print STDERR "/" if !-w $tmp || !-r $tmp;
print STDERR "executable" if !-x $tmp; print STDERR "executable" if !-x $tmp;
print STDERR " by your effective uid/gid\n"; print STDERR " by your effective uid/gid\n";
print STDERR "swim: set \$tmp to a directory "; print STDERR "swim: set \$tmp to a directory ";
print STDERR "readable" if !-r $tmp;
print STDERR "/" if !-r $tmp && !-w $tmp;
print STDERR "writable" if !-w $tmp; print STDERR "writable" if !-w $tmp;
print STDERR "/" if !-w $tmp; print STDERR "/" if !-w $tmp || !-r $tmp;
print STDERR "executable" if !-x $tmp; print STDERR "executable" if !-x $tmp;
print STDERR " by your effective uid/gid " . print STDERR " by your effective uid/gid " .
"in $ENV{HOME}/.swimrc\n"; "in $ENV{HOME}/.swimrc\n";