version 1.18, 2006/09/28 02:15:06
|
version 1.20, 2006/09/28 22:52:43
|
Line 112 else # It exists, so look at the file me
|
Line 112 else # It exists, so look at the file me
|
<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='suse9.3 suse9.2 sles9'>/etc/httpd/loncapa.conf</target> |
<target dist='sles10'>/etc/apache2/loncapa.conf</target> |
<target dist='sles10 suse10.1'>/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 192 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=~/\_/; |