System error

error:  Error during compilation of /opt/spool3/wwwdata/docroot/kasp/autohandler:
syntax error at /opt/spool3/wwwdata/docroot/kasp/autohandler line 586, near ") )"
syntax error at /opt/spool3/wwwdata/docroot/kasp/autohandler line 598, near "$param"
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 598.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 598.
Global symbol "%feat" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 598.
Global symbol "$p" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 600.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 600.
Global symbol "$p" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 602.
Global symbol "$p" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 602.
Global symbol "%ARGS" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 607.
Global symbol "%ARGS" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 613.
Global symbol "$self" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 615.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 616.
Global symbol "$chapter" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 625.
Global symbol "$self" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 625.
Global symbol "$rh" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 630.
Global symbol "$chapter" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 630.
Global symbol "$chapter" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 630.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 646.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 647.
Global symbol "$p" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 647.
Global symbol "$p" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 649.
Global symbol "$rub" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 649.
Global symbol "$rub" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 649.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 650.
Global symbol "$p" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 650.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 652.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 652.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 652.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 654.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 654.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 654.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 656.
Global symbol "$self" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 660.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 662.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 662.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 667.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 667.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 667.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 670.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 671.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 671.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 671.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 671.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 671.
Global symbol "@xcalls" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 675.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 677.
Global symbol "$SITE" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 686.
Global symbol "$apache2_status_not_200" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 688.
Global symbol "$apache2_status_not_200" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 694.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 697.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 699.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 702.
Global symbol "%ARGS" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 703.
Global symbol "%PAR" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 703.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 703.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 704.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 705.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 707.
syntax error at /opt/spool3/wwwdata/docroot/kasp/autohandler line 119, near "}"
/opt/spool3/wwwdata/docroot/kasp/autohandler has too many errors.
context: 
... 
115: 
116:  <%def .main>
117:  <%args>
118:  $chapter => undef
119:  $sessionid => undef
120:  $param
121:  $self
122:  $P_REF
123:  </%args>
... 
582:  $r->send_cgi_header("X-Accel-Expires: $expire\n",$apache2_status_not_200);
583:  $r->send_cgi_header("Expires: ".strftime("%a, %d %b %Y %H:%M:%S GMT", gmtime($expire))."\n",$apache2_status_not_200);
584:  if( $expire ){
585:  $r->send_cgi_header("Cache-Control: private, max-age=".($expire-$time)."\n",$apache2_status_not_200);
586:  }elsif( $chapter && $self =~ /\.(css|js)$/i) ){
587:  $r->send_cgi_header("Pragma: no-cache\n",$apache2_status_not_200);
588:  $r->send_cgi_header("Cache-Control: no-store, no-cache\n",$apache2_status_not_200);
589:  }
590: 
... 
594:  }
595: 
596: 
597:  ################################# Разворачиваем линки image:// link://
598:  $param->{PREFIX} = $param->{BASE} if $feat{_abs};
599: 
600:  my $ipref = $p->image_prefix( PREFIX => $param->{PREFIX} );
601:  #my $ipref2 = eval{$p->image_prefix2( PREFIX => $param->{PREFIX} );};
602:  my $sref = $p->common->{ $p->project }->{ $ENV{SETSTAGE} || $ENV{STAGE} } || {};
603:  my ($ipref2, $cdn);
604:  $ipref2 = $sref->{image_prefix2};
605:  $cdn = $sref->{cdn};
606: 
607:  if($cdn && !$ARGS{SSL} && !$ENV{HTTPS} && $ENV{SITE} eq 'kb'){
608: 
609:  $ipref=$cdn;
610: 
611:  }
612: 
613:  if($ipref2 && !$ARGS{SSL} && !$ENV{HTTPS}){
614: 
615:  if($self =~ /\.css$/i){
616:  $TEXT =~ s#image://([^/]+)/([^\s'"]+)#$ipref2$1\/$2#og;
617:  }
618: 
619:  }else{
620: 
621:  $ipref2=$ipref;
622: 
623:  }
624: 
625:  if($chapter && $self =~ /\.(css|js)$/i){
626: 
627: 
628:  setlocale( LC_TIME, "C" );
629: 
630:  my $mtime=$rh->{$chapter}->{modtime} if $chapter;
631:  $r->send_cgi_header("Last-Modified: ".strftime("%a, %d %b %Y %H:%M:%S GMT", gmtime( 60 + My::Utils::UTime($mtime) ))."\n") if $mtime;
632: 
633: 
634:  }
... 
642:  # }
643: 
644:  #}
645: 
646:  $TEXT =~ s#image2://([^/]+)/([^\s'"]+)#$ipref2$1\/$2#og;
647:  $TEXT =~ s#image://([^/]+)/([^\s'"]+)# $ipref . ($2 eq '*' ? $m->comp('.random_image', p=>$p, dir=>$1) : "$1/$2") #oeg;
648: 
649:  my %Obj = ( (map{$_=>0} $p->objects), $rub->object => $rub );
650:  $TEXT =~ s#link://([^/]+)/(\d+)# if(exists $Obj{$1}){ $Obj{$1} ||= $p->object($1); $Obj{$1}->url($2) }else{ 'error' } #eg;
651: 
652:  $TEXT =~ s#(<[aA]\s+href\s*=\s*['"]?)(ftp|http|https)://([^"'>]+)#$1/click?_URL=$2://$3#g if $param->{click} && !$param->{noclick};
653: 
654:  $TEXT =~ s# (href|src|action)(\s*=\s*["']?)(?!/)(?!\w+://)(?!mailto:)([^\s'"]+)# $1$2$param->{PREFIX}$3#ig if $param->{PREFIX};
655: 
656:  $TEXT =~ s/\<sup\>TM\<\/sup\>/\&#153;/go; # конвертируем <TM>
657:  # $TEXT =~ s/\n\s*\n/\n/g; # давим лишние пустые строки
658: 
659:  my $qs = $ENV{QUERY_STRING}; $qs =~ s/ipcountry=\w+&?//; $qs =~ s/\bipcountry=&?//;
660:  my $url = $self . ($qs ? "?$qs":"");
661:  $url =~ s/</%3C/g; $url =~ s/>/%3E/g;
662:  $url = $param->{RELOCAL} if $param->{RELOCAL};
663:  $url =~ s/\'/%27/g;
664:  $url =~ s/\%/%25/g;
665: 
666:  if( $url!~/javascript\:/ ){
667:  $TEXT =~ s/(\shref=['"]?)#/$1$url#/ig unless $param->{NOLOCAL} && !$param->{RELOCAL}; # приводим локальные ссылки
668:  }
669: 
670:  if($param->{encode}){
671:  $TEXT = ($param->{encode} eq 'utf-8') ? My::Private::Iconv("koi8-r", "utf-8", $TEXT) : My::Utils::Trans('KOI', $param->{encode}, $TEXT);
672:  }
673: 
674:  ################################# Обратные вызовы с "!" (без станадартных подстановок)
675:  $m->comp(@$_) foreach @xcalls;
676: 
677:  if(my $sh = $param->{_SHOWED}){ # или вынести? - иначе $m->abort в редиректе не проставит заголовки
678:  my (%s, @s);
679:  foreach my $obj (keys %$sh){
680:  my $pr = $ENV{PROJECT};
681:  my $ob = $obj;
682:  ($pr, $ob) = split /:/, $obj if $obj =~ /:/;
683:  push @{ $s{$pr}->{$ob} }, grep{/\S/} keys %{ $sh->{$obj} };
684:  }
685:  foreach my $pr (keys %s){
686:  push @s, "$pr:$SITE:" . join(';', map{"$_=".join(',', @{$s{$pr}->{$_}})} keys %{ $s{$pr} });
687:  }
688:  $r->send_cgi_header("X-Showed: ".(join '+', @s)."\n",$apache2_status_not_200);
689:  }
690: 
691:  my $hosts=$ENV{HTTP_HOST}=~/webserver|unicode/?$ENV{HTTP_HOST}:Sys::Hostname::hostname();
692:  $hosts=~s/\.kaspersky\-labs\.com.*$//; $hosts=~s/webserver/leg/; $hosts=~s/unicode/uleg/;
693: 
694:  $r->send_cgi_header("X-Server-L: ".$hosts."\n", $apache2_status_not_200);
695: 
696:  ################################# Какой-то из блоков вызвал редирект
697:  if($param->{REDIRECT}){
698:  $r->status(301);
699:  $r->send_cgi_header("Location: $param->{REDIRECT}\n\n");
700:  return 301
701:  }
702:  if($param->{exit}){ # можно указать $param->{exit} = XXX в случае нештатных ситуаций
703:  return $m->comp('.404', %ARGS, %PAR) if $param->{exit} == 404;
704:  $r->status( $param->{exit} );
705:  return $param->{exit};
706:  }
707:  return $m->out($TEXT);
708:  </%init>
709:  </%def>
710: 
711:  <%def .404>
... 
code stack:  /usr/local/lib/perl5/site_perl/5.16/HTML/Mason/Interp.pm:453
/usr/local/lib/perl5/site_perl/5.16/HTML/Mason/Interp.pm:776
/usr/local/lib/perl5/site_perl/5.16/HTML/Mason/Component.pm:331
/usr/local/lib/perl5/site_perl/5.16/HTML/Mason/Request.pm:443
raw error






























Error during compilation of /opt/spool3/wwwdata/docroot/kasp/autohandler:
syntax error at /opt/spool3/wwwdata/docroot/kasp/autohandler line 586, near ") )"
syntax error at /opt/spool3/wwwdata/docroot/kasp/autohandler line 598, near "$param"
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 598.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 598.
Global symbol "%feat" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 598.
Global symbol "$p" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 600.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 600.
Global symbol "$p" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 602.
Global symbol "$p" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 602.
Global symbol "%ARGS" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 607.
Global symbol "%ARGS" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 613.
Global symbol "$self" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 615.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 616.
Global symbol "$chapter" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 625.
Global symbol "$self" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 625.
Global symbol "$rh" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 630.
Global symbol "$chapter" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 630.
Global symbol "$chapter" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 630.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 646.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 647.
Global symbol "$p" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 647.
Global symbol "$p" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 649.
Global symbol "$rub" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 649.
Global symbol "$rub" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 649.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 650.
Global symbol "$p" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 650.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 652.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 652.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 652.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 654.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 654.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 654.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 656.
Global symbol "$self" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 660.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 662.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 662.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 667.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 667.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 667.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 670.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 671.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 671.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 671.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 671.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 671.
Global symbol "@xcalls" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 675.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 677.
Global symbol "$SITE" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 686.
Global symbol "$apache2_status_not_200" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 688.
Global symbol "$apache2_status_not_200" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 694.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 697.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 699.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 702.
Global symbol "%ARGS" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 703.
Global symbol "%PAR" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 703.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 703.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 704.
Global symbol "$param" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 705.
Global symbol "$TEXT" requires explicit package name at /opt/spool3/wwwdata/docroot/kasp/autohandler line 707.
syntax error at /opt/spool3/wwwdata/docroot/kasp/autohandler line 119, near "}"
/opt/spool3/wwwdata/docroot/kasp/autohandler has too many errors.


Trace begun at /usr/local/lib/perl5/site_perl/5.16/HTML/Mason/Interp.pm line 854
HTML::Mason::Interp::_compilation_error('HTML::Mason::Interp=HASH(0x806e990d8)', '/opt/spool3/wwwdata/docroot/kasp/autohandler', 'HTML::Mason::Exception::Compilation=HASH(0x81b2b5450)') called at /usr/local/lib/perl5/site_perl/5.16/HTML/Mason/Interp.pm line 453
HTML::Mason::Interp::load('HTML::Mason::Interp=HASH(0x806e990d8)', '/docroot/kasp/autohandler') called at /usr/local/lib/perl5/site_perl/5.16/HTML/Mason/Interp.pm line 776
HTML::Mason::Interp::find_comp_upwards('HTML::Mason::Interp=HASH(0x806e990d8)', '/docroot/kasp', 'autohandler') called at /usr/local/lib/perl5/site_perl/5.16/HTML/Mason/Component.pm line 331
HTML::Mason::Component::parent('HTML::Mason::Component::FileBased=HASH(0x804d10510)') called at /usr/local/lib/perl5/site_perl/5.16/HTML/Mason/Request.pm line 443
eval {...} at /usr/local/lib/perl5/site_perl/5.16/HTML/Mason/Request.pm line 436
HTML::Mason::Request::exec('HTML::Mason::Request::ApacheHandler=HASH(0x81b296990)') called at /usr/local/lib/perl5/site_perl/5.16/HTML/Mason/ApacheHandler.pm line 168
HTML::Mason::Request::ApacheHandler::exec('HTML::Mason::Request::ApacheHandler=HASH(0x81b296990)') called at /usr/local/lib/perl5/site_perl/5.16/HTML/Mason/ApacheHandler.pm line 825
HTML::Mason::ApacheHandler::handle_request('HTML::Mason::ApacheHandler=HASH(0x806f031c8)', 'Apache2::RequestRec=SCALAR(0x81b80a708)') called at /opt/spool3/wwwdata/lib/handler.pl line 109
HTML::Mason::handler('Apache2::RequestRec=SCALAR(0x81b80a708)') called at -e line 0
eval {...} at -e line 0