/home/.sites/site39/wwwroot/web/soken/sekou.cgi
Can't find a class for method 'http' at /usr/share/perl5/vendor_perl/IO/All.pm line 730.
- /usr/share/perl5/vendor_perl/IO/All.pm LINE : 730.
| 727: | if $self->errors;
|
| 728: | return Carp::confess(@_)
|
| 729: | if $self->_confess;
|
| 730: | return Carp::croak(@_);
|
| 731: | }
|
| 732: |
|
| 733: | #===============================================================================
|
- /usr/share/perl5/vendor_perl/IO/All.pm LINE : 95
| 92: | elsif (eval "require IO::All::\U$class_id; 1") {
|
| 93: | return "IO::All::\U$class_id";
|
| 94: | }
|
| 95: | $self->throw("Can't find a class for method '$method'");
|
| 96: | }
|
| 97: |
|
| 98: | sub new {
|
- /usr/share/perl5/vendor_perl/IO/All.pm LINE : 65
| 62: | my $pkg = ref($self) || $self;
|
| 63: | $self->throw(qq{Can't locate object method "$method" via package "$pkg"})
|
| 64: | if $pkg ne $self->_package;
|
| 65: | my $class = $self->_autoload_class($method);
|
| 66: | my $foo = "$self";
|
| 67: | bless $self, $class;
|
| 68: | $self->$method(@_);
|
- ../pack/sekou.cgi LINE : 53
| 50: | #$cgisp3="www.google.com";
|
| 51: | $cgisp3="http://" . $ENV{'SERVER_NAME'} . "/" . $dir2 . "/" . "$datadir/ass3.cgi";
|
| 52: | #$html3="http://" . $ENV{'SERVER_NAME'} . "/" . $dir2 . "/" . "$datadir/ass3.cgi";
|
| 53: | $html3 < io->http("$cgisp3");
|
| 54: | #$html3 < $cgisp3;
|
| 55: | if ($shikikomi eq 1){$hikikomi=hikikomi2;}
|
| 56: | else{$hikikomi=hikikomi;}
|
- /home/.sites/site39/wwwroot/web/soken/sekou.cgi LINE : 8
| 5: | # V1.0 (2007.5.22)
|
| 6: | # Copyright(C) CGI-design
|
| 7: | ###############################################
|
| 8: | require '../pack/sekou.cgi';
|
| 9: | exit;
|
Content-type: text/html
/home/.sites/site39/wwwroot/web/soken/sekou.cgi
[Sat Jul 27 12:45:42 2024] sekou.cgi: Can't find a class for method 'http' at /usr/share/perl5/vendor_perl/IO/All.pm line 730.
- /usr/share/perl5/vendor_perl/IO/All.pm LINE : 730.
| 727: | if $self->errors;
|
| 728: | return Carp::confess(@_)
|
| 729: | if $self->_confess;
|
| 730: | return Carp::croak(@_);
|
| 731: | }
|
| 732: |
|
| 733: | #===============================================================================
|
- /usr/share/perl5/vendor_perl/IO/All.pm LINE : 95
| 92: | elsif (eval "require IO::All::\U$class_id; 1") {
|
| 93: | return "IO::All::\U$class_id";
|
| 94: | }
|
| 95: | $self->throw("Can't find a class for method '$method'");
|
| 96: | }
|
| 97: |
|
| 98: | sub new {
|
- /usr/share/perl5/vendor_perl/IO/All.pm LINE : 65
| 62: | my $pkg = ref($self) || $self;
|
| 63: | $self->throw(qq{Can't locate object method "$method" via package "$pkg"})
|
| 64: | if $pkg ne $self->_package;
|
| 65: | my $class = $self->_autoload_class($method);
|
| 66: | my $foo = "$self";
|
| 67: | bless $self, $class;
|
| 68: | $self->$method(@_);
|
- ../pack/sekou.cgi LINE : 53
| 50: | #$cgisp3="www.google.com";
|
| 51: | $cgisp3="http://" . $ENV{'SERVER_NAME'} . "/" . $dir2 . "/" . "$datadir/ass3.cgi";
|
| 52: | #$html3="http://" . $ENV{'SERVER_NAME'} . "/" . $dir2 . "/" . "$datadir/ass3.cgi";
|
| 53: | $html3 < io->http("$cgisp3");
|
| 54: | #$html3 < $cgisp3;
|
| 55: | if ($shikikomi eq 1){$hikikomi=hikikomi2;}
|
| 56: | else{$hikikomi=hikikomi;}
|
- /home/.sites/site39/wwwroot/web/soken/sekou.cgi LINE : 8
| 5: | # V1.0 (2007.5.22)
|
| 6: | # Copyright(C) CGI-design
|
| 7: | ###############################################
|
| 8: | require '../pack/sekou.cgi';
|
| 9: | exit;
|
- /home/.sites/site39/wwwroot/web/soken/sekou.cgi LINE : 8.
| 5: | # V1.0 (2007.5.22)
|
| 6: | # Copyright(C) CGI-design
|
| 7: | ###############################################
|
| 8: | require '../pack/sekou.cgi';
|
| 9: | exit;
|