document.write("
\n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write("
News Headlines\n"); document.write("
\n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write("
Perl Variable HTML Escape and UnEscape\n"); document.write("

\n"); document.write("
Use this code to convert non-word characters to the html format. This is useful for displaying forms populated with variables that have odd characters or for 'escaping' variables prior to saving them to a database.
\n"); document.write("
\n"); document.write("\n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write("
Perl Debug Tool\n"); document.write("

\n"); document.write("
Use this code to display environment variables and form variables. The form variables are assumed to be in the %in associative array (as extracted by the &getdata subroutine show in a previous example). This is generally used when the scr"+"ipt encounters an error and is very useful for debugging.
\n"); document.write("
\n"); document.write("\n"); document.write("\n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write("
Perl Form Variable Extractor\n"); document.write("

\n"); document.write("
Use this code to extract the fields submitted on an html form. It can also be used to parse the information after the '?' in the url.
\n"); document.write("
\n"); document.write("\n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write("
Perl Popup Error Window\n"); document.write("

\n"); document.write("
Use this code to display a popup window from a perl scr"+"ipt. 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.
\n"); document.write("
\n"); document.write("\n"); document.write("\n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write("
Perl Email Syntax Checker\n"); document.write("

\n"); document.write("
Use this code to test an email address for proper syntax. It will return '1' if the email address passes or a '0' if it fails. You can use it in conjunction with the Ace Perl Popup Window to let the user know they entered an invalid email address.
\n"); document.write("
\n"); document.write("\n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write("
Perl Cookie Retrieval\n"); document.write("

\n"); document.write("
Use this code to populate an associative array with the users cookies.
\n"); document.write("
\n"); document.write("\n"); document.write("\n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write("
Perl Template Creator\n"); document.write("

\n"); document.write("
Use this code to create easily modifiable html templates for use in your perl cgis.
\n"); document.write("
\n"); document.write("\n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write(" \n"); document.write("
Perl Name Formatter\n"); document.write("

\n"); document.write("
Use this code to format common names. For example, john doe III, will be converted to John Doe III.
\n"); document.write("
\n"); document.write("\n"); document.write("\n"); document.write("\n"); document.write("var win=null;\n"); document.write("function Viewperl2edb331(id){\n"); document.write("var rndURL = (1000*Math.random());\n"); document.write("var myname=\"\";\n"); document.write("var w = \"640\";\n"); document.write("var h = \"480\";\n"); document.write("var pos = \"center\";\n"); document.write("if(\"center\" == \"absolute\"){\n"); document.write("var TopPosition = 0;\n"); document.write("var LeftPosition = 0;\n"); document.write("}\n"); document.write("var mypage = \"http://www.cgiscr"+"ipt.net/cgi-scr"+"ipt/csNews/csNews.cgi?database=perl%2edb&command=viewone&op=t&id=\"+id+\"&rnd=\"+rndURL;\n"); document.write("if(pos==\"random\"){LeftPosition=(screen.width)?Math.floor(Math.random()*(screen.width-w)):100;TopPosition=(screen.height)?Math.floor(Math.random()*((screen.height-h)-75)):100;}\n"); document.write("if(pos==\"center\"){LeftPosition=(screen.width)?(screen.width-w)/2:100;TopPosition=(screen.height)?(screen.height-h)/2:100;}\n"); document.write("else if((pos!=\"center\" && pos!=\"random\" && pos!= \"absolute\") || pos==null){LeftPosition=0;TopPosition=20}\n"); document.write("settings='width='+w+',height='+h+',top='+TopPosition+',left='+LeftPosition+',scrollbars=yes,location=no,directories=no,status=no,menubar=yes,toolbar=no,resizable=yes';\n"); document.write("win=window.open(mypage,myname,settings);\n"); document.write("if(win.focus){win.focus();}}\n"); document.write("\n"); document.write("
\n"); document.write("
\n");