#!/usr/bin/perl
#
# Yönetici şifresini doğru giren kullanıcılara, birikmiş başvuru
# formlarını çeşitli düzenler içinde gösteren raporlarla ilgili
# seçenekleri gösterir.
#
# Önce bu programı çalıştırmak isteyen kullanıcının bir önceki
# adımda şifreyi dogru girmiş olup olmadığını kontrol etmek lazım.
# Eğer kullanıcı şifreyi doğru girdiyse, tarayıcısının
# "sifre=dogru" diye bir Cookie'ye sahip olması gerekir.
#
# Kullanıcının tarayıcısında tanımlı Cookie'ler arasında bizim alan
# adımız için tanımlı olanları HTTP_COOKIE isimli ortam değişkeni
# içinde yer alır.
$cookie = $ENV{'HTTP_COOKIE'};
$yetkili=0;
$yetkili=1 if ($cookie=~ /sifre\=dogru/);
#
# Henüz şifreyi girmemişse şifre giriş sayfasına gönderelim
if ( !$yetkili ) {
print "Location: /i_kaynak/sifre_sor.html\n\n";
exit;
}
# Şifreyi doğru girmiş, menüyü sunalım
print "Content-type: text/html\n\n";
print <<_SON_;
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-9">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
</HEAD>
<TITLE>CGI AS Insan Kaynakları</TITLE>
<center><img src="/i_kaynak/logo.gif">
<p><font size="+2"><b>Başvuru Listeleri</b></font><p>
<form method="POST" action="/cgi-bin/i_kaynak/raporlar.pl">
<table width="90%" border="0" cellpadding="6" cellspacing="6">
<tr>
<td valign="top">
<font size="+1">Sıralama : </font></font>
</td>
<td>
<input type="radio"
name="SIRALAMA"
checked
value="TARIH_SIRALI">Tarih sırasında<br>
<input type="radio"
name="SIRALAMA"
value="ISIM_SIRALI">İsim sırasında
</td>
</tr>
<tr>
<td valign="top">
<font size="+1">Eğitim durumuna göre : </font>
</td>
<td>
<select size="3" name="EGITIM" >
<option selected>Hepsi</option>
<option>Doktora</option>
<option>Yüksek Lisans</option>
<option>Lisans</option>
<option>Önlisans</option>
<option>Açıköğretim</option>
<option>Lise</option>
<option>Ortaokul</option>
<option>İlkokul</option>
</select>
</td>
</tr>
<tr>
<td valign="top">
<font size="+1">İstenen göreve göre : </font>
</td>
<td>
<select size="3" name="GOREV" >
<option selected>Hepsi</option>
<option>Bilgi İşlem</option>
<option>Satış/Pazarlama Böl.</option>
<option>Araştırma Böl.</option>
<option>Teknik Servis Böl.</option>
<option>Sekreterlik</option>
<option>Diğer</option>
</select>
</td>
</tr>
<tr>
<td> </td>
<td>
<input type="submit" value=" Listele ">
</td>
</tr>
</table>
</form>
</center>
</body></html>
_SON_
exit;