#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);

# ------------------------------------------------------------ #
use DBI ;
use CGI qw(:standard);
require "conf/css.cgi"     ;

# ------------------------------------------------------------ #

$style = &getStyle(param('style'));

print "Content-type: text/html\n\n";

# ------------------------------------------------------------ #

print <<EOM;
<html>
  <head>
    <title>Expo2003 - Truck Uploader</title>
      <script language="Javascript">
        if (top.location != location) top.location.href = location.href; 
      </script>
    <link HREF="$style" REL=STYLESHEET TYPE="text/css">

    <SCRIPT LANGUAGE="JavaScript">
      <!-- begin
      var iDot = 0
      var tmID = null
      var imgNew = new Image
      var imgold = new Image
      var imgtrans = new Image
      imgNew.src = "gifs/purp.gif"
      imgold.src = "gifs/blue.gif"
      imgtrans.src = "gifs/blak.gif"
      // ShowStatus()
      // Function will open a new window
      // using URL passed to it
      function Progress() {
        document.images[iDot].src=imgNew.src
        // incr dot counter
        iDot ++
        if (iDot > 9 ) {
          iDot = 0
          clearTimeout(tmID)
          document.images[0].src=imgold.src
          document.images[1].src=imgold.src
          document.images[2].src=imgold.src
          document.images[3].src=imgold.src
          document.images[4].src=imgold.src
          document.images[5].src=imgold.src
          document.images[6].src=imgold.src
          document.images[7].src=imgold.src
          document.images[8].src=imgold.src
          document.images[9].src=imgtrans.src
          // return  //all done so stop
          }
        tmID = setTimeout("Progress()", 1000)  //waites 1 second then repeats
      }
      // end -->
    </SCRIPT>
  </head>
  <body id=all>
      <center><big><i>Expo2003 Truck Uploader</i></big><br></center><p>

    <table align=center CELLSPACING="0" CELLPADDING="2" class=detail width="480">
      <tr>
        <td><ul><li>Trucks should always be <a href="http://rhinoseros.com/~mtmg/podzip/">podzipped</a>.</li>
            <li>An <i>optional</i> <a href="http://forum.karf.net/ubb/Forum10/HTML/000020.html">screen shot</a> must be 640x480 jpg format only.</li>
            <li>Uploading a truck here is easy.  Just fill in the boxes, browse to the zipped truck on your hard drive, and then click the Upload! button.</li>
            <li>If there are any errors, fix the problem and try again. </li>
            <li>Your truck will appear on the download page AFTER contest closing.</li></ul>
        </td>
      </tr>
    </table>

<FORM METHOD="POST" ACTION="http://mtm2.com/~trucks/expo03.cgi"  ENCTYPE="multipart/form-data" >

    <table align=center CELLSPACING="0" CELLPADDING="2" class=detail>
      <tr class=header1>
        <td COLSPAN="2">MTM2 Trucks Only</td>
      </tr>
      <tr>
        <td align="right"> Truck Name : </td>
        <td><input type="text" name="truck" size="48" MAXLENGTH=64 value=""></td>
      </tr>
      <tr>
        <td align="right"> Maker : </td>
        <td><INPUT TYPE="text" NAME="maker" size="48" MAXLENGTH=64 value=""></td>
      </tr>
      <tr>
        <td align="right"> Type : </td>
        <td>
          <select name="type">
            <option value="" selected>~ Type ~</option>
            <option value="Repaint">Repaint</option>
            <option value="Custom">Custom</option>
            <option value="Replica">Replica</option>
            <option value="Weird">Weird</option>
            <option value="Small Tires">Small Tires</option>
          </select>
        </td>
      </tr>
      <tr>
        <td align="right"> Picture : </td>
        <td><INPUT TYPE="file" NAME="pic" size="48" MAXLENGTH=80 value=""></td>
      </tr>
      <tr>
        <td align="right"> Zip File : </td>
        <td><INPUT TYPE="file" NAME="zip" size="48" MAXLENGTH=80 value=""></td>
      </tr>
      <tr>
        <td colspan=2 class=offset align=center>
        <input type="hidden" name="status" value="3">
        <INPUT TYPE="submit" VALUE="Upload!" onClick="Progress()"></td>
      </tr>
    </table> 
</form>

    <HR WIDTH="50%">
    <CENTER>You will be informed when the upload is complete.<br>
    <IMG SRC="gifs/blue.gif" HEIGHT=10 WIDTH=10>&nbsp;&nbsp;
    <IMG SRC="gifs/blue.gif" HEIGHT=10 WIDTH=10>&nbsp;&nbsp;
    <IMG SRC="gifs/blue.gif" HEIGHT=10 WIDTH=10>&nbsp;&nbsp;
    <IMG SRC="gifs/blue.gif" HEIGHT=10 WIDTH=10>&nbsp;&nbsp;
    <IMG SRC="gifs/blue.gif" HEIGHT=10 WIDTH=10>&nbsp;&nbsp;
    <IMG SRC="gifs/blue.gif" HEIGHT=10 WIDTH=10>&nbsp;&nbsp;
    <IMG SRC="gifs/blue.gif" HEIGHT=10 WIDTH=10>&nbsp;&nbsp;
    <IMG SRC="gifs/blue.gif" HEIGHT=10 WIDTH=10>&nbsp;&nbsp;
    <IMG SRC="gifs/blue.gif" HEIGHT=10 WIDTH=10>&nbsp;&nbsp;
    <IMG SRC="gifs/blak.gif" HEIGHT=3 WIDTH=3>
    <BR>Thank you.</CENTER>

</body>
</html>

EOM


$style = undef;


# EOF







