DirectoryIndex /cgi-bin/redir.pl #### #! /usr/bin/perl print"Location: index.".(($ENV{HTTP_ACCEPT}=~/html/g)[0]||'wml')."\n\n"; #### #! /usr/bin/perl $ENV{HTTP_ACCEPT}=~/vnd\.wap\.(wml)/; open FILE,"$ENV{DOCUMENT_ROOT}$ENV{REQUEST_URI}index.${\($1||'html')}" or die($!); print "Content-type: text/${\($&||'html')}\n\n"; print while ();