#!/usr/bin/perl
#
# GET metoduyla anahtarı gelen başvuru kaydını siler
#
# 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, sil.
delete $BASVURULAR{$anahtar};
dbmclose(%BASVURULAR);

&html_baslat;
print "<p>Kayıt silindi!\n";
&html_bitir;
exit;