Commit | Line | Data |
---|---|---|
1bdfa4d8 | 1 | #!/usr/bin/perl |
2 | # ikiwiki w3m cgi meta-wrapper | |
3 | if (! exists $ENV{PATH_INFO} || ! length $ENV{PATH_INFO}) { | |
4 | die "PATH_INFO should be set"; | |
5 | } | |
6 | my $path=$ENV{PATH_INFO}; | |
7 | $path=~s!/!!g; | |
8 | $path="$ENV{HOME}/.ikiwiki/wrappers/$path"; | |
9 | if (! -x $path) { | |
10 | print "Content-type: text/html\n\n"; | |
11 | print "Cannot find ikiwiki wrapper: $path\n"; | |
12 | exit 1; | |
13 | } | |
14 | exec $path; | |
15 | die "$path: exec error: $!"; |