Untitled Document

#!/usr/local/safe/bin/perl use csv; use CGI; $CIHAZ_F=join(chr(5),('musid','isim','cihaz','serino','aksesuar','alinis','teslim','durum','ucret','telev','telis','telcep')); $q=new CGI; if ($q->param()) { my %par=$q->Vars(); if ($par{'isim'} eq '') {redirect('../hata.html');} elsif ($par{'musid'} eq '') {redirect('../hata.html');} my @list=readlist('cihaz',$CIHAZ_F); my @flist=findentry('isim',$par{'isim'},@list); if (scalar(@flist)<2) {redirect('../hata.html');} my %dummy=splitrec($flist[1],$CIHAZ_F); if (($dummy{'telcep'} ne trim(uc($par{'musid'}))) && ($dummy{'telev'} ne trim(uc($par{'musid'}))) && ($dummy{'telis'} ne trim(uc($par{'musid'})))) {redirect('../hata.html');} cihazlist(@flist); die; } else { printform(); } exit; sub printform { my $eksik=@_; print $q->header; print < Untitled Document EndOfHTML ; } sub cihazlist { my @clist=@_; print $q->header; my %dummy=splitrec($clist[1],$CIHAZ_F); print < Untitled Document

Eğer bilgileriniz hatalı girilmişse lütfen (216)4145250 nolu telefondan
Sentez Elektronik'i haberdar ediniz.
Uyarı: Tabloda görülen ücretler onarım tamamlanana kadar tahmini ücrettir.
Garantili başvurularda, cihazların garantili kabul edilmesi teknik incelemenin sonucuna bağlıdır.

EndOfHTML ; my $jkeys=shift(@clist); foreach $item (@clist) { my %cihaz=splitrec($item,$CIHAZ_F); my $durum=st($cihaz{'durum'}); my $ucretstr="Tahmini Ücret:"; if (trim($cihaz{'durum'}) eq "E") {$ucretstr="Ücret:";} if (trim($cihaz{'durum'}) eq "A") {$ucretstr="Ücret:";} if (trim($cihaz{'durum'}) eq "I") {$ucretstr="Ücret:";} print < \n"; } print <

EndOfHTML ; print "$dummy{'isim'}"; print <

EndOfHTML ; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

Cihaz:	$cihaz{'cihaz'}
Seri No:	$cihaz{'serino'}
Aksesuar:	$cihaz{'aksesuar'}
Alınış Tarihi:	$cihaz{'alinis'}
Teslim Tarihi:	$cihaz{'teslim'}
Durum:	$durum
$ucretstr	$cihaz{'ucret'}

EndOfHTML ; } sub st { my ($durum)=@_; my $ret; if (($durum eq 'E') or ($durum eq 'E+')) {$ret='Hazir.';} elsif (($durum eq 'O-') or ($durum eq 'O*') or ($durum eq 'O?')) {$ret='Onay bekliyor. Lutfen Sentez Elektronik ile baglanti kurunuz.';} elsif ($durum eq 'O+') {$ret='Onay alindi. Onarim devam ediyor.';} elsif ($durum eq 'S-') {$ret='Parca bekliyor.';} elsif ($durum eq 'S+') {$ret='Parca geldi. Onarim devam ediyor.';} elsif ($durum eq 'T-') {$ret='Testte..';} elsif ($durum eq 'A') {$ret='Ariza gorulmedi. Geri teslim edilecek.';} elsif ($durum eq 'I') {$ret='Onarım tamamlanamadı.İade edilecek.';} else {$ret='Onarim devam ediyor.';} return $ret; }