Update user name and pronouns, sorry for modifying other people's writing, hope it...

[git.ikiwiki.info.git] / ikiwiki-mass-rebuild

diff --git a/ikiwiki-mass-rebuild b/ikiwiki-mass-rebuild
index bbef4946bb5b76d4aa6f5a291b253ada42309529..ce4e084e8f0daff8e99e221d6e0027fac70423fb 100755 (executable)
--- a/ikiwiki-mass-rebuild
+++ b/ikiwiki-mass-rebuild
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
 #!/usr/bin/perl

+no lib '.';

 use warnings;
 use strict;
 
 use warnings;
 use strict;
 


@@ -20,7 +21,7 @@ sub processline {
                return;
        }
        print "Processing $setup as user ".username()." ...\n";
                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";
        }
        if ($ret != 0) {
                print STDERR "warning: processing $setup failed with code $ret\n";
        }


@@ -29,7 +30,7 @@ sub processline {
 my %users;
 sub processuser {
        my $user=shift;
 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) {
        $users{$user}=1;
        my $ret=system("su", $user, "-s", "/bin/sh", "-c", "--", "$0 --nonglobal @ARGV");
        if ($ret != 0) {