*** wmSpaceWeather-1.04/wmSpaceWeather/GetKp.orig	1999-02-12 06:42:01.000000000 +0100
--- wmSpaceWeather-1.04/wmSpaceWeather/GetKp	2012-11-06 02:11:36.000000000 +0100
***************
*** 4,12 ****
  # A really crappy code to grab last 8 Kp values....
  #
  
! 
!     require "ctime.pl";
! 
  
      ($Year, $Month, $Day) = &year_month_day();
      
--- 4,10 ----
  # A really crappy code to grab last 8 Kp values....
  #
  
! use POSIX ();
  
      ($Year, $Month, $Day) = &year_month_day();
      
***************
*** 19,25 ****
      }
  
  
!     $grabcmd = "cd /tmp; wget --passive-ftp --tries 2 -q ftp://www.sec.noaa.gov/pub/indices/DGD.txt";
      system "$grabcmd";
  
  
--- 17,23 ----
      }
  
  
!     $grabcmd = "cd /tmp; wget --passive-ftp --tries 2 -q http://www.sec.noaa.gov/ftpdir/indices/DGD.txt";
      system "$grabcmd";
  
  
***************
*** 68,74 ****
      #
      # Add in very latest stuff
      #
!     $grabcmd = "cd /tmp; wget --passive-ftp --tries 2 -q ftp://www.sec.noaa.gov/pub/latest/curind.txt";
      system "$grabcmd";
      %lmonstr = ( "Jan", 1, "Feb", 2, "Mar", 3, "Apr", 4, "May", 5, "Jun", 6, "Jul", 7, "Aug", 8, "Sep", 9, "Oct", 10, "Nov", 11, "Dec", 12);
  
--- 66,72 ----
      #
      # Add in very latest stuff
      #
!     $grabcmd = "cd /tmp; wget --passive-ftp --tries 2 -q http://www.sec.noaa.gov/ftpdir/latest/curind.txt";
      system "$grabcmd";
      %lmonstr = ( "Jan", 1, "Feb", 2, "Mar", 3, "Apr", 4, "May", 5, "Jun", 6, "Jul", 7, "Aug", 8, "Sep", 9, "Oct", 10, "Nov", 11, "Dec", 12);
  
***************
*** 201,207 ****
  
      local($ldate_string, $ldow, $lmon, $ldom, $ltim, $lyear, %lmonstr, $tzone, @lval);
  
!     $ldate_string = &ctime(time);
      ($ldow, $lmon, $ldom, $ltim, $lyear) = split(" ", $ldate_string);
  
      %lmonstr = ( "Jan", 1, "Feb", 2, "Mar", 3, "Apr", 4, "May", 5, "Jun", 6, "Jul", 7, "Aug", 8, "Sep", 9, "Oct", 10, "Nov", 11, "Dec", 12);
--- 199,205 ----
  
      local($ldate_string, $ldow, $lmon, $ldom, $ltim, $lyear, %lmonstr, $tzone, @lval);
  
!     $ldate_string = POSIX::ctime(time);
      ($ldow, $lmon, $ldom, $ltim, $lyear) = split(" ", $ldate_string);
  
      %lmonstr = ( "Jan", 1, "Feb", 2, "Mar", 3, "Apr", 4, "May", 5, "Jun", 6, "Jul", 7, "Aug", 8, "Sep", 9, "Oct", 10, "Nov", 11, "Dec", 12);