doc/loncapafiles/updatequery.piml - diff

Return to updatequery.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

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`;