***************
*** 89,103 ****
      open(In, $cfg = shift @config_files) ||
  	die "Can't open $cfg. Check \@config_files array.\n";
      while(<In>){
  	next unless /^Title\[(.*)\]:\s*(.+)$/; # Look for a title keyword
  
  	$router = lc $1;
- 	Stat("$router-day.gif");
- 	@$router = ($st_mtime, $2); # Save the mod date and title
  	push @routers, $router; # Remember the router name so we can find above info
- 	$gifdone = $st_mtime if $st_mtime > $gifdone; # Find the newest file
      }
      close In;
  }
  
  # Time the next update to occur a little while after the next interval completes
--- 89,108 ----
      open(In, $cfg = shift @config_files) ||
  	die "Can't open $cfg. Check \@config_files array.\n";
      while(<In>){
+ 	if(m/^Directory\[(.*)\]:\s*(.+)$/) {
+ 	  $Dir{lc $1}="$2/";
+ 	}
  	next unless /^Title\[(.*)\]:\s*(.+)$/; # Look for a title keyword
  
  	$router = lc $1;
  	push @routers, $router; # Remember the router name so we can find above info
      }
      close In;
+     foreach $router (@routers) {
+ 	Stat("$Dir{$router}$router-day.gif");
+ 	@$router = ($st_mtime, $2); # Save the mod date and title
+ 	$gifdone = $st_mtime if $st_mtime > $gifdone; # Find the newest file
+     }
  }
  
  # Time the next update to occur a little while after the next interval completes
***************
*** 163,169 ****
  		TR(td({-align=>"left",-width=>"20\%"}, "$mv_up $mv_dn"),
  		   td({-align=>"left"}, b($$router[1]), " $time")));
  
!     print a({-href=>"$router.html"}, img{-src=>"$router-day.gif"});
  
  }
  
--- 168,174 ----
  		TR(td({-align=>"left",-width=>"20\%"}, "$mv_up $mv_dn"),
  		   td({-align=>"left"}, b($$router[1]), " $time")));
  
!     print a({-href=>"$Dir{$router}$router.html"}, img{-src=>"$Dir{$router}$router-day.gif"});
  
  }
  
