home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2034 < prev    next >
Encoding:
Internet Message Format  |  1990-12-28  |  11.2 KB
  1. From: turner@ksr.com (James M. Turner)
  2. Newsgroups: comp.protocols.time.ntp,alt.sources
  3. Subject: Set time from WWV clock
  4. Message-ID: <2967@litchi.bbn.com>
  5. Date: 6 Nov 90 13:52:38 GMT
  6.  
  7. [  NOTE:  RICH SALZ DID NOT WRITE THIS; HE IS JUST POSTING IT!!! ]
  8.  
  9. After I finally got sick of hand-setting my master-machine to the
  10. talking clock, and decided I wanted a little more accuracy and
  11. automation, I wrote the following.  It works under SunOS 4.0.3, no
  12. idea how it will do on other machines.  If you get it working on a new
  13. architecture, send the fixes to me and I'll incorporate them in the next
  14. release.
  15.  
  16. Place the file below in utcclock.c.  Instructions for compilation and
  17. use are in the file itself.
  18. ------------------------------ Cut Here ------------------------------
  19.  
  20. /* UTCCLOCK.C - Set time from US naval Observatory via modem
  21.    Copyright (C) 1990, James M. Turner
  22.  
  23.                                ***
  24.  
  25.    This program is free software; you can redistribute it and/or modify
  26.    it under the terms of the GNU General Public License as published by
  27.    the Free Software Foundation; either version 1, or (at your option)
  28.    any later version.
  29.  
  30.    This program is distributed in the hope that it will be useful,
  31.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  32.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  33.    GNU General Public License for more details.
  34.  
  35.    You should have received a copy of the GNU General Public License
  36.    along with this program; if not, write to the Free Software
  37.    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  38.  
  39.                                ***
  40.  
  41.    utcclock allows us mortals without cessium clocks and WWV radio
  42.    receivers to keep our time reasonable close to UTC.
  43.  
  44.    Experiments on a Sun 3/60 had local time within 50 milliseconds of
  45.    UTC as provided by the US Naval Observatory.  Not perfect, but better than
  46.    trying to set it by hand.
  47.  
  48.    Usage: utcclock [-S] [-s speed] [-l device] [-n number]
  49.  
  50.    Where speed is the baud rate to use, device is the device to call on,
  51.    and number is the phone number to dial.  If the -S option is used, the
  52.    time will be set, otherwise only the delta difference is reported.  You
  53.    must be root to set the time.  Because it uses the UUCP locking mechanism,
  54.    it needs write permission to /usr/spool/uucp.  I installed it setuid with
  55.    owner = uucp on my system.  If you install it setuid to root, anyone will
  56.    be able to set the time.
  57.  
  58.    On SunOS 4.0.3, compile with:
  59.  
  60.    cc -O -o utcclock utcclock.c
  61.  
  62.    I suggest installing it in /usr/local/etc
  63.  
  64.    Have fun, and happy ticking.
  65.  
  66.    James Turner
  67.    (turner@ksr.com)
  68.    617-895-9480
  69.  
  70.    $Log:    utcclock.c,v $
  71.  * Revision 1.4  90/11/05  16:27:56  turner
  72.  * Added GPL notice
  73.  * 
  74.  * Revision 1.3  90/11/05  16:06:06  turner
  75.  * Added exclusive locking of device, better leap-year computation.
  76.  * 
  77.    */
  78.  
  79. #include <sys/types.h>
  80. #include <sys/time.h>
  81. #include <sys/timeb.h>
  82. #include <stdio.h>
  83. #include <fcntl.h>
  84. #include <stdio.h>
  85. #include <signal.h>
  86. #include <termio.h>
  87.  
  88. char version[] = "$Id: utcclock.c,v 1.4 90/11/05 16:27:56 turner Exp $";
  89.  
  90. /* PLEASE CHECK AND SET THE VALUES BELOW THIS LINE !!! */
  91.  
  92. /* Default device to use.  Should be exclusive-locking if possible */
  93. #define TTYPORT "cua0"
  94.  
  95. /* Phone number to dial.  Please verify that you receive tone on this number
  96.    (we wouldnt want to harrass little old ladies with modem tones, now would
  97.    we?)
  98.    */
  99. #define NUMBER "12026530351"    /* US Naval Observatory */
  100.  
  101. /* Format of string to send to modem with number in %s */
  102. #define DIALSTRING "ATDT%s\r"
  103.  
  104. /* Default baud rate to use on line */
  105. #define BAUDRATE B1200
  106.  
  107. /* Number of seconds of data to read */
  108. #define NCOUNT 5
  109.  
  110. /* Locking file for UUCP. %s will be replaced by "ntp" and the device name */
  111. #define LOCKFILE "/usr/spool/uucp/LCK..%s"
  112.  
  113. /* END OF USER CONFIGURABLE SECTION */
  114.  
  115. #define FIRST_YEAR 1988
  116. #define FIRST_VALUE 47160    /* The day value of Dec 31, FIRST_YEAR-1 */
  117.  
  118. int months[] = {
  119.   31, 28,31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
  120.  
  121. int modem;            /* Device Descriptor for Modem Line */
  122. char *timeout_reason=NULL;    /* If we timeout, where are we in the code? */
  123.  
  124. char lck1[80], lck2[80];
  125.  
  126. /* This code handles the cleanup (shutting down the modem) if you
  127. abort for some reason */
  128.  
  129. void
  130. exit_handler(sig, code, scp, addr)
  131. int sig, code;
  132. struct sigcontext *scp;
  133. char *addr;
  134. {
  135.   int flags =  (TIOCM_DTR | TIOCM_LE);
  136.   ioctl(modem, TIOCMBIC, &flags);
  137.   if (sig == SIGALRM)
  138.     printf("utcclock: timeout while %s\n", timeout_reason);
  139.   if (timeout_reason != NULL) {
  140.     unlink(lck1);
  141.     unlink(lck2);
  142.   }
  143.   exit(0);
  144. }
  145.  
  146. struct sigvec vec = {
  147.   exit_handler,
  148.   0,
  149.   0};
  150.  
  151. /* Returns number of days in the given year.
  152.  * Remember, a leap year is a year which is evenly divisible by 4,
  153.  * but not a century, unless it is a century divisible by 400
  154.  */
  155. static
  156. daysinyear(thisyear)
  157.     int thisyear;
  158. {
  159.     if ((thisyear % 4) == 0 && (((thisyear % 100) != 0) ||
  160.            ((thisyear % 400) == 0)))
  161.        return(366);
  162.     return(365);
  163. }
  164.  
  165. main(argc, argv)
  166. int argc;
  167. char **argv;
  168. {
  169.   extern char *optarg;
  170.   extern int optind;
  171.   int fd1, flags;
  172.   struct sigvec ovec;
  173.   struct termio tty;
  174.   char c, *OptLine, *OptNumber, option, device[50];
  175.   struct tm tm;
  176.   struct timeval del, del1;
  177.   struct timezone tzp;
  178.   struct timeb tp;
  179.   time_t i;
  180.   long utc_time;
  181.   int hh, mm, ss, dd, yy, dummy, milli[3], m, n = 0, r, k=0, des,
  182.       yydd, year, month, OptSetme = 0, OptSpeed = BAUDRATE;
  183.   char buffer[80];
  184.   
  185.  
  186.   /* Make sure that timeouts and terminations clean up after themselves */
  187.   if (sigvec(SIGTERM, &vec, &ovec) != 0) {
  188.     perror("Sigvec:");
  189.     exit(-1);
  190.   }
  191.   if (sigvec(SIGINT, &vec, &ovec) != 0) {
  192.     perror("Sigvec:");
  193.     exit(-1);
  194.   }
  195.   if (sigvec(SIGALRM, &vec, &ovec) != 0) {
  196.     perror("Sigvec:");
  197.     exit(-1);
  198.   }
  199.  
  200.   OptLine = TTYPORT;
  201.   OptNumber = NUMBER;
  202.  
  203.   /* Read in the options */
  204.   while ((option = getopt(argc, argv, "Sl:s:n:")) != -1) {
  205.     switch (option) {
  206.     case 'S':
  207.       OptSetme = 1;
  208.       break;
  209.     case 'l':
  210.       OptLine = optarg;
  211.       break;
  212.     case 'n':
  213.       OptNumber = optarg;
  214.       break;
  215.     case 's':
  216.       OptSpeed = atoi(optarg);
  217.       switch (OptSpeed) {
  218.       case 300:
  219.     OptSpeed = B300;
  220.     break;
  221.       case 1200:
  222.     OptSpeed = B1200;
  223.     break;
  224.       case 2400:
  225.     OptSpeed = B2400;
  226.     break;
  227.       case 4800:
  228.     OptSpeed = B4800;
  229.     break;
  230.       case 9600:
  231.     OptSpeed = B9600;
  232.     break;
  233.       case 19200:
  234.     OptSpeed = B19200;
  235.     break;
  236.       otherwise:
  237.     fprintf(stderr, "utcclock: Illegal baud rate\n");
  238.     exit(2);
  239.       }
  240.       break;
  241.     case '?':
  242.       fprintf(stderr, "Usage: utcclock [-S] [-s speed] [-l line] [n number]\n");
  243.       exit(2);
  244.       break;
  245.     }
  246.   }
  247.  
  248.   sprintf(device, "/dev/%s", OptLine);
  249.   /* 60 Seconds to get the mess worked out */
  250.   alarm(60);
  251.   sprintf(lck1, LOCKFILE, "ntp");
  252.   sprintf(lck2, LOCKFILE, OptLine);
  253.  
  254.   if ((n = open(lck1, O_CREAT|O_EXCL)) == -1) {
  255.     fprintf(stderr, "utcclock: utcclock already running\n");
  256.     exit(2);
  257.   }
  258.   close(n);
  259.   if ((m = open(lck2, O_CREAT|O_EXCL)) == -1) {
  260.     fprintf(stderr, "utcclock: port in use\n");
  261.     unlink(lck1);
  262.     exit(2);
  263.   }
  264.   close(m);
  265.  
  266.   timeout_reason = "opening device";
  267.   if ((modem = open(device, O_RDWR|O_NDELAY|O_EXCL)) == -1) {
  268.     perror("utcclock");
  269.     exit(2);
  270.   }
  271.   timeout_reason = "setting line parameters";
  272.   if (ioctl(des, TCGETA, &tty) == 0) {
  273.     tty.c_cflag &= ~CBAUD;
  274.     tty.c_cflag |= (CLOCAL | OptSpeed);
  275.   }
  276.   ioctl(des, TCSETA, &tty);
  277.   fcntl(modem,F_SETFL,0);    /* Turn off NDELAY. */
  278.   /* Mom says we have to reopen for effect */
  279.   fd1 = open(device, O_RDWR|O_EXCL);
  280.   close(modem);            /* Close old line */
  281.   modem = fd1;
  282.  
  283.   /* dial utc */
  284.   timeout_reason = "dialing";
  285.   ioctl(modem, TCFLSH, 0);    /* Flush any old characters */
  286.   sprintf(buffer, DIALSTRING, OptNumber); /* Change for non-hayes */
  287.   write(modem, buffer, strlen(buffer));
  288.  
  289.   /* Now we read characters until we see the first * from the remote
  290.    side.  I hope your modem doesn't report messages with a *
  291.    */
  292.   timeout_reason = "Looking for *";
  293.   for (n = 0, buffer[0] = ' '; (n > -1), (buffer[0] != '*');
  294.        n = read(modem, buffer, 1));
  295.   if (n == -1) exit(2);
  296.  
  297.   yy = 0;            /* Set year = 0 */
  298.   n = 0;            /* Set character counter = 0 */
  299.   while (k < NCOUNT) {        /* Until we get NCOUNT seconds of data */
  300.     i = read(modem, buffer+n, 1); /* Read a character */
  301.     if (i <= 0) exit(-1);    /* On EOF, punt */
  302.     if (buffer[n] == '*') {    /* If second-marker */
  303.       if (yy != 0) {        /* Have we got legal data? */
  304.     if (k == (NCOUNT-1)) {    /* And have we seen NCOUNT seconds? */
  305.       ftime(&tp);        /* Get our local time for delta */
  306.       if (OptSetme) {    /* If we set time */
  307.         r = settimeofday(&del1, &tzp); /* Set to calculated value */
  308.         if (r < 0)        /* Did we get an error? */
  309.           perror("settimeofday");
  310.       }
  311.       if (del1.tv_sec > tp.time) { /* If value is negative */
  312.         if (tp.millitm != 0) { /* And some part of it is millitm */
  313.           tp.time++;    /* Then delta is one second less */
  314.           tp.millitm = 1000 - tp.millitm; /* Plus 1.0 - millitm */
  315.         }
  316.         printf("Our clock slow by %d.%03d seconds\n",
  317.            del1.tv_sec - tp.time, tp.millitm);
  318.       } else {
  319.         printf("Our clock fast by %d.%03d seconds\n", 
  320.            tp.time - del1.tv_sec, tp.millitm);
  321.       }
  322.       printf("Universal Coordinated Time exactly %d/%d/%d %d:%02d:%02d\n", 
  323.          month, dd, yy, hh, mm, ss);
  324.     }
  325.     /* If we aren't ready to set the time yet, add one to the timestamp
  326.        and one to the good marker count */
  327.     del1.tv_sec++;        
  328.     k++;
  329.       }
  330.     } else {
  331.       /* If we got a CR, we figure out the time sent */
  332.       if (buffer[n] == '\n' || buffer[n] == 'r') {
  333.     buffer[n] = 0;        /* Terminate buffer */
  334.     /* If we haven't read a good value, and there are characters in the
  335.        buffer, and the string parses correctly, then calculate time
  336.        */
  337.     if ((yy == 0) && 
  338.         (n != 0) &&
  339.         (sscanf(buffer, "%d %d %2d%2d%2d UTC", &yydd, &dd, &hh, &mm, &ss) 
  340.          == 5)) {
  341.  
  342.       yydd -= FIRST_VALUE;    /* Subtract day value of Dec 31st */
  343.       for (year = FIRST_YEAR; (yydd > daysinyear(year)); year++)
  344.            /* Decrement until under 1 year left */
  345.            yydd -= daysinyear(year);
  346.       yy = year - 1900; /* Set year number */
  347.       if (daysinyear(year) == 366)
  348.            months[1] = 29; /* Handle leap year */
  349.       for (month = 0; (dd > months[month]); month++)
  350.         dd -= months[month];
  351.  
  352.       tm.tm_sec = ss;    /* Stuff seconds in second field */
  353.       tm.tm_min = mm;    /* Stuff minutes in minute field */
  354.       tm.tm_hour = hh;    /* Stuff hours in hour field */
  355.       tm.tm_year = yy;    /* Stuff year in year field */
  356.       tm.tm_mday = dd;    /* Stuff day of month */
  357.       tm.tm_mon = month;    /* Stuff month */
  358.       utc_time = ((long)timegm(&tm)); /* Get gmtime version of time */
  359.       gettimeofday(&del1, &tzp); /* Get time zone information */
  360.       del1.tv_usec = 0;    /* Always exactly on second */
  361.       del1.tv_sec = utc_time; /* * is for *NEXT* second */
  362.     }
  363.     n = 0;            /* Reset character counter */
  364.       } else {
  365.     n++;            /* Store character */
  366.     buffer[n] = 0;        /* Terminate */
  367.       }
  368.     }
  369.   }
  370.   flags = TIOCM_DTR;        /* Clean up after success */
  371.   ioctl(modem, TIOCMBIC, &flags);
  372.   unlink(lck1);
  373.   unlink(lck2);
  374.   exit(0);
  375. }
  376. -- 
  377. Name:    James M. Turner            * Great Moments in Aviation #21: While on a
  378. Company: Kendall Square Research    * NDB approach into Hanscom, pilot Ted Hertz
  379. Email:   turner@ksr.com, ksr!turner * accidently tunes WEEI on his NAV instead
  380. Phone:   (617) 895-9400             * of the LOM, and lands on top of the Pru.
  381.