last commit i forgot to save changes in x11.c ; this fixes that file
[monky] / src / weather.c
index 432e4b8..eea0fae 100644 (file)
@@ -1,10 +1,11 @@
 /* -*- mode: c; c-basic-offset: 4; tab-width: 4; indent-tabs-mode: t -*-
+ * vim: ts=4 sw=4 noet ai cindent syntax=c
  *
  * Conky, a system monitor, based on torsmo
  *
  * Please see COPYING for details
  *
- * Copyright (c) 2005-2009 Brenden Matthews, Philip Kovacs, et. al.
+ * Copyright (c) 2005-2010 Brenden Matthews, Philip Kovacs, et. al.
  *     (see AUTHORS)
  * All rights reserved.
  *
  * You should have received a copy of the GNU General Public License
  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  *
- * vim: ts=4 sw=4 noet ai cindent syntax=c
- *
- */
-
-/*
- * TODO: Add weather forecast info from weather.com
- *
  */
 
+#include "config.h"
 #include "conky.h"
 #include "logging.h"
 #include "weather.h"
 #include "temphelper.h"
+#include "text_object.h"
 #include "ccurl_thread.h"
 #include <time.h>
 #include <ctype.h>
 #ifdef XOAP
 #include <libxml/parser.h>
 #include <libxml/xpath.h>
+#endif /* XOAP */
+
+/* WEATHER data */
+typedef struct PWEATHER_ {
+       char lastupd[32];
+#ifdef XOAP
+       char xoap_t[32];
+       char icon[3];
+#endif /* XOAP */
+       int temp;
+       int dew;
+       int cc;
+       int bar;
+       int wind_s;
+       int wind_d;
+       int hmid;
+       int wc;
+} PWEATHER;
+
+#ifdef XOAP
+#define FORECAST_DAYS 5
+typedef struct PWEATHER_FORECAST_ {
+       int hi[FORECAST_DAYS];
+       int low[FORECAST_DAYS];
+       char icon[FORECAST_DAYS][3];
+       char xoap_t[FORECAST_DAYS][32];
+       char day[FORECAST_DAYS][9];
+       char date[FORECAST_DAYS][7];
+       int wind_s[FORECAST_DAYS];
+       int wind_d[FORECAST_DAYS];
+       int hmid[FORECAST_DAYS];
+       int ppcp[FORECAST_DAYS];
+} PWEATHER_FORECAST;
 
 /* Xpath expressions for XOAP xml parsing */
