PERL 19
/cgi-bin/exit.cgi?url= Guest on 8th July 2020 08:12:05 AM
  1. #!/usr/bin/perl
  2.  
  3. ####################################################################################
  4. #           COPYRIGHT 2004 COOPERATIVE INSTITUTE FOR REGIONAL PREDICTION           #
  5. #                               ALL RIGHTS RESERVED                                #
  6. #                                                                                  #
  7. #  This software is the intellectual property of CIRP/University of Utah           #
  8. #  Department of Meteorology.                                                      #
  9. ####################################################################################
  10.  
  11. use CGI qw/:standard/;
  12. use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
  13. use CGI; CGI::ReadParse();
  14. use FindBin qw($Bin);
  15. use lib "$Bin/../lib";
  16. use Time::Local;
  17. use POSIX;
  18.  
  19. use FindBin qw($Bin);
  20. use lib "$Bin/../lib";
  21.  
  22. use TopSecn;
  23. use BtmSecn;
  24. use Restrict_var;
  25.  
  26. $fdir = 'roman/cgi-bin';
  27.  
  28. #*************  GETTING Param ******************
  29.  
  30. $url = $in{'url'};
  31.  
  32. #************  Filtering Param *************************
  33.  
  34. %values = ("boolean" => "$boolean", "date" => "$date", "day1" => "$day1", "firstday" => "$firstday", "firsthour" => "$firsthour", "firstmon" => "$firstmon", "firstyear" => "$firstyear", "hilitewind" => "$hilitewind", "hour1" => "$hour1", "hours" => "$hours", "month1" => "$month1", "orderby" => "$orderby", "output" => "$output", "past" => "$past", "product" => "$product", "radius" => "$radius", "rawsflag" => "$rawsflag", "sta" => "$sta", "station" => "$station", "time" => "$time", "timetype" => "$timetype", "unit" => "$unit", "uonly" => "$uonly", "url" => "$url", "vari" => "$vari", "year1" => "$year1", "yzoom" => "$yzoom",);
  35. Restrict_var::CHECKUM(\%values);
  36.  
  37. #******************************************************
  38.  
  39. print<<EOF;
  40. Content-type:text/html
  41.  
  42. <html>
  43. <head>
  44. <title>Exiting ROMAN $url</title>
  45. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  46. <META HTTP-EQUIV="refresh" CONTENT="7; URL=$url">
  47. </head>
  48. <body>
  49. EOF
  50.  
  51.  
  52. TopSecn::TOPSECN($fdir, \%select);
  53.  
  54.  
  55. print<<EOF;
  56. <B><FONT color="#730000" size="+2">
  57. You are now leaving ROMAN and are entering<br>
  58. MesoWest at the University of Utah.<br>
  59. </font>
  60. <br>
  61. <FONT color="#730000">
  62. In a few seconds, you will be directed to<br>
  63. &nbsp;&nbsp;&nbsp;&nbsp;<a href="$url">$url</a>
  64. </font></b>
  65. <br>
  66. <br>
  67. EOF
  68.  
  69.  
  70. BtmSecn::BTMSECN;
  71.  
  72.  
  73. print<<EOF;
  74. </body>
  75. </html>
  76. EOF

Paste is for source code and general debugging text.

Login or Register to edit, delete and keep track of your pastes and more.

Raw Paste

Login or Register to edit or fork this paste. It's free.