If ikisite-wrapper is not suid (which is the default), the command will fail when ran. Or more precisely, it will return nothing.
This will make the following code block crash:
[[!format perl """ foreach my $siteinfo (@{IkiWiki::Hosting::yamlgetshell( "ikisite-wrapper", "list", "--extended", (map { "--admin=$"} @accounts), (map { "--owner=$"} @accounts), )}) { """]]
... in controlpanel.pm, because it returns an empty reference. I'm not sure what to do with this - as I'm not really using the control panel, but I figured this could help:
[[!format diff """ diff --git a/IkiWiki/Plugin/controlpanel.pm b/IkiWiki/Plugin/controlpanel.pm index c55a97d..37981f1 100644 --- a/IkiWiki/Plugin/controlpanel.pm +++ b/IkiWiki/Plugin/controlpanel.pm @@ -35,11 +35,12 @@ sub sessioncgi ($$) {
my (@owned_sites, @adminned_sites);
my $num=0;
foreach my $siteinfo (@{IkiWiki::Hosting::yamlgetshell(
"ikisite-wrapper", "list", "--extended",
(map { "--admin=$_"} @accounts),
(map { "--owner=$_"} @accounts),
)}) {
my $sites = IkiWiki::Hosting::yamlgetshell(
"ikisite-wrapper", "list", "--extended",
(map { "--admin=$_"} @accounts),
(map { "--owner=$_"} @accounts),
);
foreach my $siteinfo (@{$sites}) { $siteinfo->{cgiurl}=$config{cgiurl}; $siteinfo->{num}=$num++;
"""]]
... no? --anarcat