--- loncom/loncron	2019/07/18 18:28:40	1.119
+++ loncom/loncron	2020/01/11 21:54:31	1.120
@@ -2,7 +2,7 @@
 
 # Housekeeping program, started by cron, loncontrol and loncron.pl
 #
-# $Id: loncron,v 1.119 2019/07/18 18:28:40 raeburn Exp $
+# $Id: loncron,v 1.120 2020/01/11 21:54:31 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1096,12 +1096,12 @@ sub write_hostips {
     if (keys(%prevhosts) && keys(%currhosts)) {
         foreach my $key (keys(%prevhosts)) {
             unless ($currhosts{$key} eq $prevhosts{$key}) {
-                $ipchange{$key} = $prevhosts{$key}.'|'.$currhosts{$key};
+                $ipchange{$key} = $prevhosts{$key}.' | '.$currhosts{$key}.' |';
             }
         }
         foreach my $key (keys(%currhosts)) {
             unless ($currhosts{$key} eq $prevhosts{$key}) {
-                $ipchange{$key} = $prevhosts{$key}.' | '.$currhosts{$key};
+                $ipchange{$key} = $prevhosts{$key}.' | '.$currhosts{$key}.' |';
             }
         }
     }
@@ -1109,7 +1109,7 @@ sub write_hostips {
         if (keys(%ipchange)) {
             if (open(my $fh,'>>',$perlvar{'lonDaemons'}.'/logs/hostip.log')) {
                print $fh "********************\n".localtime(time).' Changes --'."\n".
-                         "Hostname | Previous IP | New IP\n".
+                         "Hostname | Previous IP | New IP |\n".
                          "--------------------------------\n";
                foreach my $hostname (sort(keys(%ipchange))) {
                     print $fh "$hostname | $ipchange{$hostname}\n";
@@ -1127,7 +1127,7 @@ sub write_hostips {
                               "MIME-Version: 1.0\n\n".
                               "Host/IP changes\n".
                               " \n".
-                              "Hostname | Previous IP | New IP\n".
+                              "Hostname | Previous IP | New IP |\n".
                               "--------------------------------\n";
                 foreach my $hostname (sort(keys(%ipchange))) {
                     $chgmail .= "$hostname | $ipchange{$hostname}\n";