View | Details | Raw Unified | Return to bug 11185
Collapse All | Expand All

(-)a/misc/cronjobs/check-url-quick.pl (-3 / +2 lines)
Lines 22-29 use Pod::Usage; Link Here
22
use Getopt::Long;
22
use Getopt::Long;
23
use C4::Context;
23
use C4::Context;
24
use C4::Biblio;
24
use C4::Biblio;
25
eval { require AnyEvent }       or die "This script requires AnyEvent perl library. Use check-url.pl if you can't install AnyEvent" ;
25
use AnyEvent;
26
eval { require AnyEvent::HTTP } or die "This script requires AnyEvent::HTTP perl library. Use check-url.pl if you can't install AnyEvent::HTTP" ;
26
use AnyEvent::HTTP;
27
27
28
my ( $verbose, $help, $html ) = ( 0, 0, 0 );
28
my ( $verbose, $help, $html ) = ( 0, 0, 0 );
29
my ( $host,    $host_intranet ) = ( '', '' );
29
my ( $host,    $host_intranet ) = ( '', '' );
30
- 

Return to bug 11185