cosmetics
[tomato.git] / release / src / router / httpd / misc.c
blobed89b99bfc01d5880f6ced94b40729039ec4d33a
1 /*
3 Tomato Firmware
4 Copyright (C) 2006-2009 Jonathan Zarate
6 */
8 #include "tomato.h"
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>
26 #ifdef TCONFIG_IPV6
27 #include <ifaddrs.h>
28 #endif
30 #include <wlioctl.h>
31 #include <wlutils.h>
33 // to javascript-safe string
34 char *js_string(const char *s)
36 unsigned char c;
37 char *buffer;
38 char *b;
40 if ((buffer = malloc((strlen(s) * 4) + 1)) != NULL) {
41 b = buffer;
42 while ((c = *s++) != 0) {
43 if ((c == '"') || (c == '\'') || (c == '\\') || (!isprint(c))) {
44 b += sprintf(b, "\\x%02x", c);
46 else {
47 *b++ = c;
50 *b = 0;
52 return buffer;
55 // to html-safe string
56 char *html_string(const char *s)
58 unsigned char c;
59 char *buffer;
60 char *b;
62 if ((buffer = malloc((strlen(s) * 6) + 1)) != NULL) {
63 b = buffer;
64 while ((c = *s++) != 0) {
65 if ((c == '&') || (c == '<') || (c == '>') || (c == '"') || (c == '\'') || (!isprint(c))) {
66 b += sprintf(b, "&#%d;", c);
68 else {
69 *b++ = c;
72 *b = 0;
74 return buffer;
77 // removes \r
78 char *unix_string(const char *s)
80 char *buffer;
81 char *b;
82 char c;
84 if ((buffer = malloc(strlen(s) + 1)) != NULL) {
85 b = buffer;
86 while ((c = *s++) != 0)
87 if (c != '\r') *b++ = c;
88 *b = 0;
90 return buffer;
93 // # days, ##:##:##
94 char *reltime(char *buf, time_t t)
96 int days;
97 int m;
99 if (t < 0) t = 0;
100 days = t / 86400;
101 m = t / 60;
102 sprintf(buf, "%d day%s, %02d:%02d:%02d", days, ((days==1) ? "" : "s"), ((m / 60) % 24), (m % 60), (int)(t % 60));
103 return buf;
106 int get_client_info(char *mac, char *ifname)
108 FILE *f;
109 char s[256];
110 #ifdef TCONFIG_IPV6
111 char ip[INET6_ADDRSTRLEN];
112 #else
113 char ip[INET_ADDRSTRLEN];
114 #endif
117 # ip neigh show fe80:0:0::201:02ff:fe03:0405
118 fe80::201:2ff:fe3:405 dev br0 lladdr 00:01:02:03:04:05 REACHABLE
120 if (clientsai.ss_family == AF_INET) {
121 inet_ntop(clientsai.ss_family, &(((struct sockaddr_in*)&clientsai)->sin_addr), ip, sizeof(ip));
122 sprintf(s, "ip neigh show %s", ip);
124 #ifdef TCONFIG_IPV6
125 else if (clientsai.ss_family == AF_INET6) {
126 inet_ntop(clientsai.ss_family, &(((struct sockaddr_in6*)&clientsai)->sin6_addr), ip, sizeof(ip));
127 if (IN6_IS_ADDR_V4MAPPED( &(((struct sockaddr_in6*)&clientsai)->sin6_addr) ))
128 sprintf(s, "ip neigh show %s", ip + 7); // chop off the ::ffff: to get the ipv4 bit
129 else
130 sprintf(s, "ip neigh show %s", ip);
132 #endif
134 if ((f = popen(s, "r")) != NULL) {
135 while (fgets(s, sizeof(s), f)) {
136 if (sscanf(s, "%*s dev %16s lladdr %17s %*s", ifname, mac) == 2) {
137 pclose(f);
138 return 1;
141 pclose(f);
143 return 0;
147 // <% lanip(mode); %>
148 // <mode>
149 // 1 return first 3 octets (192.168.1)
150 // 2 return last octet (1)
151 // else return full (192.168.1.1)
153 void asp_lanip(int argc, char **argv)
155 char *nv, *p;
156 char s[64];
157 char mode;
159 mode = argc ? *argv[0] : 0;
161 if ((nv = nvram_get("lan_ipaddr")) != NULL) {
162 strcpy(s, nv);
163 if ((p = strrchr(s, '.')) != NULL) {
164 *p = 0;
165 web_puts((mode == '1') ? s : (mode == '2') ? (p + 1) : nv);
170 void asp_lipp(int argc, char **argv)
172 char *one = "1";
173 asp_lanip(1, &one);
176 // <% psup(process); %>
177 // returns 1 if process is running
179 void asp_psup(int argc, char **argv)
181 if (argc == 1) web_printf("%d", pidof(argv[0]) > 0);
184 void wo_vpn_status(char *url)
186 #ifdef TCONFIG_OPENVPN
187 char buf[256];
188 char *type;
189 char *str;
190 int num;
191 FILE *fp;
193 type = 0;
194 if ( (str = webcgi_get("server")) )
195 type = "server";
196 else if ( (str = webcgi_get("client")) )
197 type = "client";
199 num = str? atoi(str): 0;
200 if ( type && num > 0 )
202 // Trigger OpenVPN to update the status file
203 snprintf(&buf[0], sizeof(buf), "vpn%s%d", type, num);
204 killall(&buf[0], SIGUSR2);
206 // Give it a chance to update the file
207 sleep(1);
209 // Read the status file and repeat it verbatim to the caller
210 snprintf(&buf[0], sizeof(buf), "/etc/openvpn/%s%d/status", type, num);
211 fp = fopen(&buf[0], "r");
212 if( fp != NULL )
214 while (fgets(&buf[0], sizeof(buf), fp) != NULL)
215 web_puts(&buf[0]);
216 fclose(fp);
219 #endif
223 # cat /proc/meminfo
224 total: used: free: shared: buffers: cached:
225 Mem: 14872576 12877824 1994752 0 1236992 4837376
226 Swap: 0 0 0
227 MemTotal: 14524 kB
228 MemFree: 1948 kB
229 MemShared: 0 kB
230 Buffers: 1208 kB
231 Cached: 4724 kB
232 SwapCached: 0 kB
233 Active: 4364 kB
234 Inactive: 2952 kB
235 HighTotal: 0 kB
236 HighFree: 0 kB
237 LowTotal: 14524 kB
238 LowFree: 1948 kB
239 SwapTotal: 0 kB
240 SwapFree: 0 kB
244 typedef struct {
245 unsigned long total;
246 unsigned long free;
247 unsigned long shared;
248 unsigned long buffers;
249 unsigned long cached;
250 unsigned long swaptotal;
251 unsigned long swapfree;
252 unsigned long maxfreeram;
253 } meminfo_t;
255 static int get_memory(meminfo_t *m)
257 FILE *f;
258 char s[128];
259 int ok = 0;
261 memset(m, 0, sizeof(*m));
262 if ((f = fopen("/proc/meminfo", "r")) != NULL) {
263 while (fgets(s, sizeof(s), f)) {
264 #ifdef LINUX26
265 if (strncmp(s, "MemTotal:", 9) == 0) {
266 m->total = strtoul(s + 12, NULL, 10) * 1024;
267 ++ok;
269 else if (strncmp(s, "MemFree:", 8) == 0) {
270 m->free = strtoul(s + 12, NULL, 10) * 1024;
271 ++ok;
273 else if (strncmp(s, "Buffers:", 8) == 0) {
274 m->buffers = strtoul(s + 12, NULL, 10) * 1024;
275 ++ok;
277 else if (strncmp(s, "Cached:", 7) == 0) {
278 m->cached = strtoul(s + 12, NULL, 10) * 1024;
279 ++ok;
281 #else
282 if (strncmp(s, "Mem:", 4) == 0) {
283 if (sscanf(s + 6, "%ld %*d %ld %ld %ld %ld", &m->total, &m->free, &m->shared, &m->buffers, &m->cached) == 5)
284 ++ok;
286 #endif
287 else if (strncmp(s, "SwapTotal:", 10) == 0) {
288 m->swaptotal = strtoul(s + 12, NULL, 10) * 1024;
289 ++ok;
291 else if (strncmp(s, "SwapFree:", 9) == 0) {
292 m->swapfree = strtoul(s + 11, NULL, 10) * 1024;
293 ++ok;
294 #ifndef LINUX26
295 break;
296 #endif
299 fclose(f);
301 if (ok == 0) {
302 return 0;
304 m->maxfreeram = m->free;
305 if (nvram_match("t_cafree", "1")) m->maxfreeram += (m->cached + m->buffers);
306 return 1;
309 #ifdef TCONFIG_IPV6
310 #define IP6ADDR_MAX_CNT 3 // wan, lan, lan-ll
311 static void print_ipv6_addrs(void)
313 char buf[INET6_ADDRSTRLEN];
314 int found;
315 char *addrtype;
316 struct ifaddrs *ifap, *ifa;
317 struct sockaddr_in6 *s6;
319 if (!ipv6_enabled() || (getifaddrs(&ifap) != 0))
320 return;
322 found = 0;
323 for (ifa = ifap; ifa; ifa = ifa->ifa_next) {
324 if ((ifa->ifa_addr == NULL) || (ifa->ifa_addr->sa_family != AF_INET6))
325 continue;
327 s6 = (struct sockaddr_in6 *)(ifa->ifa_addr);
329 if (strncmp(ifa->ifa_name, nvram_safe_get("lan_ifname"), IFNAMSIZ) == 0) {
330 if (IN6_IS_ADDR_LINKLOCAL(&s6->sin6_addr))
331 addrtype = "lan_ll";
332 else
333 addrtype = "lan";
335 else if (strncmp(ifa->ifa_name, get_wan6face(), IFNAMSIZ) == 0) {
336 if (!IN6_IS_ADDR_LINKLOCAL(&s6->sin6_addr))
337 addrtype = "wan";
338 else
339 continue;
341 else
342 continue;
344 if (inet_ntop(ifa->ifa_addr->sa_family, &(s6->sin6_addr), buf, sizeof(buf)) != NULL) {
345 web_printf("\tip6_%s: '%s',\n",
346 addrtype, buf);
347 if (++found >= IP6ADDR_MAX_CNT)
348 break;
352 freeifaddrs(ifap);
354 #endif
357 int get_flashsize()
360 # cat /proc/mtd
361 dev: size erasesize name
362 mtd0: 00020000 00010000 "pmon"
363 mtd1: 007d0000 00010000 "linux"
365 FILE *f;
366 char s[512];
367 unsigned int size;
368 char partname[16];
369 int found = 0;
371 if ((f = fopen("/proc/mtd", "r")) != NULL) {
372 while (fgets(s, sizeof(s), f)) {
373 if (sscanf(s, "%*s %X %*s %16s", &size, partname) != 2) continue;
374 if (strcmp(partname, "\"linux\"") == 0) {
375 found = 1;
376 break;
379 fclose(f);
381 if (found) {
382 if ((size > 0x2000000) && (size < 0x4000000)) return 64;
383 else if ((size > 0x1000000) && (size < 0x2000000)) return 32;
384 else if ((size > 0x800000) && (size < 0x1000000)) return 16;
385 else if ((size > 0x400000) && (size < 0x800000)) return 8;
386 else if ((size > 0x200000) && (size < 0x400000)) return 4;
387 else if ((size > 0x100000) && (size < 0x200000)) return 2;
388 else return 1;
390 else {
391 return 0;
396 void asp_sysinfo(int argc, char **argv)
398 struct sysinfo si;
399 char s[64];
400 meminfo_t mem;
401 char system_type[64];
402 char cpu_model[64];
403 char bogomips[8];
404 char cpuclk[8];
406 get_cpuinfo(system_type, cpu_model, bogomips, cpuclk);
408 web_puts("\nsysinfo = {\n");
410 #ifdef TCONFIG_IPV6
411 print_ipv6_addrs();
412 #endif
413 sysinfo(&si);
414 get_memory(&mem);
415 web_printf(
416 "\tuptime: %ld,\n"
417 "\tuptime_s: '%s',\n"
418 "\tloads: [%ld, %ld, %ld],\n"
419 "\ttotalram: %ld,\n"
420 "\tfreeram: %ld,\n"
421 "\tshareram: %ld,\n"
422 "\tbufferram: %ld,\n"
423 "\tcached: %ld,\n"
424 "\ttotalswap: %ld,\n"
425 "\tfreeswap: %ld,\n"
426 "\ttotalfreeram: %ld,\n"
427 "\tprocs: %d,\n"
428 "\tflashsize: %d,\n"
429 "\tsystemtype: '%s',\n"
430 "\tcpumodel: '%s',\n"
431 "\tbogomips: '%s',\n"
432 "\tcpuclk: '%s'\n",
433 si.uptime,
434 reltime(s, si.uptime),
435 si.loads[0], si.loads[1], si.loads[2],
436 mem.total, mem.free,
437 mem.shared, mem.buffers, mem.cached,
438 mem.swaptotal, mem.swapfree,
439 mem.maxfreeram,
440 si.procs,
441 get_flashsize(),
442 system_type,
443 cpu_model,
444 bogomips,
445 cpuclk);
446 web_puts("};\n");
449 void asp_activeroutes(int argc, char **argv)
451 FILE *f;
452 char s[512];
453 char dev[17];
454 unsigned long dest;
455 unsigned long gateway;
456 unsigned long flags;
457 unsigned long mask;
458 unsigned metric;
459 struct in_addr ia;
460 char s_dest[16];
461 char s_gateway[16];
462 char s_mask[16];
463 int n;
465 web_puts("\nactiveroutes = [");
466 n = 0;
467 if ((f = fopen("/proc/net/route", "r")) != NULL) {
468 while (fgets(s, sizeof(s), f)) {
469 if (sscanf(s, "%16s%lx%lx%lx%*s%*s%u%lx", dev, &dest, &gateway, &flags, &metric, &mask) != 6) continue;
470 if ((flags & RTF_UP) == 0) continue;
471 if (dest != 0) {
472 ia.s_addr = dest;
473 strcpy(s_dest, inet_ntoa(ia));
475 else {
476 strcpy(s_dest, "default");
478 if (gateway != 0) {
479 ia.s_addr = gateway;
480 strcpy(s_gateway, inet_ntoa(ia));
482 else {
483 strcpy(s_gateway, "*");
485 ia.s_addr = mask;
486 strcpy(s_mask, inet_ntoa(ia));
487 web_printf("%s['%s','%s','%s','%s',%u]", n ? "," : "", dev, s_dest, s_gateway, s_mask, metric);
488 ++n;
490 fclose(f);
493 #ifdef TCONFIG_IPV6
494 int pxlen;
495 char addr6x[80];
496 struct sockaddr_in6 snaddr6;
497 char addr6[40], nhop6[40];
499 if ((ipv6_enabled()) &&
500 (f = fopen("/proc/net/ipv6_route", "r")) != NULL) {
501 while (fgets(s, sizeof(s), f)) {
502 if (sscanf(s, "%32s%x%*s%*s%32s%x%*s%*s%lx%s\n",
503 addr6x+14, &pxlen, addr6x+40+7, &metric, &flags, dev) != 6) continue;
505 if ((flags & RTF_UP) == 0) continue;
507 int i = 0;
508 char *p = addr6x+14;
509 do {
510 if (!*p) {
511 if (i == 40) { // nul terminator for 1st address?
512 addr6x[39] = 0; // Fixup... need 0 instead of ':'.
513 ++p; // Skip and continue.
514 continue;
516 goto OUT;
518 addr6x[i++] = *p++;
519 if (!((i+1) % 5)) {
520 addr6x[i++] = ':';
522 } while (i < 40+28+7);
524 inet_pton(AF_INET6, addr6x, (struct sockaddr *) &snaddr6.sin6_addr);
525 if (IN6_IS_ADDR_UNSPECIFIED(&snaddr6.sin6_addr))
526 strcpy(addr6, "default");
527 else
528 inet_ntop(AF_INET6, &snaddr6.sin6_addr, addr6, sizeof(addr6));
530 inet_pton(AF_INET6, addr6x + 40, (struct sockaddr *) &snaddr6.sin6_addr);
531 if (IN6_IS_ADDR_UNSPECIFIED(&snaddr6.sin6_addr))
532 strcpy(nhop6, "*");
533 else
534 inet_ntop(AF_INET6, &snaddr6.sin6_addr, nhop6, sizeof(nhop6));
536 web_printf("%s['%s','%s','%s','%d',%u]", n ? "," : "", dev, addr6, nhop6, pxlen, metric);
537 ++n;
539 OUT:
540 fclose(f);
542 #endif
544 web_puts("];\n");
547 void asp_cgi_get(int argc, char **argv)
549 const char *v;
550 int i;
552 for (i = 0; i < argc; ++i) {
553 v = webcgi_get(argv[i]);
554 if (v) web_puts(v);
558 void asp_time(int argc, char **argv)
560 time_t t;
561 char s[64];
563 t = time(NULL);
564 if (t < Y2K) {
565 web_puts("Not Available");
567 else {
568 strftime(s, sizeof(s), "%a, %d %b %Y %H:%M:%S %z", localtime(&t));
569 web_puts(s);
573 void asp_wanup(int argc, char **argv)
575 web_puts(check_wanup() ? "1" : "0");
578 void asp_wanstatus(int argc, char **argv)
580 const char *p;
582 if ((using_dhcpc()) && (f_exists("/var/lib/misc/dhcpc.renewing"))) {
583 p = "Renewing...";
585 else if (check_wanup()) {
586 p = "Connected";
588 else if (f_exists("/var/lib/misc/wan.connecting")) {
589 p = "Connecting...";
591 else {
592 p = "Disconnected";
594 web_puts(p);
597 void asp_link_uptime(int argc, char **argv)
599 struct sysinfo si;
600 char buf[64];
601 long uptime;
603 buf[0] = '-';
604 buf[1] = 0;
605 if (check_wanup()) {
606 sysinfo(&si);
607 if (f_read("/var/lib/misc/wantime", &uptime, sizeof(uptime)) == sizeof(uptime)) {
608 reltime(buf, si.uptime - uptime);
611 web_puts(buf);
614 void asp_rrule(int argc, char **argv)
616 char s[32];
617 int i;
619 i = nvram_get_int("rruleN");
620 sprintf(s, "rrule%d", i);
621 web_puts("\nrrule = '");
622 web_putj(nvram_safe_get(s));
623 web_printf("';\nrruleN = %d;\n", i);
626 void asp_compmac(int argc, char **argv)
628 char mac[32];
629 char ifname[32];
631 if (get_client_info(mac, ifname)) {
632 web_puts(mac);
636 void asp_ident(int argc, char **argv)
638 web_puth(nvram_safe_get("router_name"));
641 void asp_statfs(int argc, char **argv)
643 struct statfs sf;
644 int mnt;
646 if (argc != 2) return;
648 // used for /cifs/, /jffs/... if it returns squashfs type, assume it's not mounted
649 if ((statfs(argv[0], &sf) != 0) || (sf.f_type == 0x73717368)) {
650 mnt = 0;
651 memset(&sf, 0, sizeof(sf));
652 #ifdef TCONFIG_JFFS2
653 // for jffs, try to get total size from mtd partition
654 if (strncmp(argv[1], "jffs", 4) == 0) {
655 int part;
657 if (mtd_getinfo(argv[1], &part, (int *)&sf.f_blocks)) {
658 sf.f_bsize = 1;
661 #endif
663 else {
664 mnt = 1;
667 web_printf(
668 "\n%s = {\n"
669 "\tmnt: %d,\n"
670 "\tsize: %llu,\n"
671 "\tfree: %llu\n"
672 "};\n",
673 argv[1], mnt,
674 ((uint64_t)sf.f_bsize * sf.f_blocks),
675 ((uint64_t)sf.f_bsize * sf.f_bfree));
678 void asp_notice(int argc, char **argv)
680 char s[256];
681 char buf[2048];
683 if (argc != 1) return;
684 snprintf(s, sizeof(s), "/var/notice/%s", argv[0]);
685 if (f_read_string(s, buf, sizeof(buf)) <= 0) return;
686 web_putj(buf);
689 void wo_wakeup(char *url)
691 char *mac;
692 char *p;
693 char *end;
695 if ((mac = webcgi_get("mac")) != NULL) {
696 end = mac + strlen(mac);
697 while (mac < end) {
698 while ((*mac == ' ') || (*mac == '\t') || (*mac == '\r') || (*mac == '\n')) ++mac;
699 if (*mac == 0) break;
701 p = mac;
702 while ((*p != 0) && (*p != ' ') && (*p != '\r') && (*p != '\n')) ++p;
703 *p = 0;
705 eval("ether-wake", "-b", "-i", nvram_safe_get("lan_ifname"), mac);
706 mac = p + 1;
709 common_redirect();
712 void asp_dns(int argc, char **argv)
714 char s[128];
715 int i;
716 const dns_list_t *dns;
718 dns = get_dns(); // static buffer
719 strcpy(s, "\ndns = [");
720 for (i = 0 ; i < dns->count; ++i) {
721 sprintf(s + strlen(s), "%s'%s:%u'", i ? "," : "", inet_ntoa(dns->dns[i].addr), dns->dns[i].port);
723 strcat(s, "];\n");
724 web_puts(s);
727 int resolve_addr(const char *ip, char *host)
729 struct addrinfo hints;
730 struct addrinfo *res;
731 int ret;
733 memset(&hints, 0, sizeof(hints));
734 hints.ai_family = AF_UNSPEC;
735 hints.ai_socktype = SOCK_STREAM;
737 ret = getaddrinfo(ip, NULL, &hints, &res);
738 if (ret == 0) {
739 ret = getnameinfo(res->ai_addr, res->ai_addrlen, host, NI_MAXHOST, NULL, 0, 0);
740 freeaddrinfo(res);
742 return ret;
745 void wo_resolve(char *url)
747 char *p;
748 char *ip;
749 char host[NI_MAXHOST];
750 char comma;
751 char *js;
753 comma = ' ';
754 web_puts("\nresolve_data = [\n");
755 if ((p = webcgi_get("ip")) != NULL) {
756 while ((ip = strsep(&p, ",")) != NULL) {
757 if (resolve_addr(ip, host) != 0) continue;
758 js = js_string(host);
759 web_printf("%c['%s','%s']", comma, ip, js);
760 free(js);
761 comma = ',';
764 web_puts("];\n");