#!/usr/local/bin/perl
#
######################################################################################
#
# molray.pl - Perl5 cgi script to run graphics suite. MRH 18-Oct-99/See $version below
#
######################################################################################
#
# Consists of several blocks corresponding to different pages.
#
# Referenced first as eg     : "http://my_host_name/cgi-bin/molray.pl"
# Or for single frame window : "http://my_host_name/cgi-bin/molray.pl?1"
# Or for multiple windows    : "http://my_host_name/cgi-bin/molray.pl?2"
#
# Installation help can be found at : 
#              http://xray.bmc.uu.se/markh/notes/howto/molray_install.html
#
##################################################################################

# Set up variables
#=================

#------------------------------------------------
# You will want to change the next few lines 
#------------------------------------------------
# Scratch must be read-writable from cgi-bin and should be relative
#------------------------------------------------

$script_name =    "http://xray.bmc.uu.se/cgi-bin/markh/molray.pl";

$scratch_url =    "http://xray.bmc.uu.se/tmp";

$scratch_dev =    "../../tmp";

$prog_bin =       "/usr/local/bin";

$remote_cmd =     "$prog_bin/qsub -V -cwd -F -l batch -N Molray ";

$Imagedir =       "http://xray.bmc.uu.se/markh/cgi/images/";

$Usagelog =       "molray_usage.log";

$Overloadlog =    "molray_overload.log";

$Trusted_domain = "uu.se";

$Pov_incl_dir = "/home/markh/povray/";

$povray      =   "$prog_bin/megapov";

#$pov_inc =        "/usr/local/lib/povray"; 

#--------------------------------------------------------------------
# Program execution commands. You will need to install these programs
#--------------------------------------------------------------------
#
# plt_pov can be found at :   http://xray.bmc.uu.se/markh/notes/howto/plt_pov.f
# POV-Ray can be found via :  http://www.povray.org/
# gifsicle lives here :       http://www.pdos.lcs.mit.edu/~eddietwo/gifsicle/index.html
# surfout comes from :        http://imsb.au.dk/~ding/prg_surfout.html
# convert is in ImageMagick : http://www.wizards.dupont.com/cristy/
# ligplot can be got from :   http://www.biochem.ucl.ac.uk/bsm/ligplot/ligplot.html
# file_growth_monitor from :  http://xray.bmc.uu.se/markh/notes/howto/file_growth_monitor.pl.save
#
#--------------------------------------------------------------------

$plt_pov     =   "$prog_bin/plt_pov";
$tga_to_other =  "$prog_bin/convert";
$tga_to_png =  "$prog_bin/convert_png";
$molscript =     "$prog_bin/molscript_pov";
$surfout =       "$prog_bin/surfout";
$ligplot =       "$prog_bin/ligplot.scr";
$ligplotdir =    "$prog_bin/";

$transgif_prog = "$prog_bin/gifsicle";
$transgif_prms = "-t 239,206,252 ";

$animgif_prog =  "$prog_bin/gifsicle";

$mpeg_prog =     "$prog_bin/mpeg_encode";
$mpeg_params =   "/usr/www/cgi-bin/markh/mpeg.params";

$file_growth_monitor = "file_growth_monitor.pl";
$file_growth_monitor_exp = "file_growth_monitor_exp.pl";

# Tidy-up time (minutes). Deletes tmp files after this time
#----------------------------------------------------------

$tidy_time = "6000";

# Quota limits (mostly for public server)
#----------------------------------------

$limit_pixels = 10000;

$limit_frames = 1000;

$limit_other_jobs = 5;

# You probably don't want to change things below this line
#=========================================================

# Set some harder variables
#-------------------------------------------

$version =       "Molray version 1.3 updated 27-Nov-2003";

$Helpfile =       "http://xray.bmc.uu.se/markh/notes/howto/molray_help.html";

$Demofile =       "http://xray.bmc.uu.se/markh/notes/howto/molray_demo.txt";

# Check to see if we're on the public server
#-------------------------------------------

$Trusted_flag ="no";

$public_flag ="no";

$host = `hostname`;
chomp($host);
if ($host eq "portray.bmc.uu.se") {
  $public_flag ="yes";
}

if ($public_flag eq "yes") {

  $script_name =  "http://portray.bmc.uu.se/cgi-bin/markh/molray.pl";
  $scratch_url =  "http://portray.bmc.uu.se/tmp";
  $scratch_dev =  "/serv/www/tmp";
  $Imagedir =     "http://xray.bmc.uu.se/markh/cgi/images/";
  $mpeg_params =  "/serv/www/apache/cgi-bin/markh/mpeg.params";
  $remote_cmd =   "";

# And also if we don't have local priviliges

  $client = $ENV{'REMOTE_HOST'};
  if ($client eq "") {$client = "host"};

  if (index($client,$Trusted_domain) == -1) {
##    $limit_pixels = 600;
##    $limit_frames = 10;
    $limit_other_jobs = 6;
  } else {
    $Trusted_flag = "yes";
  }

} else { # Local server
    $limit_other_jobs = 2;
}

# Find directory for file_growth_monitor
#---------------------------

$url_bin = $script_name;
$url_bin =~ s/\/([^\/]*$)/\//;

# Date
#-----

$date = sprintf("%02d",$fulltime[4]);
($day, $month, $dom, $time, $year) = split(/\s+/,localtime(time),5);
($hour, $min, $sec) = split(/:/,$time,3);
$date = "$day $dom-$month-$year $hour:$min";

# Other parameters
#-----------------

$thumb_size =    "250";
$cam_dist =      "20.0";
$preview_dist = "50";
$spline_tension = "0.5";
$spline_continuity = "0.0";
$spline_sampling = "10";
$spline_banking = "0.25";
$spline_function = "cubic";
$line_thick =    "0.04";
$def_depth_cue =    "10";
$depth_cue =    "0";
$def_steps =     20;
$perspangle = "60.0";
$aspect_ratio =  "";
$selectall_checked = " ";
$cam_points = "20,10,10\n20,10,-10\n20,-6,-6\n20,6,6";
$cam_points = "60,60,0\n48,40,20\n38,30,40\n30,20,20\n25,10,10\n20,0,0
";
# Colours
#--------

$bgcolour =    "#FFCC33";

$cell_colour = "#AAAAFF";
$run_colour = "#F9a907";

$Rback = 0.0;
$Gback = 0.0;
$Bback = 0.0;

# Movie parameters
#-----------------

$movie_rate = 10;
$movie_loop = "";

# Pickup URL parameters
#----------------------

$qstring = $ENV{'QUERY_STRING'};

if($qstring eq "0"){$qstring="Pltp&frames=0"}
if($qstring eq "1"){$qstring="Pltp&frames=1"}
if($qstring eq "2"){$qstring="Pltp&frames=2"}

$page = substr($qstring,0,5);

$id = substr($qstring,index($qstring,'&id=')+4);
if (index($id,'&') > 1) {$id = substr($id,0,index($id,'&'))};

$page_num = substr($qstring,4,1);

$tmp = $page_num;

if (substr($page,4,1) eq "&" || substr($page,4,1) eq "9") {
    $page = substr($qstring,0,4);
    $page_num = "";
    }

if (index($qstring,'&frames=') gt 0) {
    $frames_type = substr($qstring,index($qstring,'&frames=')+8);
} else {
    $frames_type = 0;
}

$advmode = substr($qstring,index($qstring,'&advmode=')+9);
if (index($advmode,'&') > 1) {$advmode = substr($advmode,0,index($advmode,'&'))};

# Find host and set scratch dir
#------------------------------

$client = $ENV{'REMOTE_HOST'};
if ($client eq "") {$client = "host"};

$client =~ s/\..*$//;

$scratch = "$scratch_dev"."/"."$client";

# Add log files to batch command
#-------------------------------

if (index($remote_cmd,"qsub") != -1) {
  $remote_cmd = "$remote_cmd -e $scratch/tmpp_batch_error.log -o $scratch/tmpp_batch_out.log ";
}

# Set id to process id only on first page, and create scratch subdir
#-------------------------------------------------------------------

if ($page_num eq "0" || $page_num eq "") {
$id = "$$";

system ("mkdir $scratch ; chmod 755 $scratch ");

}

# temp files
#-----------

$lpt_infile    = "$scratch/tmpp$id.lpt";
$lpt_outfile   = "$scratch/tmpp$id.ps";
$grs_infile    = "$scratch/tmpp$id.grs";
$mls_infile    = "$scratch/tmpp$id.mls";
$pdb_infile    = "$scratch/tmpp$id.pdb";
$plt_infile    = "$scratch/tmpp$id.plt";
$tmp_lstfile   = "$scratch/tmpp$id.lst";
$tmp_logfile   = "$scratch/tmpp$id.log";
$pov_infile    = "$scratch/tmpp$id.pov";
$pov_tmpfile   = "$scratch/tmpp$id.tpv";
$pov_movfile   = "$scratch/tmpp$id.mpv";
$bac_movfile   = "$scratch/tmppbac$id.mpv";
$pov_outfile   = "$scratch/tmpp$id.tga";
$pov_lstfile   = "$scratch/tmpp$id.Lst";
$jpeg_outfile  = "$scratch/tmpp$id.jpeg";
$rgb_outfile   = "$scratch/tmpp$id.rgb";
$gif_outfile   = "$scratch/tmpp$id.gif";
$gif_thumbfile = "$scratch/tmpp$id.Gif";
$animgif_file  = "$scratch/tmpp$id.GIF";
$tiff_outfile  = "$scratch/tmpp$id.tiff";
$png_outfile  = "$scratch/tmpp$id.png";
$mng_outfile  = "$scratch/tmpp$id.mng";
$mail_file     = "$scratch/tmpp$id.mail";
$mail_mov_file = "$scratch/tmpp$id.Mail";
$tmp_cshfile   = "$scratch/tmpp$id.csh";
$kill_cshfile   = "$scratch/tmppd$id.csh";
$tmp_subfile   = "$scratch/tmpp$id.CSH";
$scratchfile   = "$scratch/tmpp$id.tmp";
$pid_file      = "$scratch/tmpp$id.pid";
$mpeg_outfile  = "$scratch/tmpp$id.mpeg";
$mpeg_lstfile  = "$scratch/tmpp$id.LST";
$mpeg_tmp_prms = "$scratch/tmpp$id.prm";
$outofmem_file = "$scratch/tmppoom$id.prm";
$adv_cshfile   = "$scratch/tmppadv$id.csh";

$povray_logo   = "$Imagedir/povscript_logo.gif";
$molray_logo   = "$Imagedir/molray_logo.gif";
$pltpov_logo   = "$Imagedir/pltpov_logo.gif";
$demo_image     = "$pltpov_logo";
$def_mail_addr = "";

$Guestbook     = "http://xray.bmc.uu.se/markh/notes/guestbook/guestbook_molray.html";

$exe_cmd = " ";

if ($client eq "pluto") {
  $exe_cmd = "nice" 
}

if ($client eq "narva") {
  $mrh_flag = "yes";
  $def_mail_addr = "markh\@xray.bmc.uu.se";
  $selectall_checked = "CHECKED";
  $limit_other_jobs = 4;
}

if ($client eq "monet") {
  $gunnar_flag = "yes";
}

# Kill current job issued

if(substr($qstring,0,4) eq "term"){ 

$idk = substr($qstring,rindex($qstring,'&term=')+6);
if (rindex($idk,'&') > 1) {$idk = substr($idk,0,rindex($idk,'&'))};

  print "Content-TYPE: text/html\n\n";
  print "";
  print "<HTML VERSION=\"2.0\"><HEAD><TITLE>Tidy</TITLE></HEAD><BODY BGCOLOR=#8888FF><P>\n";
  print "Killing current POV-Ray job ($idk) ...<P>\n";
  print "<B>This message will self destruct in 3 seconds....</B><P>\n";

  $kill_cshfile   = "$scratch/tmppd$idk.csh";
  $cmd = "/bin/csh -f $kill_cshfile";

#  print  "Cmd : $cmd";

  system("$cmd"); # execute file containing povray-process kill commands

  print "<SCRIPT>setInterval('closeIt()',3000);\n";
  print "function closeIt() {this.close()}\n</SCRIPT>\n";

  print "</BODY>";
  print "</HTML>";

exit;
}

 # General tidy up issued

if($qstring eq "Tidy"){

  print "Content-TYPE: text/html\n\n";
  print "";
  print "<HTML VERSION=\"2.0\"><HEAD><TITLE>Tidy</TITLE></HEAD><BODY BGCOLOR=#8888FF><P>\n";
  print "Killing outstanding POV-Ray jobs...<P>\n";
  print "Tidying up scratch directory...<P>\n";
  print "rm -rf $scratch/tmpp*<P>\n";
  print "<B>This message will self destruct in 3 seconds....</B><P>\n";

  system("echo \"ps -jea | grep $id | grep $client | grep -v grep | awk '{print \\\$2}'  | xargs kill -9 \"  > $scratch/tmpptidy.csh"); # create file containing process kill command

  system("csh -f  $scratch/tmpptidy.csh"); # execute file containing povray-process kill commands

  system("rm -rf $scratch/tmpp*"); # delete files

  print "<SCRIPT>setInterval('closeIt()',3000);\n";
  print "function closeIt() {this.close()}\n</SCRIPT>\n";

  print "</BODY>";
  print "</HTML>";

exit;
}

# Set frames type
#----------------

# Frames
#-------

if ($frames_type eq "0" || $frames_type eq "") {

    $frames = "yes";

    $src_win = "source";
    $plp_win = "pltpov";
    $pov_win = "povray";
    $res_win = "result";
    $ani_win = "povray";
    $big_win = "bigwin";
    $mov_win = "movies";
    $adv_win = "advwin";
    $adv_win = "pltpov";
    
}

# Separate windows
#-----------------

if ($frames_type eq "2") {

    $frames = "no";

    $src_win = "source_w";
    $plp_win = "pltpov_w";
    $pov_win = "povray_w";
    $res_win = "result_w";
    $ani_win = "povray_w";
    $big_win = "bigwin_w";
    $mov_win = "movies_w";
    $adv_win = "advwin_w";
    
}

# Single window
#--------------

if ($frames_type eq "1") {

    $frames = "no";

    $src_win = "_top";
    $plp_win = "_top";
    $pov_win = "_top";
    $res_win = "_top";
    $ani_win = "_top";
    $big_win = "_top";
    $mov_win = "_top";
    $adv_win = "_top";
    
}

##############################################################################
# Check script_name specified above is same as parent
##############################################################################

$parent_script = "http://$ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}";

if ($parent_script ne $script_name) {
  print "Content-TYPE: text/html\n\n";
  print "";
  print "<HTML VERSION=\"2.0\"><HEAD><TITLE>Error</TITLE></HEAD><BODY><P>";
  print "!!! MolRay configuration error !!!<P>";
  print "Mismatch between parent script and \"script_name\" variable in program<P>";
  print "Parent script - http://$ENV{'SERVER_NAME'}$ENV{'SCRIPT_NAME'}<BR>";
  print "Called script - $script_name<P>";
  print "Call your systems manager and tell him to make variable \"script_name\" truly match the location of the molray perl script.";

print "</BODY>";
exit;
}

##############################################################################
# Page 0. Startup pages (Pure frames HTML)
##############################################################################

if ($page eq "Page0" || $page eq "" || $page eq "Pltp" || $page eq "Mols" || $page eq "Gras" || $page eq "Scri" || $page eq "Ligp") {

# Adjust number of windows depending on program
###############################################

$First_page = "Pltp0";
$Columns = "400,*,*";
if ($page eq "Mols" || $page eq "Gras" || $page eq "Scri") {
  $First_page = "$page"."0";
  $Columns = "400,*";
}
if ($page eq "Ligp") {
  $First_page = "$page"."0";
  $Columns = "400,*";
}

if ($frames eq "yes") {

print "Content-TYPE: text/html\n\n";
print "";

print << "EOH";
<HTML VERSION="2.0">
<HEAD>
<TITLE> Molray web interface for molecular graphics rendering</TITLE>
</HEAD>
<FRAMESET COLS="$Columns">
    <FRAMESET ROWS = "45%,*">
	
	<FRAME SRC="$script_name?$First_page" NAME="$src_win" FRAMEBORDER=0 FRAMESPACING=0>
	<FRAME SRC="$script_name?Resu0" NAME="$res_win" FRAMEBORDER=0 FRAMESPACING=0>
		
    </FRAMESET>
		    
EOH

    if ($page ne "Mols" && $page ne "Gras" && $page ne "Scri" && $page ne "Ligp") {
	print "<FRAME SRC=\"$script_name?Plpv0\" NAME=\"$plp_win\" FRAMEBORDER=0 FRAMESPACING=0>\n";
    }

    if ($page ne "LigpBBBJUNK") {
	print "<FRAME SRC=\"$script_name?Povr0\" NAME=\"$pov_win\" FRAMEBORDER=0 FRAMESPACING=0>\n";
    }
print "</FRAMESET></HTML>\n";

}
 else {
$page = $First_page;
}

}
#######################
# Initial plt_pov frame
#######################

if ($page eq "Pltp0") {

print "Content-TYPE: text/html\n\n";
print "";

##print ":id: $id :: $idd :f:$frames_type:p:$page:$tmp:$page_num";

if (! -x $povray){
    print "<B>Warning - POV-Ray executable not found</B>";
}

if (! -x $plt_pov){
    print "<B>Warning - Plt_pov executable not found</B>";
}

print << "EOHS";
<HTML VERSION="2.0">
<HEAD><TITLE> molray molecular graphics web interface </TITLE></HEAD>
<BODY BGCOLOR="$bgcolour">

<form ACTION="$script_name?Page1&id=$id&frames=$frames_type" METHOD="POST" TARGET="$plp_win" ENCTYPE=multipart/form-data>

<TABLE BORDER=2 CELLPADDING=0 ALIGN="CENTER"><TR>
  <TD><CENTER><B><FONT SIZE=6>Plt_pov input form</FONT></B></CENTER></TD></TR><TR>

  <TD BGCOLOR=$run_colour>
  <TABLE BORDER=0 CELLPADDING=0 ALIGN="CENTER"><TR>
    <TD>Input O plot file : </TD><TD ALIGN="RIGHT">
    <input type=\"checkbox\" name=\"skipsel\" value="on" $selectall_checked> Select all objects
    </TD></TR><TR><TD COLSPAN=2 BGCOLOR=$run_colour>
    <input type="file" name="infile" size="25">
  </TABLE>

  </TD>
  </TR><TR>
  <TD BGCOLOR=$run_colour>
  <TABLE ALIGN="CENTER" BORDER=0 CELLPADDING=0 ><TR>

    <TD VALIGN="CENTER"><input type="submit" value="Run">
    </TD><TD VALIGN="CENTER"><input type="reset" value="Reset">
    </TD><TD VALIGN="CENTER">

    <TABLE BORDER=1 CELLPADDING=2><TR><TD>
       <A HREF=\"$Helpfile\" TARGET=\"HELP\">Help</A>
       </TD></TR>
    </TABLE>

    </TD><TD VALIGN="CENTER">

    <TABLE BORDER=1 CELLPADDING=2><TR><TD>
       <A HREF=\"$Demofile\" TARGET=\"Demo\">Demo</A>
       </TD></TR>
    </TABLE>

    </TD><TD VALIGN="CENTER">

    <TABLE BORDER=1 CELLPADDING=2><TR><TD>
       <A HREF=\"$Guestbook\" TARGET=\"GUEST\">Feedback&nbsp;\?</A>
       </TD></TR>
    </TABLE>

    </TD></TR>
   </TABLE>

   </TD></TR>

</TABLE>

</FORM>

EOHS

other_progs ();

print "</BODY></HTML>";

}

