#!/usr/bin/perl 

$kat="bussid/";
open (F, "ls -l1 $kat |");
@list=<F>;
close(F);
print "Content-type: text/html\n\n";

use POSIX qw(strftime);
#$kell = strftime "%a %b %e %H:%M:%S %Y", localtime;
$kell = strftime "%H:%M", localtime;
@k= split(/:/,$kell);
$k[0]=$k[0]+1;
$kell2= join(":",@k);

$kuup = strftime "%e.%m.%Y", localtime;
chop(@list);
$bussid=join(", ",@list);

print <<lopp;

<html>

<head>
<title>Bussid</title>
</head>

<body bgcolor="#D2F2FF">

Muutmisel praegu...

<script language="JavaScript">
function valik(){

// kust="otsi1.pl?BNr="+document.otsi.BNr.value+"&WeekDay="+document.otsi.WeekDay.value;
// alert(kust);
// document.location=kust;
}

</script>

<form name="otsi" action="otsi.pl" method="GET">
    <p align="center"><font size="6" face="Arial">Tartu linna
    bussiliikluse info</font></p>
N2dalap2ev
          <select name="WeekDay" size="1" >
                <option selected value="E-R">E-R</option>
     		<option value="L">L</option>
                <option value="P">P</option>
                <option value="RP">RP</option>
		</select>
<br>        
Väljumisaeg alates
	<input type="text"
        size="6" maxlength="5" name="algaeg" value="$kell">
<br>
        
Kuni             
	<input type="text" size="6" maxlength="5" name="loppaeg"
                    value="$kell2">
<br>
Buss

            <select name="BNr" size="1" onChange="valik()">
     		<option value="2">2</option>
                <option value="2a">2a</option>
                <option selected value="k6ik">kõik</option>
		</select>
<br>
Kust	
            <select name="kust" size="1">

                <option value="FI">FI</option>
     		<option value="Variku">Variku</option>
                <option value="Raudtee">Raudtee</option>
                <option value="Autokeskus">Autokeskus</option>
                <option value="Ropkamõisa">Ropkamõisa</option>
                <option value="E-kaubamaja">E-kaubamaja</option>
                <option value="Tehase">Tehase</option>
                <option value="Raua">Raua</option>
                <option value="Kuu">Kuu</option>
                <option value="Rebase">Rebase</option>
                <option value="Turu">Turu</option>
                <option selected value="Kesklinn">Kesklinn</option>
                <option value="Riia mägi">Riia mägi</option>
                <option value="Kastani">Kastani</option>
                <option value="Lembitu">Lembitu</option>
                <option value="Kaare">Kaare</option>
                <option value="Soinaste">Soinaste</option>
                <option value="Raja">Raja</option>
                <option value="Riia ring">Riia ring</option>
            </select>
<br>
Kuhu
            	<select name="kuhu" size="1">
                <option value="tyhi"></option>
                <option selected value="FI">FI</option>
     		<option value="Variku">Variku</option>
                <option value="Raudtee">Raudtee</option>
                <option value="Autokeskus">Autokeskus</option>
                <option value="Ropkamõisa">Ropkamõisa</option>
                <option value="E-kaubamaja">E-kaubamaja</option>
                <option value="Tehase">Tehase</option>
                <option value="Raua">Raua</option>
                <option value="Kuu">Kuu</option>
                <option value="Rebase">Rebase</option>
                <option value="Turu">Turu</option>
                <option value="Kesklinn">Kesklinn</option>
                <option value="Riia mägi">Riia mägi</option>
                <option value="Kastani">Kastani</option>
                <option value="Lembitu">Lembitu</option>
                <option value="Kaare">Kaare</option>
                <option value="Soinaste">Soinaste</option>
                <option value="Raja">Raja</option>
                <option value="Riia ring">Riia ring</option>
            </select>
<br>
<BR><INPUT TYPE="checkbox" NAME="vahepeat" CHECKED> Märgista, kui soovid ka
vahepeatusi.      

        <input type="reset" name="reset" value="Reset">
	<input type="submit" name="otsi" value="Otsi">
<br>
    </center></div><p><font size="2" face="Arial">Andmebaas
    sisaldab andmeid busside <strong>$bussid</strong>
    kohta.</font></p>
    <hr>
</form>
</body>
</html>
lopp
