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

(-)a/misc/cronjobs/check-url-quick.pl (-1 / +2 lines)
Lines 24-29 use C4::Context; Link Here
24 
use C4::Biblio;
 24 
use C4::Biblio;
25 
use AnyEvent;
 25 
use AnyEvent;
26 
use AnyEvent::HTTP;
 26 
use AnyEvent::HTTP;
27 
use Encode;
27 

          28
          

        

        

          28
          
my ( $verbose, $help, $html ) = ( 0, 0, 0 );

          29
          
my ( $verbose, $help, $html ) = ( 0, 0, 0 );

        

        

          29
          
my ( $host,    $host_intranet ) = ( '', '' );

          30
          
my ( $host,    $host_intranet ) = ( '', '' );

        

  

    
      
            Lines 96-101
          sub check_all_url {
      
      
        Link Here
      
    
  

        

          96
          
                        my $url = $field->subfield('u');

          97
          
                        my $url = $field->subfield('u');

        

        

          97
          
                        next unless $url;

          98
          
                        next unless $url;

        

        

          98
          
                        $url = "$host/$url" unless $url =~ /^http/i;

          99
          
                        $url = "$host/$url" unless $url =~ /^http/i;

        

            

              
              
              100
              
                        $url = encode_utf8($url);

            

        

          99
          
                        $count++;

          101
          
                        $count++;

        

        

          100
          
                        http_request(

          102
          
                        http_request(

        

        

          101
          
                            HEAD    => $url,

          103
          
                            HEAD    => $url,

        

            

              102
              
- 

              
              
            






  

  Return to bug 21122