Browse Source

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

stuff in the personal tmp directory.
master
freesource 23 years ago
parent
commit
41c0e2d114
  1. 31
      swim

31
swim

@ -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";

Loading…
Cancel
Save