urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

shorten setuptype

master
Joey Hess 2010-03-19 15:55:10 -04:00
parent bba513a3e5
commit 07bb08d094
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
IkiWiki.pm
View File

@ -469,7 +469,7 @@ sub getsetup () {
},
setuptype => {
type => "internal",
default => "IkiWiki::Setup::Standard",
default => "Standard",
description => "perl class to use to dump setup file",
safe => 0,
rebuild => 0,

10
IkiWiki/Setup.pm
View File

@ -28,7 +28,7 @@ sub load ($;$) {
}
close IN;
if ($content=~/(use\s+)?(IkiWiki::Setup::\w+)/) {
if ($content=~/(use\s+)?IkiWiki::Setup::(\w+)/) {
$config{setuptype}=$2;
if ($1) {
error sprintf(gettext("cannot load %s in safe mode"), $file)
@ -37,9 +37,9 @@ sub load ($;$) {
error("$file: ".$@) if $@;
}
else {
eval qq{require $config{setuptype}};
eval qq{require IkiWiki::Setup::$config{setuptype}};
error $@ if $@;
$config{setuptype}->loaddump(IkiWiki::possibly_foolish_untaint($content));
"IkiWiki::Setup::$config{setuptype}"->loaddump(IkiWiki::possibly_foolish_untaint($content));
}
}
else {
@ -50,9 +50,9 @@ sub load ($;$) {
sub dump ($) {
my $file=IkiWiki::possibly_foolish_untaint(shift);
eval qq{require $config{setuptype}};
eval qq{require IkiWiki::Setup::$config{setuptype}};
error $@ if $@;
my @dump=$config{setuptype}->gendump(
my @dump="IkiWiki::Setup::$config{setuptype}"->gendump(
"Setup file for ikiwiki.",
"",
"Passing this to ikiwiki --setup will make ikiwiki generate",