| 
      
            Lines 60-65
          also need to override WEBSERVER_IP.
      
      
        Link Here
      
     | 
  
        
          | 60 | 
           | 
          60 | 
           | 
        
        
          | 61 | 
          =cut  | 
          61 | 
          =cut  | 
        
        
          | 62 | 
           | 
          62 | 
           | 
        
            
               | 
               | 
              63 | 
              my $myhost;  | 
            
            
              | 64 | 
              my $mydomain;  | 
            
        
          | 63 | 
          if ( $myhost = $ENV{WEBSERVER_HOST} || hostname ) { | 
          65 | 
          if ( $myhost = $ENV{WEBSERVER_HOST} || hostname ) { | 
        
        
          | 64 | 
              ( $mydomain = $myhost ) =~ s/.*?\.//;  | 
          66 | 
              ( $mydomain = $myhost ) =~ s/.*?\.//;  | 
        
        
          | 65 | 
          } else { | 
          67 | 
          } else { | 
        
  
    | 
      
            Lines 67-72
          if ( $myhost = $ENV{WEBSERVER_HOST} || hostname ) {
      
      
        Link Here
      
     | 
  
        
          | 67 | 
              $mydomain = 'localdomain';  | 
          69 | 
              $mydomain = 'localdomain';  | 
        
        
          | 68 | 
          }  | 
          70 | 
          }  | 
        
        
          | 69 | 
           | 
          71 | 
           | 
        
            
               | 
               | 
              72 | 
              my $myip;  | 
            
        
          | 70 | 
          unless ( $myip = $ENV{WEBSERVER_IP} ) { | 
          73 | 
          unless ( $myip = $ENV{WEBSERVER_IP} ) { | 
        
        
          | 71 | 
              my $byname = gethostbyname( $myhost )  | 
          74 | 
              my $byname = gethostbyname( $myhost )  | 
        
        
          | 72 | 
          	or die "Could not get the IP address of $myhost, DNS fault? ($!)";  | 
          75 | 
          	or die "Could not get the IP address of $myhost, DNS fault? ($!)";  | 
        
  
    | 
      
            Lines 75-86
          unless ( $myip = $ENV{WEBSERVER_IP} ) {
      
      
        Link Here
      
     | 
  
        
          | 75 | 
          }  | 
          78 | 
          }  | 
        
        
          | 76 | 
           | 
          79 | 
           | 
        
        
          | 77 | 
           | 
          80 | 
           | 
        
          
            
              | 78 | 
              $prefix = $ENV{'INSTALL_BASE'} || "/usr"; | 
              81 | 
              my $prefix = $ENV{'INSTALL_BASE'} || "/usr"; | 
            
        
          | 79 | 
           | 
          82 | 
           | 
        
        
          | 80 | 
          # These are our configuration guesses  | 
          83 | 
          # These are our configuration guesses  | 
        
        
          | 81 | 
          # Keys were extracted by  | 
          84 | 
          # Keys were extracted by  | 
        
        
          | 82 | 
          # <grep -o '__.*__' etc/* | cut -f2 -d: | sort -u | sed -e 's/^/  "/;s/$/" => "",/'  | 
          85 | 
          # <grep -o '__.*__' etc/* | cut -f2 -d: | sort -u | sed -e 's/^/  "/;s/$/" => "",/'  | 
        
          
            
              | 83 | 
              %configuration = (  | 
              86 | 
              my %configuration = (  | 
            
        
          | 84 | 
            "__KOHA_INSTALLED_VERSION__" => "no_version_found",  | 
          87 | 
            "__KOHA_INSTALLED_VERSION__" => "no_version_found",  | 
        
        
          | 85 | 
            "__LOG_DIR__" => "/var/log",  | 
          88 | 
            "__LOG_DIR__" => "/var/log",  | 
        
        
          | 86 | 
            "__PLUGINS_DIR__" => "/var/lib/koha/plugins",  | 
          89 | 
            "__PLUGINS_DIR__" => "/var/lib/koha/plugins",  | 
        
  
    | 
      
            Lines 172-179
          if ($configuration{'__INSTALL_PAZPAR2__'} eq 'yes') {
      
      
        Link Here
      
     | 
  
        
          | 172 | 
              $configuration{'__PAZPAR2_TOGGLE_XML_POST__'} = ''; | 
          175 | 
              $configuration{'__PAZPAR2_TOGGLE_XML_POST__'} = ''; | 
        
        
          | 173 | 
          }  | 
          176 | 
          }  | 
        
        
          | 174 | 
           | 
          177 | 
           | 
        
          
            
              | 175 | 
              $fname = $ARGV[0];  | 
              178 | 
              my $fname = $ARGV[0];  | 
            
            
              | 176 | 
              $file = &read_file($fname);  | 
              179 | 
              my $file = &read_file($fname);  | 
            
        
          | 177 | 
          $file =~ s/__.*?__/exists $configuration{$&} ? $configuration{$&} : $&/seg; | 
          180 | 
          $file =~ s/__.*?__/exists $configuration{$&} ? $configuration{$&} : $&/seg; | 
        
        
          | 178 | 
           | 
          181 | 
           | 
        
        
          | 179 | 
          # At this point, file is in 'blib' and by default  | 
          182 | 
          # At this point, file is in 'blib' and by default  |