System error

error:  Can't call method "quote" on an undefined value at /usr/www/users/sultmhoo/_throttle.html line 13.
context: 
... 
9:  $dbdefs{"Throttle"}->{'password'}="4jg_j3soPFq";
10:  # if this IP has done five in five minutes, bounce.
11:  my $db = DBI->connect("dbi:mysql:host=".$dbdefs{"Throttle"}->{"host"}.":database=".$dbdefs{"Throttle"}->{"db"},$dbdefs{"Throttle"}->{"userid"},$dbdefs{"Throttle"}->{"password"});
12:  my $retval;
13:  my $q = $db->prepare("insert into throttle set address=".$db->quote($ip).",event=".$db->quote(time));
14:  $q->execute; # Add this attempt to the database
15:  $q = $db->prepare("select * from throttle where address=".$db->quote($ip)." and event > ".$db->quote(time - 120));
16:  $q->execute(); # Check database (including this event)
17:  if($q->rows > 5) {
... 
code stack:  /usr/www/users/sultmhoo/_throttle.html:13
/usr/www/users/sultmhoo/subscribe.html:31
raw error






























Can't call method "quote" on an undefined value at /usr/www/users/sultmhoo/_throttle.html line 13.


Trace begun at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/Exceptions.pm line 129
HTML::Mason::Exceptions::rethrow_exception('Can\'t call method "quote" on an undefined value at /usr/www/users/sultmhoo/_throttle.html line 13.^J') called at /usr/www/users/sultmhoo/_throttle.html line 13
HTML::Mason::Commands::__ANON__('ipaddress', 54.160.198.60) called at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::Subcomponent=HASH(0x89a6dc8)', 'ipaddress', 54.160.198.60) called at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/Request.pm line 1279
eval {...} at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/Request.pm line 1274
HTML::Mason::Request::comp(undef, undef, 'ipaddress', 54.160.198.60) called at /usr/www/users/sultmhoo/subscribe.html line 31
HTML::Mason::Commands::__ANON__ at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x86462b4)') called at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/Request.pm line 1279
eval {...} at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/Request.pm line 1274
HTML::Mason::Request::comp(undef, undef, undef) called at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/Request.pm line 473
eval {...} at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/Request.pm line 473
eval {...} at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/Request.pm line 425
HTML::Mason::Request::exec('HTML::Mason::Request::CGI=HASH(0x855c64c)') called at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/CGIHandler.pm line 190
eval {...} at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/CGIHandler.pm line 190
HTML::Mason::Request::CGI::exec('HTML::Mason::Request::CGI=HASH(0x855c64c)') called at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/Interp.pm line 342
HTML::Mason::Interp::exec(undef, undef) called at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/CGIHandler.pm line 121
eval {...} at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/CGIHandler.pm line 121
HTML::Mason::CGIHandler::_handler('HTML::Mason::CGIHandler=HASH(0x855cb50)', 'HASH(0x8100b08)') called at /usr/local/lib/perl5/site_perl/5.8.9/HTML/Mason/CGIHandler.pm line 63
HTML::Mason::CGIHandler::handle_request('HTML::Mason::CGIHandler=HASH(0x855cb50)') called at /usr/home/sultmhoo/public_html/cgi-bin/mason-handler.pl line 11