/[SQLSession]/trunk/lib/SQLSession/Action/DoSQL.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/SQLSession/Action/DoSQL.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 9 by dpavlin, Sat Dec 2 23:53:00 2006 UTC revision 11 by dpavlin, Sun Dec 3 00:10:31 2006 UTC
# Line 79  sub take_action { Line 79  sub take_action {
79          my $db = $dbs->first || $self->result->error("Can't find database $database");          my $db = $dbs->first || $self->result->error("Can't find database $database");
80    
81          my $dbh = DBI->connect( $db->dsn, $db->login, $db->passwd ) ||          my $dbh = DBI->connect( $db->dsn, $db->login, $db->passwd ) ||
82                  $self->result->error("can't connect to ", $db->dsn, " as ", $db->login, " ", $DBI::errstr);                  $self->result->error("Can't connect to " . $db->dsn . " as " . $db->login . "<br/>" . $DBI::errstr) && return 0;
83    
84          my $sql = $self->argument_value('sql_query');          my $sql = $self->argument_value('sql_query');
85    
86          warn "SQL: $sql\n";          warn "SQL: $sql\n";
87    
88          my $sth = $dbh->prepare( $sql ) ||          my $sth = $dbh->prepare( $sql ) ||
89                  $self->result->error( $dbh->errstr() );                  $self->result->error( $dbh->errstr() ) && return 0;
90    
91          $sth->execute() ||          $sth->execute() ||
92                  $self->result->error( $sth->errstr() );                  $self->result->error( $sth->errstr() ) && return 0;
93                    
94      $self->result->message('Query produced ' . (      $self->result->message('Query produced ' . (
95                  $sth->rows == 0 ?       'no results' :                  $sth->rows == 0 ?       'no results' :
Legend:
Removed from v.9  
changed lines
  Added in v.11
  ViewVC Help
Powered by ViewVC 1.1.26