#! /usr/local/bin/perl
# symlink support checker
local($result);
if(eval 'symlink("","");' , $@ eq '')
{
$result = "You can use \"symlink\".";
}
else
{
$result = "Sorry. Your server is not support \"symlink\".";
}
print <<"RESULT"
Content-type: text/html\n\n
symlink support checker
$result
RESULT