#!/usr/local/bin/perl

use CGI qw/:standard/;
$CGI::POST_MAX=1024 * 25;  # max 25K posts

print <<No_Script_Generation;
Content-type: text/html
Location: ../web_ver/web_ver.html

No_Script_Generation
exit (0);

$webPage = param('webPage');
$script = param('theScript');

$outputScript = "tmp/script.scp";
open (OSCP, ">$outputScript") or print("Cannot open file for output ...");

if ($webPage eq "uploadScript") {
  while (<$script>) {
    print OSCP;
  }
} elsif ($webPage eq "pasteScript") {
  $_ = $script;
  print OSCP;
} else {
  exit(-1);
}

close OSCP;
`chmod 777 $outputScript`;

print <<End_of_Html_Document;
Content-type: text/html
Pragma: no-cache

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
   <META NAME="Author" CONTENT="Gaurav S. Kc">
<!--   <META HTTP-EQUIV="REFRESH" CONTENT="0; URL=../main.html"> -->
   <META NAME="GENERATOR" CONTENT="Mozilla/4.06 [en] (WinNT; I) [Netscape]">
   <TITLE>Refreshing to manual pages ...</TITLE>
</HEAD>
<SCRIPT LANGUAGE="JavaScript">
<!-- Hide from non-JavaScript-compliant browsers

function manualOpener() {
  window.open("../directions.html", "Manual_Pages", "alwaysRaised,width=400,height=400");
}

function appletHtmlOpener() {
  // window.open("../JavAnim.html", "Applet_Page", "width=100, height=100");
}

// -->
</SCRIPT>

<BODY TEXT="#FFFFFF" BGCOLOR="#330000" LINK="#000000" VLINK="#000000" ALINK="#000000" onLoad="manualOpener();appletHtmlOpener()">
<H1>There ain't nothin' in here now ... </H1>
</BODY>
</HTML>

End_of_Html_Document

