Diff for /doc/loncapafiles/updatequery.piml between versions 1.65 and 1.66

version 1.65, 2010/07/21 00:32:44 version 1.66, 2010/12/31 17:58:57
Line 694  my %perlvarstatic; Line 694  my %perlvarstatic;
         foreach my $file (@hosts_files) {          foreach my $file (@hosts_files) {
             open(IN,'<'.$file);              open(IN,'<'.$file);
             while(my $line = <IN>) {              while(my $line = <IN>) {
                 if ($line =~ /^\Q$perlvar{'lonHostID'}\E:\Q$perlvar{'lonDefDomain'}\E\:(?:access|library)\:(https?)/) {                  if ($line =~ /^\Q$perlvar{'lonHostID'}\E:\Q$perlvar{'lonDefDomain'}\E\:(?:access|library)\:[^:]+\:(https?)/) {
                     $protocol = $1;                      $protocol = $1;
                       chomp($protocol);
                     last;                      last;
                 }                  }
             }              }
Line 710  my %perlvarstatic; Line 711  my %perlvarstatic;
         foreach my $file (@hosts_files) {          foreach my $file (@hosts_files) {
             open(IN,'<'.$file);              open(IN,'<'.$file);
             while(my $line = <IN>) {              while(my $line = <IN>) {
                 if ($line =~ /^\Q$perlvar{'lonHostID'}\E:\Q$perlvar{'lonDefDomain'}\E\:(?:access|library)\:https?:([^:]+)/) {                  if ($line =~ /^\Q$perlvar{'lonHostID'}\E:\Q$perlvar{'lonDefDomain'}\E\:(?:access|library)\:[^:]+\:https?\:([^:]+)/) {
                     $intdom = $1;                      $intdom = $1;
                       chomp($intdom);
                     last;                      last;
                 }                  }
             }              }

Removed from v.1.65  
changed lines
  Added in v.1.66


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