Photos
Blog
Projects
vanrenterghem.biz
projects
/
git.ikiwiki.info.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add branch, with a smoke-test for inline
[git.ikiwiki.info.git]
/
ikiwiki-update-wikilist
diff --git
a/ikiwiki-update-wikilist
b/ikiwiki-update-wikilist
index 0b52543cda5bdfb3a1b1e6bbd03a0a697210a141..56d6e07319094dcc77d8fea283bcdf4b0b0b734d 100755
(executable)
--- a/
ikiwiki-update-wikilist
+++ b/
ikiwiki-update-wikilist
@@
-1,6
+1,6
@@
#!/usr/bin/perl -t
# Add a user to the system wide wikilist.
#!/usr/bin/perl -t
# Add a user to the system wide wikilist.
-# This script can safely be made suid.
+# This script can safely be made suid
or put in /etc/sudoers
.
use warnings;
use strict;
use English;
use warnings;
use strict;
use English;
@@
-30,6
+30,9
@@
while (<$list>) {
$seen=1;
push @lines, $_;
}
$seen=1;
push @lines, $_;
}
+ else {
+ $changed=1;
+ }
}
else {
push @lines, $_;
}
else {
push @lines, $_;
@@
-45,7
+48,7
@@
if (! $seen && ! $remove) {
}
if ($changed) {
close $list || die "ikiwiki-update-wikilist: error reading $list: $!\n";
}
if ($changed) {
close $list || die "ikiwiki-update-wikilist: error reading $list: $!\n";
- open ($list, ">$wikilist") || die "ikiwiki-update-wikilist:
error writing $wikilist: $!
\n";
+ open ($list, ">$wikilist") || die "ikiwiki-update-wikilist:
cannot write to $wikilist
\n";
foreach (@lines) {
print $list "$_\n";
}
foreach (@lines) {
print $list "$_\n";
}