First, upgrade to the latest Apache::ASP 2.03, which has better error
messaging... while developing, set Debug to 2, so you won't get all
this system level debugging, just developer errors to the browser.
Then look at line 134, or thereabouts, of the offending scripts ...
you are calling "finish" without a package or object reference ;)
This is likely a DBI sth that is not really defined for whatever
reason, look at your code, this isn't about Apache::ASP really.
I see where this could happen in your script at line 142, try looking
there for you answer.
--Josh
[EMAIL PROTECTED] wrote:
>
> Dear Sir,
>
> I have the error output as follows. Please help me!
>
> Errors Output
>
> Can't call method "finish" without a package or object reference at (eval 14) line
>134.
> , /usr/lib/perl5/site_perl/Apache/ASP.pm line 1083
>
> Debug Output
>
> STARTING ASP HANDLER (v0.15) for file /usr/local/apache/htdocs/asp/cpo.html
> GlobalASA package Apache::ASP::Demo
> compiling global.asa Apache::ASP::Demo
> global.asa routines -
> ASP object created - Application: ; GlobalASA:
>Apache::ASP::GlobalASA=HASH(0x81dad48); Internal: ; Request:
>Apache::ASP::Request=HASH(0x836221c);
> Response: Apache::ASP::Response=HASH(0x8364a60); Server:
>Apache::ASP::Server=HASH(0x836b690); Session: ; allow_application_state: 1;
>app_start: 0;
> basename: cpo.html; buffering_on: 0; cgi_do_self: 0; cgi_headers: ; clean: 0;
>command_line: ; compile_error: ; compile_includes: ; cookie_path: /;
> debug: 2; debugs_output: ARRAY(0x81dac88); dirname: /usr/local/apache/htdocs/asp;
>errors: 0; errors_output: ARRAY(0x831a77c); filehandle: ; filename:
> /usr/local/apache/htdocs/asp/cpo.html; filter: 0; global: /tmp; global_package:
>Apache::ASP::Demo; group_refresh: 120; groups_refresh: 120; id:
> NoCache; init_packages: ARRAY(0x8367b34); mail_alert_period: 20; mail_alert_to: ;
>mail_errors_to: ; mail_host: ; mtime: 974194149; no_cache: 1;
> no_headers: 0; no_session: 0; no_state: 1; package: Apache::ASP::Demo;
>paranoid_session: 0; pod_comments: 1; r: Apache=SCALAR(0x83649ac); remote_i
> p: 137.40.156.161; script_timeout: 90; secure_session: ; session_serialize: ;
>session_timeout: 1200; soft_redirect: ; stat_inc: 1; stat_inc_match:
> zzz; state_cache: ; state_db: SDBM_File; state_dir: /tmp/asp_demo; state_manager:
>10; ua: Mozilla/4.0 (compatible; MSIE 5.01; Windows 95);
> unique_packages: 0;
> reloading - Tie/Hash.pm: /usr/lib/perl5/Tie/Hash.pm;
> stat register of Apache/ASP.pm /usr/lib/perl5/site_perl/Apache/ASP.pm Apache::ASP
> stat register of Config.pm /usr/lib/perl5/i386-linux/5.00404/Config.pm Config
> stat register of Data/Dumper.pm /usr/lib/perl5/site_perl/Data/Dumper.pm Data::Dumper
> stat register of lib.pm /usr/lib/perl5/lib.pm lib
> stat register of Fcntl.pm /usr/lib/perl5/i386-linux/5.00404/Fcntl.pm Fcntl
> stat register of strict.pm /usr/lib/perl5/strict.pm strict
> stat register of Exporter.pm /usr/lib/perl5/Exporter.pm Exporter
> stat register of overload.pm /usr/lib/perl5/i386-linux/5.00404/overload.pm overload
> stat register of vars.pm /usr/lib/perl5/vars.pm vars
> stat register of Cwd.pm /usr/lib/perl5/Cwd.pm Cwd
> stat register of Apache/Connection.pm /usr/lib/perl5/site_perl/Apache/Connection.pm
>Apache::Connection
> skipping StatINC register of Apache
> stat register of DynaLoader.pm /usr/lib/perl5/i386-linux/5.00404/DynaLoader.pm
>DynaLoader
> stat register of SDBM_File.pm /usr/lib/perl5/i386-linux/5.00404/SDBM_File.pm
>SDBM_File
> stat register of MD5.pm /usr/lib/perl5/site_perl/MD5.pm MD5
> stat register of Carp.pm /usr/lib/perl5/Carp.pm Carp
> stat register of Apache/Symbol.pm /usr/lib/perl5/site_perl/Apache/Symbol.pm
>Apache::Symbol
> stat register of Apache/Server.pm /usr/lib/perl5/site_perl/Apache/Server.pm
>Apache::Server
> stat register of Time/Local.pm /usr/lib/perl5/Time/Local.pm Time::Local
> stat register of Class/Struct.pm /usr/lib/perl5/Class/Struct.pm Class::Struct
> stat register of File/stat.pm /usr/lib/perl5/File/stat.pm File::stat
> stat register of File/Basename.pm /usr/lib/perl5/i386-linux/5.00404/File/Basename.pm
>File::Basename
> stat register of MLDBM.pm /usr/lib/perl5/site_perl/MLDBM.pm MLDBM
> stat register of HTTP/Date.pm /usr/lib/perl5/site_perl/HTTP/Date.pm HTTP::Date
> stat register of Devel/Symdump.pm /usr/lib/perl5/site_perl/Devel/Symdump.pm
>Devel::Symdump
> skipping StatINC register of Apache::Constants
> stat register of AutoLoader.pm /usr/lib/perl5/AutoLoader.pm AutoLoader
> stat register of mod_perl.pm /usr/lib/perl5/site_perl/mod_perl.pm mod_perl
> stat register of Apache/Constants/Exports.pm
>/usr/lib/perl5/site_perl/Apache/Constants/Exports.pm Apache::Constants::Exports
> stat register of Tie/Hash.pm /usr/lib/perl5/Tie/Hash.pm Tie::Hash
> stat register of Tie/Hash.pm /usr/lib/perl5/Tie/Hash.pm Tie::Hash
> parsing cpo.html
> inlining include header.inc
> undefing sub Apache::ASP::Demo::NoCache active code CODE(0x83b9f2c) before compiling
> compiling into package Apache::ASP::Demo subid Apache::ASP::Demo::NoCache
> reloading - DemoASP.pm: DemoASP.pm;
> stat register of DBI.pm /usr/lib/perl5/site_perl/DBI.pm DBI
> stat register of DemoASP.pm DemoASP.pm DemoASP
> stat register of DemoASP.pm DemoASP.pm DemoASP
> Script_OnStart
> compiled -
> executing NoCache
> Can't call method "finish" without a package or object reference at (eval 14) line
>134.
> , /usr/lib/perl5/site_perl/Apache/ASP.pm line 1083
> Script_OnEnd
> compiled -
>
> ASP to Perl Program
>
> 1: package Apache::ASP::Demo; ;; no strict; ;; use vars qw($Application $Session
>$Response $Server $Request); ;; sub Apache::ASP::Demo::NoCache {
> ;; return(1) unless $_[0]; @_ = (); ;;
> 2: use DBI;
> 3: $Response->Write('
> 4: ');
> 5: use DemoASP;
> 6: $demo = &DemoASP::new;
> 7: $Response->Write('
> 8: <html>
> 9: <head><title>'.($demo->{title}).'</title></head>
> 10: <body bgcolor='.($_[0] || $demo->{bgcolor}).'>
> 11:
> 12:
> 13: <form method=POST>
> 14: <font size=+1> Please enter the following information: </font><br>
> 15: <font>Customer Code: </font><input name=customer type=text size=30
>value="'.($Request->Form('customer')).'" >
> 16: <br>
> 17: <font>Password: </font><input name=password type = password size=30
>value="'.($Request->Form('password')).'" >
> 18: <br><BR><BR>
> 19:
> 20: <font size=+1>Please choose either one of the function: </font><br>
> 21: <INPUT TYPE=RADIO NAME=radio VALUE="1" CHECKED><font>Outstanding Purchase
>Order</font>
> 22: <br>
> 23: <INPUT TYPE=RADIO NAME=radio VALUE="2" ><font>Stock Information of Model:
></font>
> 24: <input name=model type = text size=30 value="'.($Request->Form('model')).'" >
> 25: <br><br><br>
> 26: <center>
> 27: <INPUT TYPE="SUBMIT" VALUE="Submit">
> 28: </center>
> 29:
> 30:
> 31:
> 32: '); if($Request->Form('customer'))
> 33: { my $customer=uc($Request->Form('customer'));
> 34: $Response->Write('
> 35:
> 36: '); if($Request->Form('password') !=123)
> 37: { $Response->Write('
> 38: <font color=red>Invalid Password!!!</font>
> 39:
> 40: ');} else { $Response->Write('
> 41:
> 42: '); if($Request->Form('radio') ==1 )
> 43: {
> 44: $Response->Write('
> 45: ');
> 46: $DBH = DBI->connect('dbi:mysql:www', 'test', '');
> 47:
> 48: $sth = $DBH->prepare("SELECT count(*) FROM cpo_hdr WHERE cpoh_cust_code =
> 49: '$customer'")
> 50: || die $DBH->errstr;
> 51: $sth->execute() || die $sth->errstr;
> 52: while (my @row = $sth->fetchrow) {
> 53: $Response->Write('
> 54: ');if ($row[0] ==0) {$Response->Write('
> 55: <font color=red>Invalid Customer/No oustanding P.O.!!!</font><br>
> 56: '); } else { $Response->Write('
> 57: <font size =+1>Customer : </font>'.($customer).' <br>
> 58: ');} $Response->Write('
> 59: ');} $Response->Write('
> 60:
> 61:
> 62:
> 63: ');
> 64: $sth = $DBH->prepare("SELECT cpoh_our_ref, cpoh_cust_cpo_no,
> 65: cpoi_model_no, cpoi_cust_model, cpoi_outstd_qty, cpoi_dly_date
> 66: FROM cpo_hdr, cpo_itm
> 67: WHERE cpoh_cust_code = '$customer' and cpoh_status = 'N'
> 68: and cpoh_our_ref = cpoi_our_ref")
> 69: || die $DBH->errstr;
> 70: $sth->execute() || die $sth->errstr;
> 71: my $prev = 0;
> 72: while (my @row = $sth->fetchrow) {
> 73: $Response->Write('
> 74: '); if ($prev != $row[0]) {$Response->Write('
> 75: <hr>
> 76: <font size=+1>Order No. : </font>'.($row[1]).'
> 77: <br>
> 78: <table COLS=4 WIDTH="100%" >
> 79: <tr>
> 80: <td width ="25%"><b>Model No.</b></td><td width ="25%"><b>Customer Model Ref.
></b></td>
> 81: <td width ="25%"><b>Outstanding Qty </b></td><td width ="25%"><b>Delivery
>Schedule</b></td>
> 82: </table>
> 83: ');$prev = $row[0];
> 84: } $Response->Write('
> 85: <table COLS=4 WIDTH="100%" >
> 86: <tr>
> 87: <td width ="25%">'.($row[2]).'</td><td width ="25%">'.($row[3]).'</td><td width
>="25%">'.($row[4]).'</td><td width ="25%">'.($row[5]).'</td>
> 88: </table>
> 89:
> 90: ');}$Response->Write('
> 91: ');}$Response->Write('
> 92: <table COLS=4 WIDTH="100%" >
> 93: </table>
> 94:
> 95:
> 96: '); if($Request->Form('radio') ==2 )
> 97: { my $model=uc($Request->Form('model'));
> 98: $Response->Write('
> 99: ');
> 100: $DBH = DBI->connect('dbi:mysql:www', 'test', '');
> 101:
> 102: $sth = $DBH->prepare("SELECT count(*) FROM stock WHERE stk_model_no =
> 103: '$model'")
> 104: || die $DBH->errstr;
> 105: $sth->execute() || die $sth->errstr;
> 106: while (my @row = $sth->fetchrow) {
> 107: $Response->Write('
> 108: ');if ($row[0] ==0) {$Response->Write('
> 109: <font color=red>No stock!!!</font>
> 110: '); } else { $Response->Write('
> 111: <br>
> 112: <font size =+1>Product Availability</font>
> 113: <hr>
> 114: <table COLS=2 WIDTH="100%" >
> 115: <tr>
> 116: <td><b>Model No.</b></td><td><b>Available Quantity </b></td>
> 117: </table>
> 118: ');} $Response->Write('
> 119: ');} $Response->Write('
> 120:
> 121:
> 122: ');
> 123: $sth = $DBH->prepare("SELECT stk_model_no, stk_balance FROM stock WHERE
>stk_model_no =
> 124: '$model'")
> 125: || die $DBH->errstr;
> 126: $sth->execute() || die $sth->errstr;
> 127: while (my @row = $sth->fetchrow) {
> 128: $Response->Write('
> 129: <table COLS=2 WIDTH="100%" >
> 130: <tr>
> 131: <td>'.($row[0]).'</td><td>'.($row[1]).'</td>
> 132: </table>
> 133: <br>
> 134:
> 135: ');}$Response->Write('
> 136: ');}$Response->Write('
> 137:
> 138: ');}$Response->Write('
> 139:
> 140: ');
> 141: }
> 142: $sth->finish;
> 143: ;; }
