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