version 1.13, 2002/06/06 15:36:41
|
version 1.14, 2002/06/06 15:44:27
|
Line 486 END
|
Line 486 END
|
`grep -v "$lonHostID:" ../production_hosts.tab > ../new_production_hosts.tab`; |
`grep -v "$lonHostID:" ../production_hosts.tab > ../new_production_hosts.tab`; |
open(OUT,'>>../new_production_hosts.tab') or |
open(OUT,'>>../new_production_hosts.tab') or |
die("cannot open loncom/standalone_hosts.tab for output\n"); |
die("cannot open loncom/standalone_hosts.tab for output\n"); |
print(OUT <<END); |
print(OUT $line2insert); |
$line2insert |
|
END |
|
close(OUT); |
close(OUT); |
`ln -s new_production_hosts.tab ../hosts.tab`; |
`ln -s new_production_hosts.tab ../hosts.tab`; |
# email appropriate message |
# email appropriate message |
# `echo "$date" | mail -s "REPLACE:$lonHostID:$date" installrecord\@mail.lon-capa.org`; |
|
`echo "REPLACE:$lonHostID:date:$line2insert" | mail -s "REPLACE:$lonHostID:$date" installrecord\@mail.lon-capa.org`; |
`echo "REPLACE:$lonHostID:date:$line2insert" | mail -s "REPLACE:$lonHostID:$date" installrecord\@mail.lon-capa.org`; |
# "REPLACE:hostid:date" |
|
# "REPLACE:hostid:date:line" |
|
} |
} |
elsif ($hostidexistflag and $lineexistflag) { |
elsif ($hostidexistflag and $lineexistflag) { |
`ln -s production_hosts.tab ../hosts.tab`; |
`ln -s production_hosts.tab ../hosts.tab`; |