#!/usr/bin/perl
#
# insan_kaynaklari.pl
# Web üzerinden iş başvurusunda bulunmak isteyenler için form
# görüntüler.
#
$ip_adresi = $ENV{'REMOTE_ADDR'};
#
# Ziyaretci CGI AŞ içinden gelip gelmediğini IP adresinden
# anlayabiliriz. Eğer ziyaretçinin kullandığı bilgisayarın
# IP adresi 192.168.1. falan diye başliyorsa şirket içinden
# geliyor demektir.
$icerden = 0;
$icerden = 1 if ( $ip_adresi =~ /^139\.179\./ );
print "Content-type: text/html\n\n";
print <<_SON_; # _SON_ dizisine kadar herşeyi aynen print eder
<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><p>
_SON_
# Ziyaretçi CGI A.Ş. bilgisayar ağı içinden geliyorsa
# "Başvuru Listeleri" linkini göster
#
if ( $icerden ) {
print "<center><font size=\"+1\">\n";
print "<a href=\"/i_kaynak/sifre_sor.html\">\n";
print " Başvuru Listeleri</a></font></center></b>\n";
}
#
# Şartlı html kodu burada bitti. Gerisi sabit html kodu
#
print <<_SON_;
<form method="POST"
action="/cgi-bin/i_kaynak/form_sakla.pl">
<table border="0" width="85%" cellspacing="1" cellpadding="1">
<tr>
<td colspan="3" bgcolor="#000000">
<b>
<b><font color="#ffffff">Sizi tanımak isteriz...</font></b><br>
</td>
</tr>
<tr>
<td width="7%"></td>
<td width="65%" valign="top" align="right">
Adınız, Soyadınız</td>
<td width="97%">
<input type="text" name="AD_SOYAD" size="38"
</td>
</tr>
<tr>
<td width="7%"></td>
<td width="65%" valign="top" align="right">
Cinsiyetiniz</td>
<td width="97%">
<input type="radio" value="K" checked name="CINS">Kadın
<input type="radio" name="CINS" value="E">Erkek</td>
</tr>
<tr>
<td width="7%"></td>
<td width="65%" valign="top" align="right">
Doğum Tarihiniz (gg/aa/yyyy)</td>
<td width="97%">
<input type="text" name="D_TARIHI" size="20">
</td>
</tr>
<tr>
<td width="7%"></td>
<td width="65%" valign="top" align="right">
e-Posta adresiniz</td>
<td width="97%">
<input type="text" name="E_POSTA" size="38">
</td>
</tr>
<tr>
<td width="7%"></td>
<td width="65%" valign="top" align="right">
Eğitim Durumunuz</td>
<td width="97%">
<select size="1" name="EGITIM">
<option>İlkokul mezunu</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 width="7%"></td>
<td width="65%" valign="top" align="right">
Son bitirdiğiniz okul</td>
<td width="97%">
<input type="text" name="SON_OKUL" size="38">
</td>
</tr>
<tr>
<tr>
<td width="7%"></td>
<td width="65%" valign="top" align="right">
Mesleğiniz</td>
<td width="97%">
<input type="text" name="MESLEK" size="38">
</td>
</tr>
<tr>
<td width="7%"></td>
<td width="65%" valign="top" align="right">
Başvurmak istediğiniz görev</td>
<td width="97%">
<select size="1" name="GOREV">
<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 width="7%"></td>
<td width="65%" valign="top" align="right">
Posta adresiniz</td>
<td width="97%">
<input type="text" name="ADRES1" size="38"><br>
<input type="text" name="ADRES2" size="38"><br>
<input type="text" name="ADRES3" size="38">
</td>
</tr>
<tr>
<td width="7%"></td>
<td width="65%" valign="top" align="right">
Telefonlarınız</td>
<td width="97%">
<input type="text" name="TEL" size="38">
</td>
</tr>
<tr>
<tr>
<td width="7%"></td>
<td width="65%"></td>
<td width="97%">
<input type="submit" value=" Gönder " name="SUBMIT" >
</td>
</tr>
</table>
</form>
</center>
</body></html>
_SON_
exit;