#!/usr/bin/perl -wT

# Set library paths in @INC, read TWiki.cfg and set locale, at compile time
# Try to use setlib.cfg, use default path if missing
if ( -r './setlib.cfg' ) {
	require './setlib.cfg'; 
	$setlibAvail = 1;
} else {
	unshift @INC, '../lib';
	$setlibAvail = 0;
}

print "Content-type: text/plain\n\n";
foreach (@INC) {
  print;
  print "\n";
}

$pwd = `pwd`;

print <<EOF
setlib.cfg avaliable: $setlibAvail
Current directoury: $pwd
EOF