Loading ...
Sorry, an error occurred while loading the content.

567Re: DBI and SOAP::LITE

Expand Messages
  • caboose@c-lab.de
    Jul 4, 2001
      Here's the script and the offending subroutine.


      #! /usr/local/perl-5.6.1/bin/perl -w
      use SOAP::Transport::HTTP;
      use DBI();

      SOAP::Transport::HTTP::CGI
      ->dispatch_to('Delivery')
      ->handle;

      package Delivery;
      sub retrieveDocument {
      my ($class, $doc, $name, $passwd) =@_;
      my $returnString="result: ";
      my $dbh = DBI->connect("DBI:mysql:database=delivery;host=brest.c-
      lab.de","root","");
      $returnString="Kein connect: $DBI::errstr";
      #my $sth = $dbh->prepare("SELECT * from documents WHERE
      name='$doc'");
      #$sth->execute();
      #while (my $ref= $sth->fetchrow_hashref()) {
      #$returnString.= "$ref->{'name'} - $ref->{'place'} - $ref->
      {'start'} - $ref->{'owner'} - $ref->{'date'} - $ref->{'status'}";


      #}
      #$sth->finish();
      $dbh->disconnect();
      return $returnString;
      }
    • Show all 10 messages in this topic