Errors Output
  1. errors compiling global.asa: Can't locate DBI.pm in @INC (@INC contains: /usr/local/proj/asp/apps/bookmarks//. /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib64/perl5 /usr/share/perl5 . /etc/httpd) at /usr/local/proj/asp/apps/bookmarks//./global.asa line 2. at /usr/local/proj/asp/apps/bookmarks//./global.asa line 2. My::Bookmarks::BEGIN() called at /usr/local/proj/asp/apps/bookmarks//./global.asa line 2 eval {...} called at /usr/local/proj/asp/apps/bookmarks//./global.asa line 2 eval ' #line 1 /usr/local/proj/asp/apps/bookmarks//./global.asa package My::Bookmarks; ;; no strict ;; use vars qw($Application $Session $Response $Server $Request); ;; use lib qw(/usr/local/proj/asp/apps/bookmarks//.); ;; use File::Basename; use DBI; use DBD::SQLite; use vars qw( $DarkColor $Name %Titles $FontBase $Db $Title $Basename $Form $Query ); $DarkColor = \'#0000aa\'; $Name = "MyBookmarks"; %Titles = ( \'index.asp\' => \'Introduction\', \'bookmarks.asp\' => \'Viewer\' ); $FontBase = \'face=verdana,arial\'; sub Script_OnStart { &init_db(); $Basename = basename($0); $Title = $Name.\' / \'.$Titles{$Basename}; $Response->Include(\'header.inc\'); $Form = $Request->Form(); $Query = $Request->QueryString(); $Response->{Expires} = 0; # a user may logout from any script, destroy session, and go # to login / intro page if($Form->{logout}) { $Session->Abandon(); $Response->Redirect("index.asp?abandon=". ++$Application->{abandon}); } } sub Script_OnEnd { $Response->Include(\'footer.inc\'); } sub Application_OnStart { &init_db(); # use max_bookmark_id as a pseudo sequence $Application->Lock(); my $max_id = $Db->selectrow_array("select bookmark_id from bookmarks order by bookmark_id desc"); $Application->{max_bookmark_id} = $max_id; $Application->UnLock(); } sub init_db { my $db_file = $Server->Config(\'StateDir\').\'/\'."bookmarks.sqlite"; $Db = DBI->connect("dbi:SQLite:dbname=$db_file","","", { RaiseError => 1 }) or die "Cannot connect: " . $DBI::errstr; # $Db = DBI->connect("DBI:CSV:f_dir=".$Server->Config(\'StateDir\'), \'\', \'\', # { RaiseError => 1 }) # or die "Cannot connect: " . $DBI::errstr; # setup bookmark database if first time # die $Server->Config(\'StateDir\'); unless(eval { $Db->do("select bookmark_id,username,title,url from bookmarks") }) { eval { $Db->do("drop table bookmarks"); }; $Db->do(<<CREATE) || die("can\'t create table $DBI::errstr"); create table bookmarks ( bookmark_id varchar(15), username varchar(30), title varchar(60), url varchar(120) ) CREATE ; } $Db->do("select * from bookmarks") || die("can\'t do select against bookmarks: $DBI::errstr"); } ;; sub exit { $main::Response->End(); } ;; no lib qw(/usr/local/proj/asp/apps/bookmarks//.); ;; 1;' called at /usr/local/share/perl5/Apache/ASP/GlobalASA.pm line 124 Apache::ASP::GlobalASA::new('Apache::ASP=HASH(0x5630ff7ada90)') called at /usr/local/share/perl5/Apache/ASP.pm line 389 Apache::ASP::new('Apache::ASP', 'Apache2::RequestRec=SCALAR(0x5630ff7b2018)', '/usr/local/proj/asp/apps/bookmarks/index.asp') called at /usr/local/share/perl5/Apache/ASP.pm line 184 Apache::ASP::handler('Apache2::RequestRec=SCALAR(0x5630ff7b2018)') called at /usr/local/proj/asp/apps/bookmarks//./global.asa line 2 eval {...} called at /usr/local/proj/asp/apps/bookmarks//./global.asa line 2 BEGIN failed--compilation aborted at /usr/local/proj/asp/apps/bookmarks//./global.asa line 2. at /usr/local/proj/asp/apps/bookmarks//./global.asa line 2. eval ' #line 1 /usr/local/proj/asp/apps/bookmarks//./global.asa package My::Bookmarks; ;; no strict ;; use vars qw($Application $Session $Response $Server $Request); ;; use lib qw(/usr/local/proj/asp/apps/bookmarks//.); ;; use File::Basename; use DBI; use DBD::SQLite; use vars qw( $DarkColor $Name %Titles $FontBase $Db $Title $Basename $Form $Query ); $DarkColor = \'#0000aa\'; $Name = "MyBookmarks"; %Titles = ( \'index.asp\' => \'Introduction\', \'bookmarks.asp\' => \'Viewer\' ); $FontBase = \'face=verdana,arial\'; sub Script_OnStart { &init_db(); $Basename = basename($0); $Title = $Name.\' / \'.$Titles{$Basename}; $Response->Include(\'header.inc\'); $Form = $Request->Form(); $Query = $Request->QueryString(); $Response->{Expires} = 0; # a user may logout from any script, destroy session, and go # to login / intro page if($Form->{logout}) { $Session->Abandon(); $Response->Redirect("index.asp?abandon=". ++$Application->{abandon}); } } sub Script_OnEnd { $Response->Include(\'footer.inc\'); } sub Application_OnStart { &init_db(); # use max_bookmark_id as a pseudo sequence $Application->Lock(); my $max_id = $Db->selectrow_array("select bookmark_id from bookmarks order by bookmark_id desc"); $Application->{max_bookmark_id} = $max_id; $Application->UnLock(); } sub init_db { my $db_file = $Server->Config(\'StateDir\').\'/\'."bookmarks.sqlite"; $Db = DBI->connect("dbi:SQLite:dbname=$db_file","","", { RaiseError => 1 }) or die "Cannot connect: " . $DBI::errstr; # $Db = DBI->connect("DBI:CSV:f_dir=".$Server->Config(\'StateDir\'), \'\', \'\', # { RaiseError => 1 }) # or die "Cannot connect: " . $DBI::errstr; # setup bookmark database if first time # die $Server->Config(\'StateDir\'); unless(eval { $Db->do("select bookmark_id,username,title,url from bookmarks") }) { eval { $Db->do("drop table bookmarks"); }; $Db->do(<<CREATE) || die("can\'t create table $DBI::errstr"); create table bookmarks ( bookmark_id varchar(15), username varchar(30), title varchar(60), url varchar(120) ) CREATE ; } $Db->do("select * from bookmarks") || die("can\'t do select against bookmarks: $DBI::errstr"); } ;; sub exit { $main::Response->End(); } ;; no lib qw(/usr/local/proj/asp/apps/bookmarks//.); ;; 1;' called at /usr/local/share/perl5/Apache/ASP/GlobalASA.pm line 124 Apache::ASP::GlobalASA::new('Apache::ASP=HASH(0x5630ff7ada90)') called at /usr/local/share/perl5/Apache/ASP.pm line 389 Apache::ASP::new('Apache::ASP', 'Apache2::RequestRec=SCALAR(0x5630ff7b2018)', '/usr/local/proj/asp/apps/bookmarks/index.asp') called at /usr/local/share/perl5/Apache/ASP.pm line 184 Apache::ASP::handler('Apache2::RequestRec=SCALAR(0x5630ff7b2018)') called at /usr/local/proj/asp/apps/bookmarks//./global.asa line 2 eval {...} called at /usr/local/proj/asp/apps/bookmarks//./global.asa line 2 , /usr/local/share/perl5/Apache/ASP.pm line 1722
