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