#!/usr/bin/perl -Tw 1 #!/usr/bin/perl -Tw 2 use CGI; 3 4 my $query = new CGI; 5 print $query->header; 6 print $query->start_html(); 7 if (!$query->param) { 8 print $query->startform; 9 print $query->password_field(-name=>'the_password', 10 -size=>35, 11 -maxlength=>50); 12 print $query->br; 13 print $query->submit(-value=>'Submit your password'); 14 print $query->endform; 15 } 16 else { 17 $yourPassword = $query->param('the_password'); 18 19 if ($yourPassword eq '123') { 20 alfa(); 21 } 22 23 { print 'error'; } 24 } 25 print $query->end_html; 26 27 sub alfa () { 28 use DBI; 29 use strict; 30 use CGI qw(:standard); 31 my $mode = param('mode'); 32 print header, 33 start_html; 34 35 print h2('insert values'), 36 start_form(-method=>'post'), 37 hidden(-name=>'mode', 38 -value=>'process_form' 39 ), 40 textfield('DETAILS'), 'detail bor bla bla..' . br, 41 textfield('TARGET_DATABASE') . br , 42 textfield('TARGET_HOST'). br, 43 textfield('TARGET_IP') . br, 44 textfield('TARGET_ACCOUNT') . br, 45 textfield('SOURCE_DATABASE') . br, 46 textfield('SOURCE_HOST'). br, 47 textfield('SOUCE_IP') . br, 48 textfield('SOURCE_ACCOUNT') . br, 49 textfield('STREAM_NAME') . br, 50 textfield('ID') . br, 51 submit('insert new stream'), 52 end_form; 53 54 if($mode eq 'process_form') 55 { 56 my $dbh = DBI->connect('DBI:Oracle:(DESCRIPTION = (ADDRESS_LIST =(ADDRESS = (PROTOCOL = TCP)(HOST = xx.xx.xxx.xxx.)(PORT = xxxx)))(CONNECT_DATA =( SERVICE_NAME = xxxxxxx)))', 'xxxxxxx', 'xxxxxxx', {RaiseError=>'1'}); 57 my $sth = $dbh->prepare('insert into s_test (DETAILS, TARGET_DATABASE, TARGET_HOST, TARGET_IP, TARGET_ACCOUNT, SOURCE_DATABASE, SOURCE_HOST, SOU CE_IP, SOURCE_ACCOUNT,STREAM_NAME, ID) values (? , ? , ?, ?, ?, ?, ?, ?, ?, ?, ?)'); 58 $sth->execute(param('DETAILS'), param('TARGET_DATABASE'), param('TARGET_HOST'), param('TARGET_IP'), param('TARGET_ACCOUNT'), param('SOURCE_ DATABASE'), param('SOURCE_HOST'), param('SOUCE_IP'), param('SOURCE_ACCOUNT'),param('STREAM_NAME'), param('ID')); 59 $dbh->disconnect; 60 } 61 print end_html; 62 }