CGIScript.net :: Automate your website for less!

Perl Popup Error Window Go to www.cgiscript.net for more free tools!
Description: Use this code to display a popup window from a perl script. The most common use is to indicate to the user that something has happened, like they haven't filled out all the required fields on a form.
Directions: Follow Steps 1 and 2 below. Use the 'Grab Text' buttons to select the code within the adjacent textarea. Then use Control-C or Edit -> Copy to buffer the text for pasting into your document.

Usage (Step 1): Use this code to display the popup window. Replace [TEXT] with the message you want to appear. Example:
&PError("Error. Missing required field");
When the user clicks the 'okay' button, it will take them back to the page where they came from. To close the window, use the following code:
&PError("Error. Missing required field",1);

Then use Control-C to copy the text into your web page.
User is taken back to the page where they came from after clicking 'Okay'
&PError("[TEXT]");

Then use Control-C to copy the text into your web page.
The Window is closed after click 'Okay'
&PError("[TEXT]",1);

Code (Step 2): Add the following code somewhere within your script.

Then use Control-C to copy the text into your web page.
sub PError{ local($message,$c) = @_; if($c){ print<<"EOF"; <body bgcolor=#C0C0C0> <script language=javascript> alert("$message"); window.close(); </script> EOF } else{ print<<"EOF"; <body bgcolor=#C0C0C0> <script language=javascript> alert("$message"); history.back(); </script> EOF } exit; }