release/src/router/httpd/misc.c

   1 /*
   2
   3         Tomato Firmware
   4         Copyright (C) 2006-2009 Jonathan Zarate
   5
   6 */
   7
   8 #include "tomato.h"
   9
  10 #include <ctype.h>
  11 #include <sys/sysinfo.h>
  12 #include <sys/stat.h>
  13 #include <sys/ioctl.h>
  14 #include <net/if.h>
  15 #include <fcntl.h>
  16 #include <sys/socket.h>
  17 #include <netinet/in.h>
  18 #include <arpa/inet.h>
  19 #include <sys/types.h>
  20 #include <dirent.h>
  21 #include <time.h>
  22 #include <sys/statfs.h>
  23 #include <netdb.h>
  24 #include <net/route.h>
  25
  26 #include <wlioctl.h>
  27 #include <wlutils.h>
  28
  29 // to javascript-safe string
  30 char *js_string(const char *s)
  31 {
  32         unsigned char c;
  33         char *buffer;
  34         char *b;
  35
  36         if ((buffer = malloc((strlen(s) * 4) + 1)) != NULL) {
  37                 b = buffer;
  38                 while ((c = *s++) != 0) {
  39                         if ((c == '"') || (c == '\'') || (c == '\\') || (!isprint(c))) {
  40                                 b += sprintf(b, "\\x%02x", c);
  41                         }
  42                         else {
  43                                 *b++ = c;
  44                         }
  45                 }
  46                 *b = 0;
  47         }
  48         return buffer;
  49 }
  50
  51 // to html-safe string
  52 char *html_string(const char *s)
  53 {
  54         unsigned char c;
  55         char *buffer;
  56         char *b;
  57
  58         if ((buffer = malloc((strlen(s) * 6) + 1)) != NULL) {
  59                 b = buffer;
  60                 while ((c = *s++) != 0) {
  61                         if ((c == '&') || (c == '<') || (c == '>') || (c == '"') || (c == '\'') || (!isprint(c))) {
  62                                 b += sprintf(b, "&#%d;", c);
  63                         }
  64                         else {
  65                                 *b++ = c;
  66                         }
  67                 }
  68                 *b = 0;
  69         }
  70         return buffer;
  71 }
  72
  73 // removes \r
  74 char *unix_string(const char *s)
  75 {
  76         char *buffer;
  77         char *b;
  78         char c;
  79
  80         if ((buffer = malloc(strlen(s) + 1)) != NULL) {
  81                 b = buffer;
  82                 while ((c = *s++) != 0)
  83                         if (c != '\r') *b++ = c;
  84                 *b = 0;
  85         }
  86         return buffer;
  87 }
  88
  89 // # days, ##:##:##
  90 char *reltime(char *buf, time_t t)
  91 {
  92         int days;
  93         int m;
  94
  95         if (t < 0) t = 0;
  96         days = t / 86400;
  97         m = t / 60;
  98         sprintf(buf, "%d day%s, %02d:%02d:%02d", days, ((days==1) ? "" : "s"), ((m / 60) % 24), (m % 60), (int)(t % 60));
  99         return buf;
 100 }
 101
 102 int get_client_info(char *mac, char *ifname)
 103 {
 104         FILE *f;
 105         char s[256];
 106         char ips[16];
 107
 108 /*
 109 # cat /proc/net/arp
 110 IP address       HW type     Flags       HW address            Mask     Device
 111 192.168.0.1      0x1         0x2         00:01:02:03:04:05     *        vlan1
 112 192.168.1.5      0x1         0x2         00:05:06:07:08:09     *        br0
 113 */
 114
 115         if ((f = fopen("/proc/net/arp", "r")) != NULL) {
 116                 while (fgets(s, sizeof(s), f)) {
 117                         if (sscanf(s, "%15s %*s %*s %17s %*s %16s", ips, mac, ifname) == 3) {
 118                                 if (inet_addr(ips) == clientsai.sin_addr.s_addr) {
 119                                         fclose(f);
 120                                         return 1;
 121                                 }
 122                         }
 123                 }
 124                 fclose(f);
 125         }
 126         return 0;
 127 }
 128
 129
 130
 131
 132
 133 //      <% lanip(mode); %>
 134 //      <mode>
 135 //              1               return first 3 octets (192.168.1)
 136 //              2               return last octet (1)
 137 //              else    return full (192.168.1.1)
 138
 139 void asp_lanip(int argc, char **argv)
 140 {
 141         char *nv, *p;
 142         char s[64];
 143         char mode;
 144
 145         mode = argc ? *argv[0] : 0;
 146
 147         if ((nv = nvram_get("lan_ipaddr")) != NULL) {
 148                 strcpy(s, nv);
 149                 if ((p = strrchr(s, '.')) != NULL) {
 150                         *p = 0;
 151             web_puts((mode == '1') ? s : (mode == '2') ? (p + 1) : nv);
 152                 }
 153         }
 154 }
 155
 156 void asp_lipp(int argc, char **argv)
 157 {
 158         char *one = "1";
 159         asp_lanip(1, &one);
 160 }
 161
 162 //      <% psup(process); %>
 163 //      returns 1 if process is running
 164
 165 void asp_psup(int argc, char **argv)
 166 {
 167         if (argc == 1) web_printf("%d", pidof(argv[0]) > 0);
 168 }
 169
 170 /*
 171 # cat /proc/meminfo
 172         total:    used:    free:  shared: buffers:  cached:
 173 Mem:  14872576 12877824  1994752        0  1236992  4837376
 174 Swap:        0        0        0
 175 MemTotal:        14524 kB
 176 MemFree:          1948 kB
 177 MemShared:           0 kB
 178 Buffers:          1208 kB
 179 Cached:           4724 kB
 180 SwapCached:          0 kB
 181 Active:           4364 kB
 182 Inactive:         2952 kB
 183 HighTotal:           0 kB
 184 HighFree:            0 kB
 185 LowTotal:        14524 kB
 186 LowFree:          1948 kB
 187 SwapTotal:           0 kB
 188 SwapFree:            0 kB
 189
 190 */
 191
 192 typedef struct {
 193         unsigned long total;
 194         unsigned long free;
 195         unsigned long shared;
 196         unsigned long buffers;
 197         unsigned long cached;
 198         unsigned long swaptotal;
 199         unsigned long swapfree;
 200         unsigned long maxfreeram;
 201 } meminfo_t;
 202
 203 static int get_memory(meminfo_t *m)
 204 {
 205         FILE *f;
 206         char s[128];
 207         int ok = 0;
 208
 209         if ((f = fopen("/proc/meminfo", "r")) != NULL) {
 210                 while (fgets(s, sizeof(s), f)) {
 211                         if (strncmp(s, "Mem:", 4) == 0) {
 212                                 if (sscanf(s + 6, "%ld %*d %ld %ld %ld %ld", &m->total, &m->free, &m->shared, &m->buffers, &m->cached) == 5)
 213                                         ++ok;
 214                         }
 215                         else if (strncmp(s, "SwapTotal:", 10) == 0) {
 216                                 m->swaptotal = strtoul(s + 12, NULL, 10) * 1024;
 217                                 ++ok;
 218                         }
 219                         else if (strncmp(s, "SwapFree:", 9) == 0) {
 220                                 m->swapfree = strtoul(s + 11, NULL, 10) * 1024;
 221                                 ++ok;
 222                                 break;
 223                         }
 224                 }
 225                 fclose(f);
 226         }
 227         if (ok != 3) {
 228                 memset(m, 0, sizeof(*m));
 229                 return 0;
 230         }
 231         m->maxfreeram = m->free;
 232         if (nvram_match("t_cafree", "1")) m->maxfreeram += m->cached;
 233         return 1;
 234 }
 235
 236 void asp_sysinfo(int argc, char **argv)
 237 {
 238         struct sysinfo si;
 239         char s[64];
 240         meminfo_t mem;
 241
 242         web_puts("\nsysinfo = {\n");
 243         sysinfo(&si);
 244         get_memory(&mem);
 245         web_printf(
 246                 "\tuptime: %ld,\n"
 247                 "\tuptime_s: '%s',\n"
 248                 "\tloads: [%ld, %ld, %ld],\n"
 249                 "\ttotalram: %ld,\n"
 250                 "\tfreeram: %ld,\n"
 251                 "\tshareram: %ld,\n"
 252                 "\tbufferram: %ld,\n"
 253                 "\tcached: %ld,\n"
 254                 "\ttotalswap: %ld,\n"
 255                 "\tfreeswap: %ld,\n"
 256                 "\ttotalfreeram: %ld,\n"
 257                 "\tprocs: %d\n",
 258                         si.uptime,
 259                         reltime(s, si.uptime),
 260                         si.loads[0], si.loads[1], si.loads[2],
 261                         mem.total, mem.free,
 262                         mem.shared, mem.buffers, mem.cached,
 263                         mem.swaptotal, mem.swapfree,
 264                         mem.maxfreeram,
 265                         si.procs);
 266         web_puts("};\n");
 267 }
 268
 269 void asp_activeroutes(int argc, char **argv)
 270 {
 271         FILE *f;
 272         char s[512];
 273         char dev[17];
 274         unsigned long dest;
 275         unsigned long gateway;
 276         unsigned long flags;
 277         unsigned long mask;
 278         unsigned metric;
 279         struct in_addr ia;
 280         char s_dest[16];
 281         char s_gateway[16];
 282         char s_mask[16];
 283         int n;
 284
 285         web_puts("\nactiveroutes = [");
 286         n = 0;
 287         if ((f = fopen("/proc/net/route", "r")) != NULL) {
 288                 while (fgets(s, sizeof(s), f)) {
 289                         if (sscanf(s, "%16s%lx%lx%lx%*s%*s%u%lx", dev, &dest, &gateway, &flags, &metric, &mask) != 6) continue;
 290                         if ((flags & RTF_UP) == 0) continue;
 291                         if (dest != 0) {
 292                                 ia.s_addr = dest;
 293                                 strcpy(s_dest, inet_ntoa(ia));
 294                         }
 295                         else {
 296                                 strcpy(s_dest, "default");
 297                         }
 298                         if (gateway != 0) {
 299                                 ia.s_addr = gateway;
 300                                 strcpy(s_gateway, inet_ntoa(ia));
 301                         }
 302                         else {
 303                                 strcpy(s_gateway, "*");
 304                         }
 305                         ia.s_addr = mask;
 306                         strcpy(s_mask, inet_ntoa(ia));
 307                         web_printf("%s['%s','%s','%s','%s',%u]", n ? "," : "", dev, s_dest, s_gateway, s_mask, metric);
 308                         ++n;
 309                 }
 310                 fclose(f);
 311         }
 312         web_puts("];\n");
 313 }
 314
 315 void asp_cgi_get(int argc, char **argv)
 316 {
 317         const char *v;
 318         int i;
 319
 320         for (i = 0; i < argc; ++i) {
 321                 v = webcgi_get(argv[i]);
 322                 if (v) web_puts(v);
 323         }
 324 }
 325
 326 void asp_time(int argc, char **argv)
 327 {
 328         time_t t;
 329         char s[64];
 330
 331         t = time(NULL);
 332         if (t < Y2K) {
 333                 web_puts("Not Available");
 334         }
 335         else {
 336                 strftime(s, sizeof(s), "%a, %d %b %Y %H:%M:%S %z", localtime(&t));
 337                 web_puts(s);
 338         }
 339 }
 340
 341 void asp_wanup(int argc, char **argv)
 342 {
 343         web_puts(check_wanup() ? "1" : "0");
 344 }
 345
 346 void asp_wanstatus(int argc, char **argv)
 347 {
 348         const char *p;
 349
 350         if ((using_dhcpc()) && (f_exists("/var/lib/misc/dhcpc.renewing"))) {
 351                 p = "Renewing...";
 352         }
 353         else if (check_wanup()) {
 354                 p = "Connected";
 355         }
 356         else if (f_exists("/var/lib/misc/wan.connecting")) {
 357                 p = "Connecting...";
 358         }
 359         else {
 360                 p = "Disconnected";
 361         }
 362         web_puts(p);
 363 }
 364
 365 void asp_link_uptime(int argc, char **argv)
 366 {
 367         struct sysinfo si;
 368         char buf[64];
 369         long uptime;
 370
 371         buf[0] = '-';
 372         buf[1] = 0;
 373         if (check_wanup()) {
 374                 sysinfo(&si);
 375                 if (f_read("/var/lib/misc/wantime", &uptime, sizeof(uptime)) == sizeof(uptime)) {
 376                         reltime(buf, si.uptime - uptime);
 377                 }
 378         }
 379         web_puts(buf);
 380 }
 381
 382 void asp_rrule(int argc, char **argv)
 383 {
 384         char s[32];
 385         int i;
 386
 387         i = nvram_get_int("rruleN");
 388         sprintf(s, "rrule%d", i);
 389         web_puts("\nrrule = '");
 390         web_putj(nvram_safe_get(s));
 391         web_printf("';\nrruleN = %d;\n", i);
 392 }
 393
 394 void asp_compmac(int argc, char **argv)
 395 {
 396         char mac[32];
 397         char ifname[32];
 398
 399         if (get_client_info(mac, ifname)) {
 400                 web_puts(mac);
 401         }
 402 }
 403
 404 void asp_ident(int argc, char **argv)
 405 {
 406         web_puth(nvram_safe_get("router_name"));
 407 }
 408
 409 void asp_statfs(int argc, char **argv)
 410 {
 411         struct statfs sf;
 412
 413         if (argc != 2) return;
 414
 415         // used for /cifs/, /jffs/... if it returns squashfs type, assume it's not mounted
 416         if ((statfs(argv[0], &sf) != 0) || (sf.f_type == 0x73717368))
 417                 memset(&sf, 0, sizeof(sf));
 418
 419         web_printf(
 420                         "\n%s = {\n"
 421                         "\tsize: %llu,\n"
 422                         "\tfree: %llu\n"
 423                         "};\n",
 424                         argv[1],
 425                         ((uint64_t)sf.f_bsize * sf.f_blocks),
 426                         ((uint64_t)sf.f_bsize * sf.f_bfree));
 427 }
 428
 429 void asp_notice(int argc, char **argv)
 430 {
 431         char s[256];
 432         char buf[2048];
 433
 434         if (argc != 1) return;
 435         snprintf(s, sizeof(s), "/var/notice/%s", argv[0]);
 436         if (f_read_string(s, buf, sizeof(buf)) <= 0) return;
 437         web_putj(buf);
 438 }
 439
 440 void wo_wakeup(char *url)
 441 {
 442         char *mac;
 443         char *p;
 444         char *end;
 445
 446         if ((mac = webcgi_get("mac")) != NULL) {
 447                 end = mac + strlen(mac);
 448                 while (mac < end) {
 449                         while ((*mac == ' ') || (*mac == '\t') || (*mac == '\r') || (*mac == '\n')) ++mac;
 450                         if (*mac == 0) break;
 451
 452                         p = mac;
 453                         while ((*p != 0) && (*p != ' ') && (*p != '\r') && (*p != '\n')) ++p;
 454                         *p = 0;
 455
 456                         eval("ether-wake", "-i", nvram_safe_get("lan_ifname"), mac);
 457                         mac = p + 1;
 458                 }
 459         }
 460         common_redirect();
 461 }
 462
 463 void asp_dns(int argc, char **argv)
 464 {
 465         char s[128];
 466         int i;
 467         const dns_list_t *dns;
 468
 469         dns = get_dns();        // static buffer
 470         strcpy(s, "\ndns = [");
 471         for (i = 0 ; i < dns->count; ++i) {
 472                 sprintf(s + strlen(s), "%s'%s'", i ? "," : "", inet_ntoa(dns->dns[i]));
 473         }
 474         strcat(s, "];\n");
 475         web_puts(s);
 476 }
 477
 478 void wo_resolve(char *url)
 479 {
 480         char *p;
 481         char *ip;
 482         struct hostent *he;
 483         struct in_addr ia;
 484         char comma;
 485         char *js;
 486
 487         comma = ' ';
 488         web_puts("\nresolve_data = [\n");
 489         if ((p = webcgi_get("ip")) != NULL) {
 490                 while ((ip = strsep(&p, ",")) != NULL) {
 491                         ia.s_addr = inet_addr(ip);
 492                         he = gethostbyaddr(&ia, sizeof(ia), AF_INET);
 493                         js = js_string(he ? he->h_name : "");
 494                         web_printf("%c['%s','%s']", comma, inet_ntoa(ia), js);
 495                         free(js);
 496                         comma = ',';
 497                 }
 498         }
 499         web_puts("];\n");
 500 }
 501
 502