I am trying to use the javascript flyout menu in a perl script.
Return to Recent Questions
Q:
I am trying to use the Drop Down Menu in a perl script. I
would like to know if this is possible?
A:
You can use javascript menu in a perl script. Please, see the example
below.
------------------ begin program
#!/usr/bin/perl
#!c:\perl\bin\perl
use CGI; # CGI library
use DBI; # Database library
print "Content-Type: text/html\n\n";
use CGI::Carp qw(fatalsToBrowser);
print '<head>
<!-- Deluxe Menu -->
<noscript><a href=http://deluxe-menu.com/>Javascript Menu by
Deluxe-Menu.com</a></noscript>
<script type="text/javascript" language="JavaScript1.2">var dmWorkPath =
"menudir/";</script>
<script type="text/javascript" language="JavaScript1.2"
src="menudir/dmenu.js"></script>
<!-- (c) 2005, http://deluxe-menu.com --> </head>';
print "<table>";
print '<tr><td><script type="text/javascript" language="JavaScript1.2"
src="menudir/data-deluxe-menu.js"></script></td></tr>';
print '<tr><td>second line</td></tr>';
print '</table>';
exit;
_______________________ end program
Return to Recent Questions
|