#!/usr/bin/perl
+no lib '.';
use warnings;
use strict;
return;
}
print "Processing $setup as user ".username()." ...\n";
- my $ret=system("ikiwiki", "-setup", $setup, @ARGV);
+ my $ret=system("ikiwiki", "--setup", $setup, @ARGV);
if ($ret != 0) {
print STDERR "warning: processing $setup failed with code $ret\n";
}
my %users;
sub processuser {
my $user=shift;
- next if $user=~/^-/ || $users{$user};
+ return if $user=~/^-/ || $users{$user};
$users{$user}=1;
my $ret=system("su", $user, "-s", "/bin/sh", "-c", "--", "$0 --nonglobal @ARGV");
if ($ret != 0) {