#!/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;