home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 July / Chip_2001-07_cd1.bin / tema / linux6 / farnici.pl < prev    next >
Perl Script  |  2001-06-04  |  2KB  |  100 lines
  1. #!/usr/bin/perl 
  2. # 
  3. # demo script, Pg.pm modul, pouzita nova metoda.
  4. #  
  5. my $dbmain = 'farnici';
  6. my $dbname = 'farnici';
  7. my ($conn, $result, $i);
  8. my $pguser = 'jikou' ;
  9. sub extrakt {
  10. ($prijmeni_, $jmeno_ ) = @pole ;
  11. @prijmeni = split ( /=/, $prijmeni_) ;
  12. ($x, $prijmeni) = @prijmeni ;
  13.     };
  14. sub extrakt1 {
  15. $delka = @pole ;
  16. $i = 0 ;
  17.     while ( $i <= $delka ) {
  18.     $pole[$i] =~ s/^.*[=]// ;
  19.     $i++ ;
  20.  
  21.             }
  22. ( $prijmeni, $jmeno, $rodnecislo, $datnar, $ulice, $cislo, $akce  ) = @pole ;
  23.             };
  24. print "Content-Type: text/html\n\n";
  25. print '<html><body>' ;
  26. print "Dekuji Vam za Vas zajem o program, nasleduje diagnosticka informace\n" ; 
  27. print "Predany dotaz ma tvar\n" ;
  28. $query = $ENV{'QUERY_STRING'} ;
  29. print "$query" ;
  30. print "<br>" ;
  31. @pole = split ( /&/, $query) ;
  32. print "@pole" ;
  33. extrakt1 ;
  34.  
  35. print 'Hledane prijmeni je ' ;
  36. print $prijmeni $jmeno;
  37. use CGI;
  38. use Pg;
  39. sub printnestrukt
  40. {
  41. $string = "";
  42. my @row;
  43. while (@row = $result->fetchrow) {
  44.     $string = join(" ", @row);
  45.     print  "$string"; 
  46.     print "<br>" ;
  47.    }
  48. } ;
  49. sub printstrukt
  50. {
  51. #Jinak
  52. $fout = soubor ;
  53. $header = 1 ;
  54. $align = 0 ;
  55. $standard = 1;
  56. $html3 = 1 ;  
  57. $expanded = 0 ;
  58. $pager = 0 ;
  59. $fieldSep = "|" ;
  60. $tableOpt = 0 ;
  61. $caption = "*****" ;
  62. $result->print( $fout, $header, $align, $standard, $html3, $expanded, $pager, $fieldSep, $tableOpt,$caption );     
  63. };
  64. my $DEBUG  = 1; # set this to 1 for traces ;
  65.       $conn = Pg::connectdb("dbname=$dbmain"  );  
  66. $status = $conn->status ;  
  67. print '<br>';
  68. print 'stav spojeni je ' ;
  69. print  $status ;
  70. ####0 - zdarilo se , 1 - nezdarilo se
  71. open (soubor, ">$soubor") ;  
  72.  
  73. if ( $akce =~ /1/ ) {    
  74. print 'PRIDAT:' ;
  75. $result = $conn->exec("INSERT INTO farnici VALUES ('$prijmeni', '$jmeno', '$rodnecislo', '$datnar', '$ulice',
  76. '$cislo');")        } 
  77.     elsif ( $akce =~ /2/ )
  78.     {
  79. #print 'NAJIT' ;
  80. $result = $conn->exec("SELECT * FROM farnici WHERE 
  81. prijmeni LIKE '%$prijmeni%' AND 
  82. jmeno LIKE '%$jmeno%' AND
  83. rodnecislo LIKE '%$rodnecislo%' AND
  84. datnar LIKE '%$datnar%' AND
  85. ulice LIKE '%$ulice%'  AND
  86. cislo LIKE '%$cislo%'
  87.  ORDER BY ulice ;")  
  88.     } 
  89.  ;
  90. print "\n" ;
  91. print "<br>" ;
  92. #Tady si zvolte dva druhy vypisu
  93. #printnestrukt ;
  94. printstrukt ;
  95.  
  96.  
  97. print '</html></body>' ;
  98.  
  99.  
  100.