Commit 5157d96a authored by root's avatar root

Fix wheel/sudo group on ponto

parent 2eee50f1
......@@ -8,6 +8,8 @@ use 5.01.1;
my $hostname = `hostname`;
chomp $hostname;
my $sudo_grp = "wheel";
$sudo_grp = "sudo" if $hostname =~ /^pontos/;
my $verbose = $ENV{ VERBOSE };
$verbose = 1 if @ARGV > 0 && ( $ARGV[0] eq '-v' || @ARGV > 1 && $ARGV[1] eq '-v' );
......@@ -112,7 +114,7 @@ while( my $entry = $result->shift_entry ) {
my @extras;
push( @extras, "www-nginx" ) if ($name =~ /xbenes|xrockai|xbarnat|xstill|xmrazek7|xlauko1|xsafran1/);
push( @extras, "wheel", "kvm" ) if ( ($name =~ /^xrockai$|^xstill$|^xbarnat$/ && $hostname ne "pythia01") || $name eq "xstill" );
push( @extras, "$sudo_grp", "kvm" ) if ( ($name =~ /^xrockai$|^xstill$|^xbarnat$/ && $hostname ne "pythia01") || $name eq "xstill" );
push( @extras, "www-sybila" ) if ( $name =~ /^xsafran1$|^brim$|^xpastva$|^xtrojak$/ );
push( @extras, "svn", "benchexec", "scanner" );
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment