|
version 1.34, 2004/06/30 06:21:45
|
version 1.35, 2005/02/06 07:57:57
|
|
Line 738 END
|
Line 738 END
|
| <perlscript mode='fg'> |
<perlscript mode='fg'> |
| unless (-l "<TARGET />") { |
unless (-l "<TARGET />") { |
| my $hostname=`hostname`;chomp($hostname); |
my $hostname=`hostname`;chomp($hostname); |
| my $hostaddress=`hostname -i $hostname`;chomp($hostaddress); |
|
| $hostaddress=~s/\s//; |
|
| $date=`date -I`; chomp($date); |
$date=`date -I`; chomp($date); |
| $lonHostID=$perlvar{'lonHostID'}; |
$lonHostID=$perlvar{'lonHostID'}; |
| $lonHostID=~s/\W//g; |
$lonHostID=~s/\W//g; |
| $lineexistflag=0; |
$lineexistflag=0; |
| $hostidexistflag=0; |
$hostidexistflag=0; |
| $line2insert=<<END; |
$line2insert=<<END; |
| $perlvar{'lonHostID'}:$perlvar{'lonDefDomain'}:$perlvar{'lonRole'}:$hostname:$hostaddress |
$perlvar{'lonHostID'}:$perlvar{'lonDefDomain'}:$perlvar{'lonRole'}:$hostname |
| END |
END |
| $domaininsert="$perlvar{'lonDefDomain'}:$domainDescription:$domainTabExtras\n"; |
$domaininsert="$perlvar{'lonDefDomain'}:$domainDescription:$domainTabExtras\n"; |
| if ($lonCluster eq 'standalone') { |
if ($lonCluster eq 'standalone') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to updatequery.piml CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / doc / loncapafiles