#!/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 - Track Uploader</title>
      <script language="Javascript">
        if (top.location != location) top.location.href = location.href; 
      </script>
    <script TYPE="text/javascript" LANGUAGE="JavaScript" src="jscommon.js"></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 bgcolor="#FFFFFF">
      <center><big><i>Expo2003 Track Uploader</i></big><br></center><p>

    <table align=center CELLSPACING="0" CELLPADDING="2" class=detail width="480">
      <tr>
        <td><ul><li>Uploading a track here is easy.  Just fill in the boxes, browse to the 
            zipped track 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 track will appear on the download page AFTER contest closing.</li></ul>
        </td>
      </tr>
    </table>

<FORM METHOD="POST" ACTION="http://mtm2.com/~tracks/expo03.cgi"  ENCTYPE="multipart/form-data" >

    <table align=center CELLSPACING="0" CELLPADDING="2" class=detail>
      <tr class=header1>
        <td COLSPAN="2">MTM2 Tracks Only</td>
      </tr>
      <tr>
        <td align="right"> Track Name : </td>
        <td><input type="text" name="track" size="48" value=""></td>
      </tr>
      <tr>
        <td align="right"> Maker : </td>
        <td><INPUT TYPE="text" NAME="maker" size="48" value=""></td>
      </tr>
      <tr>
        <td align="right"> Type : </td>
        <td>
          <select name="type">
            <option value="" selected>~ Type ~</option>
            <option value="Circuit">Circuit</option>
            <option value="Rally">Rally</option>
            <option value="Rumble">Rumble</option>
            <option value="Arena">Arena</option>
            <option value="CNR">CNR</option>
            <option value="Drag">Drag</option>
            <option value="Freestyle">Freestyle</option>
            <option value="mtm1">mtm1</option>
            <option value="Music Addon">Music Addon</option>
            <option value="Straight-a-way">Straight-a-way</option>
            <option value="SX / MX">SX / MX</option>
            <option value="Traxx School">Traxx School</option>
            <option value="RnR">RnR</option>
            <option value="Beta">Beta</option>
            <option value="Free Roam">Free Roam</option>
          </select>
        </td>
      </tr>
      <tr>
        <td align="right"> Zip File : </td>
        <td><INPUT TYPE="file" NAME="zip" size="48" MAXLENGTH=80 ></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;

# end of file






