doc/loncapafiles/updatequery.piml - diff

Return to updatequery.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

version 1.35, 2005/02/06 07:57:57	version 1.36, 2005/03/23 18:43:24
Line 196 while (!$flag) {	Line 196 while (!$flag) {
}	}

# need to recommend a machine ID name (ipdomain.l.somenumber)	# need to recommend a machine ID name (ipdomain.l.somenumber)
my $hostname=`hostname`; chomp($hostname);	my $hostname=`hostname -f`; chomp($hostname);
my $ipdomain='';	my $ipdomain='';
if ($hostname=~/([^\.])\.([^\.])$/) {	if ($hostname=~/([^\.])\.([^\.])$/) {
$ipdomain=$1;	$ipdomain=$1;
Line 737 END	Line 737 END
<target dist='default'>loncom/hosts.tab</target>	<target dist='default'>loncom/hosts.tab</target>
<perlscript mode='fg'>	<perlscript mode='fg'>
unless (-l "<TARGET />") {	unless (-l "<TARGET />") {
my $hostname=`hostname`;chomp($hostname);	my $hostname=`hostname -f`;chomp($hostname);
$date=`date -I`; chomp($date);	$date=`date -I`; chomp($date);
$lonHostID=$perlvar{'lonHostID'};	$lonHostID=$perlvar{'lonHostID'};
$lonHostID=~s/\W//g;	$lonHostID=~s/\W//g;