#!/usr/bin/perl # # Copyright 2005 by Element58, LLC, All Rights Reserved # This software may not be duplicated for any purpose # by any means without the express written permission # of Element58, LLC # print "Content-type: text/html\n\n". ''; print ""; $hArgs{'id'} = 'pages'; $hArgs{'fnct'} = 'file:pages.html'; $monikercode = <<'ENDMONIKERCODE'; ENDMONIKERCODE $FORM{page} = "59"; eval{ my($d) = ($ENV{PATH_TRANSLATED}=~/^(\w\:.+\\).+?$/)?$1:''; require("${d}../rtlist.cgi"); }; print $@; print "\n"; exit(1);