System error

error:  DBD::mysql::db selectall_arrayref failed: Table './ccd/comments' is marked as crashed and should be repaired at /home/classical-composers/public_html/www/mason/comments.mhtml line 8.
context: 
... 
4:  $user
5:  </%args>
6:  <%perl>
7:  my $c = 0;
8:  my $l = $dbh->selectall_arrayref('SELECT comments.id, IF(comments.user = 0, \'Anonymous\', users.username), comments.title, comments.comment, comments.tstamp, comments.status, IFNULL(users.id, -1), comments.ip FROM comments LEFT JOIN users ON (comments.user = users.id) WHERE comments.status > 0 AND comments.user IS NOT NULL AND ref = ? ORDER BY comments.tstamp DESC', undef, $uri);
9:  foreach (@$l) {
10:  $c++;
11:  my $by = $_->[1];
12:  $by = a({href=>"/user/$_->[6]"}, $_->[1]) if $_->[6] > 0;
... 
code stack:  /home/classical-composers/public_html/www/mason/comments.mhtml:8
/home/classical-composers/public_html/www/mason/comp.mhtml:94
/home/classical-composers/public_html/www/mason/index.html:872
raw error






























DBD::mysql::db selectall_arrayref failed: Table './ccd/comments' is marked as crashed and should be repaired at /home/classical-composers/public_html/www/mason/comments.mhtml line 8.


Trace begun at /usr/share/perl5/HTML/Mason/Exceptions.pm line 129
HTML::Mason::Exceptions::rethrow_exception('DBD::mysql::db selectall_arrayref failed: Table \'./ccd/comments\' is marked as crashed and should be repaired at /home/classical-composers/public_html/www/mason/comments.mhtml line 8.^J') called at /home/classical-composers/public_html/www/mason/comments.mhtml line 8
HTML::Mason::Commands::__ANON__('uri', '/comp/hosakawa', 'comment_error', '', 'user', '', 'sid', '---', 'google_maps_div', '', 'rest', 'ARRAY(0x7f60658425a8)', '_id', 'hosakawa', '_type', 'comp', 'comment_error', '', 'data', 'ARRAY(0x7f606526a5c8)', 'logged_in', 0, 'smpstring', '', 'user', '', 'id', 'hosakawa') called at /usr/share/perl5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x7f606593eba8)', 'uri', '/comp/hosakawa', 'comment_error', '', 'user', '', 'sid', '---', 'google_maps_div', '', 'rest', 'ARRAY(0x7f60658425a8)', '_id', 'hosakawa', '_type', 'comp', 'comment_error', '', 'data', 'ARRAY(0x7f606526a5c8)', 'logged_in', 0, 'smpstring', '', 'user', '', 'id', 'hosakawa') called at /usr/share/perl5/HTML/Mason/Request.pm line 1302
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, 'uri', '/comp/hosakawa', 'comment_error', '', 'user', '', 'sid', '---', 'google_maps_div', '', 'rest', 'ARRAY(0x7f60658425a8)', '_id', 'hosakawa', '_type', 'comp', 'comment_error', '', 'data', 'ARRAY(0x7f606526a5c8)', 'logged_in', 0, 'smpstring', '', 'user', '', 'id', 'hosakawa') called at /home/classical-composers/public_html/www/mason/comp.mhtml line 94
HTML::Mason::Commands::__ANON__('data', 'ARRAY(0x7f606526a5c8)', 'id', 'hosakawa', 'rest', 'ARRAY(0x7f60658425a8)', 'comment_error', '', 'user', '', 'logged_in', 0, 'sid', '---', 'google_maps_div', '', 'smpstring', '', '_id', 'hosakawa', '_type', 'comp') called at /usr/share/perl5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x7f6065949808)', 'data', 'ARRAY(0x7f606526a5c8)', 'id', 'hosakawa', 'rest', 'ARRAY(0x7f60658425a8)', 'comment_error', '', 'user', '', 'logged_in', 0, 'sid', '---', 'google_maps_div', '', 'smpstring', '', '_id', 'hosakawa', '_type', 'comp') called at /usr/share/perl5/HTML/Mason/Request.pm line 1302
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, 'data', 'ARRAY(0x7f606526a5c8)', 'id', 'hosakawa', 'rest', 'ARRAY(0x7f60658425a8)', 'comment_error', '', 'user', '', 'logged_in', 0, 'sid', '---', 'google_maps_div', '', 'smpstring', '', '_id', 'hosakawa', '_type', 'comp') called at /home/classical-composers/public_html/www/mason/index.html line 872
HTML::Mason::Commands::__ANON__('_id', 'hosakawa', '_type', 'comp') called at /usr/share/perl5/HTML/Mason/Component.pm line 135
HTML::Mason::Component::run('HTML::Mason::Component::FileBased=HASH(0x7f60657b66b0)', '_id', 'hosakawa', '_type', 'comp') called at /usr/share/perl5/HTML/Mason/Request.pm line 1297
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 1292
HTML::Mason::Request::comp(undef, undef, undef, '_id', 'hosakawa', '_type', 'comp') called at /usr/share/perl5/HTML/Mason/Request.pm line 481
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 481
eval {...} at /usr/share/perl5/HTML/Mason/Request.pm line 433
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x7f6064f529c0)') called at /usr/share/perl5/HTML/Mason/ApacheHandler.pm line 165
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x7f6064f529c0)') called at /usr/share/perl5/HTML/Mason/ApacheHandler.pm line 831
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x7f60655458b0)', 'Apache2::RequestRec=SCALAR(0x7f60655cf480)') called at (eval 34) line 8
HTML::Mason::ApacheHandler::handler('HTML::Mason::ApacheHandler', 'Apache2::RequestRec=SCALAR(0x7f60655cf480)') called at -e line 0
eval {...} at -e line 0