-#define NUM_XPATH_EXPRESSIONS 7
-const char *xpath_expression[NUM_XPATH_EXPRESSIONS] = {
+#define NUM_XPATH_EXPRESSIONS_CC 8
+const char *xpath_expression_cc[NUM_XPATH_EXPRESSIONS_CC] = {
        "/weather/cc/lsup", "/weather/cc/tmp", "/weather/cc/t",
        "/weather/cc/bar/r", "/weather/cc/wind/s", "/weather/cc/wind/d",
-       "/weather/cc/hmid"
+       "/weather/cc/hmid", "/weather/cc/icon"
+};
+
+#define NUM_XPATH_EXPRESSIONS_DF 10
+const char *xpath_expression_df[NUM_XPATH_EXPRESSIONS_DF] = {
+       "/weather/dayf/day[*]/hi", "/weather/dayf/day[*]/low",
+       "/weather/dayf/day[*]/part[1]/icon", "/weather/dayf/day[*]/part[1]/t",
+       "/weather/dayf/day[*]/part[1]/wind/s","/weather/dayf/day[*]/part[1]/wind/d",
+       "/weather/dayf/day[*]/part[1]/ppcp", "/weather/dayf/day[*]/part[1]/hmid",
+       "/weather/dayf/day[*]/@t", "/weather/dayf/day[*]/@dt"
 };
 #endif /* XOAP */
 
@@ -73,11 +111,32 @@ const char *WC_CODES[NUM_WC_CODES] = {
        "FC", "PO", "SQ", "SS", "DS"
 };
 
-static ccurl_location_t *locations_head = 0;
+static ccurl_location_t *locations_head_cc = 0;
+#ifdef XOAP
+static ccurl_location_t *locations_head_df = 0;
+#endif
+
+struct weather_data {
+       char uri[128];
+       char data_type[32];
+       int interval;
+};
+
+#ifdef XOAP
+struct weather_forecast_data {
+       char uri[128];
+       unsigned int day;
+       char data_type[32];
+       int interval;
+};
+#endif
 
 void weather_free_info(void)
 {
-       ccurl_free_locations(&locations_head);
+       ccurl_free_locations(&locations_head_cc);
+#ifdef XOAP
+       ccurl_free_locations(&locations_head_df);
+#endif
 }
 
 int rel_humidity(int dew_point, int air) {
@@ -93,43 +152,146 @@ int rel_humidity(int dew_point, int air) {
 }
 
 #ifdef XOAP
+static void parse_df(PWEATHER_FORECAST *res, xmlXPathContextPtr xpathCtx)
+{
+       int i, j, k;
+       char *content;
+       xmlXPathObjectPtr xpathObj;
+
+       xpathObj = xmlXPathEvalExpression((const xmlChar *)"/error/err", xpathCtx);
+       if (xpathObj && xpathObj->nodesetval && xpathObj->nodesetval->nodeNr > 0 &&
+                       xpathObj->nodesetval->nodeTab[0]->type == XML_ELEMENT_NODE) {
+               content = (char *)xmlNodeGetContent(xpathObj->nodesetval->nodeTab[0]);
+               NORM_ERR("XOAP error: %s", content);
+               xmlFree(content);
+               xmlXPathFreeObject(xpathObj);
+               return;
+       }
+       xmlXPathFreeObject(xpathObj);
+
+       for (i = 0; i < NUM_XPATH_EXPRESSIONS_DF; i++) {
+               xpathObj = xmlXPathEvalExpression((const xmlChar *)xpath_expression_df[i], xpathCtx);
+               if (xpathObj != NULL) {
+                       xmlNodeSetPtr nodes = xpathObj->nodesetval;
+                       k = 0;
+                       for (j = 0; j < nodes->nodeNr; ++j) {
+                               if (nodes->nodeTab[j]->type == XML_ELEMENT_NODE) {
+                                       content = (char *)xmlNodeGetContent(nodes->nodeTab[k]);
+                                       switch(i) {
+                                       case 0:
+                                               res->hi[k] = atoi(content);
+                                               break;
+                                       case 1:
+                                               res->low[k] = atoi(content);
+                                               break;
+                                       case 2:
+                                               strncpy(res->icon[k], content, 2);
+                                       case 3:
+                                               strncpy(res->xoap_t[k], content, 31);
+                                               break;
+                                       case 4:
+                                               res->wind_s[k] = atoi(content);
+                                               break;
+                                       case 5:
+                                               res->wind_d[k] = atoi(content);
+                                               break;
+                                       case 6:
+                                               res->ppcp[k] = atoi(content);
+                                               break;
+                                       case 7:
+                                               res->hmid[k] = atoi(content);
+                                       }
+                               } else if (nodes->nodeTab[j]->type == XML_ATTRIBUTE_NODE) {
+                                       content = (char *)xmlNodeGetContent(nodes->nodeTab[k]);
+                                       switch(i) {
+                                       case 8:
+                                               strncpy(res->day[k], content, 8);
+                                               break;
+                                       case 9:
+                                               strncpy(res->date[k], content, 6);
+                                       }
+                               }
+                               xmlFree(content);
+                               if (++k == FORECAST_DAYS) break;
+                       }
+               }
+               xmlXPathFreeObject(xpathObj);
+       }
+       return;
+}
+
+static void parse_weather_forecast_xml(PWEATHER_FORECAST *res, const char *data)
+{
+       xmlDocPtr doc;
+       xmlXPathContextPtr xpathCtx;
+
+       if (!(doc = xmlReadMemory(data, strlen(data), "", NULL, 0))) {
+               NORM_ERR("weather_forecast: can't read xml data");
+               return;
+       }
+
+       xpathCtx = xmlXPathNewContext(doc);
+       if(xpathCtx == NULL) {
+               NORM_ERR("weather_forecast: unable to create new XPath context");
+               xmlFreeDoc(doc);
+               return;
+       }
+
+       parse_df(res, xpathCtx);
+       xmlXPathFreeContext(xpathCtx);
+       xmlFreeDoc(doc);
+       return;
+}
+
 static void parse_cc(PWEATHER *res, xmlXPathContextPtr xpathCtx)
 {
        int i;
        char *content;
        xmlXPathObjectPtr xpathObj;
 
-       for (i = 0; i < NUM_XPATH_EXPRESSIONS; i++) {
-         xpathObj = xmlXPathEvalExpression((xmlChar *)xpath_expression[i], xpathCtx);
-               if ((xpathObj != NULL) && (xpathObj->nodesetval->nodeTab[0]->type == XML_ELEMENT_NODE)) {
-                 content = (char *)xmlNodeGetContent(xpathObj->nodesetval->nodeTab[0]);
-                 switch(i) {
-                      case 0:
-                           strncpy(res->lastupd, content, 31);
-                      break;
-                      case 1:
-                           res->temp = atoi(content);
-                      break;
-                      case 2:
-                           if(res->xoap_t[0] == '\0') {
-                               strncpy(res->xoap_t, content, 31);
-                               }
-                      break;
-                      case 3:
-                           res->bar = atoi(content);
-                      break;
-                      case 4:
-                           res->wind_s = atoi(content);
-                      break;
-                      case 5:
-                           if (isdigit((char)content[0])) {
-                               res->wind_d = atoi(content);
-                           }
-                           break;
-                      case 6:
-                           res->hmid = atoi(content);
-                 }
-                 xmlFree(content);
+       xpathObj = xmlXPathEvalExpression((const xmlChar *)"/error/err", xpathCtx);
+       if (xpathObj && xpathObj->nodesetval && xpathObj->nodesetval->nodeNr > 0 &&
+                       xpathObj->nodesetval->nodeTab[0]->type == XML_ELEMENT_NODE) {
+               content = (char *)xmlNodeGetContent(xpathObj->nodesetval->nodeTab[0]);
+               NORM_ERR("XOAP error: %s", content);
+               xmlFree(content);
+               xmlXPathFreeObject(xpathObj);
+               return;
+       }
+       xmlXPathFreeObject(xpathObj);
+
+       for (i = 0; i < NUM_XPATH_EXPRESSIONS_CC; i++) {
+               xpathObj = xmlXPathEvalExpression((const xmlChar *)xpath_expression_cc[i], xpathCtx);
+               if (xpathObj && xpathObj->nodesetval && xpathObj->nodesetval->nodeNr >0 &&
+                               xpathObj->nodesetval->nodeTab[0]->type ==
+                               XML_ELEMENT_NODE) {
+                       content = (char *)xmlNodeGetContent(xpathObj->nodesetval->nodeTab[0]);
+                       switch(i) {
+                               case 0:
+                                       strncpy(res->lastupd, content, 31);
+                                       break;
+                               case 1:
+                                       res->temp = atoi(content);
+                                       break;
+                               case 2:
+                                       strncpy(res->xoap_t, content, 31);
+                                       break;
+                               case 3:
+                                       res->bar = atoi(content);
+                                       break;
+                               case 4:
+                                       res->wind_s = atoi(content);
+                                       break;
+                               case 5:
+                                       res->wind_d = atoi(content);
+                                       break;
+                               case 6:
+                                       res->hmid = atoi(content);
+                                       break;
+                               case 7:
+                                       strncpy(res->icon, content, 2);
+                       }
+                       xmlFree(content);
                }
                xmlXPathFreeObject(xpathObj);
        }
@@ -142,13 +304,13 @@ static void parse_weather_xml(PWEATHER *res, const char *data)
        xmlXPathContextPtr xpathCtx;
 
        if (!(doc = xmlReadMemory(data, strlen(data), "", NULL, 0))) {
-               ERR("weather: can't read xml data");
+               NORM_ERR("weather: can't read xml data");
                return;
        }
 
        xpathCtx = xmlXPathNewContext(doc);
        if(xpathCtx == NULL) {
-               ERR("weather: unable to create new XPath context");
+               NORM_ERR("weather: unable to create new XPath context");
                xmlFreeDoc(doc);
                return;
        }
@@ -450,6 +612,20 @@ static inline void parse_token(PWEATHER *res, char *token) {
        }
 }
 
+#ifdef XOAP
+void parse_weather_forecast(void *result, const char *data)
+{
+       PWEATHER_FORECAST *res = (PWEATHER_FORECAST*)result;
+       /* Reset results */
+       memset(res, 0, sizeof(PWEATHER_FORECAST));
+
+       //Check if it is an xml file
+       if ( strncmp(data, "<?xml ", 6) == 0 ) {
+               parse_weather_forecast_xml(res, data);
+       }
+}
+#endif /* XOAP */
+
 void parse_weather(void *result, const char *data)
 {
        PWEATHER *res = (PWEATHER*)result;
@@ -494,7 +670,89 @@ void parse_weather(void *result, const char *data)
        }
 }
 
-void weather_process_info(char *p, int p_max_size, char *uri, char *data_type, int interval)
+void wind_deg_to_dir(char *p, int p_max_size, int wind_deg) {
+       if ((wind_deg >= 349) || (wind_deg < 12)) {
+               strncpy(p, "N", p_max_size);
+       } else if (wind_deg < 33) {
+               strncpy(p, "NNE", p_max_size);
+       } else if (wind_deg < 57) {
+               strncpy(p, "NE", p_max_size);
+       } else if (wind_deg < 79) {
+               strncpy(p, "ENE", p_max_size);
+       } else if (wind_deg < 102) {
+               strncpy(p, "E", p_max_size);
+       } else if (wind_deg < 124) {
+               strncpy(p, "ESE", p_max_size);
+       } else if (wind_deg < 147) {
+               strncpy(p, "SE", p_max_size);
+       } else if (wind_deg < 169) {
+               strncpy(p, "SSE", p_max_size);
+       } else if (wind_deg < 192) {
+               strncpy(p, "S", p_max_size);
+       } else if (wind_deg < 214) {
+               strncpy(p, "SSW", p_max_size);
+       } else if (wind_deg < 237) {
+               strncpy(p, "SW", p_max_size);
+       } else if (wind_deg < 259) {
+               strncpy(p, "WSW", p_max_size);
+       } else if (wind_deg < 282) {
+                       strncpy(p, "W", p_max_size);
+       } else if (wind_deg < 304) {
+               strncpy(p, "WNW", p_max_size);
+       } else if (wind_deg < 327) {
+               strncpy(p, "NW", p_max_size);
+       } else if (wind_deg < 349) {
+               strncpy(p, "NNW", p_max_size);
+       };
+}
+
+#ifdef XOAP
+static void weather_forecast_process_info(char *p, int p_max_size, char *uri, unsigned int day, char *data_type, int interval)
+{
+       PWEATHER_FORECAST *data;
+
+       ccurl_location_t *curloc = ccurl_find_location(&locations_head_df, uri);
+       if (!curloc->p_timed_thread) {
+               curloc->result = malloc(sizeof(PWEATHER_FORECAST));
+               memset(curloc->result, 0, sizeof(PWEATHER_FORECAST));
+               curloc->process_function = &parse_weather_forecast;
+               ccurl_init_thread(curloc, interval);
+               if (!curloc->p_timed_thread) {
+                       NORM_ERR("error setting up weather_forecast thread");
+               }
+       }
+
+       timed_thread_lock(curloc->p_timed_thread);
+       data = (PWEATHER_FORECAST*)curloc->result;
+       if (strcmp(data_type, "hi") == EQUAL) {
+               temp_print(p, p_max_size, data->hi[day], TEMP_CELSIUS);
+       } else if (strcmp(data_type, "low") == EQUAL) {
+               temp_print(p, p_max_size, data->low[day], TEMP_CELSIUS);
+       } else if (strcmp(data_type, "icon") == EQUAL) {
+               strncpy(p, data->icon[day], p_max_size);
+       } else if (strcmp(data_type, "forecast") == EQUAL) {
+               strncpy(p, data->xoap_t[day], p_max_size);
+       } else if (strcmp(data_type, "wind_speed") == EQUAL) {
+               snprintf(p, p_max_size, "%d", data->wind_s[day]);
+       } else if (strcmp(data_type, "wind_dir") == EQUAL) {
+               wind_deg_to_dir(p, p_max_size, data->wind_d[day]);
+       } else if (strcmp(data_type, "wind_dir_DEG") == EQUAL) {
+               snprintf(p, p_max_size, "%d", data->wind_d[day]);
+       } else if (strcmp(data_type, "humidity") == EQUAL) {
+               snprintf(p, p_max_size, "%d", data->hmid[day]);
+       } else if (strcmp(data_type, "precipitation") == EQUAL) {
+               snprintf(p, p_max_size, "%d", data->ppcp[day]);
+       } else if (strcmp(data_type, "day") == EQUAL) {
+               strncpy(p, data->day[day], p_max_size);
+       } else if (strcmp(data_type, "date") == EQUAL) {
+               strncpy(p, data->date[day], p_max_size);
+       }
+
+       timed_thread_unlock(curloc->p_timed_thread);
+}
+#endif /* XOAP */
+
+static void weather_process_info(char *p, int p_max_size, char *uri, char *data_type, int interval)
 {
        static const char *wc[] = {
                "", "drizzle", "rain", "hail", "soft hail",
@@ -504,14 +762,14 @@ void weather_process_info(char *p, int p_max_size, char *uri, char *data_type, i
        };
        PWEATHER *data;
 
-       ccurl_location_t *curloc = ccurl_find_location(&locations_head, uri);
+       ccurl_location_t *curloc = ccurl_find_location(&locations_head_cc, uri);
        if (!curloc->p_timed_thread) {
                curloc->result = malloc(sizeof(PWEATHER));
                memset(curloc->result, 0, sizeof(PWEATHER));
                curloc->process_function = &parse_weather;
                ccurl_init_thread(curloc, interval);
                if (!curloc->p_timed_thread) {
-                       ERR("error setting up weather thread");
+                       NORM_ERR("error setting up weather thread");
                }
        }
 
@@ -524,7 +782,12 @@ void weather_process_info(char *p, int p_max_size, char *uri, char *data_type, i
        } else if (strcmp(data_type, "cloud_cover") == EQUAL) {
 #ifdef XOAP
                if (data->xoap_t[0] != '\0') {
+                       char *s = p;
                        strncpy(p, data->xoap_t, p_max_size);
+                       while (*s) {
+                               *s = tolower(*s);
+                               s++;
+                       }
                } else
 #endif /* XOAP */
                        if (data->cc == 0) {
@@ -542,44 +805,16 @@ void weather_process_info(char *p, int p_max_size, char *uri, char *data_type, i
                        } else  {
                                strncpy(p, "cumulonimbus", p_max_size);
                        }
+#ifdef XOAP
+       } else if (strcmp(data_type, "icon") == EQUAL) {
+               strncpy(p, data->icon, p_max_size);
+#endif /* XOAP */
        } else if (strcmp(data_type, "pressure") == EQUAL) {
                snprintf(p, p_max_size, "%d", data->bar);
        } else if (strcmp(data_type, "wind_speed") == EQUAL) {
                snprintf(p, p_max_size, "%d", data->wind_s);
        } else if (strcmp(data_type, "wind_dir") == EQUAL) {
-               if ((data->wind_d >= 349) || (data->wind_d < 12)) {
-                       strncpy(p, "N", p_max_size);
-               } else if (data->wind_d < 33) {
-                       strncpy(p, "NNE", p_max_size);
-               } else if (data->wind_d < 57) {
-                       strncpy(p, "NE", p_max_size);
-               } else if (data->wind_d < 79) {
-                       strncpy(p, "ENE", p_max_size);
-               } else if (data->wind_d < 102) {
-                       strncpy(p, "E", p_max_size);
-               } else if (data->wind_d < 124) {
-                       strncpy(p, "ESE", p_max_size);
-               } else if (data->wind_d < 147) {
-                       strncpy(p, "SE", p_max_size);
-               } else if (data->wind_d < 169) {
-                       strncpy(p, "SSE", p_max_size);
-               } else if (data->wind_d < 192) {
-                       strncpy(p, "S", p_max_size);
-               } else if (data->wind_d < 214) {
-                       strncpy(p, "SSW", p_max_size);
-               } else if (data->wind_d < 237) {
-                       strncpy(p, "SW", p_max_size);
-               } else if (data->wind_d < 259) {
-                       strncpy(p, "WSW", p_max_size);
-               } else if (data->wind_d < 282) {
-                       strncpy(p, "W", p_max_size);
-               } else if (data->wind_d < 304) {
-                       strncpy(p, "WNW", p_max_size);
-               } else if (data->wind_d < 327) {
-                       strncpy(p, "NW", p_max_size);
-               } else if (data->wind_d < 349) {
-                       strncpy(p, "NNW", p_max_size);
-               };
+               wind_deg_to_dir(p, p_max_size, data->wind_d);
        } else if (strcmp(data_type, "wind_dir_DEG") == EQUAL) {
                snprintf(p, p_max_size, "%d", data->wind_d);
 
@@ -593,49 +828,16 @@ void weather_process_info(char *p, int p_max_size, char *uri, char *data_type, i
 }
 
 #ifdef XOAP
-
 /* xoap suffix for weather from weather.com */
-static char *xoap = NULL;
-
-/*
- * TODO: make the xoap keys file readable from the config file
- *       make the keys directly readable from the config file
- *       make the xoap keys file giveable as a command line option
- */
-void load_xoap_keys(void)
-{
-       FILE *fp;
-       char *par = (char *) malloc(11 * sizeof(char));
-       char *key = (char *) malloc(17 * sizeof(char));
-
-       xoap = (char *) malloc(64 * sizeof(char));
-       to_real_path(xoap, XOAP_FILE);
-       fp = fopen(xoap, "r");
-       if (fp != NULL) {
-               if (fscanf(fp, "%10s %16s", par, key) == 2) {
-                       strcpy(xoap, "?cc=*&link=xoap&prod=xoap&par=");
-                       strcat(xoap, par);
-                       strcat(xoap, "&key=");
-                       strcat(xoap, key);
-                       strcat(xoap, "&unit=m");
-               } else {
-                       free(xoap);
-                       xoap = NULL;
-               }
-               fclose(fp);
-       } else {
-               free(xoap);
-               xoap = NULL;
-       }
-       free(par);
-       free(key);
-}
+static char *xoap_cc = NULL;
+static char *xoap_df = NULL;
 #endif /* XOAP */
 
-int process_weather_uri(char *uri, char *locID)
+static int process_weather_uri(char *uri, char *locID, int dayf UNUSED_ATTR)
 {
        /* locID MUST BE upper-case */
        char *tmp_p = locID;
+
        while (*tmp_p) {
                *tmp_p = toupper(*tmp_p);
                tmp_p++;
@@ -644,14 +846,17 @@ int process_weather_uri(char *uri, char *locID)
        /* Construct complete uri */
 #ifdef XOAP
        if (strstr(uri, "xoap.weather.com")) {
-               if (xoap != NULL) {
+               if ((dayf == 0) && (xoap_cc != NULL)) {
+                       strcat(uri, locID);
+                       strcat(uri, xoap_cc);
+               } else if ((dayf == 1) && (xoap_df != NULL)) {
                        strcat(uri, locID);
-                       strcat(uri, xoap);
+                       strcat(uri, xoap_df);
                } else {
                        free(uri);
                        uri = NULL;
                }
-       } else 
+       } else
 #endif /* XOAP */
        if (strstr(uri, "weather.noaa.gov")) {
                strcat(uri, locID);
@@ -662,3 +867,157 @@ int process_weather_uri(char *uri, char *locID)
        return 0;
 }
 
+#ifdef XOAP
+
+/*
+ * TODO: make the xoap keys file readable from the config file
+ *       make the keys directly readable from the config file
+ *       make the xoap keys file giveable as a command line option
+ */
+void load_xoap_keys(void)
+{
+       FILE *fp;
+       char *par  = (char *) malloc(11 * sizeof(char));
+       char *key  = (char *) malloc(17 * sizeof(char));
+       char *xoap = (char *) malloc(64 * sizeof(char));
+
+       to_real_path(xoap, XOAP_FILE);
+       fp = fopen(xoap, "r");
+       if (fp != NULL) {
+               if (fscanf(fp, "%10s %16s", par, key) == 2) {
+                       xoap_cc = (char *) malloc(128 * sizeof(char));
+                       xoap_df = (char *) malloc(128 * sizeof(char));
+
+                       strcpy(xoap_cc, "?cc=*&link=xoap&prod=xoap&par=");
+                       strcat(xoap_cc, par);
+                       strcat(xoap_cc, "&key=");
+                       strcat(xoap_cc, key);
+                       strcat(xoap_cc, "&unit=m");
+
+                       /* TODO: Use FORECAST_DAYS instead of 5 */
+                       strcpy(xoap_df, "?dayf=5&link=xoap&prod=xoap&par=");
+                       strcat(xoap_df, par);
+                       strcat(xoap_df, "&key=");
+                       strcat(xoap_df, key);
+                       strcat(xoap_df, "&unit=m");
+               }
+               fclose(fp);
+       }
+       free(par);
+       free(key);
+       free(xoap);
+}
+
+void scan_weather_forecast_arg(struct text_object *obj, const char *arg, void *free_at_crash)
+{
+       int argc;
+       struct weather_forecast_data *wfd;
+       float interval = 0;
+       char *locID = (char *) malloc(9 * sizeof(char));
+
+       wfd = malloc(sizeof(struct weather_forecast_data));
+       memset(wfd, 0, sizeof(struct weather_forecast_data));
+
+       argc = sscanf(arg, "%119s %8s %1u %31s %f", wfd->uri, locID, &wfd->day, wfd->data_type, &interval);
+
+       if (argc < 4) {
+               free(locID);
+               free(wfd);
+               CRIT_ERR(obj, free_at_crash, "wrong number of arguments for $weather_forecast");
+       }
+       if (process_weather_uri(wfd->uri, locID, 1)) {
+               free(locID);
+               free(wfd);
+               CRIT_ERR(obj, free_at_crash, \
+                               "could not recognize the weather forecast uri");
+       }
+
+       /* Limit the day between 0 (today) and FORECAST_DAYS */
+       if (wfd->day >= FORECAST_DAYS) {
+               wfd->day = FORECAST_DAYS-1;
+       }
+
+       /* Limit the data retrieval interval to 3 hours and an half */
+       if (interval < 210) {
+               interval = 210;
+       }
+
+       /* Convert to seconds */
+       wfd->interval = interval * 60;
+       free(locID);
+
+       DBGP("weather_forecast: fetching %s for day %d from %s every %d seconds", \
+                       wfd->data_type, wfd->day, wfd->uri, wfd->interval);
+
+       obj->data.opaque = wfd;
+}
+
+void print_weather_forecast(struct text_object *obj, char *p, int p_max_size)
+{
+       struct weather_forecast_data *wfd = obj->data.opaque;
+
+       if (!wfd || !wfd->uri) {
+               NORM_ERR("error processing weather forecast data, check that you have a valid XOAP key if using XOAP.");
+               return;
+       }
+       weather_forecast_process_info(p, p_max_size, wfd->uri, wfd->day, wfd->data_type, wfd->interval);
+}
+#endif /* XOAP */
+
+void scan_weather_arg(struct text_object *obj, const char *arg, void *free_at_crash)
+{
+       int argc;
+       struct weather_data *wd;
+       char *locID = (char *) malloc(9 * sizeof(char));
+       float interval = 0;
+
+       wd = malloc(sizeof(struct weather_data));
+       memset(wd, 0, sizeof(struct weather_data));
+
+       argc = sscanf(arg, "%119s %8s %31s %f", wd->uri, locID, wd->data_type, &interval);
+
+       if (argc < 3) {
+               free(locID);
+               free(wd);
+               CRIT_ERR(obj, free_at_crash, "wrong number of arguments for $weather");
+       }
+       if (process_weather_uri(wd->uri, locID, 0)) {
+               free(locID);
+               free(wd);
+               CRIT_ERR(obj, free_at_crash, \
+                               "could not recognize the weather uri");
+       }
+
+       /* Limit the data retrieval interval to half hour min */
+       if (interval < 30) {
+               interval = 30;
+       }
+
+       /* Convert to seconds */
+       wd->interval = interval * 60;
+       free(locID);
+
+       DBGP("weather: fetching %s from %s every %d seconds", \
+                       wd->data_type, wd->uri, wd->interval);
+
+       obj->data.opaque = wd;
+}
+
+void print_weather(struct text_object *obj, char *p, int p_max_size)
+{
+       struct weather_data *wd = obj->data.opaque;
+
+       if (!wd || !wd->uri) {
+               NORM_ERR("error processing weather data, check that you have a valid XOAP key if using XOAP.");
+               return;
+       }
+       weather_process_info(p, p_max_size, wd->uri, wd->data_type, wd->interval);
+}
+
+void free_weather(struct text_object *obj)
+{
+       if (obj->data.opaque) {
+               free(obj->data.opaque);
+               obj->data.opaque = NULL;
+       }
+}