version 1.18, 2006/09/28 02:15:06
|
version 1.21, 2006/10/05 18:20:23
|
Line 111 else # It exists, so look at the file me
|
Line 111 else # It exists, so look at the file me
|
</file> |
</file> |
<file> |
<file> |
<target dist='default'>/etc/httpd/conf/loncapa.conf</target> |
<target dist='default'>/etc/httpd/conf/loncapa.conf</target> |
<target dist='suse9.3 suse9.2 sles9'>/etc/httpd/loncapa.conf</target> |
<target dist='sles10 suse10.1'>/etc/apache2/loncapa.conf</target> |
<target dist='sles10'>/etc/apache2/loncapa.conf</target> |
|
<perlscript mode='fg'> |
<perlscript mode='fg'> |
open IN, "<<TARGET />"; |
open IN, "<<TARGET />"; |
my $hbug=-1; |
my $hbug=-1; |
Line 192 my $sbug=0;
|
Line 191 my $sbug=0;
|
while (my $line = <IN>) { |
while (my $line = <IN>) { |
if ($line =~ /\S/) { |
if ($line =~ /\S/) { |
$rbug=1 if $line=~/\r/; |
$rbug=1 if $line=~/\r/; |
if ($line =~ /\W/) { |
if ($line =~ /\W.*\n/) { |
$dbug=$line if ($line !~/\w:(?:primary|default)$/); |
$dbug=$line if ($line !~/\w:(?:primary|default)$/); |
} |
} |
$dbug=$line if $line=~/\_/; |
$dbug=$line if $line=~/\_/; |