version 1.8, 2002/11/26 15:26:44
|
version 1.11, 2002/12/13 23:15:50
|
Line 34 http://www.lon-capa.org/
|
Line 34 http://www.lon-capa.org/
|
<files> |
<files> |
<file> |
<file> |
<target dist='default'>/var/lib/mysql/mysql.sock</target> |
<target dist='default'>/var/lib/mysql/mysql.sock</target> |
<target dist='redhat7.2 redhat7.3'>/tmp/mysql.sock</target> |
|
<perlscript mode='fg'> |
<perlscript mode='fg'> |
unless |
unless |
(-e '<TARGET />') # Does file exist? |
(-e '<TARGET />') # Does file exist? |
Line 123 my $dbug=0;
|
Line 122 my $dbug=0;
|
my $sbug=0; |
my $sbug=0; |
my $fbug=0; |
my $fbug=0; |
while (<IN>) { |
while (<IN>) { |
|
next if (/^(\#|\s*$)/); |
if (/\S/) { |
if (/\S/) { |
$rbug=1 if /\r/; |
$rbug=1 if /\r/; |
my @a=split(/\:/,$_); |
my @a=split(/\:/,$_); |