Debug Output
  1. errors compiling global.asa: Can't locate DBI.pm in @INC (@INC contains: /usr/local/proj/asp/apps/bookmarks//. /usr/local/lib64/perl5 /usr/local/share/perl5 /usr/lib64/perl5/vendor_perl /usr/share/perl5/vendor_perl /usr/lib64/perl5 /usr/share/perl5 . /etc/httpd) at /usr/local/proj/asp/apps/bookmarks//./global.asa line 2. at /usr/local/proj/asp/apps/bookmarks//./global.asa line 2. My::Bookmarks::BEGIN() called at /usr/local/proj/asp/apps/bookmarks//./global.asa line 2 eval {...} called at /usr/local/proj/asp/apps/bookmarks//./global.asa line 2 eval ' #line 1 /usr/local/proj/asp/apps/bookmarks//./global.asa package My::Bookmarks; ;; no strict ;; use vars qw($Application $Session $Response $Server $Request); ;; use lib qw(/usr/local/proj/asp/apps/bookmarks//.); ;; use File::Basename; use DBI; use DBD::SQLite; use vars qw( $DarkColor $Name %Titles $FontBase $Db $Title $Basename $Form $Query ); $DarkColor = \'#0000aa\'; $Name = "MyBookmarks"; %Titles = ( \'index.asp\' => \'Introduction\', \'bookmarks.asp\' => \'Viewer\' ); $FontBase = \'face=verdana,arial\'; sub Script_OnStart { &init_db(); $Basename = basename($0); $Title = $Name.\' / \'.$Titles{$Basename}; $Response->Include(\'header.inc\'); $Form = $Request->Form(); $Query = $Request->QueryString(); $Response->{Expires} = 0; # a user may logout from any script, destroy session, and go # to login / intro page if($Form->{logout}) { $Session->Abandon(); $Response->Redirect("index.asp?abandon=". ++$Application->{abandon}); } } sub Script_OnEnd { $Response->Include(\'footer.inc\'); } sub Application_OnStart { &init_db(); # use max_bookmark_id as a pseudo sequence $Application->Lock(); my $max_id = $Db->selectrow_array("select bookmark_id from bookmarks order by bookmark_id desc"); $Application->{max_bookmark_id} = $max_id; $Application->UnLock(); } sub init_db { my $db_file = $Server->Config(\'StateDir\').\'/\'."bookmarks.sqlite"; $Db = DBI->connect("dbi:SQLite:dbname=$db_file","","", { RaiseError => 1 }) or die "Cannot connect: " . $DBI::errstr; # $Db = DBI->connect("DBI:CSV:f_dir=".$Server->Config(\'StateDir\'), \'\', \'\', # { RaiseError => 1 }) # or die "Cannot connect: " . $DBI::errstr; # setup bookmark database if first time # die $Server->Config(\'StateDir\'); unless(eval { $Db->do("select bookmark_id,username,title,url from bookmarks") }) { eval { $Db->do("drop table bookmarks"); }; $Db->do(<do("select * from bookmarks") || die("can\'t do select against bookmarks: $DBI::errstr"); } ;; sub exit { $main::Response->End(); } ;; no lib qw(/usr/local/proj/asp/apps/bookmarks//.); ;; 1;' called at /usr/local/share/perl5/Apache/ASP/GlobalASA.pm line 124 Apache::ASP::GlobalASA::new('Apache::ASP=HASH(0x5630ff7ada90)') called at /usr/local/share/perl5/Apache/ASP.pm line 389 Apache::ASP::new('Apache::ASP', 'Apache2::RequestRec=SCALAR(0x5630ff7b2018)', '/usr/local/proj/asp/apps/bookmarks/index.asp') called at /usr/local/share/perl5/Apache/ASP.pm line 184 Apache::ASP::handler('Apache2::RequestRec=SCALAR(0x5630ff7b2018)') called at /usr/local/proj/asp/apps/bookmarks//./global.asa line 2 eval {...} called at /usr/local/proj/asp/apps/bookmarks//./global.asa line 2 BEGIN failed--compilation aborted at /usr/local/proj/asp/apps/bookmarks//./global.asa line 2. at /usr/local/proj/asp/apps/bookmarks//./global.asa line 2. eval ' #line 1 /usr/local/proj/asp/apps/bookmarks//./global.asa package My::Bookmarks; ;; no strict ;; use vars qw($Application $Session $Response $Server $Request); ;; use lib qw(/usr/local/proj/asp/apps/bookmarks//.); ;; use File::Basename; use DBI; use DBD::SQLite; use vars qw( $DarkColor $Name %Titles $FontBase $Db $Title $Basename $Form $Query ); $DarkColor = \'#0000aa\'; $Name = "MyBookmarks"; %Titles = ( \'index.asp\' => \'Introduction\', \'bookmarks.asp\' => \'Viewer\' ); $FontBase = \'face=verdana,arial\'; sub Script_OnStart { &init_db(); $Basename = basename($0); $Title = $Name.\' / \'.$Titles{$Basename}; $Response->Include(\'header.inc\'); $Form = $Request->Form(); $Query = $Request->QueryString(); $Response->{Expires} = 0; # a user may logout from any script, destroy session, and go # to login / intro page if($Form->{logout}) { $Session->Abandon(); $Response->Redirect("index.asp?abandon=". ++$Application->{abandon}); } } sub Script_OnEnd { $Response->Include(\'footer.inc\'); } sub Application_OnStart { &init_db(); # use max_bookmark_id as a pseudo sequence $Application->Lock(); my $max_id = $Db->selectrow_array("select bookmark_id from bookmarks order by bookmark_id desc"); $Application->{max_bookmark_id} = $max_id; $Application->UnLock(); } sub init_db { my $db_file = $Server->Config(\'StateDir\').\'/\'."bookmarks.sqlite"; $Db = DBI->connect("dbi:SQLite:dbname=$db_file","","", { RaiseError => 1 }) or die "Cannot connect: " . $DBI::errstr; # $Db = DBI->connect("DBI:CSV:f_dir=".$Server->Config(\'StateDir\'), \'\', \'\', # { RaiseError => 1 }) # or die "Cannot connect: " . $DBI::errstr; # setup bookmark database if first time # die $Server->Config(\'StateDir\'); unless(eval { $Db->do("select bookmark_id,username,title,url from bookmarks") }) { eval { $Db->do("drop table bookmarks"); }; $Db->do(<do("select * from bookmarks") || die("can\'t do select against bookmarks: $DBI::errstr"); } ;; sub exit { $main::Response->End(); } ;; no lib qw(/usr/local/proj/asp/apps/bookmarks//.); ;; 1;' called at /usr/local/share/perl5/Apache/ASP/GlobalASA.pm line 124 Apache::ASP::GlobalASA::new('Apache::ASP=HASH(0x5630ff7ada90)') called at /usr/local/share/perl5/Apache/ASP.pm line 389 Apache::ASP::new('Apache::ASP', 'Apache2::RequestRec=SCALAR(0x5630ff7b2018)', '/usr/local/proj/asp/apps/bookmarks/index.asp') called at /usr/local/share/perl5/Apache/ASP.pm line 184 Apache::ASP::handler('Apache2::RequestRec=SCALAR(0x5630ff7b2018)') called at /usr/local/proj/asp/apps/bookmarks//./global.asa line 2 eval {...} called at /usr/local/proj/asp/apps/bookmarks//./global.asa line 2 , /usr/local/share/perl5/Apache/ASP.pm line 1722
