Changeset 1198 in ProjectBuilder for devel/pb

Timestamp:

Feb 17, 2011, 1:20:36 AM (14 years ago)

Author:

Bruno Cornec

Message:

• Fix sudoers format fr env_keep (at least on gentoo)
• Fix pb_get_sudocmds to deal correctly with additional params, and handle correctly spaces before sudo
• Add full path names on sudo commands for gentoo

File:

• devel/pb/bin/pb (modified) (2 diffs)

devel/pb/bin/pb

@@ -2961 +2961 @@
 print PBOUT "Defaults:root !requiretty\n";
 # Keep proxy configuration while using sudo
-print PBOUT "Defaults:$pbac->{$ENV{'PBPROJ'}} env_keep += \\\"http_proxy ftp_proxy\\\"\n";
+print PBOUT "Defaults:$pbac->{$ENV{'PBPROJ'}}    env_keep += \\\"http_proxy ftp_proxy\\\"\n";
 EOF
     # Try to restrict security to what is really needed
     if ($vtype =~ /^vm/) {
         my $hpath = pb_distro_get_param($pbos,pb_conf_get("ospathcmd-halt"));
-        my @sudocmds = pb_get_sudocmds($pbos,$ntpline,$hpath);
+        my @sudocmds = pb_get_sudocmds($pbos,$ntpline,"sudo $hpath");
         print SCRIPT << "EOF";
 # This is needed in order to be able on VM to halt the machine from the $pbac->{$ENV{'PBPROJ'}} account at least
@@ -3766 +3766 @@
         
 my $pbos = shift;
-my @lines = shift;
 my %sudocmds;
 
-foreach my $c (split(/;/,$pbos->{'update'}),split(/;/,$pbos->{'install'}),@lines) {
-    next if ($c !~ /^sudo/);
-    # remove sudo
-    $c =~ s/^sudo\s+//;
-    # remove leading spaces
-    $c =~ s/^\s+//;
-    # remove ending spaces
-    $c =~ s/\s+$//;
+pb_log(2,"pb_get_sudocmds entering with lines:".Dumper(@_)."\n");
+foreach my $c (split(/;/,$pbos->{'update'}),split(/;/,$pbos->{'install'}),@_) {
+    pb_log(2,"pb_get_sudocmds analyses $c\n");
+    next if ($c !~ /^\s*sudo/);
+    # remove sudo and leading spaces
+    $c =~ s/^\s*sudo\s+//;
     # keep only the command, not the params
     $c =~ s/([^\s]+)\s.*$/$1/;
     $sudocmds{$c} = "";
 }
-pb_log(2,"pb_get_sudcomds returns ".Dumper(%sudocmds)."\n");
+pb_log(2,"pb_get_sudocmds returns ".Dumper(keys %sudocmds)."\n");
 return(keys %sudocmds);
 }