--- trunk/Meteor/Koha.pm 2009/03/28 14:20:59 71 +++ trunk/Meteor/Koha.pm 2009/03/28 20:53:20 77 @@ -13,6 +13,7 @@ my ( $class, $client, $item ) = @_; my $html; + my $status = 200; if ( $html = $cache->{$item} ) { @@ -24,12 +25,21 @@ my $response = $ua->get( $url ); - $html = $response->content; - $html =~ s{.+?

}{

}s; - $html =~ s{
.+$}{}s; - $html =~ s{]+>}{}g; + if ($response->is_success) { - $cache->{$item} = $html; + $html = $response->content; + $html =~ s{.+?

}{

}s; + $html =~ s{
.+$}{}s; + $html =~ s{]+>}{}g; + + $cache->{$item} = $html; + + } else { + + $html = qq{Can't load $item } . $response->status_line; +# $status = 404; + + } } my $len = length($html); @@ -37,7 +47,7 @@ warn "# koha item $item [$len]\n"; $client->write( - "HTTP/1.1 200 OK\r\n" . + "HTTP/1.1 $status OK\r\n" . "Content-Type: text/html\r\n" . "Content-length: $len\r\n" . "Connection: close\r\n" .