#!/usr/bin/perl
#
# GET metoduyla anahtarı gelen başvuru kaydının ayrıntılarını
# görüntüler
#
# QUERY_STRING ortam değişkeni içinde "anahtar=191.168.10.1200105121345"
# gibi bir değer gelmiş olmalı.
#
require "fonksiyonlar.pl"; # hata,html_baslat ve html_bitir fonksiyonları
$get_parametresi = $ENV{'QUERY_STRING'};
($param_adi, $anahtar) = split("=", $get_parametresi);
$anahtar =~ tr/+/ /;
$anahtar =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
#
# Belirtilen anahtara ilişkin kayıt olup olmadığı kontrol edilmeli
dbmopen(%BASVURULAR, "basvurular", 0600) or &hata ("basvurular dosyası açılamadı!");
$dbm_kaydi = $BASVURULAR{$anahtar};
if( !$dbm_kaydi) {
&hata("Kayıt bulunamadı!");
exit;
}
#
# Kayıt bulundu, ayrıntıları göster
($ad_soyad, $cinsiyet, $d_tarihi, $e_posta, $egitim, $son_okul,
$meslek, $gorev, $adres1, $adres2, $adres3, $tel,
$ip_adresi, $basvuru_tarihi, $basvuru_saati) =
unpack ("A30A1A10A40A32A32A32A32A32A32A32A32A16A10A5", $dbm_kaydi);
dbmclose(%BASVURULAR);
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"><br>
<font size="4"><b>İnsan Kaynakları<b></font><br>
<center>
<font size="+1"><a href="javascript:self.close()">Kapat</a></font><p>
</center>
<table border="0" width="85%" cellspacing="1" cellpadding="1">
<tr>
<td colspan="3" bgcolor="#000000">
<b><font color="#ffffff">Başvuru Ayrıntıları</font></b></br>
</td>
</tr>
<tr>
<td width="7%"></td>
<td width="65%" valign="top" >Adı, Soyadı</td>
<td width="97%"><b>$ad_soyad</b></td>
</tr>
<tr>
<td width="7%"></td>
<td width="65%" valign="top">Cinsiyeti</td>
<td width="97%"><b>$cinsiyet</b></td>
</tr>
<tr>
<td width="7%"></td>
<td width="65%" valign="top">Doğum Tarihi</td>
<td width="97%"><b>$d_tarihi</b></td>
</tr>
<tr>
<td width="7%"></td>
<td width="65%" valign="top">e-Posta adresi</td>
<td width="97%"><b>$e_posta</b></td>
</tr>
<tr>
<td width="7%"></td>
<td width="65%" valign="top">Eğitim Durumu</td>
<td width="97%"><b>$egitim</b></td>
</tr>
<tr>
<td width="7%"></td>
<td width="65%" valign="top">Son bitirdiği okul </td>
<td width="97%"><b>$son_okul</b></td>
</tr>
<tr>
<tr>
<td width="7%"></td>
<td width="65%" valign="top">Mesleği</td>
<td width="97%"><b>$meslek</b></td>
</tr>
<tr>
<td width="7%"></td>
<td width="65%" valign="top">İstediği görev </td>
<td width="97%"><b>$gorev</b></td>
</tr>
<tr>
<td width="7%"></td>
<td width="65%" valign="top">Posta adresi</td>
<td width="97%"><b>$adres1<br>$adres2<br>$adres3</td>
</tr>
<tr>
<td width="7%"></td>
<td width="65%" valign="top">Telefon</td>
<td width="97%"><b>$tel</b></td>
</tr>
<tr>
<tr>
<td width="7%"></td>
<td width="65%" valign="top">Başvuru Tarihi</td>
<td width="97%"><b>$basvuru_tarihi $basvuru_saati</b></td>
</tr>
<tr>
<td width="7%"></td>
<td width="65%" valign="top">Başvurunun Yapıldığı IP</td>
<td width="97%"><b>$ip_adresi</b></td>
</tr>
</table>
</center>
</body></html>
_SON_
exit;