Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

in need of pulldown menu script

Posted on 1998-06-26
2
Medium Priority
?
206 Views
Last Modified: 2010-03-04
I am in need of a good perl cgi script that will run a pulldown menu script on my pages. I have a javascript running for this that includes an alternate option to call up a cgi script for those who  have non-javascript enabled browsers. Now I need a perl script that will perform the function. I would also like to be able to store the selectable URLS for the menu in a separate SSI file so that I can update the script without having to edit all of my web pages....

here is the script I have that the perl script needs to interface with:

  <HTML>
      <HEAD>
      <TITLE>PulldownNGo</TITLE>
      <SCRIPT LANGUAGE="JavaScript">
      <!-- // hide from old browsers
      var MSIE3 = (navigator.appVersion.indexOf('MSIE') !=-1 && navigator.appVersion.indexOf('3.')
      !=-1);
      function goThere(selidx) {
         Opt = document.forms[0].sel.options[selidx].value;
         tgt = Opt.substring(0,Opt.indexOf(','));
         loc = Opt.substring(Opt.indexOf(',')+1);
         eval(tgt + '.location ="' + loc + '"');
      }
      // end hide -->
      </SCRIPT>
      </HEAD>
      <BODY>
      <FORM ACTION="/cgi-bin/goscript.pl">
      <SCRIPT LANGUAGE="JavaScript">
      <!-- // hide from old browsers
      document.write('<SELECT NAME="sel"');
      if (MSIE3) document.write('>');
      else {
         document.write(' ONCHANGE="goThere(selectedIndex);selectedIndex=0;">');
         document.write('<OPTION VALUE="self,self.location.href">--- Select a site ---');
      }
      // end hide -->
      </SCRIPT>
      <NOSCRIPT>
      <SELECT>
      </NOSCRIPT>
      <OPTION VALUE="top,http://www.netscape.com">Netscape
      <OPTION VALUE="self,feedback.html">Feedback
      <OPTION VALUE="top.frames[0],feedback.html">Feedback
      </SELECT>
      <SCRIPT LANGUAGE="JavaScript">
      <!-- // hide from old browsers
      if (MSIE3) document.write('<INPUT TYPE="BUTTON" VALUE= "Go!" ONLICK="goThere(this.form.sel.selectedIndex)">');
      // end hide -->
      </SCRIPT>
      <NOSCRIPT>
      <INPUT TYPE="SUBMIT" VALUE="Go!">
      </NOSCRIPT>
      </FORM>
      </BODY>
      </HTML>

0
Comment
Question by:ficken
  • 2
2 Comments
 
LVL 2

Accepted Solution

by:
tpryor earned 400 total points
ID: 1208230
easy to redirect like this...

#!/www/servers/common/perl5

push(@INC, split(':', $ENV{"PATH"}));
require "cgi-lib.pl";
&ReadParse;

$me = &MyURL();


print "Location: $file\n\n";

###################################

just pass the path to the cgi script.
if you need to pass more than one var with a selection
just concat the vars with delimiter and split them up inside the cgi.
EX:
In HTML file
value="var|path"

In cgi file
($var, $path) = split(/\|/, $form_input);

GL,
t

0
 
LVL 2

Expert Comment

by:tpryor
ID: 1208231
BTW keeping a seperate file for the menu is a good idea. It would simply be all html, no need to change your code.

sorry, looked again at the script above it was wrong
(too much copying and pasting),
try this...



#!/www/servers/common/perl5

require "cgi-lib.pl"; # library that will help with cgi
&ReadParse;               # function in cgi-lib.pl to grab form data
      
$file = $in{"file"}; # file ($in{"file"}) would be the name of
                               # your pull down menu. This will grab the
                               # html file associated with the menu
                               # selection and place it in the $file var.

print "Location: $file\n\n";
# this will open the html file in $file

###################################

GL,
t
0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Email validation in proper way is  very important validation required in any web pages. This code is self explainable except that Regular Expression which I used for pattern matching. I originally published as a thread on my website : http://www…
Checking the Alert Log in AWS RDS Oracle can be a pain through their user interface.  I made a script to download the Alert Log, look for errors, and email me the trace files.  In this article I'll describe what I did and share my script.
Explain concepts important to validation of email addresses with regular expressions. Applies to most languages/tools that uses regular expressions. Consider email address RFCs: Look at HTML5 form input element (with type=email) regex pattern: T…
Six Sigma Control Plans

926 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question