loncom/lciptables - diff

Return to lciptables CVS log

Up to [LON-CAPA] / loncom

-version 1.7, 2018/10/24 04:19:27
+version 1.8, 2018/10/24 15:11:19
  Line 73  if (@ARGV != 1) {
      &Exit(2);
  }
  my $tmpfile = $ARGV[0];
- if (-e $tmpfile) {
+ if ($tmpfile =~ m{^\Q/home/httpd/perl/tmp/lciptables_iphost_\E\d+$}) {
-     if (open(my $fh,"<$tmpfile")) {
+     if (-e $tmpfile) {
-         while(<$fh>) {
+         if (open(my $fh,"<$tmpfile")) {
-             chomp();
+             while(<$fh>) {
-             $iphost{$_} = 1;
+                 chomp();
+                 if (/^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/) {
+                     if (($1<=255) && ($2<=255) && ($3<=255) && ($4<=255)) {
+                         $iphost{$_} = 1;
+                     }
+                 }
+             }
+             close($fh);
+         } else {
+             &Exit(3);
          }
-         close($fh);
      } else {
-        &Exit(3);
+         print "Error. File containing IP addresses of hosts in cluster does not exist\n" unless $noprint;
+         &Exit(3);
      }
  } else {
-     print "Error. File containing IP addresses of hosts in cluster does not exist\n" unless $noprint;
+     print "Error. Invalid filename for file containing IP addresses\n" unless $noprint;
      &Exit(3);
  }