#########################
# Initial molscript frame
#########################

elsif ($page eq "Mols0") {

print "Content-TYPE: text/html\n\n";
print "";

print << "EOHM";
<HTML VERSION="2.0">
<HEAD><TITLE> molray molecular graphics web interface </TITLE></HEAD>
<BODY BGCOLOR="$bgcolour">
<CENTER><H2>Molscript input form</H2></CENTER>
<form ACTION="$script_name?Mols1&id=$id&frames=$frames_type" METHOD="POST" TARGET="$pov_win" ENCTYPE=multipart/form-data>

<TABLE BORDER=3 CELLPADDING=3 ALIGN="CENTER"><TR>
<TD BGCOLOR=$run_colour>Input Molscript file :<BR>
<input type="file" name="infile" size="25">
<BR>Input PDB file :<BR>
<input type="file" name="pdbfile" size="25">
</TD>
</TR><TR>
<TD BGCOLOR=$run_colour>

<TABLE ALIGN="CENTER"><TR>

<TD VALIGN="CENTER"><input type="submit" value="Run">
</TD><TD VALIGN="CENTER"><input type="reset" value="Reset">
</TD><TD VALIGN="CENTER">

<TABLE BORDER=1 CELLPADDING=2><TR><TD>
<A HREF=\"$Helpfile\" TARGET=\"HELP\">Help</A>
</TD></TR></TABLE>

</TD><TD VALIGN="CENTER">

</TD><TD VALIGN="CENTER">
<TABLE BORDER=1 CELLPADDING=2><TR><TD>
<A HREF=\"$Guestbook\" TARGET=\"GUEST\">Feedback&nbsp;\?</A>
</TD></TR></TABLE>

</TD></TR></TABLE>

</TD></TR></TABLE>

</FORM>

</BODY></HTML>
EOHM

other_progs ();

print "</BODY></HTML>";

}

#########################
# Initial GRASP frame
#########################

elsif ($page eq "Gras0") {

print "Content-TYPE: text/html\n\n";
print "";

print << "EOHM";
<HTML VERSION="2.0">
<HEAD><TITLE> molray molecular graphics web interface </TITLE></HEAD>
<BODY BGCOLOR="$bgcolour">
<CENTER><H2>GRASP input form</H2></CENTER>

<form ACTION="$script_name?Gras1&id=$id&frames=$frames_type" METHOD="POST" TARGET="$pov_win" ENCTYPE=multipart/form-data>

<TABLE BORDER=3 CELLPADDING=3 ALIGN="CENTER"><TR>

<TD BGCOLOR=$run_colour>Input GRASP file :<BR>
<input type="file" name="infile" size="25">
</TD>
</TR><TR>
<TD BGCOLOR=$run_colour>

<TABLE ALIGN="CENTER"><TR>

<TD VALIGN="CENTER"><input type="submit" value="Run">
</TD><TD VALIGN="CENTER"><input type="reset" value="Reset">
</TD><TD VALIGN="CENTER">

<TABLE BORDER=1 CELLPADDING=2><TR><TD>
<A HREF=\"$Helpfile\" TARGET=\"HELP\">Help</A>
</TD></TR></TABLE>

</TD><TD VALIGN="CENTER">

</TD><TD VALIGN="CENTER">
<TABLE BORDER=1 CELLPADDING=2><TR><TD>
<A HREF=\"$Guestbook\" TARGET=\"GUEST\">Feedback&nbsp;\?</A>
</TD></TR></TABLE>

</TD></TR></TABLE>

</TD></TR></TABLE>

</FORM>

EOHM

other_progs ();

print "</BODY></HTML>";

}

#########################
# Initial LIGPLOT frame
#########################

elsif ($page eq "Ligp0") {

print "Content-TYPE: text/html\n\n";
print "";

print << "EOHM";
<HTML VERSION="2.0">
<HEAD><TITLE> molray molecular graphics web interface </TITLE></HEAD>
<BODY BGCOLOR="$bgcolour">
<CENTER><H2>Ligplot input form</H2></CENTER>

<form ACTION="$script_name?Ligp1&id=$id&frames=$frames_type" METHOD="POST" TARGET="$pov_win" ENCTYPE=multipart/form-data>

<TABLE BORDER=3 CELLPADDING=3 ALIGN="CENTER"><TR>

<TD BGCOLOR=$run_colour>Input Ligplot PDB file :<BR>
<input type="file" name="infile" size="25">
<BR>
<input type=\"text\" name=\"resnum\" value=\"100-100\" SIZE=10> 
Ligand residue numbers (range)
<P>
</TD>
</TR><TR>
<TD BGCOLOR=$run_colour>

<TABLE ALIGN="CENTER"><TR>

<TD VALIGN="CENTER"><input type="submit" value="Run">
</TD><TD VALIGN="CENTER"><input type="reset" value="Reset">
</TD><TD VALIGN="CENTER">

<TABLE BORDER=1 CELLPADDING=2><TR><TD>
<A HREF=\"$Helpfile\" TARGET=\"HELP\">Help</A>
</TD></TR></TABLE>

</TD><TD VALIGN="CENTER">

</TD><TD VALIGN="CENTER">
<TABLE BORDER=1 CELLPADDING=2><TR><TD>
<A HREF=\"$Guestbook\" TARGET=\"GUEST\">Feedback&nbsp;\?</A>
</TD></TR></TABLE>

</TD></TR></TABLE>

</TD></TR></TABLE>

</FORM>

EOHM

other_progs ();

print "</BODY></HTML>";

}

#########################
# Initial Script frame
#########################

elsif ($page eq "Scri0") {

print "Content-TYPE: text/html\n\n";
print "";

print << "EOHM";
<HTML VERSION="2.0">
<HEAD><TITLE> molray molecular graphics web interface </TITLE></HEAD>
<BODY BGCOLOR="$bgcolour">

<form ACTION="$script_name?Scri1&id=$id&frames=$frames_type" METHOD="POST" TARGET="$pov_win" ENCTYPE=multipart/form-data>

<TABLE BORDER=3 CELLPADDING=3 ALIGN="CENTER"><TR>

<TD BGCOLOR=$run_colour>Input POV-Ray input file :<BR>
<input type="file" name="infile" size="25">
</TD>
</TR><TR>
<TD BGCOLOR=$run_colour>
<TABLE ALIGN="CENTER"><TR>

<TD VALIGN="CENTER"><input type="submit" value="Run">
</TD><TD VALIGN="CENTER"><input type="reset" value="Reset">
</TD><TD VALIGN="CENTER">

<TABLE BORDER=1 CELLPADDING=2><TR><TD>
<A HREF=\"$Helpfile\" TARGET=\"HELP\">Help</A>
</TD></TR></TABLE>

</TD><TD VALIGN="CENTER">

</TD><TD VALIGN="CENTER">
<TABLE BORDER=1 CELLPADDING=2><TR><TD>
<A HREF=\"$Guestbook\" TARGET=\"GUEST\">Feedback&nbsp;\?</A>
</TD></TR></TABLE>

</TD></TR></TABLE>

</TD></TR></TABLE>

</FORM>
EOHM

other_progs ();

print "</BODY></HTML>";

}

######################
# Initial povray frame
######################

elsif ($page eq "Povr0") {

print "Content-TYPE: text/html\n\n";
print "";

print << "EOHP";
<HTML VERSION="2.0">
<HEAD><TITLE> molray molecular graphics web interface </TITLE></HEAD>
<BODY BGCOLOR="$bgcolour">
<CENTER><H2>POV-Ray input</H2></CENTER>
<CENTER><IMG SRC="$povray_logo"></CENTER>
<P>
<TABLE BORDER=2>
<TR><TD>
<CENTER><B>$version</B></CENTER>
</TD></TR><TR><TD>
<A HREF="http://xray.bmc.uu.se/alwyn/essentials_frameset.html/" TARGET="EXTERN">O</A>, plt_pov and molray were written at The&nbsp;Department&nbsp;of&nbsp;Cell&nbsp;and&nbsp;Molecular&nbsp;Biology, Uppsala, Sweden.
</TD></TR><TR><TD>
All ray tracing is performed by <A HREF="http://www.povray.org/" TARGET="EXTERN">POV-Ray&nbsp;&reg;</A>, written by the POV-Team.
<BR>
Spline function macros by <A HREF="http://www.geocities.com/ccolefax/spline/index.html" TARGET=EXTERN>Chis Colefax</A>.
EOHP

if ($public_flag eq "yes") {
  print << "EOHP2";
  </TD></TR><TR><TD>
  Computing power is provided by an Alpha&nbsp;500 running OSF, kindly loaned by <A HREF="http://www.compaq.com" TARGET="EXTERN">COMPAQ</A>&nbsp;&reg;.
EOHP2
}

if ($public_flag ne "noOOOO") {
  print << "EOHP2";
  </TD></TR><TR><TD>
<CENTER><B>News</B></CENTER>
  </TD></TR><TR><TD>
<BR>
<CENTER>
<A HREF="http://xray.bmc.uu.se/markh/notes/howto/molray_help.html#ADV" TARGET="HELP">New advanced movie features. 5-Feb-02</A>
<BR>
<A HREF="http://xray.bmc.uu.se/markh/notes/howto/molray_help.html#DEPTHC" TARGET="HELP">Depth cueing</A> and png support added 11-Mar-03
</CENTER>
<P>
Please let us know what you think/like/dislike about Molray.
Thanks! <A HREF="http://xray.bmc.uu.se/markh/email.html">Mail&nbsp;us</A>
<BR>&nbsp;
EOHP2
}

print << "EOHP3";
</TD></TR>
</TABLE>
</BODY></HTML>
EOHP3
}

#10-Nov-2001
#Simple support for <A HREF="http://www.avatar.se/molscript/" TARGET="EXTERN">Molscript</A> execution added. See <A HREF="http://xray.bmc.uu.se/markh/notes/howto/molray_help.html#MOLS" TARGET="EXTERN">help file</A> for details.
#<P>


#######################
# Initial result frame
#######################

elsif ($page eq "Resu0") {

print "Content-TYPE: text/html\n\n";
print "";

print << "EOHR";
<HTML VERSION="2.0">
<HEAD><TITLE> molray molecular graphics web interface </TITLE></HEAD>
<BODY BGCOLOR="$bgcolour">
<P>
<IMG SRC="$molray_logo">
<CENTER><FONT SIZE=6><B>Graphics output</B></FONT></CENTER>
<P>
</BODY></HTML>
EOHR
}

#######################
# Second  plt_pov frame
#######################

elsif ($page eq "Plpv0") {

print "Content-TYPE: text/html\n\n";
print "";

print << "EOHF";
<HTML VERSION="2.0">
<HEAD><TITLE> molray molecular graphics web interface </TITLE></HEAD>
<BODY BGCOLOR="$bgcolour">
<CENTER><FONT SIZE=6><B>Plt_pov output</B></FONT></CENTER>
<P>
<CENTER><IMG SRC="$pltpov_logo"></CENTER>
<P>
</BODY></HTML>
EOHF
}

##############################################################################
# Page 1. Runs plt_pov once and presents user with possible objects
##############################################################################

