API tools faq
paste
Advertisement
Guest User

For PerlGuru.com

a guest
Feb 24th, 2013
48
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 6.12 KB | None | 0 0
raw download clone embed print report
  1. #!/usr/bin/perl
  2. #The above sets the location of the perl compiler.
  3.  
  4. use strict;
  5. use CGI;
  6. print header();
  7.  
  8. print <<HEAD111
  9. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
  10. <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
  11. <head>
  12. <meta http-equiv='X-UA-Compatible' content='IE=EmulateIE7' />
  13. <title>BCPA page - MDTech</title>
  14.  
  15. <style type="text/css">
  16. .reg_num { width: 54px; height: 18px; }  
  17. .default { width: 200px; height: 18px; }
  18. </style>
  19.  
  20. <meta name="msvalidate.01" content="6698DB3266240D800A1DEFB2AEE5249D" />
  21. <meta name="msvalidate.01" content="BA291C2BB06D4C099CF9138D94C4C24B" />
  22. <meta name="google-site-verification" content="Mv8ukVrmYK4zMgdnRp4qYETNyRnPyRtaI-YEzYjDzV0" />
  23. <meta name="msvalidate.01" content="BA291C2BB06D4C099CF9138D94C4C24B" />
  24. <meta name="google-site-verification" content="Mv8ukVrmYK4zMgdnRp4qYETNyRnPyRtaI-YEzYjDzV0" />
  25. <!--[if IE 7]>
  26.       <style>
  27.       p {
  28.         line-height:18px;
  29.         padding-bottom:0px;
  30.       }
  31.       h1 {
  32.         font-size:20px;
  33.         font-weight:bold;
  34.         color:#272e34;
  35.         padding-bottom:0px;
  36.       }
  37.       h2 {
  38.         font-size:14px;
  39.         font-weight:bold;
  40.         color:#272e34;
  41.         padding-bottom:0px;
  42.       }
  43.     </style>
  44.   <![endif]-->
  45.   <meta name="google-site-verification" content="Mv8ukVrmYK4zMgdnRp4qYETNyRnPyRtaI-YEzYjDzV0" />
  46.   <meta name="msvalidate.01" content="BA291C2BB06D4C099CF9138D94C4C24B" />
  47.   <meta name="google-translate-customization" content="4870ff0762da6435-906b3721014154a0-g256d826ced58f04d-9"></meta>
  48.  
  49. <link rel='stylesheet' type='text/css' href='http://cdn1.editmysite.com/editor/libraries/fancybox/fancybox.css?1348176505'></script>
  50. <link rel='stylesheet' href='http://cdn1.editmysite.com/editor/images/common/common-v2.css?buildTime=1348176505' type='text/css' />
  51. <link rel='stylesheet' type='text/css' href='http://mdtpages.atspace.cc/files/main_style.css?1348197132' title='wsite-theme-css' />
  52. <style type='text/css'>
  53. #wsite-content div.paragraph, #wsite-content p, #wsite-content .product-block .product-title, #wsite-content .product-description, .blog-sidebar div.paragraph, .blog-sidebar p, .wsite-form-field label, .wsite-form-field label {}
  54. #wsite-content h2, #wsite-content .product-long .product-title, #wsite-content .product-large .product-title, #wsite-content .product-small .product-title, .blog-sidebar h2 {}
  55. #wsite-title{}
  56. </style>
  57. <script type='text/javascript'><!--
  58. var STATIC_BASE = 'http://cdn1.editmysite.com/';
  59. var STYLE_PREFIX = 'wsite';
  60. //-->
  61. </script>
  62. <script type='text/javascript' src='https://ajax.googleapis.com/ajax/libs/jquery/1.7.2/jquery.min.js'></script>
  63. <script type='text/javascript' src='http://cdn1.editmysite.com/editor/libraries/jquery_effects.js?1348176505'></script>
  64. <script type='text/javascript' src='http://cdn1.editmysite.com/editor/libraries/fancybox/fancybox.min.js?1348176505'></script>
  65. <script type='text/javascript' src='http://cdn1.editmysite.com/editor/images/common/utilities-jq.js?1348176505'></script>
  66. <script type='text/javascript' src='http://cdn1.editmysite.com/editor/libraries/flyout_menus_jq.js?1348176505'></script>
  67. <script type='text/javascript'><!--
  68. var IS_ARCHIVE=1;
  69. (function(jQuery){
  70. function initFlyouts(){initPublishedFlyoutMenus([{"id":"732580610550224581","title":"Home","url":"index.html"},{"id":"791199019507589116","title":"Software","url":"software.html"},{"id":"185665631450527889","title":"Contact Us","url":"contact-us.html"},{"id":"655691623107481862","title":"Register","url":"register.html"},{"id":"120377591448869403","title":"Windows 8 HOW-TOs","url":"windows-8-how-tos.html"},{"id":"383720836856858449","title":"HTTPS Mirror INFO","url":"https-mirror-info.html"},{"id":"970940401954682759","title":"How to install ooVoo","url":"how-to-install-oovoo.html"},{"id":"925835062994562531","title":"Subscribe for MDTech.us Newsletter","url":"subscribe-for-mdtechus-newsletter.html"},{"id":"664166098389600041","title":"MDT Certificate Authority","url":"mdt-certificate-authority.html"},{"id":"939902576679924408","title":"Visitor Map","url":"visitor-map.html"},{"id":"517608385647474105","title":"Install Teamviewer","url":"install-teamviewer.html"}],'590082422623526219',"<li class='wsite-nav-more'><a href='#'>more...</a></li>",'',false)}
  71. if (jQuery) {
  72. if (jQuery.browser.msie) window.onload = initFlyouts;
  73. else jQuery(initFlyouts)
  74. }else{
  75. if (Prototype.Browser.IE) window.onload = initFlyouts;
  76. else document.observe('dom:loaded', initFlyouts);
  77. }
  78. })(window._W && _W.jQuery)
  79. //-->
  80. </script>
  81. </head>
  82. <body class='wsite-theme-light wsite-page-bcpa-page'>
  83. <div id="wrapper">
  84.     <div id="header">
  85.       <div id="sitename"><span id="wsite-title">MDTech</span></div>
  86.     </div>
  87.     <div id="navigation">
  88.       <div id="navigation"><ul><li id='pg732580610550224581'><a href='http://www.MDTech.us/index.html'>Home</a></li><li id='pg791199019507589116'><a href='http://www.MDTech.us/software.html'>Software</a></li></ul></div>
  89.     </div>
  90.     <div id="content-wrapper">
  91.       <div id="contents-body">
  92.         <div id="contents"><div id='wsite-content' class='wsite-not-footer'>
  93. HEAD111;
  94.  
  95. use CGI;
  96. use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
  97.  
  98. #For method=POST
  99. # Read the standard input (sent by the form):
  100. read(STDIN, $FormData, $ENV{'CONTENT_LENGTH'});
  101. # Get the name and value for each form input:
  102. @pairs = split(/&/, $FormData);
  103. # Then for each name/value pair....
  104. foreach $pair (@pairs) {
  105.   # Separate the name and value:
  106.   ($name, $value) = split(/=/, $pair);
  107.   # Convert + signs to spaces:
  108.   $value =~ tr/+/ /;
  109.   # Convert hex pairs (%HH) to ASCII characters:
  110.   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  111.   # Store values in a hash called %FORM:
  112.   $FORM{$name} = $value;
  113. }
  114.  
  115. print "Email: " . $FORM{"email"} . "\n\n";
  116. print "Reg_Num: " . $FORM{"reg_num"};
  117.  
  118. print <<FOOTER111
  119. </div>
  120.       <div id="contents-bottom"></div>
  121.      
  122.     </div>
  123.   </div>
  124.    
  125. <meta name="google-site-verification" content="Mv8ukVrmYK4zMgdnRp4qYETNyRnPyRtaI-YEzYjDzV0" />
  126. <meta name="msvalidate.01" content="BA291C2BB06D4C099CF9138D94C4C24B" />
  127.  
  128. </body>
  129. </html>
  130. FOOTER111;
  131. exit;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!