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::CSV; 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 { $Db = DBI->connect("DBI:CSV:f_dir=".$Server->Config(\'StateDir\'), \'\', \'\', { RaiseError => 1 }) or die "Cannot connect: " . $DBI::errstr; # setup bookmark database if first time 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"); $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 { # use max_bookmark_id as a pseudo sequence $Application->Lock(); my $sth = $Db->prepare_cached ("select bookmark_id from bookmarks order by bookmark_id desc"); $sth->execute(); $Application->{max_bookmark_id} = $sth->fetchrow_array(); $Application->UnLock(); } ;; 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(0x560ff1fc66d8)') called at /usr/local/share/perl5/Apache/ASP.pm line 389 Apache::ASP::new('Apache::ASP', 'Apache2::RequestRec=SCALAR(0x560ff1f6cc60)', '/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(0x560ff1f6cc60)') 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::CSV; 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 { $Db = DBI->connect("DBI:CSV:f_dir=".$Server->Config(\'StateDir\'), \'\', \'\', { RaiseError => 1 }) or die "Cannot connect: " . $DBI::errstr; # setup bookmark database if first time 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"); $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 { # use max_bookmark_id as a pseudo sequence $Application->Lock(); my $sth = $Db->prepare_cached ("select bookmark_id from bookmarks order by bookmark_id desc"); $sth->execute(); $Application->{max_bookmark_id} = $sth->fetchrow_array(); $Application->UnLock(); } ;; 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(0x560ff1fc66d8)') called at /usr/local/share/perl5/Apache/ASP.pm line 389 Apache::ASP::new('Apache::ASP', 'Apache2::RequestRec=SCALAR(0x560ff1f6cc60)', '/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(0x560ff1f6cc60)') 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::CSV; 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 { $Db = DBI->connect("DBI:CSV:f_dir=".$Server->Config(\'StateDir\'), \'\', \'\', { RaiseError => 1 }) or die "Cannot connect: " . $DBI::errstr; # setup bookmark database if first time 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"); $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 { # use max_bookmark_id as a pseudo sequence $Application->Lock(); my $sth = $Db->prepare_cached ("select bookmark_id from bookmarks order by bookmark_id desc"); $sth->execute(); $Application->{max_bookmark_id} = $sth->fetchrow_array(); $Application->UnLock(); } ;; 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(0x560ff1fc66d8)') called at /usr/local/share/perl5/Apache/ASP.pm line 389 Apache::ASP::new('Apache::ASP', 'Apache2::RequestRec=SCALAR(0x560ff1f6cc60)', '/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(0x560ff1f6cc60)') 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::CSV; 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 { $Db = DBI->connect("DBI:CSV:f_dir=".$Server->Config(\'StateDir\'), \'\', \'\', { RaiseError => 1 }) or die "Cannot connect: " . $DBI::errstr; # setup bookmark database if first time 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"); $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 { # use max_bookmark_id as a pseudo sequence $Application->Lock(); my $sth = $Db->prepare_cached ("select bookmark_id from bookmarks order by bookmark_id desc"); $sth->execute(); $Application->{max_bookmark_id} = $sth->fetchrow_array(); $Application->UnLock(); } ;; 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(0x560ff1fc66d8)') called at /usr/local/share/perl5/Apache/ASP.pm line 389 Apache::ASP::new('Apache::ASP', 'Apache2::RequestRec=SCALAR(0x560ff1f6cc60)', '/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(0x560ff1f6cc60)') 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::CSV;
  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:     $Db = DBI->connect("DBI:CSV:f_dir=".$Server->Config('StateDir'), '', '', 
 17: 		       { RaiseError => 1 })
 18: 	or		    die "Cannot connect: " . $DBI::errstr;
 19:     
 20: # setup bookmark database if first time
 21:     unless(eval { $Db->do("select bookmark_id,username,title,url from bookmarks") }) {
 22: 	eval { $Db->do("drop table bookmarks"); };
 23: 	$Db->do(<<CREATE) || die("can't create table $DBI::errstr");
 24: 	create table bookmarks (
 25: 	    bookmark_id varchar(15),
 26: 	    username varchar(30),
 27: 	    title varchar(60),
 28: 	    url varchar(120)
 29: 	    )
 30: CREATE
 31: ;
 32:     }
 33:     
 34:     $Db->do("select * from bookmarks")
 35: 	|| die("can't do select against bookmarks: $DBI::errstr");
 36: 
 37:     $Basename = basename($0);
 38:     $Title = $Name.' / '.$Titles{$Basename};
 39:     $Response->Include('header.inc');
 40:     $Form = $Request->Form();
 41:     $Query = $Request->QueryString();
 42:     $Response->Expires(0);
 43:     
 44:     # a user may logout from any script, destroy session, and go
 45:     # to login / intro page
 46:     if($Form->{logout}) {
 47: 	$Session->Abandon();
 48: 	$Response->Redirect("index.asp?abandon=".
 49: 			    ++$Application->{abandon});
 50:     }
 51: }
 52: 
 53: sub Script_OnEnd {
 54:     $Response->Include('footer.inc');
 55: }
 56: 
 57: sub Application_OnStart {
 58:     # use max_bookmark_id as a pseudo sequence
 59:     $Application->Lock();
 60:     my $sth = $Db->prepare_cached
 61:       ("select bookmark_id from bookmarks order by bookmark_id desc");
 62:     $sth->execute();
 63:     $Application->{max_bookmark_id} = $sth->fetchrow_array();
 64:     $Application->UnLock();
 65: }
 66:  ;; 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.