elsif ($page eq "Page1") {

# Write out uploaded file (This is rather messy. Sorry.)
#-------------------------------------------------------

$upload = "yes";

open (PLT,">$plt_infile");

$count == 1;
while ($line = <STDIN>) {

    $count++;

    if ($line =~ /Content-Disposition/) {$upload = "no"};
    if ($prev_line =~ /Content-Type: text\/html/) {$upload = "yes"};
    if ($prev_line =~ /infile/) {$upload = "yes"};

    if ($line =~ /----/) {next};
    if (length($line) == 0) {next};

    if ($getprm2 eq "yes" && length($line) > 2) {$skipsel = $line};

    $getprm2 = "no";
    if ($getprm eq "yes") {$getprm2 = "yes"};
    $getprm = "no";
    if ($line =~ /skipsel/) {$getprm = "yes"};

    if ($upload eq "yes") {print (PLT $line)};

    $prev_line = $line;
}
close(PLT);

##print "</BODY></HTML>";
##exit;

# pickup skip_selection flag from last page
#------------------------------------------

chop($skipsel);
chop($skipsel);

if ($skipsel eq "on") {
    $page = "Page2";
    goto SKIPSEL;
}

# Send HTML header
#-----------------

print "Content-TYPE: text/html\n\n";
print "";

print << "EOH1";
<HTML><HEAD>
<TITLE>Plt_pov submission form</TITLE>
</HEAD><BODY BGCOLOR="$bgcolour">
EOH1

if ($ENV{'CONTENT_LENGTH'} < 200) {
    print "<P><B>Error - empty plot file.</B><P>";
    exit;
}

# Execute plt_pov to find objects
#--------------------------------


$lst_command = "$plt_pov -mega -in=$plt_infile -out=/dev/null -list=$tmp_lstfile  > /dev/null ";

system("$lst_command");

# And look at the results dropped into the temp file
#---------------------------------------------------

open (LST,"$tmp_lstfile");
read (LST,$list_string,10000);
close(LST);

##system("rm -f $tmp_lstfile");

# Make into array
#----------------

@obj_array = split(/\n/,$list_string); 

# Make new form to select objects
#--------------------------------

print << "EOF1";

<form ACTION=\"$script_name?Page2&id=$id&frames=$frames_type\" TARGET =\"$pov_win\" METHOD=\"POST\">\n

<TABLE BORDER=2 CELLPADDING=3>


<TR>
<TD>
<CENTER><B><FONT SIZE=6>Plt_pov selection</FONT></B></CENTER>
</TD></TR>



<TR>
<TD BGCOLOR=$run_colour>

<TABLE BORDER=0 ALIGN=\"CENTER\" VALIGN=\"CENTER\">
<TR><TD VALIGN=\"CENTER\">
<input type=\"submit\" value=\"Run\">
</TD><TD VALIGN=\"CENTER\">
<input type=\"reset\" value=\"Reset\">
</TD><TD VALIGN=\"CENTER\">

<TABLE  BORDER=1 CELLPADDING=2><TR><TD>
<A HREF=\"$Helpfile\#PLTPOV\" TARGET=\"HELP\">Help</A>
</TD></TR></TABLE>
</TD></TR>
</TABLE>

<TR>

<TD VALIGN=TOP>

<B>Select objects :</B><P>
EOF1

# Make a tickbox for each object, and then some POV-Ray options
#--------------------------------------------------------------

    print "<input type=\"checkbox\" name=\"allting\" CHECKED> All objects<BR> \n";
    print "<input type=\"checkbox\" name=\"S_\"> All Stick objects<BR> \n";
    print "<input type=\"checkbox\" name=\"CPK_\"> All CPK objects<BR> \n";
    print "<input type=\"checkbox\" name=\"O\$_\"> All Cartoon objects<BR> \n";
    print "<input type=\"checkbox\" name=\"N\$_\"> All Notes objects<BR> \n";
    print "<P>";

    $icount = 0;
    foreach $obj (@obj_array) {
	$icount++;
	$objnam = $obj;
	$objnam =~ s/\&..\=/ /;
	$objnam =~ s/\(.*\)//;
	$objnam =~ s/ *//g;

	$obj =~ s/\&..\=/ /;
	$obj =~ s/  .*\(/ \(/g;
	$obj =~ s/ / <B>/;
	$obj =~ s/ \(/<\/B> \(/;

        if ($objnam eq "notobj") {next};

	print "<input type=\"checkbox\" name=\"$objnam\">$obj<BR> \n";
   }

if ($icount <= 0) {

  print "<P><B>Error - No objects found. <BR>Probably not a plot file.</B><P>";
  $disk_space = `df $scratch_dev | grep -v Mount | cut -c 42-53`;

  if ($disk_space < 100) {print "<P><B>System tmp disk seems to be full. Mail administrator.</B><P>";} 

  print "</TD></TR></TABLE>";
  exit;
}

print << "EOF17";

</TD></TR><TR><TD>\n
EOF17

if ($public_flag ne "an_unlikely_string") {
print << "EOF18";
<input type=\"checkbox\" name=\"transmap\" value=\"on\"> Transparent surfaces
<BR>
<SELECT NAME=\"depth_cue\">

<OPTION VALUE="5"> Black 
<OPTION VALUE="4"> 4 
<OPTION VALUE="3"> 3 
<OPTION VALUE="2"> 2 
<OPTION VALUE="1"> 1 
<OPTION VALUE="Off" SELECTED> Off
<OPTION VALUE="-1"> -1 
<OPTION VALUE="-2"> -2 
<OPTION VALUE="-3"> -3 
<OPTION VALUE="-4"> -4 
<OPTION VALUE="-5"> White
</SELECT>Depth&nbsp;cueing
<BR>
EOF18
}
print << "EOF19";
<!--
<input type=\"checkbox\" name=\"reset_prms\" value=\"on\"> Keep POV-Ray params
<BR>
-->

</TD></TR><TR>

<TD BGCOLOR=$run_colour>

<TABLE BORDER=0 ALIGN=\"CENTER\" VALIGN=\"CENTER\">
<TR><TD VALIGN=\"CENTER\">
<input type=\"submit\" value=\"Run\">
</TD><TD VALIGN=\"CENTER\">
<input type=\"reset\" value=\"Reset\">
</TD><TD VALIGN=\"CENTER\">

<TABLE  BORDER=1 CELLPADDING=2><TR><TD>
<A HREF=\"$Helpfile\#PLTPOV\" TARGET=\"HELP\">Help</A>
</TD></TR></TABLE>

</TD></TR></TABLE>

EOF19

print "</TD></TABLE>";

print "</FORM>\n";

print "</BODY></HTML>";

##############################################################################
# Page 2. Runs pltpov for real
##############################################################################

} elsif ($page eq "Page2") {

SKIPSEL:

# Interpret form data pairs
#--------------------------

@obj_pairs = &User_Data_Array();

$numobj = scalar(@obj_pairs);

# Step through the options. Spot special options, rest are objects
#-----------------------------------------------------------------

$cmd_string = "$plt_pov -mega -povinc=\\\"$Pov_incl_dir\\\" -obj=\\\" ";

for ($iobj=0;$iobj<$numobj;$iobj++) {

    $oname = $obj_pairs[$iobj];
    $ovalue = $obj_pairs[$iobj];

    $oname =~ s/=.*//;
    $oname =~ s/\%24/\$/;

    $ovalue =~ s/.*=//;

    if ($oname eq "plt_infile") {$plt_infile = $ovalue}
    elsif ($oname eq "tmp_lstfile") {$tmp_lstfile = $ovalue}
    elsif ($oname eq "debug") {$debug = $ovalue}
    elsif ($oname eq "transmap") {$transmap = $ovalue}
    elsif ($oname eq "reset_prms") {$reset_prms = $ovalue}
    elsif ($oname eq "depth_cue") {$depth_cue = $ovalue}

    else {

	$cmd_string = "$cmd_string $oname";

        $obj_found = "yes";
    }

}

if ($skipsel eq "on") {
    $cmd_string = "$plt_pov -mega -povinc=\\\"$Pov_incl_dir\\\" -obj=\\\"allting";
}

$depth_cue_flag = "";
if ($depth_cue ne "Off") {$depth_cue_flag = "-depth_cue = $depth_cue"};

$trans_flag = " ";
if ($transmap eq "on") {$trans_flag = "-trans"};

## BUG ? $cmd_string = "$cmd_string \\\" $trans_flag > /dev/null";
$cmd_string = "$cmd_string \\\" $trans_flag ";

$plt_string = "$cmd_string -in=$plt_infile -out=$pov_infile $depth_cue_flag -complete > /dev/null";

# Execute plt_pov
#--------------------------------

system("$plt_string");

# And look at the results dropped into the temp file
#---------------------------------------------------

open (LST,"$tmp_lstfile");
read (LST,$list_string,10000);
close(LST);

##system("rm -f $tmp_lstfile");

# Send HTML header
#-----------------

# The idea here was to leave the old table intact if 'not_reset' was chosen,
# but it seems that something has to be sent to the window specified by the form,
# and I don't know how to not trash the old page. Maybe one day.

if ($reset_prms ne "on") {

    print "Content-TYPE: text/html\n\n";
    
    print << "EOH1";
    <HTML><HEAD>
    <TITLE>POV-Ray submission form</TITLE>
    </HEAD><BODY BGCOLOR="$bgcolour">
EOH1

    if ($debug eq "on") {
	print "$plt_string <BR>";
    }
    
# Setup POV-Ray options
#----------------------

    $plt_pov_flag = "yes";

    pov_opts();
}
exit;
}

##############################################################################
# Page 3. Runs POV-Ray for anything
##############################################################################

elsif ($page eq "Page3") {

$alias      = " ";
$alias_flag = " ";
$debug      = " ";
$demo_flag  = " ";
$obj_found  = " ";

# Send HTML header
#-----------------

print "Content-TYPE: text/html\n\n";
print "";
print << "EOH2";
<TITLE>POV-Ray output</TITLE>
</HEAD><BODY BGCOLOR="$bgcolour">
<B><CENTER><FONT SIZE=6>POV-Ray output</FONT></CENTER></B>
EOH2

# Interpret form data pairs
#--------------------------

@obj_pairs = &User_Data_Array();

$numobj = scalar(@obj_pairs);

# Step through the options. Spot special options, rest are objects (Pov-Ray page)
#-----------------------------------------------------------------

##$cmd_string = "$plt_pov -obj=\\\" ";

for ($iobj=0;$iobj<$numobj;$iobj++) {

    $oname = $obj_pairs[$iobj];
    $ovalue = $obj_pairs[$iobj];

    $oname =~ s/=.*//;
    $oname =~ s/\%24/\$/;

    $ovalue =~ s/.*=//;

    if ($oname eq "plt_infile") {$plt_infile = $ovalue}
    elsif ($oname eq "width") {$width = $ovalue}
    elsif ($oname eq "cam_dist") {$cam_dist = $ovalue}
    elsif ($oname eq "quality") {$quality = $ovalue}
    elsif ($oname eq "alias") {$alias = $ovalue}
    elsif ($oname eq "stereo") {$stereo = $ovalue}
    elsif ($oname eq "perspective") {$perspective = $ovalue}
    elsif ($oname eq "perspangle") {$perspangle = $ovalue}
    elsif ($oname eq "demo_flag") {$demo_flag = $ovalue}
    elsif ($oname eq "debug") {$debug = $ovalue}
    elsif ($oname eq "monitor") {$monitor = $ovalue}
    elsif ($oname eq "blackground") {$blackground = $ovalue}
    elsif ($oname eq "shadowless") {$shadowless = $ovalue}
    elsif ($oname eq "transparent") {$transparent = $ovalue}
    elsif ($oname eq "map_thick") {$map_thick = $ovalue}
    elsif ($oname eq "texture") {$texture = $ovalue}
    elsif ($oname eq "walldist") {$walldist = $ovalue}
    elsif ($oname eq "transmap") {$trans_map_val = $ovalue}
    elsif ($oname eq "mail_flag") {$mail_flag = $ovalue}
    elsif ($oname eq "mail_addr") {$mail_addr = $ovalue}
    elsif ($oname eq "tmp_lstfile") {$tmp_lstfile = $ovalue}
    elsif ($oname eq "xtrans") {$xtrans = $ovalue}
    elsif ($oname eq "ytrans") {$ytrans = $ovalue}
    elsif ($oname eq "ztrans") {$ztrans = $ovalue}
    elsif ($oname eq "xrot") {$xrot = $ovalue}
    elsif ($oname eq "yrot") {$yrot = $ovalue}
    elsif ($oname eq "zrot") {$zrot = $ovalue}
    elsif ($oname eq "Rmap") {$Rmap = $ovalue}
    elsif ($oname eq "Gmap") {$Gmap = $ovalue}
    elsif ($oname eq "Bmap") {$Bmap = $ovalue}
    elsif ($oname eq "mapcol") {$mapcol = $ovalue}
    elsif ($oname eq "Rback") {$Rback = $ovalue}
    elsif ($oname eq "Gback") {$Gback = $ovalue}
    elsif ($oname eq "Bback") {$Bback = $ovalue}
    elsif ($oname eq "backcol") {$backcol = $ovalue}
    elsif ($oname eq "stereo_sep") {$stereo_sep = $ovalue}
    elsif ($oname eq "plt_pov_flag") {$plt_pov_flag = $ovalue}
    elsif ($oname eq "aspect_ratio") {$aspect_ratio = $ovalue}
    elsif ($oname eq "id2") {$id2 = $ovalue}
    else {

    }

}

# decode slashes in plt_filename, manipulate other params
#--------------------------------------------------------

$plt_infile =~ s/%2F/\//g;
$tmp_lstfile =~ s/%2F/\//g;

if ($width > $limit_pixels) {
  $width = $limit_pixels;
  $too_wide_flag = "yes";
}

$height = $width;
if ($aspect_ratio ne "") {$height = int($width/$aspect_ratio)};

if ($alias eq "on") {$alias_flag = "+a"};
if ($thumb_size > $width) {$thumb_size = $width};

# add local pid to final image name to avoid caching problem
#-----------------------------------------------------------

#$pov_infile =~ s/\.([^.]*$)/$$\.$1/;
$pov_outfile =~ s/\.([^.]*$)/$$.$1/;
$jpeg_outfile =~ s/\.([^.]*$)/$$\.$1/;
$rgb_outfile =~ s/\.([^.]*$)/$$\.$1/;
$gif_outfile =~ s/\.([^.]*$)/$$\.$1/;
$gif_thumbfile =~ s/\.([^.]*$)/$$\.$1/;
$tiff_outfile =~ s/\.([^.]*$)/$$\.$1/;
$png_outfile =~ s/\.([^.]*$)/$$\.$1/;
$idd = $id.$$;

# Assemble command strings
#=========================

if ($transmap eq "on") {$cmd_string = "$cmd_string -trans "};

$filter_string = " ";
$transp_string = " ";
$mail_string   = " ";

# Assemble sed commands
#======================================================================

# Start sed filter command
#-------------------------

$filter_string = "cat $pov_infile  ";

if ($cam_dist ne "From file") {
    $filter_string = "$filter_string | sed /\"Mray_CamDist\"/s/\\^\\.\\*/\"\#declare Camera_Distance \= $cam_dist \\;                 \\/\\/Mray_CamDist\"/";
}

if ($blackground eq "on") {
    $filter_string = "$filter_string | sed /\"Mray_Bgrnd\"/s/\\^\\.\\*/\"background \\{Black\\}\"/";
}

if (defined $map_thick) {
    $filter_string = "$filter_string | sed /\"Mray_LinWid\"/s/\\^\\.\\*/\"#declare Line_Width = $map_thick;                      \\/\\/Mray_LinWid \"/";
    $dot_thick = $map_thick*2;
    $filter_string = "$filter_string | sed /\"Mray_HbDot\"/s/\\^\\.\\*/\"#declare Hb_Dot_Size = $dot_thick;                      \\/\\/Mray_HbDot \"/";
}

    $filter_string = "$filter_string | sed /\"Mray_WallDist\"/s/\\^\\.\\*/\"#declare Wall_Dist = -$walldist \\; \\/\\/Mray_WallDist\"/";

if ($texture eq "Plain") {
    $filter_string = "$filter_string | sed /\"Mray_Plane\"/s/\\^\\.\\*/\"plane \\{z, Wall_Dist pigment \\{color rgb \\<$Rback $Gback $Bback\\> \\}\\} \\/\\/Mray_Plane \"/";

} elsif ($texture ne "None") {
    $filter_string = "$filter_string | sed /\"Mray_Plane\"/s/\\\\/\\\\/\\\\/\\\\///";
    $filter_string = "$filter_string | sed /\"Mray_Plane\"/s/White_Marble/$texture/";
}

if ($shadowless eq "on") { 
    $filter_string = "$filter_string | sed /\"Mray_Light\"/s/\\}/\" shadowless \\}\"/";
}
if (defined $trans_map_val) { 
    $filter_string = "$filter_string | sed /\"Mray_MapT\"/s/0.5/$trans_map_val/";
}

if ($stereo eq "on") { 
    $filter_string = "$filter_string | sed /\"Mray_SterOn\"/s/\\^\\.\\*/\"#declare Stereo_On = yes        \\/\\/Mray_SterOn\"/";
    $filter_string = "$filter_string | sed /\"Mray_Lcol1\"/s/\\^\\.\\*/\"#declare lcol1 = color red 0.5 green 0.5 blue 0.5       \\/\\/Mray_Lcol1\"/";
    $filter_string = "$filter_string | sed /\"Mray_Lcol2\"/s/\\^\\.\\*/\"#declare lcol2 = color red 0.25 green 0.25 blue 0.25   \\/\\/Mray_Lcol2\"/";

}

if ($perspective eq "on") { 
    $filter_string = "$filter_string | sed /\"Mray_Ortho\"/s/\\^\\.\\*/\"angle $perspangle             \\/\\/Mray_Ortho\"/";
} else {
    $filter_string = "$filter_string | sed /\"Mray_Ortho\"/s/\\^\\.\\*/\"orthographic                     \\/\\/Mray_Ortho\"/";
}

# Start sed transform command
#----------------------------

$transform_string = "cat $pov_tmpfile  ";

$transform_string = "$transform_string | sed /\"Mray_Xtrans\"/s/\\^\\.\\*/\"translate x\*$xtrans        \\/\\/Mray_Xtrans\"/"; 

$transform_string = "$transform_string | sed /\"Mray_Ytrans\"/s/\\^\\.\\*/\"translate y\*$ytrans        \\/\\/Mray_Ytrans\"/"; 

$transform_string = "$transform_string | sed /\"Mray_Ztrans\"/s/\\^\\.\\*/\"translate z\*$ztrans        \\/\\/Mray_Ztrans\"/"; 

$transform_string = "$transform_string | sed /\"Mray_Xrot\"/s/\\^\\.\\*/\"rotate x\*$xrot        \\/\\/Mray_Xrot\"/"; 

$transform_string = "$transform_string | sed /\"Mray_Yrot\"/s/\\^\\.\\*/\"rotate y\*$yrot        \\/\\/Mray_Yrot\"/"; 

$transform_string = "$transform_string | sed /\"Mray_Zrot\"/s/\\^\\.\\*/\"rotate z\*$zrot        \\/\\/Mray_Zrot\"/"; 

$transform_string = "$transform_string | sed /\"Mray_SterSep\"/s/\\^\\.\\*/\"#declare Sep_Stereo \= $stereo_sep\;        \\/\\/Mray_SterSep\"/"; 


# Start sed colour command for map
#---------------------------------

$colour_string = "cat $pov_tmpfile  ";

if ($mapcol eq "on") {

    $colour_string = "$colour_string | sed /rgbt\\.\\*Plastic_Lines/s/rgbt\\.\\*Trans/\"rgbt  \\<$Rmap $Gmap $Bmap Trans\"/"; 

    $colour_string = "$colour_string | sed /rgb[\\^t\\]\\.\\*Plastic_Lines/s/rgb\\.\\*\\>/\"rgb  \\<$Rmap $Gmap $Bmap\\>\"/"; 
 
     $colour_string = "$colour_string | sed /rgbt\\.\\*Plastic_Maps/s/rgbt\\.\\*Trans/\"rgbt  \\<$Rmap $Gmap $Bmap Trans\"/"; 

     $colour_string = "$colour_string | sed /rgb[\\^t\\]\\.\\*Plastic_Maps/s/rgb\\.\\*\\>/\"rgb  \\<$Rmap $Gmap $Bmap\\>\"/"; 

}

# sed command for metallic colours (red value greater than 1.0)
#--------------------------------------------------------------

$colour_string = "$colour_string | sed /'rgbt* *< *1.[^0][^0]'/s/Plastic/Metallic/";
$colour_string = "$colour_string | sed /'rgbt* *< *1.[^0][^0]'/s/'rgbt* *< *'/\\&666/";
$colour_string = "$colour_string | sed /'rgbt* *< *6661'/s/6661./0./";


# And for background (overridden by texture)
#-------------------------------------------

$colour_string = "$colour_string | sed /\"Mray_Bgrnd\"/s/\\^\\.\\*/\"background \\{color rgb \\<$Rback $Gback $Bback\\>\\}            \\/\\/Mray_Bgrnd\"/";      
$Rbacko = int($Rback*255);
$Gbacko = int($Gback*255);
$Bbacko = int($Bback*255);

### Agghh. I was hoping to set the transparent-gif key colour to background colour here
### but since POV-Ray expresses colours as floats, it is hard to predict the integer
### RGBs that will result, and so we can't trust them for key colour later. Pity.
### So we always antialias against white, and the next line shouldn't be uncommented.
###$transgif_prms = " -rgb $Rbacko $Gbacko $Bbacko";


if ($transparent eq "on" && (-x $transgif_prog)) {
    $filter_string = "$filter_string | sed /\"Mray_Bgrnd\"/s/\\^\\.\\*/\"background \\{Very_Light_Purple\\}                      \\/\\/Mray_Bgrnd\"/";
    $transp_string = "$transgif_prog $transgif_prms -o $scratchfile $gif_outfile; cp $scratchfile  $gif_outfile; $transgif_prog $transgif_prms -o $scratchfile $gif_thumbfile ; cp $scratchfile  $gif_thumbfile";
}

# Calculate tga file size
#-------------------------

$pred_file_size = $width * $height * 3;

# Set batch flag
#---------------
 
if ($mail_flag eq "on" && index($remote_cmd,"qsub") != -1) {
 $batch_flag = "Batch";
} else {
  $batch_flag = "Online";
}
$frame_start = 0;
$frame_end = 0;

# Tell trustees where to find file
#---------------------------------
		      
    $gif_outurl = $gif_outfile;
    $gif_outurl =~ s#$scratch_dev/#$scratch_url/#;
    if (($Trusted_flag eq "yes") || ($public_flag ne "yes")) {
    print "<A HREF=\"$gif_outurl\" TARGET=\"NEW\">$gif_outurl</A><BR>";
  } 

# Check out how busy machine is
#------------------------------

if ($batch_flag eq "Online") {

  $job_count_string = `ps aux | grep povray | grep -v grep | wc`;
  $job_count_string =~ s/.\s*//;
  ($job_count,)  = split(/\s+/,$job_count_string,2);
  
  print "<BR>Number of other POV-Ray jobs running  : $job_count<BR>\n";

# Abort if too many other jobs, and log
  if ($job_count > $limit_other_jobs) {
    print "<P>Error - Server is overloaded, please try later....";

    open (LOG,">>$Overloadlog");
    $string = sprintf("%5d %2s%1d %2s %3s %21s %s\n",$width,"+q",$quality,$alias_flag," ",$date,$ENV{'REMOTE_HOST'});
    print (LOG $string);
    close (LOG);
    
    exit;
  }

}

# Log still usage
#----------------

$mail_addr =~ s/\%40/\@/;
if (!$mrh_flag) {
  open (LOG,">>$Usagelog");
  $string = sprintf("%5d %2s%1d %2s %3s %21s %s %s %s %d\n",$width,"+q",$quality,$alias_flag," ",$date,$ENV{'REMOTE_HOST'},$mail_addr,"     ",$job_count);
  print (LOG $string);
}
close (LOG);


# Make equivalent URL for output file (repeated below)
# ----------------------------------------------------
$pov_outurl = $pov_outfile;
$pov_outurl =~ s#$scratch_dev/#$scratch_url/#;

# Arrange for mailing if chosen
#------------------------------

$| = 1;

if ($mail_flag eq "on") { 

    chmod (0777, $mail_file);
    open (CSH,">$mail_file");

    print (CSH "Subject: Molray image results\n");
    print (CSH "From: Stills\@molray.com\n");

    print (CSH "Your POV-Ray output files will be available for some time at :\n\n");

    $pov_outurl = $pov_outfile;
    $pov_outurl =~ s#$scratch_dev/#$scratch_url/#;
    print (CSH "TGA  : $pov_outurl\n");

    $pov_outurl = $gif_outfile;
    $pov_outurl =~ s#$scratch_dev/#$scratch_url/#;
    print (CSH "GIF  : $pov_outurl\n");

    $pov_outurl = $jpeg_outfile;
    $pov_outurl =~ s#$scratch_dev/#$scratch_url/#;
    print (CSH "JPEG : $pov_outurl\n");

    $pov_outurl = $rgb_outfile;
    $pov_outurl =~ s#$scratch_dev/#$scratch_url/#;
    print (CSH "RGB  : $pov_outurl\n");

    $pov_outurl = $tiff_outfile;
    $pov_outurl =~ s#$scratch_dev/#$scratch_url/#;
    print (CSH "TIFF : $pov_outurl\n");

    $pov_outurl = $png_outfile;
    $pov_outurl =~ s#$scratch_dev/#$scratch_url/#;
    print (CSH "PNG : $pov_outurl\n");

    $pov_outurl = $pov_tmpfile;
    $pov_outurl =~ s#$scratch_dev/#$scratch_url/#;
    print (CSH "POV-Ray input file : $pov_outurl\n");

    close(CSH);

    $mail_addr =~ s/\%40/\@/;
    $mail_string = "/usr/bin/mail $mail_addr < $mail_file";
    $fail_string = "/usr/bin/Mail -s \"Molray job failed\" $mail_addr < $mail_file";
    $exe_cmd = $remote_cmd;

} else {
    print "Your results are on their way....<BR>";
}

  if ($too_wide_flag eq "yes") {print "<B>Warning, your illegally-wide image has been
shrunk down to ".$width." pixels</B><BR>"};

$| = 0;

# End sed commands
#------------------

$filter_string = "$filter_string > $scratchfile ; cp $scratchfile $pov_tmpfile";

$transform_string = "$transform_string > $scratchfile ; cp $scratchfile $pov_tmpfile";

$colour_string = "$colour_string > $scratchfile ; cp $scratchfile $pov_tmpfile";

#$pov_string = "$povray +ft +i $pov_tmpfile +o $pov_outfile +w$width +h$height +q$quality $alias_flag >& $pov_lstfile";
$pov_string = "$povray +ft +i $pov_tmpfile +o $pov_outfile +w$width +h$height +q$quality $alias_flag";

$geom = $thumb_size."x".$thumb_size;

$convert_string = "$tga_to_other -quality 90 $pov_outfile $jpeg_outfile ; $tga_to_other $pov_outfile $rgb_outfile ; $tga_to_other -geometry $geom $pov_outfile $gif_thumbfile ; $tga_to_other  $pov_outfile $tiff_outfile ; $tga_to_png  $pov_outfile $png_outfile ; $tga_to_other $pov_outfile $gif_outfile";

$tidy_string = "rm -f $tmp_lstfile";

$cmd_string = "$plt_string; $pov_string; $tidy_string $tmp_cshfile";

$final_tidy = "rm -f $scratch/tmpp$id* $scratch/tmpp$id* *.GIF";

# Write out still commands to shell script
#-----------------------------------------

    chmod (0777, $tmp_cshfile);
    open (CSH,">$tmp_cshfile");
    print (CSH "#!/bin/tcsh -f\n");
    print (CSH "set echo\n");

if ($public_flag ne "yesORnoDISABLED") {
    print (CSH "limit datasize unlimited \n");
    print (CSH "limit memoryuse unlimited \n");
#    print (CSH "limit vmemoryuse unlimited \n");
  }
    #print (CSH "cp $pov_inc/*.inc ./\n");

    print (CSH "##Mray_batch cp movie.pov $pov_infile\n");
    print (CSH "#\n$filter_string\n");
    print (CSH "#\n$transform_string\n");
    print (CSH "#\n$colour_string\n");
    print (CSH "#\n$pov_string\n");
    print (CSH "#\n$convert_string\n");
    print (CSH "#\n$transp_string\n");
    print (CSH "#\nif -r $pov_outfile then\n");
    print (CSH "  $mail_string\n");
    print (CSH "else\n");
    print (CSH "  $fail_string\n");
    print (CSH "  unset echo\n");
    print (CSH "  set err = \`grep \"Out of memory\"  $tmp_logfile\`\n");
    print (CSH "  if (\! \$status) touch $outofmem_file\n");
    print (CSH "  set echo\n");
    print (CSH "  $fail_string\n");
    print (CSH "endif\n");
    print (CSH "#\n$tidy_string\n");
    if (($mrh_flag ne "yes_anything") && ($gunnar_flag ne "yes")) {
      print (CSH "csh\n");
      print (CSH "echo $final_tidy | at now + $tidy_time minutes\n");
    }
    close(CSH);
    chmod (0511, $tmp_cshfile);

if ($debug eq "on") {
print "<HR>";
open (CSH,"$tmp_cshfile");
while ($line = <CSH>) {
	print "$line <BR>";
}
close(CSH);
#print "<P><B>Exec command debug</B> : <BR>";
#print "%$plt_string<BR>%$filter_string<BR>%$pov_string<BR>%$transp_string<BR>%$convert_string<BR>%$transp_string<BR>%$tidy_string<P>";
print "<HR>";
}

# create file containing process kill command
  system("echo \"ps -jea | grep povray | grep $client | grep $id | grep -v grep | awk '{print \\\$2 \\\" \\\" \\\$3}'  | xargs kill -9 \"  > $kill_cshfile"); 

# Check Povray is really running
if (! -x $povray) {
    print "Demo image due to POV-Ray missing<BR><IMG SRC=\"$demo_image\" ALIGN=TOP></BODY></HTML>\n";
    exit;
}

# Run the programs
#-----------------

      if ($monitor eq "on") {MonitorGrowth($pov_outfile, $pred_file_size, $pov_outurl, $batch_flag, $frame_start, $frame_end)};

    if ($batch_flag eq "Batch") { 

      if ($debug eq "on") {
	print "<HR>";
	print "<BR>$exe_cmd $tmp_cshfile 2> $tmp_logfile<BR>\n";
      }

      system("$exe_cmd $tmp_cshfile 2> $tmp_logfile");

    } else {

      system("$exe_cmd $tmp_cshfile 2> $tmp_logfile");
    }

    if ($mail_flag eq "on") {
	print "<BR>The location of your output will be mailed to you.<BR></BODY></HTML>";
	exit;
    } 

    if (! -e $pov_tmpfile) {
	print "No POV-Ray input file<BR>";
	print "Failure during pre-processing<BR>";
	print "<P>Check out the <A HREF=\"$tmp_logfile\" TARGET=\"LOG\">log file</A><P>";
	exit;
    } elsif (-z $pov_tmpfile) {
	print "Empty POV-Ray input file<BR>";
	print "Failure probably during sed operations<BR>";
	print "<P>Check out the <A HREF=\"$tmp_logfile\" TARGET=\"LOG\">log file</A><P>";
	exit;
    }

    if (-e $pov_outfile && (! -e $gif_outfile)) {
      print "<P>Conversion of your targa file failed (too&nbsp;big&nbsp;?)";
      print "<BR>Pick up the <A HREF=\"$pov_outfile\">Targa file</A> and convert it elsewhere.<P>";
    }

    if (! -e $pov_outfile) {
	print "No output TARGA file<BR>";
	print "Failure probably before/during POV-Ray execution<BR>";
##	exit;
	if (-e $outofmem_file) {
	  print "<P><B>Ran out of memory - plot is too complex<B><BR>";
	  system ("rm $outofmem_file");
	} else {
	  print "<P>Check out the <A HREF=\"$tmp_logfile\" TARGET=\"LOG\">log file</A><P>";
	}
    } elsif (-z $pov_outfile) {
	print "Empty TARGA file<BR>";
	print "Failure probably during POV-Ray execution<BR>";
	print "<P>Check out the <A HREF=\"$tmp_logfile\" TARGET=\"LOG\">log file</A><P>";

	print << "EOF38";
	<P>
	<TABLE>
	<TD>
	<A HREF=\"$pov_tmpfile\">POV</A>
	</TD><TD>
	<A HREF=\"$tmp_cshfile\">CSH</A>
	</TD>
        </TABLE>
EOF38
	exit;
    }

# Write some blurb
#-----------------

print << "EOF3";

<!--
## It would be nice to restart page here, but I don't know how.
##</BODY></HTML>
##Content-TYPE: text/html\n\n
##<HTML><HEAD>
##</HEAD><BODY BGCOLOR="$bgcolour">
-->

<IMG SRC=\"$gif_thumbfile\" ALIGN=TOP>\n
<P>

<TABLE BORDER=3 CELLPADDING=3>
<TR><TD COLSPAN=2>
Output files :
</TD>
EOF3

print << "EOF344";
<TD><A HREF="$Helpfile\#RESULTS" TARGET="HELP">Help</A></TD>
EOF344

if ($plt_pov_flag eq "yes") {
  print "<TD COLSPAN=3><A HREF=\"$script_name?Movi1&id=$id\" TARGET=\"$ani_win\">Make movie</A></TD></TR>"
}

print << "EOF37";
<TR>
<TD>
<A HREF=\"$gif_outfile\" TARGET=\"$big_win\">GIF</A>
</TD><TD>
<A HREF=\"$jpeg_outfile\" TARGET=\"$big_win\">JPEG</A>
</TD><TD>
<A HREF=\"$tiff_outfile\" TARGET=\"$big_win\">TIFF</A>
</TD><TD>
<A HREF=\"$png_outfile\" TARGET=\"$big_win\">PNG</A>
</TD><TD>
<A HREF=\"$rgb_outfile\" TARGET=\"$big_win\">RGB</A>
</TD>
EOF37

print << "EOF38";
<TD>
<A HREF=\"$pov_tmpfile\">POV</A>
</TD>
</TR>
EOF38

print "</TR></TABLE></BODY></HTML>";

# Some more tidying. BUG, won't return....
#------------------

$final_tidy = "rm -f $scratch/tmpp$id* $scratch/tmpp$id* *.GIF";

if (($mrh_flag ne "yes") && ($gunnar_flag ne "yes")) {
  system("echo $final_tidy | at now + $tidy_time minutes");
}

}
###############################################################################
# Page Mols1. Runs Molscript
###############################################################################

elsif ($page eq "Mols1") {

$cam_dist =      "100.0";

# Send HTML header
#-----------------

print "Content-TYPE: text/html\n\n";
print "";

print << "EOH11";
<HTML><HEAD>
<TITLE>Molscript POV-Ray</TITLE>
</HEAD><BODY BGCOLOR="$bgcolour">
<B><H2>Molscript POV-Ray</H2></B>
EOH11

# Write out uploaded file
#------------------------

if ($ENV{'CONTENT_LENGTH'} < 200) {
    print "<P>Error - empty molscript file.<P>";
    exit;
}

open (MLS,">$mls_infile");
open (PDB,">$pdb_infile");

$count = 1;
while ($line = <STDIN>) { # Read through file again to get everything else
  $count++;
  if ($count < 4) {next};
  if ($line =~ /----/) {next};
  
  $line =~ s/^ +//; # Remove leading spaces
    
    if ($line =~ /pdbfile/) { # Note when PDB file starts, and extract name
      $pdb_flag = 1;
      $pdb_name = $line;
      $pdb_name =~ s/^.*filename="//;
      $pdb_name =~ s/".*$//;
    };
  
  if ($line =~ /Content-/) {next}; # Skip headers
  
  if ($line =~ /^\s*read\smol /) { # Play with filename in molscript file
    $line =~ s/"/"$scratch\/tmpp$id\_/; # Append process id
    $linec = $line;
  };
  
  if ($line =~ /^\s*area/) { # Play with areas
    $t = substr($line,5);
    @geom = split(/ /,substr($line,5));
    $aspect_ratio = ($geom[3]-$geom[1])/($geom[2]-$geom[0]);
  };
  
  if (!$pdb_flag) {
    print (MLS $line); # First (Molscript) file
  } else {
    print (PDB $line); # Second (PDB) file
  }
}

close(MLS);
close(PDB);

# Create command strings
#-----------------------

# Fix up Windows crap
$newinfile = $pdb_name;
$newinfile =~ s/^.*(NTNT)/$1/; # filename is prefixed with NTNT to cope with NT

$oldfile = "$scratch/tmpp$id\_$pdb_name";
$newfile = "$scratch/tmpp$id\_$newinfile";
chomp($oldfile);

$wind_command = "mv $oldfile $newfile"; # remove windows crap
#print "$cmd <BR>";
#system("$windcmd");

# NB We alternate filenames here. Need copy for even number of lines

$mols_command0 = "mv $pdb_infile $scratch/tmpp$id\_$pdb_name";
$mols_command = "$molscript -povray < $mls_infile > $pov_infile";
#$mols_command2 = "rm $scratch/tmpp$id\_$pdb_name";

$mols_string1 = "cat $pov_tmpfile > $pov_infile";
# Disabling this until I can extract real camera distance
#$mols_string1 = "cat $pov_tmpfile | sed /camera/s/\"100.00\"/\"Camera_Distance \"/ > $pov_infile";

$mols_string2 = "cat $pov_infile | sed /background/s/\\}/\"\\} \\/\\/ Mray_Bgrnd\"/ > $pov_tmpfile ";

$mols_string3 = "cat $pov_tmpfile | sed /background/s/\"0.000\"/\"1.0\"/g > $pov_infile ";

$mols_string4 = "cat $pov_infile | sed /light_source/s/\"rgb .5\"/\"rgb 1.0\"/g > $pov_tmpfile ";

$mols_string5 = "cat $pov_tmpfile | sed /\"right x }\"/s/\"right x\"/\"right x orthographic\"/g > $pov_infile ";

$mols_string6 = "cat $pov_infile | sed /RFont/s/timrom/\\\\/home\\\\/markh\\\\/povray\\\\/timrom/g > $pov_tmpfile ";

$mols_string7 = "cat $pov_tmpfile | sed /GFont/s/symbol/\\\\/home\\\\/markh\\\\/povray\\\\/symbol/g > $pov_infile ";

#$mols_string7 = "cat $pov_tmpfile > $pov_infile ";


# Execute script
#---------------

chmod (0777, $tmp_cshfile);
open (CSH,">$tmp_cshfile");
print (CSH "#!/bin/tcsh -f\n");
print (CSH "#set echo\n");
print (CSH "$mols_command0\n");
print (CSH "$wind_command\n");
print (CSH "$mols_command\n");
print (CSH "cat << EOF | cat - $pov_infile > $pov_tmpfile\n");
print (CSH "#declare Camera_Distance = 100.0 //Mray_CamDist\n");
print (CSH "#\n");
print (CSH "EOF\n");
print (CSH "$mols_string1\n");
print (CSH "$mols_string2\n");
print (CSH "$mols_string3\n");
print (CSH "$mols_string4\n");
print (CSH "$mols_string5\n");
print (CSH "$mols_string6\n");
print (CSH "$mols_string7\n");
##print (CSH "cp $pov_tmpfile $pov_infile \n");
close(CSH);
chmod (0511, $tmp_cshfile);

system("$tmp_cshfile 2> $tmp_logfile");

# Setup POV-Ray options
#----------------------

pov_opts();

}

###############################################################################
# Page Gras1. Runs Grasp surfout
###############################################################################

elsif ($page eq "Gras1") {

# Send HTML header
#-----------------

print "Content-TYPE: text/html\n\n";
print "";

print << "EOH11";
<HTML><HEAD>
<TITLE>Grasp POV-Ray</TITLE>
</HEAD><BODY BGCOLOR="$bgcolour">
<B><H2>Grasp POV-Ray</H2></B>
EOH11

# Write out uploaded file
#------------------------

if ($ENV{'CONTENT_LENGTH'} < 200) {
    print "<P>Error - empty grasp file.<P>";
    exit;
}

open (GRS,">$grs_infile");

$count == 1;
while ($line = <STDIN>) {
    $count++;
    if ($count < 4) {next};
    if ($line =~ /----/) {next};
	print (GRS $line);
}

close(GRS);

# Execute surfout via shell script
#---------------------------------

$grs_string = "$surfout $grs_infile";

chmod (0777, $tmp_cshfile);
open (CSH,">$tmp_cshfile");
print (CSH "#!/bin/tcsh -f\n");
print (CSH "$grs_string\n");
print (CSH "povray3\n");
print (CSH "$pov_infile");
close(CSH);
chmod (0511, $tmp_cshfile);

system("$tmp_cshfile 2> $tmp_logfile");

# Offer POV-Ray input file
#-------------------------

print "<BR><TABLE BORDER=2><TR><TD><A HREF=\"$pov_infile\">POV-Ray input file here</A></TR></TD></TABLE><P>";

# Setup POV-Ray options
#----------------------

pov_opts();

}

###############################################################################
# Page Ligp1. Runs Ligplot
###############################################################################

elsif ($page eq "Ligp1") {

# Send HTML header
#-----------------

$| = 1;

print "Content-TYPE: text/html\n\n";
print "";

print << "EOH11";
<HTML><HEAD>
<TITLE>Ligplot</TITLE>
</HEAD><BODY BGCOLOR="$bgcolour">
<B><H2>Ligplot output</H2></B>
Your output is on its way...
<P>
EOH11

# Write out uploaded file, and look for resnum tagged on end
#-----------------------------------------------------------

if ($ENV{'CONTENT_LENGTH'} < 200) {
    print "<P>Error - empty PDBank file.<P>";
    exit;
}

$upload = "yes";

open (LPT,">$lpt_infile");

$count == 1;
while ($line = <STDIN>) {
    $count++;
    if ($count < 4) {next};
    if ($line =~ /----/) {next};
    if ($line =~ /Content-Disposition/) {$upload = "no"};
    if ($upload eq "yes") {print (LPT $line)};
    $prev_line = $line;
}

close(LPT);

if ($count < 12) {
	print "Warning - Tiny PDB file.<BR>";
	print "Probably didn't really exist...<P>";
	exit;
}

$| = 0;

# pickup resnum from last line of file and remove embedded CR
#------------------------------------------------------------

$resnum =  $prev_line;
chop($resnum);
chop($resnum);
$resnum =~ s/-/ /;
$resnum =~ s/:/ /;

$lpt_infile =~ s/$scratch_dev\/$client\///;
$tmp_lstfile =~ s/$scratch_dev\/$client\///;
$lpt_outfile =~ s/$scratch_dev\/$client\///;

# Execute ligplot via shell script
#---------------------------------

$lpt_string = "$ligplot $lpt_infile $resnum > $tmp_lstfile";

$final_tidy = "rm -f $scratch/*.log $scratch/ligplot*";

if (($mrh_flag ne "yes") && ($gunnar_flag ne "yes")) {
  system("echo $final_tidy | at now + $tidy_time minutes");
}

chmod (0777, $tmp_cshfile);
open (CSH,">$tmp_cshfile");
print (CSH "#!/bin/tcsh -f\n");
print (CSH "set echo\n");
print (CSH "cd $scratch_dev\/$client\n");
print (CSH "rm $lpt_outfile\n");
print (CSH "setenv ligdir $ligplotdir ; setenv hbdir $ligplotdir\n");
print (CSH "$lpt_string\n");
print (CSH "cp ligplot.ps $lpt_outfile ; rm ligplot.ps\n");
#print (CSH "convert ligplot.ps $lpt_outfile \n");
print (CSH "$final_tidy\n");
close(CSH);
chmod (0511, $tmp_cshfile);

system("$tmp_cshfile 2> $tmp_logfile");

    if (! -e "$scratch_dev/$client/$lpt_outfile") {
	print "No PostScript output file<P>";
	print "Failure during processing, check ligand residue numbers exists.<BR>";
	exit;
    }

# Offer Postscript file
#-------------------------

print "<BR><TABLE BORDER=2><TR><TD><A HREF=\"$scratch_dev/$client/$lpt_outfile\">Ligplot output PS file</A></TR></TD></TABLE><P>";

#print "<BR><TABLE BORDER=2><TR><TD><IMG SRC="$lpt_outfile"><A HREF=\"$scratch_dev/$client/$lpt_outfile\">Ligplot output PS file</A></TR></TD></TABLE><P>";

}

###############################################################################
# Page Scri1. Reads POV-Ray file directly
###############################################################################

elsif ($page eq "Scri1") {

# Send HTML header
#-----------------

print "Content-TYPE: text/html\n\n";
print "";

print << "EOH12";
<HTML><HEAD>
<TITLE>Direct POV-Ray input</TITLE>
</HEAD><BODY BGCOLOR="$bgcolour">
EOH12

# Write out uploaded file
#------------------------

if ($ENV{'CONTENT_LENGTH'} < 200) {
    print "<P>Error - empty POV-Ray file.<P>";
    exit;
}

open (PIN,">$pov_infile");

$count == 1;
while ($line = <STDIN>) {
    $count++;
    if ($count < 4) {next};
    if ($line =~ /----/) {next};
    print (PIN $line);
    if ($line =~ /Mray/) {$plt_pov_flag = "yes"}
}

close(PIN);

# Setup POV-Ray options
#----------------------

pov_opts();

##############################################################################
# Movi1 Sets up movie
##############################################################################

} elsif ($page eq "Movi1") {

$def_yrot_start = -20.0;
$def_yrot_end = 20.0;

# Send HTML header
#-----------------

print "Content-TYPE: text/html\n\n";

print << "EOH99";
<TITLE>Movie Setup</TITLE>
</HEAD><BODY BGCOLOR="$bgcolour">
EOH99

# Find any morph frames to set default steps, and check for orthographic set on
#------------------------------------------------------------------------------

$morph_flag = "no";
$ortho_flag = "no";
$perspangle_flag = "no";

$perspective_checked = "CHECKED";

open (POV,"$pov_tmpfile");
while ($line = <POV>) {

    if ($line =~ /Mray_FM/) {
	($def_steps) = $line =~ /FM.*fm(.{1,2}).*$/;
	$morph_flag = "yes";
    }

    if ($line =~ /orthographic/) {
      $ortho_flag = "yes";
      $perspective_checked = " ";
    }

    if ($line =~ /Mray_Ortho/) {
      if ($line =~ /angle/) {
	$perspangle_flag = "yes";
      }
    }

}

close(POV);

$rock_checked = "CHECKED";
$pendulum_checked = "CHECKED";

if ($morph_flag eq "yes") {
    $def_yrot_start = "0.0";
    $def_yrot_end = "0.0";
    $rock_checked = " ";
    $pendulum_checked = " ";
}

print << "EOH100";

<form ACTION=\"$script_name?Movi2&id=$id&frames=$frames_type\" TARGET =\"$mov_win\" METHOD=\"POST\" NAME=\"movieform\">\n

<TABLE BORDER=1 CELLPADDING=3>
<TR><TD VALIGN=TOP>
<CENTER><B><FONT SIZE=6>Movie Params</FONT></B></CENTER>
</TD></TR>

EOH100

if ($mrh_flag eq "yes" || $mrh_flag ne "yes") {
  print "<TR><TD><CENTER><A HREF=\"$pov_tmpfile\">In-going POV-Ray input file here</A></CENTER></TR></TD>";
}

if (! -x $animgif_prog) {
    print "Warning : $animgif_prog program missing\n";
    exit;
}
print << "EOH110";

<TR><TD>
Translation :
<BR>
X
<input type=\"text\" name=\"xtrans0\" value="0.0" SIZE=5> 
Y
<input type=\"text\" name=\"ytrans0\" value="0.0" SIZE=5> 
Z
<input type=\"text\" name=\"ztrans0\" value="0.0" SIZE=5> 
Start
<BR>
X
<input type=\"text\" name=\"xtrans\" value="0.0" SIZE=5> 
Y
<input type=\"text\" name=\"ytrans\" value="0.0" SIZE=5> 
Z
<input type=\"text\" name=\"ztrans\" value="0.0" SIZE=5> 
End

</TD></TR>
<TR><TD>
Rotation :
<BR>
X
<input type=\"text\" name=\"xrot0\" value="0.0" SIZE=5> 
Y
<input type=\"text\" name=\"yrot0\" value="$def_yrot_start" SIZE=5> 
Z
<input type=\"text\" name=\"zrot0\" value="0.0" SIZE=5> 
Start
<BR>
X
<input type=\"text\" name=\"xrot\" value="0.0" SIZE=5> 
Y
<input type=\"text\" name=\"yrot\" value="$def_yrot_end" SIZE=5> 
Z
<input type=\"text\" name=\"zrot\" value="0.0" SIZE=5> 
End

</TD></TR>
<TR><TD>

<input type=\"text\" name=\"frame_start\" value="1" SIZE=4> 
Start frame
<input type=\"text\" name=\"steps\" value="$def_steps" SIZE=4> 
Steps
<BR>
<input type=\"checkbox\" name=\"stereo\" value="on"> Stereo
<input type=\"checkbox\" name=\"rock\" value="on" $rock_checked> Rock 
<input type=\"checkbox\" name=\"pendulum\" value="on" $pendulum_checked> Pendulum 
EOH110

if ($morph_flag eq "yes") {
    print "<input type=\"checkbox\" name=\"morph\" value=\"on\" CHECKED>&nbsp;Morph";
}

print << "EOH112";
<input type=\"hidden\" name=\"ortho_flag\" value = \"$ortho_flag\">
<input type=\"hidden\" name=\"perspangle_flag\" value = \"$perspangle_flag\">
<BR>
<input type=\"checkbox\" name=\"transparent\" value=\"on\">&nbsp;Transparent&nbsp;GIF
<input type=\"checkbox\" name=\"perspective\" value=\"on\" $perspective_checked>&nbsp;Perspective
</TD></TR><TR><TD>

<input type=\"checkbox\" name=\"assemble\" value=\"on\">&nbsp;Assemble&nbsp;frames&nbsp;only
<input type=\"checkbox\" name=\"append\" value=\"on\">&nbsp;Append

EOH112

#print  "<input type=\"text\" name=\"perspangle\" value=\"$perspangle\" SIZE=4>&nbsp;Angle";
#print "<input type=\"hidden\" name = \"perspangle\" value=$perspangle>";

  if ($mrh_flag eq "yes") {
    print "<input type=\"text\" size =\"10\" name=\"movie_name\" value=\"\">\&nbsp\;Movie\&nbsp\;name";
  }

print << "EOH113";

<input type=\"checkbox\" name=\"advanced\" value=\"on\" onClick="startAdvWin(this)">&nbsp;Advanced
<input type=\"radio\" name=\"wiggle\" value=\"off\" onClick="setWiggle(this)">&nbsp;Wiggle

</TD></TR>

<SCRIPT>
//<!--

  function setWiggle(formitem) {  // Set params for wiggle stereo
   document.movieform.steps.value='2';
   document.movieform.xrot0.value='0.0';
   document.movieform.xrot.value='0.0';
   document.movieform.yrot0.value='-2.0';
   document.movieform.yrot.value='2.0';
   document.movieform.zrot0.value='0.0';
   document.movieform.zrot.value='0.0';
   document.movieform.rock.checked=false;
   document.movieform.pendulum.checked=false;
   document.movieform.wiggle.value=off;
 }

  function startAdvWin(formitem) {  // Open window of advanced functions

// Set steps to one, perspective on, rock and pendulum off
if (document.movieform.advanced.checked==true) {
  document.movieform.steps.value='1';
  document.movieform.yrot0.value='0.0';
  document.movieform.yrot.value='0.0';
  document.movieform.perspective.checked=true;
  document.movieform.rock.checked=false;
  document.movieform.pendulum.checked=false;
}

// For external window
//if (formitem.checked == true)  window.open('$script_name?Movi3&id=$id&frames=$frames_type','$adv_win','dependent=true,width=350,height=450,scrollbars=yes,resizable=yes,menubar=yes,toolbar=yes,directories=yes,status=yes,location=yes');

if (formitem.checked == true)  window.open('$script_name?Movi3&id=$id&frames=$frames_type','$adv_win');
}
//-->
</SCRIPT>

<TR><TD>

<TABLE BORDER=0 CELLPADDING=0 ALIGN="CENTER"><TR><TD ALIGN="LEFT" COLSPAN=3>

<input type=\"radio\" name=\"save\" value="off" onClick="saveCookie(this.form,'Movie')"> save
<input type=\"radio\" name=\"restore\" value="off" onClick="restoreCookie(this.form,'Movie')">
restore
<input type=\"checkbox\" name=\"debug\" value="on"> Debug
<input type=\"checkbox\" name=\"monitor\" value="on" CHECKED> Monitor
EOH113
if ($public_flag ne "yesORnoIEdisabled") {
print << "EOH114";
</TD></TR><TR><TD ALIGN="LEFT" COLSPAN=3>
<input type=\"checkbox\" name=\"mail_flag\" value="on"> 
Mail&nbsp;results&nbsp;to&nbsp;:
</TD><TD ALIGN="RIGHT">
</TD></TR><TR><TD COLSPAN=3>
<input type=\"text\" name=\"mail_addr\" value=\"$def_mail_addr\" SIZE=33> 
EOH114
}
print << "EOH115";
</TD></TR></TABLE>

</TD></TR><TR><TD BGCOLOR=$run_colour>
<input type=\"text\" name=\"width\" value=\"$thumb_size\" SIZE=5> 
Image width (pixels)<BR>
<SELECT NAME=\"quality\">
<OPTION VALUE="0" SELECTED> 0
<OPTION VALUE="1"> 1 <OPTION VALUE="2"> 2
<OPTION VALUE="3"> 3 <OPTION VALUE="4"> 4
<OPTION VALUE="5"> 5 <OPTION VALUE="6"> 6
<OPTION VALUE="7"> 7 <OPTION VALUE="8"> 8
<OPTION VALUE="9"> 9
</SELECT>
Quality
<input type=\"checkbox\" name=\"alias\" value="on"> 
Antialiasing

</TD></TR><TR><TD BGCOLOR=$run_colour>
<TABLE BORDER=0 CELLPADDING=0 ALIGN=\"CENTER\" VALIGN=\"CENTER\"><TR><TD>
<input type=\"submit\" value=\"Make Movie\">
</TD><TD><input type=\"reset\" value=\"Reset\">
</TD><TD><TABLE BORDER=1 CELLPADDING=2><TR><TD>
<A HREF=\"$Helpfile\#MOVIE\" TARGET=\"HELP\">Help</A>
</TD></TR></TABLE>

</TD></TR></TABLE>

</TD></TR></TABLE>

</FORM>

</BODY></HTML>
EOH115

# Load JavaScript cookie functions
#---------------------------------

CookieFunctions();

##############################################################################
# Movi3 Sets up and executes advanced movie functions
##############################################################################

} elsif ($page eq "Movi3") { # if movi3

$def_yrot_start = -20.0;
$def_yrot_end = 20.0;

$preview_checked = "";
$headlamp_checked = "";

# Send HTML header
#-----------------

print "Content-TYPE: text/html\n\n";

print << "EOH299";
<TITLE>Advanced Movie Setup</TITLE>
</HEAD><BODY BGCOLOR="$bgcolour">
EOH299

# Interpret form data pairs
#--------------------------

@obj_pairs = &User_Data_Array();

$numobj = scalar(@obj_pairs);

# Step through the options. Spot special options, rest are objects (Movie page)
#-----------------------------------------------------------------

for ($iobj=0;$iobj<$numobj;$iobj++) {

    $oname = $obj_pairs[$iobj];
    $ovalue = $obj_pairs[$iobj];

    $oname =~ s/=.*//;
    $oname =~ s/\%24/\$/;

    $ovalue =~ s/.*=//;

    if ($oname eq "plt_infile") {$plt_infile = $ovalue}
    elsif ($oname eq "debug") {$debug = $ovalue}
    elsif ($oname eq "cam_points") {$cam_points = $ovalue}
    elsif ($oname eq "cam_dist") {$cam_dist = $ovalue}
    elsif ($oname eq "preview") {$preview = $ovalue}
    elsif ($oname eq "preview_dist") {$preview_dist = $ovalue}
    elsif ($oname eq "spline_tension") {$spline_tension = $ovalue}
    elsif ($oname eq "spline_continuity") {$spline_continuity = $ovalue}
    elsif ($oname eq "spline_sampling") {$spline_sampling = $ovalue}
    elsif ($oname eq "spline_banking") {$spline_banking = $ovalue}
    elsif ($oname eq "spline_function") {$spline_function = $ovalue}
    elsif ($oname eq "headlamp") {$headlamp = $ovalue}
    else {

    }

}

if ($preview eq "on") {$preview_checked = "CHECKED"};
if ($headlamp eq "on") {$headlamp_checked = "CHECKED"};

# If we came here from "save advanced params", then write out a file
#------------------------------------------------------------------------------

if ($advmode eq 'do') { # if advwin is already open

    $cp_string = "cp $pov_movfile $bac_movfile";
    
# Construct advanced movie commands
#----------------------------------

    $cam_points = URLDecode($cam_points); # Remove URL encoding from the form item containing trajectory

    $cam_pointsd = $cam_points;
    $cam_pointsd =~ s/\r/>,/g; # Then put back in carriage-controls for perl, and brackets for povray
    $cam_pointsd =~ s/\n/\n</g; # Then put back in carriage-controls for perl, and brackets for povray
    $cam_pointsd =~ s/<>,//g; # Remove blank vectors
    $cam_pointsd = "<$cam_pointsd>"; # add start and end brackets
    $cam_pointsd =~ s/<>//g; # Remove blank vectors
    $cam_pointsd =~ s/\n\\//g; # Remove more blank vectors
    $cam_pointsd =~ s/,\\\n$//g; # Remove and more blank vectors
    
    $count_points = $cam_pointsd; # Now count number of elements. Ugly, ugly...
    $count_points =~ s/[^>]//g;
    $point_count = length($count_points);

    $funk = "_spline";
    $create_function = "create_$spline_function$funk"; # This should be easier...

    if ($preview ne 'on') { #------- animate

      $new_camera ="
\#declare SplinePath = create_spline (
array[$point_count] {
$cam_pointsd},
$create_function + spline_tension ($spline_tension) + spline_sampling($spline_sampling) + spline_continuity($spline_continuity))
camera { 
right -x/Frame_Scale up y/Frame_Scale  
location <0, 0, 0>
look_at z                   // Mray_Look1
animate_by_spline (SplinePath, auto_banking($spline_banking))
}
";
if ($headlamp eq 'on') { # headlamp
  $new_camera = "$new_camera light_source {<0, 1, -1>, rgb 2
spotlight point_at <0,0,1> radius 30 falloff 33
animate_by_spline (SplinePath, auto_banking($spline_banking))}
";
    }

    } else { #-------- preview

      $new_camera ="
\#declare SplinePath = create_spline (
array[$point_count] {
$cam_pointsd},
$create_function + spline_tension ($spline_tension) + spline_sampling($spline_sampling)+ spline_continuity($spline_continuity))
preview_spline (SplinePath, default_options)
camera { location <0, 0, $preview_dist>
direction <0, 0, -1.0>
up y/Frame_Scale right -x/Frame_Scale
look_at <0, 0, 0>                   // Mray_Look1
}
";
    }

## The following lines fail with longer coord lists, so replaced by the ugly code below

##    $adv_string = "cat $bac_movfile  ";
##    $adv_string = "$adv_string | perl -ne '/Mray_StartCamera/ && (\$flag=1); /Mray_EndCamera/ && (\$flag=0,\$_=\"$new_camera\"); \$flag || print $_;'";
#    $adv_string = "$adv_string > $pov_movfile"; 
    

$adv_string ="set startline = `cat $bac_movfile | grep -n Mray_StartCamera | head -1 | cut -d':' -f1`";
$adv_string ="$adv_string\nset endline = `cat $bac_movfile | grep -n Mray_EndCamera | head -1 | cut -d':' -f1`";
$adv_string ="$adv_string\nhead -\$startline $bac_movfile > $pov_movfile";
$adv_string ="$adv_string\ncat << 'EOF' >> $pov_movfile";
$adv_string ="$adv_string\n$new_camera";
$adv_string ="$adv_string\n'EOF'";
$adv_string ="$adv_string\ntail +\$endline $bac_movfile >> $pov_movfile";


# Write out advanced movie commands to shell script
#-----------------------------------------

    chmod (0777, $adv_cshfile);
    open (CSH,">$adv_cshfile");
    print (CSH "#!/bin/tcsh -f\n");
    print (CSH "set echo\n");

    print (CSH "#\n$cp_string\n");
    print (CSH "#\n$adv_string\n");
    print (CSH "#\n$tidy_string\n");

    close(CSH);
    chmod (0511, $adv_cshfile);

    if ($debug eq "on") {
      print "<HR>";
      open (CSH,"$tmp_cshfile");
      while ($line = <CSH>) {
	print "$line <BR>";
      }
      close(CSH);
      #print "<P><B>Exec command debug</B> : <BR>";
      #print "%$plt_string<BR>%$filter_string<BR>%$pov_string<BR>%$transp_string<BR>%$convert_string<BR>%$transp_string<BR>%$tidy_string<P>";
      print "<HR>";
    }


  } else { # if not 'do' (ie advwin has only just opened)

# Pick up spline points from input file

    $preview_checked = "CHECKED";
    $spline_start = 'no';
    open (POV,"$pov_tmpfile");
    while ($line = <POV>) {

    if ($line =~ /Mray_StartSpline/) {
      $spline_start = 'yes';
      $cam_points = "";
    }

    if ($line =~ /Mray_EndSpline/) {
      $spline_start = 'no';
    }

    if ($spline_start eq 'yes' && $line =~ />/) {
      $line =~ s/<//g;
      $line =~ s/>,//g;
      $line =~ s/>//g;
      $line =~ s/(\..)[^,]+,/$1,\ /g; # 1 dp
      $line =~ s/(.+.+\..).+$/$1/; # 1 dp
#      $line =~ s/\..[^,]*,/$1,/g; # 0 dp
#      $line =~ s/(.+.+)\...*$/$1/; # 0 dp
      $line =~ s/ //g;
      $cam_points = "$cam_points$line";
    }
  }
    close(POV);
  } # end if 'do'

print << "EOH200";

<form NAME="advform" ACTION=\"$script_name?Movi3&id=$id&frames=$frames_type&advmode=do\" TARGET =\"$adv_win\" METHOD=\"POST\">\n

<TABLE BORDER=1 CELLPADDING=3>
<TR><TD VALIGN=TOP>
<CENTER><B><FONT SIZE=6>Advanced Movie Params</FONT></B></CENTER>
</TD></TR>

EOH200

if ($mrh_flag eq "yes" || $mrh_flag eq "no") {
  print "<TR><TD><CENTER><A HREF=\"$pov_tmpfile\">In-going POV-Ray input file here</A></CENTER></TR></TD>";
}

if (! -x $animgif_prog) {
    print "Warning : $animgif_prog program missing\n";
    exit;
}

$cubic_sel = "";
$default_sel = "";
$bezier_sel = "";
$hermite_sel = "";

if ($spline_function eq 'cubic') {
  $cubic_sel = "SELECTED";
  } elsif ($spline_function eq 'default') {
  $default_sel = "SELECTED";
  } elsif ($spline_function eq 'bezier') {
  $bezier_sel = "SELECTED";
  } elsif ($spline_function eq 'hermite') {
  $hermite_sel = "SELECTED";
}

print << "EOH214";

<TR><TD>
<TABLE BORDER=0>
<TD>
Camera trajectory:
<BR>
<textarea name='cam_points' cols='18' rows='10' onfocus=\"window.status='Enter camera points here';\">$cam_points</textarea>

</TD><TD VALIGN="TOP">
<TABLE BORDER=1>
<TD>
<input type=\"text\" size =\"4\" name=\"preview_dist\" value=\"$preview_dist\">\&nbsp\;Preview\&nbsp\;distance
<input type=\"text\" size =\"4\" name=\"spline_tension\" value=\"$spline_tension\">\&nbsp\;Spline\&nbsp\;tension
<input type=\"text\" size =\"4\" name=\"spline_continuity\" value=\"$spline_continuity\">\&nbsp\;Spline\&nbsp\;continuity
<input type=\"text\" size =\"4\" name=\"spline_sampling\" value=\"$spline_sampling\">\&nbsp\;Spline\&nbsp\;sampling
<input type=\"text\" size =\"4\" name=\"spline_banking\" value=\"$spline_banking\">\&nbsp\;Banking
<SELECT NAME=\"spline_function\">
<OPTION VALUE="cubic" $cubic_sel> cubic
<OPTION VALUE="default" $default_sel> default 
<OPTION VALUE="bezier" $bezier_sel> bezier
<OPTION VALUE="hermite" $hermite_sel> hermite
</SELECT>Function
<input type=\"checkbox\" name=\"headlamp\" value="on" $headlamp_checked>&nbsp;Headlamp
<BR>
<TABLE BORDER=0><TR><TD BGCOLOR="$run_colour">
<input type=\"checkbox\" name=\"preview\" value="on" $preview_checked>&nbsp;Preview
</TD></TR></TABLE>
</TD>
</TABLE>
</TD>
</TABLE>
</TD></TR>

</TD></TR><TR><TD BGCOLOR=$run_colour>
<TABLE BORDER=0 CELLPADDING=0 ALIGN=\"CENTER\" VALIGN=\"CENTER\"><TR><TD>
<input type=\"submit\" value=\"Save Advanced Parameters\" onClick="updateAdvWin(this)">
</TD><TD><input type=\"reset\" value=\"Reset\">
</TD><TD><TABLE BORDER=1 CELLPADDING=2><TR><TD>
<A HREF=\"$Helpfile\#ADV\" TARGET=\"HELP\">Help</A>
</TD></TR></TABLE>

</TD></TR></TABLE>

</TD></TR></TABLE>

</FORM>
<SCRIPT>
//<!--
  function updateAdvWin(formitem) {  // Update items in Movie window (steps)

  if (parent.povray.document.movieform.advanced.checked==true) {
    if (document.advform.preview.checked==false) {
      if (parent.povray.document.movieform.steps.value=='1') {
	parent.povray.document.movieform.steps.value='10';
      }
    } else {
	parent.povray.document.movieform.steps.value='1';
    }
  }
}
//-->
</SCRIPT>

</BODY></HTML>
EOH214

# Load JavaScript cookie functions
#---------------------------------

###CookieFunctions();

##############################################################################
# Movi2 Runs movie
##############################################################################

} elsif ($page eq "Movi2") {

# Send HTML header
#-----------------

print "Content-TYPE: text/html\n\n";

print << "EOH150";
<TITLE>Movie Output</TITLE>
</HEAD><BODY BGCOLOR="$bgcolour">
<B><CENTER><FONT SIZE=6>Movie Output</FONT></CENTER></B>
EOH150

# Interpret form data pairs
#--------------------------

@obj_pairs = &User_Data_Array();

$numobj = scalar(@obj_pairs);

# Step through the options. Spot special options, rest are objects (Movie page)
#-----------------------------------------------------------------

for ($iobj=0;$iobj<$numobj;$iobj++) {

    $oname = $obj_pairs[$iobj];
    $ovalue = $obj_pairs[$iobj];

    $oname =~ s/=.*//;
    $oname =~ s/\%24/\$/;

    $ovalue =~ s/.*=//;

    if ($oname eq "plt_infile") {$plt_infile = $ovalue}
    elsif ($oname eq "width") {$width = $ovalue}
    elsif ($oname eq "quality") {$quality = $ovalue}
    elsif ($oname eq "alias") {$alias = $ovalue}
    elsif ($oname eq "stereo") {$stereo = $ovalue}
    elsif ($oname eq "perspective") {$perspective = $ovalue}
    elsif ($oname eq "perspangle") {$perspangle = $ovalue}
    elsif ($oname eq "perspangle_flag") {$perspangle_flag = $ovalue}
    elsif ($oname eq "morph") {$morph = $ovalue}
    elsif ($oname eq "ortho_flag") {$ortho_flag = $ovalue}
    elsif ($oname eq "transparent") {$transparent = $ovalue}
    elsif ($oname eq "demo_flag") {$demo_flag = $ovalue}
    elsif ($oname eq "debug") {$debug = $ovalue}
    elsif ($oname eq "monitor") {$monitor = $ovalue}
    elsif ($oname eq "mail_flag") {$mail_flag = $ovalue}
    elsif ($oname eq "mail_addr") {$mail_addr = $ovalue}
    elsif ($oname eq "tmp_lstfile") {$tmp_lstfile = $ovalue}
    elsif ($oname eq "xtrans") {$xtrans = $ovalue}
    elsif ($oname eq "ytrans") {$ytrans = $ovalue}
    elsif ($oname eq "ztrans") {$ztrans = $ovalue}
    elsif ($oname eq "xrot") {$xrot = $ovalue}
    elsif ($oname eq "yrot") {$yrot = $ovalue}
    elsif ($oname eq "zrot") {$zrot = $ovalue}
    elsif ($oname eq "xtrans0") {$xtrans0 = $ovalue}
    elsif ($oname eq "ytrans0") {$ytrans0 = $ovalue}
    elsif ($oname eq "ztrans0") {$ztrans0 = $ovalue}
    elsif ($oname eq "xrot0") {$xrot0 = $ovalue}
    elsif ($oname eq "yrot0") {$yrot0 = $ovalue}
    elsif ($oname eq "zrot0") {$zrot0 = $ovalue}
    elsif ($oname eq "steps") {$steps = $ovalue}
    elsif ($oname eq "frame_start") {$frame_start = $ovalue}
    elsif ($oname eq "rock") {$rock = $ovalue}
    elsif ($oname eq "assemble") {$assemble = $ovalue}
    elsif ($oname eq "append") {$append = $ovalue}
    elsif ($oname eq "advanced") {$advanced = $ovalue}
    elsif ($oname eq "cam_points") {$cam_points = $ovalue}
    elsif ($oname eq "movie_name") {$movie_name = $ovalue}
    else {

    }

}

# decode slashes in plt_filename, manipulate other params
#--------------------------------------------------------

$plt_infile =~ s/%2F/\//g;
$tmp_lstfile =~ s/%2F/\//g;

if ($width > $limit_pixels) {
  $width = $limit_pixels;
  $too_wide_flag = "yes";
}

$height = $width;
if ($alias eq "on") {$alias_flag = "+a"};
if ($thumb_size > $width) {$thumb_size = $width};

if ($rock eq "on") { 
  if (int(($steps+1.5)/2.0) != int(($steps+0.5)/2.0)) {$odd_rock_flag = "yes"}
  $steps = int(($steps+1.5)/2.0);
}

if ($steps > $limit_frames) {
  $steps = $limit_frames;
  $too_many_flag = "yes";
}

$frame_end = $frame_start+$steps-1;

# Use old pid for append file
#----------------------------

$append_file = "";

if ($append eq "on") {
    open (TMP,"$pid_file");
    $old_pid = <TMP>;
    $old_frames = <TMP>;

    chomp($old_pid);
    chomp($old_frames);

    close (TMP);
    $append_file = $animgif_file;
    $append_file =~ s/\.([^.]*$)/$old_pid\.$1/;
}

$animgif_file =~ s/\.([^.]*$)/$$\.$1/;

# Pickup old pid if assembly only
#--------------------------------


if ($assemble eq "on") {
    open (TMP,"$pid_file");
    $$ = <TMP>;
    $old_frames = <TMP>;
    chomp($$);
    close (TMP);
}

# add local pid to final image name to avoid caching problem. Note animgif done above
#------------------------------------------------------------------------------------

#$pov_outfile =~ s/\.([^.]*$)/$$\_\.$1/;
$pov_outfile =~ s/\.([^.]*$)/\_\.$1/;
$jpeg_outfile =~ s/\.([^.]*$)/$$\.$1/;
$rgb_outfile =~ s/\.([^.]*$)/$$\.$1/;
$gif_outfile =~ s/\.([^.]*$)/$$\.$1/;
$gif_thumbfile =~ s/\.([^.]*$)/$$\.$1/;
$tiff_outfile =~ s/\.([^.]*$)/$$\.$1/;
$png_outfile =~ s/\.([^.]*$)/$$\.$1/;
$mng_outfile =~ s/\.([^.]*$)/$$\.$1/;
$mpeg_outfile =~ s/\.([^.]*$)/$$\.$1/;
$mpeg_tmp_prms =~ s/\.([^.]*$)/$$\.$1/;

# Assemble command strings
#=========================

if ($transmap eq "on") {$cmd_string = "$cmd_string -trans "};

$light_string = " ";
$filter_string = " ";
$transp_string = " ";
$mail_string   = " ";

# Calculate tga file size
#-------------------------

$pred_file_size = $width * $height * 3;

# Set batch flag
#---------------

if ($mail_flag eq "on" && index($remote_cmd,"qsub") != -1) {
  $batch_flag = "Batch";
} else {
  $batch_flag = "Online";
}

# Tell trustees where to find file
#---------------------------------
		      
    $animgif_url = $animgif_file;
    $animgif_url =~ s#$scratch_dev/#$scratch_url/#;

    if (($Trusted_flag eq "yes") || ($public_flag ne "yes")) {
     print "<A HREF=\"$animgif_url\" TARGET=\"NEW\">$animgif_url</A><BR>";
  } 

# Check out how busy machine is
#------------------------------

if ($batch_flag eq "Online") {

  $job_count_string = `ps aux | grep povray | grep -v grep | wc`;
  $job_count_string =~ s/.\s*//;
  ($job_count,)  = split(/\s+/,$job_count_string,2);
  
  print "<BR>Number of other POV-Ray jobs running  : $job_count<BR>\n";

# Abort if too many other jobs
  if ($job_count > $limit_other_jobs) {
    print "<P>Error - Server is overloaded, please try later....";

    open (LOG,">>$Overloadlog");
    $string = sprintf("%5d %2s%1d %2s %3s %21s %s\n",$width,"+q",$quality,$alias_flag," ",$date,$ENV{'REMOTE_HOST'});
    print (LOG $string);
    close (LOG);
    
    exit;
  }
}

# Log movie usage
#----------------

$mail_addr =~ s/\%40/\@/;
if (!$mrh_flag) {
  open (LOG,">>$Usagelog");
  $string = sprintf("%5d %2s%1d %2s %3s %21s %s %s %s %d\n",$width,"+q",$quality,$alias_flag,$steps,$date,$ENV{'REMOTE_HOST'},$mail_addr,"Movie",$job_count);
 print (LOG $string);
}
close (LOG);

# Arrange for mailing if chosen
#------------------------------

$| = 1;

if ($mail_flag eq "on") { 


    chmod (0777, $mail_mov_file);
    open (CSH,">$mail_mov_file");

    print (CSH "Subject: Molray movie results\n");
    print (CSH "From: Movie\@molray.com\n");

    print (CSH "Your POV-Ray movie files will be available for some time at :\n\n");

    $pov_outurl = $animgif_file;
    $pov_outurl =~ s#$scratch_dev/#$scratch_url/#;
    print (CSH "Animated GIF : $pov_outurl\n");

    $pov_outurl = $mng_outfile;
    $pov_outurl =~ s#$scratch_dev/#$scratch_url/#;
    print (CSH "MNG file :   $pov_outurl\n");

    $pov_outurl = $mpeg_outfile;
    $pov_outurl =~ s#$scratch_dev/#$scratch_url/#;
    print (CSH "MPEG video :   $pov_outurl\n");

    $pov_outurl = $pov_infile;
    $pov_outurl =~ s#$scratch_dev/#$scratch_url/#;
    print (CSH "POV-Ray input file : $pov_outurl\n");

    close(CSH);

    $mail_addr =~ s/\%40/\@/;
    $mail_string = "/usr/bin/mail $mail_addr < $mail_mov_file";
    $exe_cmd = $remote_cmd;

} else {

  if ($odd_rock_flag eq "yes") {print "<B>Warning, your odd stepcount has been rounded up to ".int($steps*2)."</B><BR>"};

  if ($too_many_flag eq "yes") {print "<B>Warning, your illegally-long movie has been
shrunk down to ".int($steps*2)." steps</B><BR>"};

  if ($too_wide_flag eq "yes") {print "<B>Warning, your illegally-wide movie has been
shrunk down to ".$width." pixels</B><BR>"};

  if (($assemble eq "on") && ($frame_start < 10) && ($frame_start+$steps > 10)) {
    print "<B>Error - All assembly frames must be numbered between 10 and 99. See <A HREF=\"$Helpfile\#MOVIE\">help</A> for explanation.</B><BR>";
    exit;

}

  if ($job_count > $limit_other_jobs) {
     print "<P>Error - Server is overloaded, please try later....";

    open (LOG,">>$Overloadlog");
    $string = sprintf("%5d %2s%1d %2s %3s %21s %s\n",$width,"+q",$quality,$alias_flag," ",$date,$ENV{'REMOTE_HOST'});
    print (LOG $string);
    close (LOG);
    
     exit;
  }

    print "Your movie output is on its way ...<BR>"
}

$| = 0;

# Start sed transform command
#----------------------------

if ($pendulum ne "on") {

$transform_string = "cat $pov_tmpfile  ";

$transform_string = "$transform_string | sed /\"Mray_Xtrans\"/s/\\^\\.\\*/\"translate x\*\(\($xtrans\-$xtrans0\)\*clock+$xtrans0\)        \\/\\/Mray_Xtrans\"/"; 

$transform_string = "$transform_string | sed /\"Mray_Ytrans\"/s/\\^\\.\\*/\"translate y\*\(\($ytrans\-$ytrans0\)\*clock+$ytrans0\)        \\/\\/Mray_Ytrans\"/"; 

##if ($perspective eq "on" || $ortho_flag eq "no" && $perspective ne "Dwizzle") {
if ($perspective eq "Dwizzle") {
    $transform_string = "$transform_string | sed /\"Mray_Ztrans\"/s/\\^\\.\\*/\"translate z\*\(\($ztrans\-$ztrans0\)\*clock+$ztrans0\)        \\/\\/Mray_Ztrans\"/"; 
} else {
    $transform_string = "$transform_string | sed /\"Mray_ModCamDist\"/s/\\^\\.\\*/\"#declare Camera_Distance = Camera_Distance + \(\(-$ztrans\+$ztrans0\)\*clock-$ztrans0\)        \\/\\/Mray_ModCamDist\"/"; 
}

$transform_string = "$transform_string | sed /\"Mray_Xrot\"/s/\\^\\.\\*/\"rotate x\*\(\($xrot\-$xrot0\)\*clock+$xrot0\)        \\/\\/Mray_Xrot\"/"; 

$transform_string = "$transform_string | sed /\"Mray_Yrot\"/s/\\^\\.\\*/\"rotate y\*\(\($yrot\-$yrot0\)\*clock+$yrot0\)        \\/\\/Mray_Yrot\"/"; 

$transform_string = "$transform_string | sed /\"Mray_Zrot\"/s/\\^\\.\\*/\"rotate z\*\(\($zrot\-$zrot0\)\*clock+$zrot0\)        \\/\\/Mray_Zrot\"/"; 

} else {

$transform_string = "cat $pov_tmpfile  ";

$transform_string = "$transform_string | sed /\"Mray_Xtrans\"/s/\\^\\.\\*/\"translate x\*\(\($xtrans\-$xtrans0\)\*\(\(cos\(clock\*3.1415\)\+1\)\\/2\)+$xtrans0\)        \\/\\/Mray_Xtrans\"/"; 

$transform_string = "$transform_string | sed /\"Mray_Ytrans\"/s/\\^\\.\\*/\"translate y\*\(\($ytrans\-$ytrans0\)\*\(\(cos\(clock\*3.1415\)\+1\)\\/2\)+$ytrans0\)        \\/\\/Mray_Ytrans\"/"; 

##if ($perspective eq "on" || $ortho_flag eq "no" && $perspective ne "Dwizzle") {
if ($perspective eq "Dwizzle") {
    $transform_string = "$transform_string | sed /\"Mray_Ztrans\"/s/\\^\\.\\*/\"translate z\*\(\($ztrans\-$ztrans0\)\*\(\(cos\(clock\*3.1415\)\+1\)\\/2\)+$ztrans0\)        \\/\\/Mray_Ztrans\"/"; 
} else {
    $transform_string = "$transform_string | sed /\"Mray_ModCamDist\"/s/\\^\\.\\*/\"#declare Camera_Distance = Camera_Distance + \(\(-$ztrans\+$ztrans0\)\*\(\(cos\(clock\*3.1415\)\+1\)\\/2\)-$ztrans0\)        \\/\\/Mray_ModCamDist\"/"; 
}

$transform_string = "$transform_string | sed /\"Mray_Xrot\"/s/\\^\\.\\*/\"rotate x\*\(\($xrot\-$xrot0\)\*\(\(cos\(clock\*3.1415\)\+1\)\\/2\)+$xrot0\)        \\/\\/Mray_Xrot\"/"; 

$transform_string = "$transform_string | sed /\"Mray_Yrot\"/s/\\^\\.\\*/\"rotate y\*\(\($yrot\-$yrot0\)\*\(\(cos\(clock\*3.1415\)\+1\)\\/2\)+$yrot0\)        \\/\\/Mray_Yrot\"/"; 

$transform_string = "$transform_string | sed /\"Mray_Zrot\"/s/\\^\\.\\*/\"rotate z\*\(\($zrot\-$zrot0\)\*\(\(cos\(clock\*3.1415\)\+1\)\\/2\)+$zrot0\)        \\/\\/Mray_Zrot\"/"; 

}

$transform_string = "$transform_string > $scratchfile ; cp $scratchfile $pov_movfile";

# Orthogonal and Transparent GIF command 
# --------------------------------------

$filter_string = "cat $pov_movfile ";

if ($perspective eq "on") { 
  if ($perspangle_flag ne "yes") { 
    $filter_string = "$filter_string | sed /\"Mray_Ortho\"/s/\\^\\.\\*/\"                     \\/\\/Mray_Ortho\"/";
  }
} else {
  $filter_string = "$filter_string | sed /\"Mray_Ortho\"/s/\\^\\.\\*/\"orthographic                     \\/\\/Mray_Ortho\"/";
}
		       
    if ($transparent eq "on" && (-x $transgif_prog)) {
    $filter_string = "$filter_string | sed /\"Mray_Bgrnd\"/s/\\^\\.\\*/\"background \\{Very_Light_Purple\\}\"/";

    $transgif_prms = "$transgif_prms -U ";
}

$filter_string = "$filter_string > $scratchfile ; cp $scratchfile $pov_movfile";

# Assemble animated GIF command
# -----------------------------

$padlen = 1;
if ($frame_start+$steps-1 > 9) {$padlen = 2};
if ($frame_start+$steps-1 > 99) {$padlen = 3};
if ($frame_start+$steps-1 > 999) {$padlen = 4};

$pov_movroot = $pov_outfile;
$pov_movroot =~ s/.tga//;

for ($istep=$frame_start-1;$istep<$frame_end;$istep++) {
    $padstep = sprintf "%0".$padlen."d", $istep+1; 
    $frame_files[$istep] = "$pov_movroot".($padstep).".gif";
    $mng_files[$istep] = "$pov_movroot".($padstep).".tga";
    $frame_files_back[$frame_end-$istep-1] = "$pov_movroot".($padstep).".gif";
    $mng_files_back[$frame_end-$istep-1] = "$pov_movroot".($padstep).".tga";
    $frame_roots[$istep] = "$pov_movroot".($padstep);
    if ($istep == $frame_end-1) {$pov_movone = "$pov_movroot".($padstep).".tga"};
}

# Rocking and peduluming
#-----------------------

if ($rock ne "on") {
    $anim_string = "$animgif_prog --colors 256 -l$movie_loop -d$movie_rate $append_file @frame_files > $animgif_file";
    $mng_string = "$tga_to_png  @frame_files mng:$mng_outfile";
} else {
    $anim_string = "$animgif_prog -l$movie_loop -d$movie_rate $append_file @frame_files @frame_files_back  > $animgif_file";   
    $mng_string = "$tga_to_png  @frame_files @frame_files_back mng:$mng_outfile";
}

# Assemble conversion and delete strings
#----------------------------

$start = $frame_start-1;

$convert_string = "set istep = $start;\nloop:\n@ istep ++\nset padstep = `printf \"\%0".$padlen."d\" \$istep`\n@ istep2 = \( $frame_end \* 2 \+ 1 \) - \$istep\nset padstep2 = `printf \"\%0".$padlen."d\" \$istep2`\n";
$delete_string = "rm -f ";

$convert_string = "$convert_string $tga_to_other $pov_movroot\$padstep.tga $pov_movroot\$padstep.gif\n" ;
$convert_string = "$convert_string $tga_to_other $pov_movroot\$padstep.tga $pov_movroot\$padstep.rgb\n" ;
$convert_string = "$convert_string $tga_to_other $pov_movroot\$padstep.tga $pov_movroot\$padstep.ppm\n" ;

$delete_string = "$delete_string $pov_movroot\$padstep.tga";

if ($rock eq "yes") {
  $convert_string = "$convert_string ln -s $pov_movroot\$padstep.ppm $pov_movroot\$padstep2.ppm\n" ;

  $convert_string = "$convert_string ln -s $pov_movroot\$padstep.tga $pov_movroot\$padstep2.tga\n" ;
}

if ($transparent eq "on") {
    $convert_string = "$convert_string $transgif_prog $transgif_prms -o $scratchfile $pov_movroot\$padstep.gif; cp $scratchfile  $pov_movroot\$padstep.gif\n";
}

$convert_string = " $convert_string if (\$istep < $frame_end) goto loop\n";

# MNG output (Here converts from GIF, just for testing. Real code should be upstairs)
#---------
#$mng_string = "$tga_to_png  $animgif_file mng:$mng_outfile ;\n";

# Morph enabling
#------------

$morph_string = " ";

if ($morph eq "on") { 
  $morph_string = " cat $pov_tmpfile | sed /\"Mray_FM\"/s/!=/=/ | sed /\"Mray_FM\"/s/\+999// > $scratchfile ; cp $scratchfile $pov_tmpfile";
}

# Advanced enabling
#---------------

$advanced_string = " ";

if ($advanced eq "on") { 
  $advanced_string = "if -x $adv_cshfile $adv_cshfile";
}

# MPEG creation
#--------------

$mpeg_string = " ";

$local_ppm_files = $pov_movroot."*.ppm";
$local_ppm_files =~ s/$scratch_dev\/$client\///;

$range = sprintf "%0".$padlen."d"."-"."%0".$padlen."d",$frame_start,$frame_end;

open (PRMO,">$mpeg_tmp_prms");
print (PRMO "OUTPUT $mpeg_outfile\n");
print (PRMO "INPUT_DIR $scratch_dev\/$client\n");
print (PRMO "INPUT\n");
##print (PRMO "$local_ppm_files \[$range\]\n");

  foreach $file (@frame_files) {
    $file =~ s/$scratch_dev\/$client\///;
    $file =~ s/.gif/.ppm/;
    print (PRMO "$file\n");
    print (PRMO "$file\n");
  }

if ($rock eq "on") {
  foreach $file (@frame_files_back) {
    $file =~ s/$scratch_dev\/$client\///;
    $file =~ s/.gif/.ppm/;
    print (PRMO "$file\n");
    print (PRMO "$file\n");
  }
}

if ($append eq "on") {print (PRMO "$old_frames\n")}
$old_frames = "$local_ppm_files \[$range\]\n";

print (PRMO "END_INPUT\n");

open (PRMI,"$mpeg_params");
while ($line = <PRMI>) {
  print (PRMO "$line");
}

close(PRMO);
close(PRMI);

$mpeg_string = "$mpeg_string $mpeg_prog $mpeg_tmp_prms > $mpeg_lstfile";

# Stereo strings. Does not support rocking at the moment
#-------------------------------------------------------

$pov_ster_string = "#\n";
$stereo_string = "#\n";
$convert_ster_string = "#\n";

if ($stereo eq "on") { 

    $pov_ster_movfile = $pov_movfile;
    $pov_ster_movfile =~ s/.mpv/_left.mpv/;

    $pov_ster_outfile = $pov_outfile;
    $pov_ster_outfile =~ s/.tga/left_.tga/;

    $pov_steroot = $pov_ster_outfile;
    $pov_steroot =~ s/.mpv//;


    $stereo_string = "cat $pov_movfile | sed /\"Mray_YSMrot\"/s/\\^\\.\\*/\"rotate y\\*4\\.0                       \\/\\/Mray_YSMrot\"/ > $pov_ster_movfile";

##    $stereo_string = "cat $pov_movfile | sed /\"location\"/s/\\^\\.\\*/\"camera \\{ location \\<\\-1\\.4\\, \\0\\.0\\, Camera_Distance\\>\"/ | sed /\"look_at\"/s/\\^\\.\\*/\"direction \\<\\-1\\.4 , 0, 1\\.0\\>\"/  > $pov_ster_movfile";

#    $pov_ster_string = "$povray +ft +i $pov_ster_movfile +o $pov_ster_outfile +w$width +h$height +q$quality +KFI$frame_start +KFF$frame_end $alias_flag >& $pov_lstfile";
     $pov_ster_string = "$povray +ft +i $pov_ster_movfile +o $pov_ster_outfile +w$width +h$height +q$quality +KFI$frame_start +KFF$frame_end $alias_flag ";
    
    $convert_ster_string = "set istep = $frame_start-1;\nloops:\n@ istep ++\nset padstep = `printf \"\%0".$padlen."d\" \$istep`\n ";

    $convert_ster_string = "$convert_ster_string $tga_to_other $pov_steroot\$padstep.tga $pov_steroot\$padstep.gif\n" ;
    $convert_ster_string = "$convert_ster_string $tga_to_other $pov_steroot\$padstep.tga $pov_steroot\$padstep.rgb\n" ;

# Transparency
#-------------

if ($transparent eq "on" && (-x $transgif_prog)) {
    $filter_string = "$filter_string | sed /\"Mray_Bgrnd\"/s/\\^\\.\\*/\"background \\{Very_Light_Purple\\}                       \\/\\/Mray_Bgrnd\"/";
    $transp_string = "$transgif_prog $transgif_prms -o $gif_outfile $scratchfile; cp $scratchfile  $gif_outfile; $transgif_prog $transgif_prms -o $scratchfile $gif_thumbfile ; cp $scratchfile  $gif_thumbfile";
}

    $convert_ster_string = " $convert_ster_string if (\$istep <= $frame_end) goto loops\n";

}

# End sed commands
#------------------

#$pov_string = "$povray +ft +i $pov_movfile +o $pov_outfile +w$width +h$height +q$quality +KFI$frame_start +KFF$frame_end $alias_flag >& $pov_lstfile";
$pov_string = "$povray +ft +i $pov_movfile +o $pov_outfile +w$width +h$height +q$quality +KFI$frame_start +KFF$frame_end $alias_flag ";

$geom = $thumb_size."x".$thumb_size;

$tidy_string = "rm -f $tmp_lstfile";

$cmd_string = "$plt_string; $pov_string; $tidy_string $tmp_cshfile";

# Rename string
#--------------

if ($movie_name ne "") {
  $rename_string = "ln -s $animgif_file $scratch_dev/$client/$movie_name.GIF"
}

# Disable everything else if "assemble-only" chosen
#--------------------------------------------------

if ($assemble eq "on") {

    $morph_string = "";
    $transform_string = "";
    $filter_string = "";
    $pov_string = "";
    $transp_string = "";
    $pov_ster_string = "";
    $convert_ster_string = "";
} else {

# Else write out pid so we can assemble next time
#------------------------------------------------

    chmod (0777, $pid_file);
    open (TMP,">$pid_file");
    print (TMP "$$\n");
    print (TMP "$old_frames\n");
    close(TMP);
    chmod (0511, $pid_file);
}

# Write out movie commands to shell script
#-----------------------------------------

    chmod (0777, $tmp_cshfile);
    open (CSH,">$tmp_cshfile");
    print (CSH "#!/bin/tcsh -f\n");
    print (CSH "set echo\n");

if ($public_flag ne "yesORnoDISABLED") {
    print (CSH "limit datasize unlimited \n");
    print (CSH "limit memoryuse unlimited \n");
#    print (CSH "limit vmemoryuse unlimited \n");
  }
    #print (CSH "cp $pov_inc/*.inc ./\n");

    print (CSH "##Mray_batch cp movie.pov $pov_tmpfile\n");

##    print (CSH "#\n$delete_string\n"); # doesn't work yet...
    print (CSH "#\n$morph_string\n");
    print (CSH "#\n$transform_string\n");
    print (CSH "#\n$filter_string\n");
    print (CSH "#\n$advanced_string\n");
    print (CSH "#\n$pov_string\n");
    print (CSH "#\n$convert_string\n");
    print (CSH "#\n$transp_string\n");
    print (CSH "#\n$anim_string\n");
    print (CSH "#\n$stereo_string\n");
    print (CSH "#\n$pov_ster_string\n");
    print (CSH "#\n$convert_ster_string\n");
    print (CSH "#\n$rename_string\n");
    print (CSH "#\n$mpeg_string\n");
    print (CSH "#\n$mng_string\n");
    print (CSH "#\nchmod o+r $scratch_dev/$client/*\n");
    print (CSH "#\n$mail_string\n");
    print (CSH "#\n$tidy_string\n");

    if (($mrh_flag ne "yes_anything") && ($gunnar_flag ne "yes")) {
      $final_tidy = "rm -f $scratch/tmpp$id* $scratch/tmppd$id* *.GIF";
      system("csh\n");
      system("echo $final_tidy | at now + $tidy_time minutes\n");
    }

    close(CSH);
    chmod (0511, $tmp_cshfile);

if ($debug eq "on") {
print "<HR>";
open (CSH,"$tmp_cshfile");
while ($line = <CSH>) {
	print "$line <BR>";
}
close(CSH);
#print "<P><B>Exec command debug</B> : <BR>";
#print "%$plt_string<BR>%$filter_string<BR>%$pov_string<BR>%$transp_string<BR>%$convert_string<BR>%$transp_string<BR>%$tidy_string<P>";
print "<HR>";
}

if (! -x $povray) {
    print "Demo image due to POV-Ray missing<BR><IMG SRC=\"$demo_image\" ALIGN=TOP></BODY></HTML>\n";
    exit;
}

# Run the programs
#-----------------

# Can't submit to DQS from SH, must make CSH wrapper.

      if ($monitor eq "on") {MonitorGrowth($pov_outfile, $pred_file_size, $scratch_url, $batch_flag, $frame_start, $frame_end)};

    if ($batch_flag eq "Batch") {
      system("$exe_cmd $tmp_cshfile");
    } else {
      system("$exe_cmd $tmp_cshfile 2> $tmp_logfile");
    }

    if ($mail_flag eq "on") {
	print "<BR>The location of your output will be mailed to you<BR></BODY></HTML>";
	exit;
    } 

    if (! -e $pov_tmpfile) {
	print "No POV-Ray input file<BR>";
	print "Failure during pre-processing<BR>";
	print "<P>Check out the <A HREF=\"$tmp_logfile\" TARGET=\"LOG\">log file</A><P>";
	exit;
    } elsif (-z $pov_tmpfile) {
	print "Empty POV-Ray input file<BR>";
	print "Failure probably during sed operations<BR>";
	print "<P>Check out the <A HREF=\"$tmp_logfile\" TARGET=\"LOG\">log file</A><P>";
	exit;
    }

    if (! -e "$pov_movone") {
	print "No output TARGA file $pov_movone<BR>";
	print "Failure probably before POV-Ray execution<BR>";
	print "<P>Check out the <A HREF=\"$tmp_logfile\" TARGET=\"LOG\">log file</A><P>";
	exit;
    } elsif (-z $frame_files[0]) {
	print "Empty TARGA file<BR>";
	print "Failure probably during POV-Ray execution<BR>";
	print "<P>Check out the <A HREF=\"$tmp_logfile\" TARGET=\"LOG\">log file</A><P>";
	exit;
    }

    if (! -e $animgif_file) {
	print "No output GIF file<BR>";
	print "Failure probably during movie assembly<BR>";
	print "<P>Check out the <A HREF=\"$tmp_logfile\" TARGET=\"LOG\">log file</A><P>";
	exit;
    } elsif (-z $animgif_file) {
	print "Empty animated-GIF file<BR>";
	print "Failure probably during movie assembly<BR>";
	print "<P>Check out the <A HREF=\"$tmp_logfile\" TARGET=\"LOG\">log file</A><P>";
	exit;
    }

# Write some blurb
#-----------------

print << "EOF39";

<!--
## It would be nice to restart page here, but I don't know how.
##</BODY></HTML>
##Content-TYPE: text/html\n\n
##<HTML><HEAD>
##</HEAD><BODY BGCOLOR="$bgcolour">
-->

<IMG SRC=\"$animgif_file\" ALIGN=TOP>\n
<P>

<TABLE BORDER=3 CELLPADDING=3>
<TR><TD COLSPAN=7>
Get your output here :
</TD></TR><TR><TD>
<A HREF=\"$animgif_file\">GIF</A>
</TD><TD>
<A HREF=\"$mpeg_outfile\">MPEG</A>
</TD><TD>
<A HREF=\"$mng_outfile\">MNG</A>
</TD><TD>
<A HREF=\"$pov_movfile\">POVin</A>
</TD><TD>
<A HREF=\"$tmp_cshfile\">CSH</A>
</TD><TD>
<A HREF="$Helpfile\#MOVIE" TARGET="HELP">Help</A>
</TD></TR></TABLE>
</TD><TD>

EOF39

print "</BODY></HTML>";

# Some more tidying. BUG, won't return....
#------------------

$final_tidy = "rm -f $scratch/tmpp$id* $scratch/tmpp$id* *.GIF";

if (($mrh_flag ne "yes") && ($gunnar_flag ne "yes")) {
  system("echo $final_tidy | at now + $tidy_time minutes");
}

######################################################################
# And home
######################################################################
}

exit;

######################################################################
# Subroutine pov_opts() MRH 
######################################################################

sub pov_opts {

# Make new form to select POV-Ray options
#----------------------------------------

##print ":id: $id :: $idd :f:$frames_type:p:$page:$tmp:$page_num";

print << "EOF2";

<form ACTION=\"$script_name?Page3&id=$id&frames=$frames_type\" TARGET =\"$res_win\" METHOD=\"POST\">\n

<TABLE BORDER=2 CELLPADDING=3>

<TR><TD VALIGN=TOP>
<CENTER><B><FONT SIZE=6>POV-Ray Parameters</FONT></B></CENTER>
</TD></TR>

EOF2

if ($mrh_flag eq "yes") {
    print "<TR><TD><CENTER><A HREF=\"$pov_infile\">In-going POV-Ray input file here</A></CENTER></TR></TD>"
}

print "<TR><TD>";

if ($plt_pov_flag eq "yes") {

    print << "EOF31";
    <input type=\"text\" name=\"cam_dist\" value="$cam_dist" SIZE=5> 
    Camera distance<BR>

EOF31


print << "EOF36";
    
    X
    <input type=\"text\" name=\"xtrans\" value="0.0" SIZE=5> 
    Y
    <input type=\"text\" name=\"ytrans\" value="0.0" SIZE=5> 
    Z
    <input type=\"text\" name=\"ztrans\" value="0.0" SIZE=5> 
    Translate
    <BR>
    X
    <input type=\"text\" name=\"xrot\" value="0.0" SIZE=5> 
    Y
    <input type=\"text\" name=\"yrot\" value="0.0" SIZE=5> 
    Z
    <input type=\"text\" name=\"zrot\" value="0.0" SIZE=5> 
    Rotate
    <BR>

EOF36
}
print << "EOF32";

</TD></TR><TR><TD>

    R
    <input type=\"text\" name=\"Rback\" value="0.0" SIZE=3> 
    G
    <input type=\"text\" name=\"Gback\" value="0.0" SIZE=3> 
    B
    <input type=\"text\" name=\"Bback\" value="0.0" SIZE=3> 
    &nbsp;Background&nbsp;colour
    <BR>

EOF32

if ($plt_pov_flag eq "yes") {

$mapcol_checked = "";

print << "EOF38";

<SELECT NAME=\"texture\">
<OPTION VALUE="None" SELECTED> None
<OPTION VALUE="Plain"> Plain 
<OPTION VALUE="DMFLightOak"> Light_Oak
<OPTION VALUE="Sandalwood"> Sandalwood
<OPTION VALUE="Yellow_Pine"> Yellow_Pine
<OPTION VALUE="White_Wood"> White_Wood 
<OPTION VALUE="Rosewood"> Rosewood
<OPTION VALUE="Cork"> Cork
<OPTION VALUE="White_Marble"> White_Marble
<OPTION VALUE="Jade"> Jade
<OPTION VALUE="Blue_Sky2"> Blue_Sky2 
<OPTION VALUE="Brass_Valley"> Brass_Valley
<OPTION VALUE="Mirror"> Mirror 
<OPTION VALUE="Gold_Metal"> Gold_Metal
<OPTION VALUE="Copper_Metal"> Copper_Metal
<OPTION VALUE="Chrome_Metal"> Chrome_Metal
</SELECT>&nbsp;Texture&nbsp;&nbsp;

<input type=\"text\" name=\"walldist\" value="5.0" SIZE=4>&nbsp;Dist
</TD></TR><TR><TD>

    R
    <input type=\"text\" name=\"Rmap\" value="0.0" SIZE=3> 
    G
    <input type=\"text\" name=\"Gmap\" value="0.3" SIZE=3> 
    B
    <input type=\"text\" name=\"Bmap\" value="1.0" SIZE=3> 
    &nbsp;
    <input type=\"checkbox\" name=\"mapcol\" value="on" $mapcol_checked>&nbsp;New&nbsp;line&nbsp;colour
    <input type=\"text\" name=\"map_thick\" value="$line_thick" SIZE=4>&nbsp;Line&nbsp;thickness<BR>
    <BR>

EOF38

if ($transmap eq "on") {
print << "EOF33";
    <input type=\"text\" name=\"transmap\" value="0.7" SIZE=5> 
    Map transparency
    <BR>
EOF33
}

print << "EOF42";

</TD></TR><TR><TD>

    <input type=\"text\" name=\"stereo_sep\" value="10.0" SIZE=4>&nbsp;Stereo&nbsp;sep
    <input type=\"checkbox\" name=\"stereo\" value="on">&nbsp;Stereo&nbsp;on
    <input type=\"checkbox\" name=\"shadowless\" value="on">&nbsp;No&nbsp;shadows
    <input type=\"checkbox\" name=\"transparent\" value="on">&nbsp;Transparent&nbsp;GIF
    <input type=\"checkbox\" name=\"perspective\" value="on">&nbsp;Perspective
EOF42
}
print  "<input type=\"text\" name=\"perspangle\" value=\"$perspangle\" SIZE=4>&nbsp;Angle";

print << "EOF22";

<P>
</TD></TR><TR><TD>

<TABLE BORDER=0 CELLPADDING=0 ALIGN="CENTER"><TR><TD ALIGN="LEFT" COLSPAN=3>

<input type=\"radio\" name=\"save\" value="off" onClick="saveCookie(this.form,'Still')"> save
<input type=\"radio\" name=\"restore\" value="off" onClick="restoreCookie(this.form,'Still')">
restore
<input type=\"checkbox\" name=\"debug\" value="on"> Debug
<input type=\"checkbox\" name=\"monitor\" value="on" CHECKED> Monitor
EOF22

if ($public_flag ne "yesORnoIEdisabled") {
print << "EOF23";
</TD></TR><TR><TD ALIGN="LEFT" COLSPAN=3>
<input type=\"checkbox\" name=\"mail_flag\" value="on"> 
Mail&nbsp;results&nbsp;to&nbsp;:
</TD><TD ALIGN="RIGHT">
</TD></TR><TR><TD COLSPAN=3>
<input type=\"text\" name=\"mail_addr\" value=\"$def_mail_addr\" SIZE=33> 
EOF23
}
print << "EOF24";
</TD></TR></TABLE>

</TD></TR><TR><TD BGCOLOR=$run_colour>
<input type=\"text\" name=\"width\" value=\"$thumb_size\" SIZE=5> 
Image width (pixels)<BR>
<SELECT NAME=\"quality\">
<OPTION VALUE="0" SELECTED> 0
<OPTION VALUE="1"> 1 <OPTION VALUE="2"> 2
<OPTION VALUE="3"> 3 <OPTION VALUE="4"> 4
<OPTION VALUE="5"> 5 <OPTION VALUE="6"> 6
<OPTION VALUE="7"> 7 <OPTION VALUE="8"> 8
<OPTION VALUE="9"> 9
</SELECT>
Quality
<input type=\"checkbox\" name=\"alias\" value="on"> 
Antialiasing

</TD></TR><TR><TD BGCOLOR=$run_colour>

<input type=\"hidden\" name=\"plt_infile\" value = \"$plt_infile\">\n
<input type=\"hidden\" name=\"tmp_lstfile\" value = \"$tmp_lstfile\">\n
<input type=\"hidden\" name=\"plt_pov_flag\" value = \"$plt_pov_flag\">\n
<input type=\"hidden\" name=\"aspect_ratio\" value = \"$aspect_ratio\">\n
<input type=\"hidden\" name=\"id2\" value = \"$$\">\n

<TABLE BORDER=0 ALIGN=\"CENTER\" VALIGN=\"CENTER\"><TR><TD>

<TD><input type=\"submit\" value=\"Make Image\">
</TD><TD><input type=\"reset\" value=\"Reset\">

</TD><TD><TABLE BORDER=1 CELLPADDING=2><TR><TD>
<A HREF=\"$Helpfile\#POVRAY\" TARGET=\"HELP\">Help</A>
</TD></TR></TABLE>

</TD></TR></TABLE>

</TD></TR></TABLE>

</FORM>

</BODY></HTML>
EOF24

# Load JavaScript cookie functions
#---------------------------------

CookieFunctions();

}

######################################################################
# Subroutine other_progs() MRH 
######################################################################

sub other_progs {

# Offer other progs if their exes are good
#-----------------------------------------

my $pcount;
my $ncols;

$pcount = 0;
$ncols = 3;

print "<TABLE BORDER=2 CELLPADDING=3 ALIGN=\"CENTER\"><TR><TD COLSPAN=3>Other input forms</TD></TR><TR>\n";

if (-x $plt_pov) {
    print "<TD BGCOLOR=$cell_colour><A HREF=\"$script_name\?Pltp&frames=$frames_type\" TARGET=\"_top\"><B>Plt_pov</B></B></A></TD>\n";
    $pcount++;
}

if ($public_flag eq "yes") {$pcount++}; # why ??
if (($public_flag eq "no") || ($Trusted_flag eq "yes")) {
  if (-x $molscript) {
    print "<TD BGCOLOR=$cell_colour><A HREF=\"$script_name\?Mols&frames=$frames_type\" TARGET=\"_top\"><B>Molscript</B></A></TD>\n";
    $pcount++;
  }
}

if ($pcount == $ncols) {
    print "</TR><TR>\n";
    $pcount = 0;
}

if ($public_flag ne "yes") {
  if (-x $surfout) {
    print "<TD BGCOLOR=$cell_colour><A HREF=\"$script_name\?Gras&frames=$frames_type\" TARGET=\"_top\"><B>Grasp</B></A></TD>\n";
    $pcount++;
  }
}

if ($pcount == $ncols) {
    print "</TR><TR>\n";
    $pcount = 0;
}

if ($public_flag ne "yes") {
  if (-x $ligplot) {
    print "<TD BGCOLOR=$cell_colour><A HREF=\"$script_name\?Ligp&frames=$frames_type\" TARGET=\"_top\"><B>Ligplot</B></A></TD>\n";
    $pcount++;
  }
}

if ($pcount == $ncols) {
    print "</TR><TR>\n";
    $pcount = 0;
}

print "<TD BGCOLOR=$cell_colour><A HREF=\"$script_name\?Scri&frames=$frames_type\" TARGET=\"_top\"><B>POV-Ray script</B></A></TD>\n";
$pcount++;


print "<TD BGCOLOR=77DFFF><A HREF=\"$script_name\?Tidy\" TARGET=\"Cleanup\"><B>Cleanup</B></A></TD>\n";
#print << "EOHT";
#<form ACTION="$script_name?Tidy" METHOD="POST" TARGET="$pov_win">
#<TD VALIGN="CENTER"><input type="submit" value="Run">
#</FORM>
#EOHT
$pcount++;


print "</TR><TR>\n";
$pcount=0;

print "<TR><TD COLSPAN=3>Display type</TD></TR><TR>\n";

print "<TD BGCOLOR=$cell_colour><A HREF=\"$script_name\" TARGET=\"_top\">Frames</A></TD>\n";
$pcount++;

if ($pcount == $ncols) {
    print "</TR><TR>\n";
    $pcount = 0;
}

print "<TD BGCOLOR=$cell_colour><A HREF=\"$script_name\?Pltp&frames=2\" TARGET=\"_top\">New windows</A></TD>\n";
$pcount++;

if ($pcount == $ncols) {
    print "</TR><TR>\n";
    $pcount = 0;
}

print "<TD BGCOLOR=$cell_colour><A HREF=\"$script_name\?Pltp&frames=1\" TARGET=\"_top\">1 window</A></TD>\n";

print "</TR></TABLE>\n";

}

######################################################################
# Subroutine monitor_growth(file, predicted_size) MRH 
######################################################################
sub  MonitorGrowth ($file, $size, $url, $exe, $start, $end)  {

my ($file, $size, $url, $exe, $start, $end) = @_;

$| = 1;

if (-x $file_growth_monitor) {

  print << "FGM";
  
<SCRIPT>

if (!document.all) {

  window.open('$url_bin$file_growth_monitor?file=$file&psize=$size&url=$url&exe=$exe&start=$start&end=$end&id=$id&netscape_flag=Yes','$id2','innerWidth=800,innerHeight=200,dependent=true,width=800,height=200,scrollbars=yes,resizable=yes');

} else {
  
    window.open('$url_bin$file_growth_monitor?file=$file&psize=$size&url=$url&exe=$exe&start=$start&end=$end&id=$id&netscape_flag=No','$id2','innerWidth=800,innerHeight=200,dependent=true,width=800,height=200,scrollbars=yes,resizable=yes');
  
}
//-->
</SCRIPT>
    
FGM
  }

}

######################################################################
# Subroutine CookieFunctions() MRH 
######################################################################

sub CookieFunctions () {
  
print << "EOC";
  
<SCRIPT LANGUAGE="JavaScript">
<!---
      
//brow_ver = navigator.appVersion;
//if (brow_ver.slice(0,1) != "4") {
//  Alert("Browser too old for JavaScript: " + brow_ver + "<P>");
//}

function  saveCookie(form,panel) {

  string = "";

// Stills items

  if (typeof(form.debug) != "undefined") {string  += "&debug.checked="+form.debug.checked}
  if (typeof(form.monitor) != "undefined") {string  += "&monitor.checked="+form.monitor.checked}
  if (typeof(form.cam_dist) != "undefined") {string  += "&cam_dist.value="+form.cam_dist.value}
  if (typeof(form.xtrans) != "undefined") {string  += "&xtrans.value="+form.xtrans.value}
  if (typeof(form.ytrans) != "undefined") {string  += "&ytrans.value="+form.ytrans.value}
  if (typeof(form.ztrans) != "undefined") {string  += "&ztrans.value="+form.ztrans.value}
  if (typeof(form.xrot) != "undefined") {string  += "&xrot.value="+form.xrot.value}
  if (typeof(form.yrot) != "undefined") {string  += "&yrot.value="+form.yrot.value}
  if (typeof(form.zrot) != "undefined") {string  += "&zrot.value="+form.zrot.value}
  if (typeof(form.Rback) != "undefined") {string  += "&Rback.value="+form.Rback.value}
  if (typeof(form.Gback) != "undefined") {string  += "&Gback.value="+form.Gback.value}
  if (typeof(form.Bback) != "undefined") {string  += "&Bback.value="+form.Bback.value}
  if (typeof(form.texture) != "undefined") {string  += "&texture.selectedIndex="+form.texture.selectedIndex}
  if (typeof(form.walldist) != "undefined") {string  += "&walldist.value="+form.walldist.value}
  if (typeof(form.mapcol) != "undefined") {string  += "&mapcol.checked="+form.mapcol.checked}
  if (typeof(form.Rmap) != "undefined") {string  += "&Rmap.value="+form.Rmap.value}
  if (typeof(form.Gmap) != "undefined") {string  += "&Gmap.value="+form.Gmap.value}
  if (typeof(form.Bmap) != "undefined") {string  += "&Bmap.value="+form.Bmap.value}
  if (typeof(form.map_thick) != "undefined") {string  += "&map_thick.value="+form.map_thick.value}
  if (typeof(form.stereo_sep) != "undefined") {string  += "&stereo_sep.value="+form.stereo_sep.value}
  if (typeof(form.stereo.checked) != "undefined") {string  += "&stereo.checked="+form.stereo.checked}
  if (typeof(form.shadowless) != "undefined") {string  += "&shadowless.checked="+form.shadowless.checked}
  if (typeof(form.transparent) != "undefined") {string  += "&transparent.checked="+form.transparent.checked}
  if (typeof(form.perspective) != "undefined") {string  += "&perspective.checked="+form.perspective.checked}
  if (typeof(form.perspangle) != "undefined") {string  += "&perspangle.value="+form.perspangle.value}
  if (typeof(form.mail_flag) != "undefined") {string  += "&mail_flag.checked="+form.mail_flag.checked}
  if (typeof(form.mail_addr) != "undefined") {string  += "&mail_addr.value="+form.mail_addr.value}
  if (typeof(form.width) != "undefined") {string  += "&width.value="+form.width.value}
  if (typeof(form.quality) != "undefined") {string  += "&quality.selectedIndex="+form.quality.selectedIndex}
  if (typeof(form.alias) != "undefined") {string  += "&alias.checked="+form.alias.checked}

  if (typeof(form.transmap) != "undefined")  {string += "&transmap.value="+form.transmap.value}

// Movie items

  if (typeof(form.xtrans0) != "undefined") {string += "&xtrans0.value="+form.xtrans0.value}
  if (typeof(form.ytrans0) != "undefined") {string += "&ytrans0.value="+form.ytrans0.value}
  if (typeof(form.ztrans0) != "undefined") {string += "&ztrans0.value="+form.ztrans0.value}
  if (typeof(form.xrot0) != "undefined") {string += "&xrot0.valu="+form.xrot0.value}
  if (typeof(form.yrot0) != "undefined") {string += "&yrot0.value="+form.yrot0.value}
  if (typeof(form.zrot0) != "undefined") {string += "&zrot0.value="+form.zrot0.value}
  if (typeof(form.frame_start) != "undefined") {string += "&frame_start.value="+form.frame_start.value}
  if (typeof(form.steps) != "undefined") {string += "&steps.value="+form.steps.value}
  if (typeof(form.rock) != "undefined") {string += "&rock.checked="+form.rock.checked}
  if (typeof(form.pendulum) != "undefined") {string += "&pendulum.checked="+form.pendulum.checked}
  if (typeof(form.ortho_flag) != "undefined") {string += "&ortho_flag.checked="+form.ortho_flag.checked}
  if (typeof(form.assemble) != "undefined") {string += "&assemble.checked="+form.assemble.checked}
  if (typeof(form.append) != "undefined") {string += "&append.checked="+form.append.checked}
  if (typeof(form.morph) != "undefined") {string += "&morph.checked="+form.morph.checked}

  string += "&LastEntry="+"Now";

  Expire = new Date(2025,3,8);

  cookieName = "Molray"+panel;

  document.cookie = cookieName + "=" + escape(string) + "; expires=" + Expire.toGMTString();
  
//  alert ("val1 : " + document.cookie);
}

//######################################################################

function  restoreCookie(form,panel) {

cookieName = "Molray"+panel;
len =  document.cookie.length;
begin = document.cookie.indexOf(cookieName+"=");
end = document.cookie.indexOf(";",begin);
if (end == -1) {end = len};

if (begin == -1) {
  alert("No cookie found with name : " + cookieName);
  return null;
}

string =  unescape(document.cookie.substring(begin,end));
string = string.substr(string.search("=")+1);

// Step through encoded items

array = string.split("&");

for (var k=1; k<=100; k++) {
  
  arrayk=array[k]; 
  aa=arrayk.split("=");
  
  if (aa[1] == "true") {aa[1]=true};
  if (aa[1] == "false") {aa[1]=false};
  
  if (aa[0] == "LastEntry") {break} 
  
// Still items

  else if (aa[0] == "debug.checked" && typeof(form.debug) != "undefined") {form.debug.checked = aa[1]} 
  else if (aa[0] == "monitor.checked" && typeof(form.monitor) != "undefined") {form.monitor.checked = aa[1]}
  else if (aa[0] == "cam_dist.value" && typeof(form.cam_dist) != "undefined") {form.cam_dist.value = aa[1]}
  else if (aa[0] == "xtrans.value" && typeof(form.xtrans) != "undefined") {form.xtrans.value = aa[1]}
  else if (aa[0] == "ytrans.value" && typeof(form.ytrans) != "undefined") {form.ytrans.value = aa[1]}
  else if (aa[0] == "ztrans.value" && typeof(form.ztrans) != "undefined") {form.ztrans.value = aa[1]}
  else if (aa[0] == "xrot.value" && typeof(form.xrot) != "undefined") {form.xrot.value = aa[1]}
  else if (aa[0] == "yrot.value" && typeof(form.yrot) != "undefined") {form.yrot.value = aa[1]}
  else if (aa[0] == "zrot.value" && typeof(form.zrot) != "undefined") {form.zrot.value = aa[1]}
  else if (aa[0] == "Rback.value" && typeof(form.Rback) != "undefined") {form.Rback.value = aa[1]}
  else if (aa[0] == "Gback.value" && typeof(form.Gback) != "undefined") {form.Gback.value = aa[1]}
  else if (aa[0] == "Bback.value" && typeof(form.Bback) != "undefined") {form.Bback.value = aa[1]}
  else if (aa[0] == "texture.selectedIndex" && typeof(form.texture) != "undefined") {form.texture.selectedIndex = aa[1]}
  else if (aa[0] == "walldist.value" && typeof(form.walldist) != "undefined") {form.walldist.value = aa[1]}
  else if (aa[0] == "mapcol.checked" && typeof(form.mapcol) != "undefined") {form.mapcol.checked = aa[1]}
  else if (aa[0] == "Rmap.value" && typeof(form.Rmap) != "undefined") {form.Rmap.value = aa[1]}
  else if (aa[0] == "Gmap.value" && typeof(form.Gmap) != "undefined") {form.Gmap.value = aa[1]}
  else if (aa[0] == "Bmap.value" && typeof(form.Bmap) != "undefined") {form.Bmap.value = aa[1]}
  else if (aa[0] == "map_thick.value" && typeof(form.map_thick) != "undefined") {form.map_thick.value = aa[1]}
  else if (aa[0] == "stereo_sep.value" && typeof(form.stereo_sep) != "undefined") {form.stereo_sep.value = aa[1]}
  else if (aa[0] == "stereo.checked" && typeof(form.stereo) != "undefined") {form.stereo.checked = aa[1]}
  else if (aa[0] == "shadowless.checked" && typeof(form.shadowless) != "undefined") {form.shadowless.checked = aa[1]}
  else if (aa[0] == "transparent.checked" && typeof(form.transparent) != "undefined") {form.transparent.checked = aa[1]}
  else if (aa[0] == "mail_flag.checked" && typeof(form.mail_flag) != "undefined") {form.mail_flag.checked = aa[1]}
  else if (aa[0] == "mail_addr.value" && typeof(form.mail_addr) != "undefined") {form.mail_addr.value = aa[1]}
  else if (aa[0] == "perspective.checked" && typeof(form.perspective) != "undefined") {form.perspective.checked = aa[1]}
  else if (aa[0] == "perspangle.value" && typeof(form.perspangle) != "undefined") {form.perspangle.value = aa[1]}
  else if (aa[0] == "width.value" && typeof(form.width) != "undefined") {form.width.value = aa[1]}
  else if (aa[0] == "quality.selectedIndex" && typeof(form.quality) != "undefined") {form.quality.selectedIndex = aa[1]}
  else if (aa[0] == "alias.checked" && typeof(form.alias) != "undefined") {form.alias.checked = aa[1]}

  else if (aa[0] == "transmap.value" && typeof(form.transmap) != "undefined") {form.transmap.value = aa[1]}

// Movie items (items with equivalent names as in stills are above)

  else if (aa[0] == "xtrans0.value" && typeof(form.xtrans0) != "undefined") {form.xtrans0.value = aa[1]}
  else if (aa[0] == "ytrans0.value" && typeof(form.ytrans0) != "undefined") {form.ytrans0.value = aa[1]}
  else if (aa[0] == "ztrans0.value" && typeof(form.ztrans0) != "undefined") {form.ztrans0.value = aa[1]}
  else if (aa[0] == "xrot0.value" && typeof(form.xrot0) != "undefined") {form.xrot0.value = aa[1]}
  else if (aa[0] == "yrot0.value" && typeof(form.yrot0) != "undefined") {form.yrot0.value = aa[1]}
  else if (aa[0] == "zrot0.value" && typeof(form.zrot0) != "undefined") {form.zrot0.value = aa[1]}
  else if (aa[0] == "frame_start.value" && typeof(form.frame_start) != "undefined") {form.frame_start.value = aa[1]}
  else if (aa[0] == "steps.value" && typeof(form.steps) != "undefined") {form.steps.value = aa[1]}
  else if (aa[0] == "rock.checked" && typeof(form.rock) != "undefined") {form.rock.checked = aa[1]}
  else if (aa[0] == "pendulum.checked" && typeof(form.pendulum) != "undefined") {form.pendulum.checked = aa[1]}
  else if (aa[0] == "ortho_flag.checked" && typeof(form.ortho_flag) != "undefined") {form.ortho_flag.checked = aa[1]}
  else if (aa[0] == "assemble.checked" && typeof(form.assemble) != "undefined") {form.assemble.checked = aa[1]}
  else if (aa[0] == "append.checked" && typeof(form.append) != "undefined") {form.append.checked = aa[1]}
  else if (aa[0] == "morph.checked" && typeof(form.morph) != "undefined") {form.morph.checked = aa[1]}

    }

return null;

}

//##########################################################

function makeObject() {
      return null;
}

function makeArray() {
      return null;
}

//##########################################################

//-->
</SCRIPT>
EOC
}


######################################################################
# Subroutine ForkOff(command) MRH 
######################################################################

sub ForkOff {

    my ($command) = @_;

    $| = 1;

    if ((fork) == 0) {
	exec($command);
    }

}

######################################################################
# Subroutine User_Data sorts out form data-pairs.
######################################################################

## Use as follows :
## %data_received = &User_Data();
## $value = $data_received{item_name};

sub User_Data {
   local (%user_data, $user_string, $name_value_pair, 
          @name_value_pairs, $name, $value);

   if ($ENV{'REQUEST_METHOD'} eq "POST") {
     read(STDIN, $user_string, $ENV{'CONTENT_LENGTH'});
   } else {
      $user_string = $ENV{'QUERY_STRING'};
   }
   $user_string =~ s/\+/ /g;

     @name_value_pairs = split(/&/, $user_string);

   foreach $name_value_pair (@name_value_pairs) {
       ($name, $value) = split(/=/, $name_value_pair);
    $name =~
      s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/ge;
    $value =~ 
      s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/ge;

     if (defined($user_data{$name})) {
         $user_data{$name} .= " : " . $value;
     } else {
         $user_data{$name} = $value;
     }
   }
  return %user_data;
}


######################################################################
# Subroutine User_Data_Array sorts out form data-pairs and returns array
######################################################################

sub User_Data_Array {
   local (%user_data, $user_string, $name_value_pair, 
          @name_value_pairs, $name, $value);

   if ($ENV{'REQUEST_METHOD'} eq "POST") {
     read(STDIN, $user_string, $ENV{'CONTENT_LENGTH'});
   } else {
      $user_string = $ENV{'QUERY_STRING'};
   }
   $user_string =~ s/\+/ /g;

     @name_value_pairs = split(/&/, $user_string);

   foreach $name_value_pair (@name_value_pairs) {
       ($name, $value) = split(/=/, $name_value_pair);
    $name =~
      s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/ge;
    $value =~ 
      s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/ge;

     if (defined($user_data{$name})) {
         $user_data{$name} .= " : " . $value;
     } else {
         $user_data{$name} = $value;
     }
   }
  return @name_value_pairs;
}


######################################################################
# Subroutine URLDecode decodes special characters in URL
######################################################################

sub URLDecode {
               my $theURL = $_[0];
               $theURL =~ tr/+/ /;
               $theURL =~ s/%([a-fA-F0-9]{2,2})/chr(hex($1))/eg;
               $theURL =~ s/<!--(.|\n)*-->//g;
               return $theURL;
}