release/src/router/httpd/misc.c

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