wmaker-eukara/dockapps/wmweather+/wmweather+.c

825 lines
27 KiB
C

#include "config.h"
/* Copyright (C) 2002 Brad Jorsch <anomie@users.sourceforge.net>
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*/
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <unistd.h>
#include <limits.h>
#include <ctype.h>
#include <signal.h>
#include <fcntl.h>
#include <errno.h>
#include <sys/stat.h>
#include <sys/wait.h>
#if TM_IN_SYS_TIME
# if TIME_WITH_SYS_TIME
# include <sys/time.h>
# include <time.h>
# else
# if HAVE_SYS_TIME_H
# include <sys/time.h>
# else
# include <time.h>
# endif
# endif
#else
#include <time.h>
#endif
#include <X11/Xlib.h>
#include <X11/Xatom.h>
#include <X11/xpm.h>
#include "wmweather+.h"
#include "convert.h"
#include "download.h"
#include "dock.h"
#include "die.h"
#include "animation.h"
char *ProgName;
char *bigbuf;
int devnull;
char *monthnames[]={ "", "JAN", "FEB", "MAR", "APR", "MAY", "JUN", "JUL", "AUG", "SEP", "OCT", "NOV", "DEC" };
char *monthnames2[]={ "", "", "", "", "", "", "JUNE", "JULY", "", "SEPT", "", "", "" };
char *wdaynames[]={ "SUNDAY", "MONDAY", "TUESDAY", "WEDN'SDAY", "THURSDAY", "FRIDAY", "SATURDAY"};
char *directions[]={"VRB", "N", "NNE", "NE", "ENE", "E", "ESE", "SE", "SSE", "S", "SSW", "SW", "WSW", "W", "WNW", "NW", "NNW"};
char *error;
char *unknown_option="Unknown option";
#define F(a) fprintf(stderr, a "\n");
/***************************************************
* Configuration parameters
***************************************************/
char *email_address=NULL;
char *metar_station=NULL;
char *metar_uri=NULL;
char *metar_post=NULL;
char **warning_zones=NULL;
char *warning_uri=NULL;
char *warning_post=NULL;
char *avn_station=NULL;
char *avn_uri=NULL;
char *avn_post=NULL;
char *eta_station=NULL;
char *eta_uri=NULL;
char *eta_post=NULL;
char *mrf_station=NULL;
char *mrf_uri=NULL;
char *mrf_post=NULL;
char *radar_uri=NULL;
char *radar_post=NULL;
char *radar_crop=NULL;
char *radar_cross=NULL;
char *viewer=NULL;
int pressure_mode=0;
int windspeed_mode=0;
int temp_mode=0;
int length_mode=0;
double latitude=999, longitude=999;
int start_do_animation=1;
int starting_mode=0;
/**********************************
* Prototypes
**********************************/
void usage(int i) __THROW __attribute__ ((__noreturn__));
void printversion(void);
int readconf(char *file);
int parse_option(char *option, char *value);
char *get_filename(char *file);
/**********************************
* Functions
**********************************/
void sigchld(int i){
while(waitpid(-1, NULL, WNOHANG)>0);
}
int parse_option(char *option, char *value){
int i;
void *v;
errno=0;
error=unknown_option;
if(option[0]=='-') option++;
if(option[0]=='-' && option[1]!='\0' && option[2]!='\0') option++;
if(option[0]=='\0') return 0;
if(value!=NULL && value[0]=='\0') value=NULL;
switch (option[0]){
case 'a':
if(!strncmp(option, "avn-", 4)){
if(!strcmp(option+4, "station")){
if(value==NULL){
error="avn-station given with no station ID";
return 0;
}
if(avn_station!=NULL) free(avn_station);
avn_station=strdup(value);
if(avn_station==NULL) die("avn-station strdup");
return 2;
} else if(!strcmp(option+4, "uri")){
if(value==NULL){
error="avn-uri given with no URI";
return 0;
}
if(avn_uri!=NULL) free(avn_uri);
avn_uri=strdup(value);
if(avn_uri==NULL) die("avn-uri strdup");
if(avn_post!=NULL) free(avn_post);
avn_post=NULL;
return 2;
} else if(!strcmp(option+4, "post")){
if(value==NULL){
error="avn-post given with no data";
return 0;
}
if(avn_uri==NULL){
error="avn-post must come after avn-uri";
return 0;
}
if(avn_post!=NULL) free(avn_post);
avn_post=strdup(value);
if(avn_post==NULL) die("avn-post strdup");
return 2;
}
break;
} else if(!strcmp(option, "atm")){
pressure_mode=3;
return 1;
} else if(!strcmp(option, "animate")){
start_do_animation=1;
return 1;
}
break;
case 'b':
if(!strcmp(option, "beaufort")){
windspeed_mode=4;
return 1;
}
break;
case 'c':
if(option[1]=='\0') return 2; /* -c handled earlier */
else if(!strcmp(option, "cm")){
length_mode=1;
return 1;
}
break;
case 'd':
if(!strcmp(option, "display-mode")){
if(value==NULL){
error="display-mode given with no mode specified";
return 0;
}
if(!strcasecmp(value, "cur") || !strcasecmp(value, "current")){
starting_mode=0;
return 2;
} else if(!strcasecmp(value, "fcst") || !strcasecmp(value, "forecast")){
starting_mode=1;
return 2;
} else if(!strcasecmp(value, "map") || !strcasecmp(value, "radar")){
starting_mode=2;
return 2;
} else {
error="display-mode given with unrecognized mode";
return 0;
}
} else if(!strcmp(option, "display")){
return 1;
}
break;
case 'e':
if(!strncmp(option, "eta-", 4)){
if(!strcmp(option+4, "station")){
if(value==NULL){
error="eta-station given with no station ID";
return 0;
}
if(eta_station!=NULL) free(eta_station);
eta_station=strdup(value);
if(eta_station==NULL) die("eta-station strdup");
return 2;
} else if(!strcmp(option+4, "uri")){
if(value==NULL){
error="eta-uri given with no URI";
return 0;
}
if(eta_uri!=NULL) free(eta_uri);
eta_uri=strdup(value);
if(eta_uri==NULL) die("eta-uri strdup");
if(eta_post!=NULL) free(eta_post);
eta_post=NULL;
return 2;
} else if(!strcmp(option+4, "post")){
if(value==NULL){
error="eta-post given with no data";
return 0;
}
if(eta_uri==NULL){
error="eta-post must come after eta-uri";
return 0;
}
if(eta_post!=NULL) free(eta_post);
eta_post=strdup(value);
if(eta_post==NULL) die("eta-post strdup");
return 2;
}
break;
} else if(option[1]=='\0' || !strcmp(option, "email")){
if(value==NULL){
error="-e/email given with no address";
return 0;
}
if(email_address!=NULL) free(email_address);
email_address=strdup(value);
if(email_address==NULL) die("email strdup");
return 2;
}
break;
case 'f':
if(!strncmp(option, "forget-", 7)){
if(!strcmp(option+7, "warning-zones")){
if(warning_zones) free(warning_zones);
warning_zones=NULL;
return 1;
}
break;
}
break;
case 'h':
if(!strcmp(option, "hPa")){
pressure_mode=1;
return 1;
}
break;
case 'i':
if(!strcmp(option, "inHg")){
pressure_mode=0;
return 1;
} else if(!strcmp(option, "in")){
length_mode=0;
return 1;
}
break;
case 'k':
if(!strcmp(option, "kph")){
windspeed_mode=1;
return 1;
} else if(!strcmp(option, "knots")){
windspeed_mode=2;
return 1;
}
break;
case 'l':
if(!strcmp(option, "location")){
if(value==NULL){
error="location given with no value";
return 0;
}
if(!str2dd(value, &latitude, &longitude)){
error="location should be of the form \"dd'mm'ssN dd'mm'ssW\" or \"dd.ddddN dd.dddddW\"\n Note that, if you're using '-location' on the command line, you will need\n to quote the value, e.g. '-location \"dd.ddddN dd.dddddW\"'";
return 0;
}
if(latitude>90 || latitude<-90 || longitude>180 || longitude<-180){
error="latitude or longitude out of range";
return 0;
}
return 2;
}
break;
case 'm':
if(option[1]=='\0' || !strcmp(option, "metric")){
pressure_mode=windspeed_mode=temp_mode=length_mode=1;
return 1;
} else if(!strncmp(option, "metar-", 6)){
if(!strcmp(option+6, "station")){
if(value==NULL){
error="metar-station given with no station ID";
return 0;
}
if(metar_station!=NULL) free(metar_station);
metar_station=strdup(value);
if(metar_station==NULL) die("metar-station strdup");
return 2;
} else if(!strcmp(option+6, "uri")){
if(value==NULL){
error="metar-uri given with no URI";
return 0;
}
if(metar_uri!=NULL) free(metar_uri);
metar_uri=strdup(value);
if(metar_uri==NULL) die("metar-uri strdup");
if(metar_post!=NULL) free(metar_post);
metar_post=NULL;
return 2;
} else if(!strcmp(option+6, "post")){
if(value==NULL){
error="metar-post given with no data";
return 0;
}
if(metar_uri==NULL){
error="metar-post must come after metar-uri";
return 0;
}
if(metar_post!=NULL) free(metar_post);
metar_post=strdup(value);
if(metar_post==NULL) die("metar-post strdup");
return 2;
}
break;
} else if(!strncmp(option, "mrf-", 4)){
if(!strcmp(option+4, "station")){
if(value==NULL){
error="mrf-station given with no station ID";
return 0;
}
if(mrf_station!=NULL) free(mrf_station);
mrf_station=strdup(value);
if(mrf_station==NULL) die("mrf-station strdup");
return 2;
} else if(!strcmp(option+4, "uri")){
if(value==NULL){
error="mrf-uri given with no URI";
return 0;
}
if(mrf_uri!=NULL) free(mrf_uri);
mrf_uri=strdup(value);
if(mrf_uri==NULL) die("mrf-uri strdup");
if(mrf_post!=NULL) free(mrf_post);
mrf_post=NULL;
return 2;
} else if(!strcmp(option+4, "post")){
if(value==NULL){
error="mrf-post given with no data";
return 0;
}
if(mrf_uri==NULL){
error="mrf-post must come after mrf-uri";
return 0;
}
if(mrf_post!=NULL) free(mrf_post);
mrf_post=strdup(value);
if(mrf_post==NULL) die("mrf-post strdup");
return 2;
}
break;
} else if(!strcmp(option, "mmHg")){
pressure_mode=2;
return 1;
} else if(!strcmp(option, "mph")){
windspeed_mode=0;
return 1;
} else if(!strcmp(option, "mps")){
windspeed_mode=3;
return 1;
} else if(!strcmp(option, "mbar")){
pressure_mode=1;
return 1;
}
break;
case 'n':
if(!strcmp(option, "noradar")){
if(radar_uri!=NULL) free(radar_uri);
radar_uri=NULL;
return 1;
} else if(!strcmp(option, "noanimate")){
start_do_animation=0;
return 1;
}
break;
case 'r':
if(!strcmp(option, "radar")){
warn("'radar' is deprecated, please use 'radar-uri' instead");
return parse_option("radar-uri", value);
} else if(!strncmp(option, "radar-", 6)){
if(!strcmp(option+6, "uri")){
if(value==NULL){
error="radar-uri given with no URI";
return 0;
}
if(radar_uri!=NULL) free(radar_uri);
radar_uri=strdup(value);
if(radar_uri==NULL) die("radar-uri strdup");
if(radar_post!=NULL) free(radar_post);
radar_post=NULL;
return 2;
} else if(!strcmp(option+6, "post")){
if(value==NULL){
error="radar-post given with no data";
return 0;
}
if(radar_uri==NULL){
error="radar-post must come after radar-uri";
return 0;
}
if(radar_post!=NULL) free(radar_post);
radar_post=strdup(value);
if(radar_post==NULL) die("radar-post strdup");
return 2;
} else if(!strcmp(option+6, "crop")){
if(value==NULL){
error="radar-crop given with no value";
return 0;
}
if(radar_crop!=NULL) free(radar_crop);
radar_crop=strdup(value);
if(radar_crop==NULL) die("radar-crop strdup");
return 2;
} else if(!strcmp(option+6, "cross")){
if(value==NULL){
error="radar-cross given with no value";
return 0;
}
if(radar_cross!=NULL) free(radar_cross);
radar_cross=strdup(value);
if(radar_cross==NULL) die("radar-cross strdup");
return 2;
}
break;
}
break;
case 's':
if(option[1]=='\0' || !strcmp(option, "station")){
if(value==NULL){
error="-s/station given with no value";
return 0;
}
if(parse_option("metar-station", value)==2
&& parse_option("avn-station", value)==2
&& parse_option("eta-station", value)==2
&& parse_option("mrf-station", value)==2)
return 2;
return 0;
}
break;
case 't':
if(!strcmp(option, "tempf")){
temp_mode=0;
return 1;
} else if(!strcmp(option, "tempc")){
temp_mode=1;
return 1;
}
break;
case 'v':
if(option[1]=='\0' || !strcmp(option, "version")){
printversion();
exit(0);
} else if(!strcmp(option, "viewer")){
if(value==NULL){
error="viewer given with no value";
return 0;
}
if(viewer!=NULL) free(viewer);
viewer=strdup(value);
if(viewer==NULL) die("viewer strdup");
return 2;
}
break;
case 'w':
if(!strncmp(option, "warning-", 8)){
if(!strcmp(option+8, "zone")){
if(value==NULL){
error="warning-zone given with no zone ID";
return 0;
}
if(warning_zones!=NULL){
for(i=0; warning_zones[i]!=NULL; i++);
} else {
i=0;
}
v=realloc(warning_zones, sizeof(*warning_zones)*(i+2));
if(v==NULL) die("warning-zone realloc");
warning_zones=v;
warning_zones[i+1]=NULL;
warning_zones[i]=strdup(value);
if(warning_zones[i]==NULL) die("warning-zone strdup");
return 2;
} else if(!strcmp(option+8, "uri")){
if(value==NULL){
error="warning-uri given with no URI";
return 0;
}
if(warning_uri!=NULL) free(warning_uri);
warning_uri=strdup(value);
if(warning_uri==NULL) die("warning-uri strdup");
if(warning_post!=NULL) free(warning_post);
warning_post=NULL;
return 2;
} else if(!strcmp(option+8, "post")){
if(value==NULL){
error="warning-post given with no data";
return 0;
}
if(warning_uri==NULL){
error="warning-post must come after warning-uri";
return 0;
}
if(warning_post!=NULL) free(warning_post);
warning_post=strdup(value);
if(warning_post==NULL) die("warning-post strdup");
return 2;
}
break;
}
break;
case 'z':
if(!strcmp(option, "zone")){
warn("'zone' is deprecated, please use 'warning-zone' instead");
return parse_option("warning-zone", value);
}
break;
default:
break;
}
return 0;
}
int readconf(char *file){
char *c, *d;
int i, l, flag=1;
FILE *fp;
if(file==NULL){
flag=0;
file=get_filename("conf");
}
if((fp=fopen(file, "r"))==NULL){
if(!flag){
free(file);
return 0;
}
return 1;
}
l=0;
while(fgets(bigbuf, BIGBUF_LEN, fp)!=NULL){
l++;
for(i=strlen(bigbuf)-1; i>=0; i--){
if (!isspace(bigbuf[i])) break;
bigbuf[i]='\0';
}
c=bigbuf+strspn(bigbuf, " \t");
if(*c=='#' || *c=='\0') continue;
d=c+strcspn(c, " \t");
if(*d=='\0') d=NULL;
else {
*d='\0';
d++;
d+=strspn(d+1, " \t");
if(*d=='\0') d=NULL;
}
if(!parse_option(c, d)){
warn("%s[%d]: %s", file, l, error);
fclose(fp);
if(!flag) free(file);
return 2;
}
}
fclose(fp);
if(!flag) free(file);
return 0;
}
int check_dir(void){
char *c;
struct stat statbuf;
int i;
c=get_filename("");
i=stat(c, &statbuf);
if(i<0){
if(errno==ENOENT){
if(mkdir(c, 0777)<0) die("Couldn't create directory %s", c);
errno=0;
warn("Created directory %s", c);
i=stat(c, &statbuf);
}
if(i<0) die("Couldn't stat %s", c);
}
if(!S_ISDIR(statbuf.st_mode)) die("%s is not a directory", c);
free(c);
c=get_filename(".dir-test");
if(unlink(c)<0 && errno!=ENOENT) die("Couldn't delete %s", c);
if((i=stat(c, &statbuf))!=-1 || errno!=ENOENT){
if(i!=-1) errno=EEXIST;
die("Couldn't verify nonexistence of %s", c);
}
if((i=creat(c, 0))<0) die("Couldn't create %s", c);
close(i);
if(stat(c, &statbuf)<0) die("Couldn't stat %s", c);
unlink(c);
free(c);
return 1;
}
void sigint(int i){
exit(0);
}
int main(int argc, char **argv){
int i, j;
char *c;
ProgName = argv[0];
if((c=strrchr(ProgName, '/'))!=NULL && *(c+1)!='\0'){
ProgName=c+1;
}
if((bigbuf=malloc(BIGBUF_LEN))==NULL) die("bigbuf malloc");
check_dir();
devnull=open("/dev/null", O_RDWR);
if(devnull<0) die("opening /dev/null");
/* Parse Command Line */
c=NULL;
for(i=1;i<argc;i++){
if(!strcmp(argv[i], "-c")){
i++;
if(!(i<argc)){
F("-c given with no value");
exit(1);
}
c=argv[i];
break;
}
}
if(readconf("/etc/wmweather+.conf")>1) exit(1);
if((i=readconf(c))==1) warn("Couldn't open %s", c);
if(i) exit(1);
for(i=1;i<argc;i++){
char *arg = argv[i];
if(*arg=='-'){
j=parse_option(argv[i], (i+1<argc)?argv[i+1]:NULL);
if(j==0){
if(error==unknown_option) usage(1);
fprintf(stderr, "%s\n", error);
exit(1);
}
i+=j-1;
}
}
{
struct sigaction act;
sigemptyset(&act.sa_mask);
act.sa_handler=sigchld;
act.sa_flags=SA_RESTART;
sigaction(SIGCHLD, &act, NULL);
act.sa_handler=sigint;
sigaction(SIGINT, &act, NULL);
}
i=0;
if(metar_station==NULL){
i=1;
F("Please specify a METAR station.\n See http://www.nws.noaa.gov/tg/siteloc.shtml\n");
}
if(latitude==999){{
time_t t;
int flag=0;
/* note: if time_t isn't an arithmetic type, mkgmtime is screwed
* anyway. So t=0 is as appropriate as anything else. */
t=0;
longitude=-mkgmtime(localtime(&t))/240.0;
latitude=0;
if(longitude<0){
flag=1;
longitude=-longitude;
}
fprintf(stderr, "-location not given. Guessing you're at 0N %d'%d'%d%c\n", (int)longitude, (int)(longitude*60)%60, (int)(longitude*3600)%60, flag?'E':'W');
if(flag) longitude=-longitude;
}} else if(latitude>89.8){
F("Latitude greater then 89.9N automatically truncated.\n");
latitude=89.8;
} else if(latitude<-89.8){
F("Latitude greater then 89.9S automatically truncated.\n");
latitude=-89.8;
}
if(i) exit(1);
if(viewer==NULL) viewer="xless";
if(metar_uri==NULL) metar_uri="http://tgftp.nws.noaa.gov/data/observations/metar/stations/%s.TXT";
if(avn_uri==NULL) avn_uri="http://www.nws.noaa.gov/cgi-bin/mos/getmav.pl?sta=%s";
if(eta_uri==NULL) eta_uri="http://www.nws.noaa.gov/cgi-bin/mos/getmet.pl?sta=%s";
if(mrf_uri==NULL) mrf_uri="http://www.nws.noaa.gov/cgi-bin/mos/getmex.pl?sta=%s";
if(warning_uri==NULL) warning_uri="http://tgftp.nws.noaa.gov/data/watches_warnings/%f/%.2z/%z.txt";
download_init(email_address);
init_dock(argc, argv);
while(1){
update_dock();
download_process(100000);
}
}
void usage(int i) {
F("Option Value Description");
F("------ ----- -----------");
F("-c <file> Specify a configuration file");
F("-e <address> Alias for -email");
F("-email <address> Specify anonymous FTP password");
F("-location <lat+lon> Specify latitude and longitude. See manpage.");
F("-v Alias for -version");
F("-version Display version number");
F("-viewer <program> Program to display text from stdin");
F("-[no]animate Turn animation on or off");
F("");
F("-s <ID> Alias for -station");
F("-station <ID> Station ID (all stations)");
F("-metar-station <ID> Station ID for METAR observations");
F("-avn-station <ID> Station ID for AVN forecasts");
F("-eta-station <ID> Station ID for ETA forecasts");
F("-mrf-station <ID> Station ID for MRF forecasts");
F("-warning-zone <zoneID> Zone ID for weather warnings");
F("-*-uri <URI> URI for the weather data (see docs for details)");
F("-*-post <DATA> Post data for the weather data (see docs)");
F(" '*' can be metar, avn, eta, mrf, warning");
F("-noradar Do not display a radar image.");
F("-radar-uri <URI> URI for radar image");
F("-radar-post <DATA> Post data for radar image");
F("-radar-crop <string> How to crop the radar image. XxY+W+H format.");
F("-radar-cross <string> Where to draw radar crosshairs. XxY format.");
F("");
F("-m Alias for -metric");
F("-metric Same as -cm -hPa -kph -tempc");
F("");
F("-in Display precipitation amounts in inches");
F("-cm Display precipitation amounts in centimeters");
F("");
F("-inHg Display pressure in inHg");
F("-hPa Display pressure in hPa (millibars)");
F("-mbar Alias for -hPa");
F("-mmHg Display pressure in mmHg");
F("-atm Display pressure in atmospheres");
F("");
F("-mph Display windspeed in miles/hour");
F("-kph Display windspeed in kilometers/hour");
F("-knots Display windspeed in knots");
F("-mps Display windspeed in meters/second");
F("-beaufort Display windspeed on the Beaufort scale");
F("");
F("-tempf Display temperature in degrees Fahrenheit");
F("-tempc Display temperature in degrees Celcius");
exit(i);
}
void printversion(void) {
fprintf(stderr, "%s\n", VERSION);
}
char *get_filename(char *file){
char *f, *c;
c=getenv("HOME");
if((f=malloc(strlen(c)+strlen(file)+14))==NULL) die("get_filename");
strcpy(f, c);
strcat(f, "/.wmweather+/");
strcat(f, file);
return f;
}
char *get_pid_filename(char *file){
char *f, *c;
static unsigned short seq=0;
char buf[15];
snprintf(buf, sizeof(buf), "%08X.%04X-", getpid(), seq++);
c=getenv("HOME");
if((f=malloc(strlen(c)+strlen(file)+14+14))==NULL) die("get_pid_filename");
strcpy(f, c);
strcat(f, "/.wmweather+/");
strcat(f, buf);
strcat(f, file);
return f;
}