[BACK]Return to updatequery.piml CVS log [TXT] [DIR] Up to [LON-CAPA] / doc / loncapafiles

Diff for /doc/loncapafiles/updatequery.piml between versions 1.12 and 1.13

version 1.12, 2002/05/22 20:52:27 version 1.13, 2002/06/06 15:36:41
Line 454  while (!$flag) { Line 454  while (!$flag) {
   print "ENTER 1, 2, 3, or 4:\n";    print "ENTER 1, 2, 3, or 4:\n";
   my $choice=<>;    my $choice=<>;
   chomp($choice);    chomp($choice);
       $line2insert=<<END;
   $perlvar{'lonHostID'}:$perlvar{'lonDefDomain'}:$perlvar{'lonRole'}:$hostname:$hostaddress
   END
       $date=`date -I`; chomp($date);
       $lonHostID=$perlvar{'lonHostID'};
       $lonHostID=~s/\W//g;
       $lineexistflag=0;
       $hostidexistflag=0;
   if ($choice==1) {    if ($choice==1) {
     $lonCluster='production';      $lonCluster='production';
     `rm -f ../hosts.tab`;      `rm -f ../hosts.tab`;
     `ln -s production_hosts.tab ../hosts.tab`;      open(IN,'<../production_hosts.tab');
       while(<IN>) {
         if (/^$line2insert$/) {
           $lineexistflag=1;
         }
         if (/^$perlvar{'lonHostID'}\:/) {
           $hostidexistflag=1;
         }
       }
       close(IN);
       if ($hostidexistflag and !$lineexistflag) {
         print <<END;
   WARNING: $lonHostID already exists inside
   loncapa/loncom/production_hosts.tab.  The entry inside
   production_hosts.tab does not match your settings.
   The entry inside production_hosts.tab is being replaced
   with your new values.
   END
         `grep -v "$lonHostID:" ../production_hosts.tab > ../new_production_hosts.tab`;
          open(OUT,'>>../new_production_hosts.tab') or
            die("cannot open loncom/standalone_hosts.tab for output\n");
            print(OUT <<END);
   $line2insert
   END
          close(OUT);
         `ln -s new_production_hosts.tab ../hosts.tab`;
         # 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`;
         # "REPLACE:hostid:date"
         # "REPLACE:hostid:date:line"
       }
       elsif ($hostidexistflag and $lineexistflag) {
         `ln -s production_hosts.tab ../hosts.tab`;
       }
       elsif (!$$hostidexistflag and !$lineexistflag) {
         `cat ../production_hosts.tab > ../new_production_hosts.tab`;
         `ln -s new_production_hosts.tab > ../hosts.tab`;
       }
     $flag=1;      $flag=1;
   }    }
   elsif ($choice==2) {    elsif ($choice==2) {
Removed from v.1.12  
changed lines
  Added in v.1.13

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>