Compiled Data with Error 

  -: 
  -: #line 1 /usr/local/proj/asp/apps/bookmarks//./global.asa
  1: package My::Bookmarks; ;; no strict ;; use vars qw($Application $Session $Response $Server $Request); ;; use lib qw(/usr/local/proj/asp/apps/bookmarks//.); ;; use File::Basename;
  2: use DBI;
  3: use DBD::SQLite;
  4: 
  5: use vars qw( $DarkColor $Name %Titles $FontBase $Db $Title $Basename $Form $Query );
  6: 
  7: $DarkColor = '#0000aa';
  8: $Name = "MyBookmarks";
  9: %Titles = (
 10: 	   'index.asp' => 'Introduction',
 11: 	   'bookmarks.asp' => 'Viewer'
 12: 	  );
 13: $FontBase = 'face=verdana,arial';
 14: 
 15: sub Script_OnStart {
 16: 
 17:     &init_db();
 18: 
 19:     $Basename = basename($0);
 20:     $Title = $Name.' / '.$Titles{$Basename};
 21:     $Response->Include('header.inc');
 22:     $Form = $Request->Form();
 23:     $Query = $Request->QueryString();
 24:     $Response->{Expires} = 0;
 25: 
 26:     # a user may logout from any script, destroy session, and go
 27:     # to login / intro page
 28:     if($Form->{logout}) {
 29: 	$Session->Abandon();
 30: 	$Response->Redirect("index.asp?abandon=".
 31: 			    ++$Application->{abandon});
 32:     }
 33: }
 34: 
 35: sub Script_OnEnd {
 36:     $Response->Include('footer.inc');
 37: }
 38: 
 39: sub Application_OnStart {
 40: 
 41:     &init_db();
 42: 
 43:     # use max_bookmark_id as a pseudo sequence
 44:     $Application->Lock();
 45:     my $max_id = $Db->selectrow_array("select bookmark_id from bookmarks order by bookmark_id desc");
 46:     $Application->{max_bookmark_id} = $max_id;
 47:     $Application->UnLock();
 48: }
 49: 
 50: sub init_db {
 51:     my $db_file = $Server->Config('StateDir').'/'."bookmarks.sqlite";
 52:     $Db = DBI->connect("dbi:SQLite:dbname=$db_file","","", { RaiseError => 1 })
 53:     	or die "Cannot connect: " . $DBI::errstr;
 54: 
 55: #    $Db = DBI->connect("DBI:CSV:f_dir=".$Server->Config('StateDir'), '', '', 
 56: #		       { RaiseError => 1 })
 57: #	or die "Cannot connect: " . $DBI::errstr;
 58:     
 59:     # setup bookmark database if first time
 60: #    die $Server->Config('StateDir');
 61: 
 62:     unless(eval { $Db->do("select bookmark_id,username,title,url from bookmarks") }) {
 63: 	eval { $Db->do("drop table bookmarks"); };
 64: 	$Db->do(<<CREATE) || die("can't create table $DBI::errstr");
 65: 	create table bookmarks (
 66: 				bookmark_id varchar(15),
 67: 				username varchar(30),
 68: 				title varchar(60),
 69: 				url varchar(120)
 70: 				)
 71: CREATE
 72: 	    ;
 73:     }
 74: 
 75:     $Db->do("select * from bookmarks")
 76: 	|| die("can't do select against bookmarks: $DBI::errstr");
 77:     
 78: }
 79:  ;; sub exit { $main::Response->End(); }  ;; no lib qw(/usr/local/proj/asp/apps/bookmarks//.); ;; 1;


An error has occured with the Apache::ASP script just run. If you are the developer working on this script, and cannot work through this problem, please try researching it at the Apache::ASP web site, specifically the FAQ section. Failing that, check out your support options, and if necessary include this debug output with any query.