nvram defaults now country=SG, txpwr=auto
[tomato.git] / release / src / router / httpd / misc.c
blob9bf3c528ac0b4bf52ca8fd9f26b53ac7b207268a
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;
395 void asp_jiffies(int argc, char **argv)
397 char sa[64];
398 FILE *a;
399 char *e = NULL;
400 char *f= NULL;
402 const char procstat[] = "/proc/stat";
403 if ((a = fopen(procstat, "r")) != NULL) {
404 fgets(sa, sizeof(sa), a);
406 e = sa;
408 if ((e = strchr(sa, ' ')) != NULL) e = e + 2;
410 if ((f = strchr(sa, 10)) != NULL) *f = 0;
412 web_printf("\njiffies = [ '");
413 web_printf("%s", e);
414 web_puts("' ];\n");
415 fclose(a);
419 void asp_sysinfo(int argc, char **argv)
421 struct sysinfo si;
422 char s[64];
423 meminfo_t mem;
425 char sa[64];
426 FILE *a;
427 char *e = NULL;
428 char *f= NULL;
429 const char procstat[] = "/proc/stat";
431 char system_type[64];
432 char cpu_model[64];
433 char bogomips[8];
434 char cpuclk[8];
436 get_cpuinfo(system_type, cpu_model, bogomips, cpuclk);
438 web_puts("\nsysinfo = {\n");
440 #ifdef TCONFIG_IPV6
441 print_ipv6_addrs();
442 #endif
443 sysinfo(&si);
444 get_memory(&mem);
445 web_printf(
446 "\tuptime: %ld,\n"
447 "\tuptime_s: '%s',\n"
448 "\tloads: [%ld, %ld, %ld],\n"
449 "\ttotalram: %ld,\n"
450 "\tfreeram: %ld,\n"
451 "\tshareram: %ld,\n"
452 "\tbufferram: %ld,\n"
453 "\tcached: %ld,\n"
454 "\ttotalswap: %ld,\n"
455 "\tfreeswap: %ld,\n"
456 "\ttotalfreeram: %ld,\n"
457 "\tprocs: %d,\n"
458 "\tflashsize: %d,\n"
459 "\tsystemtype: '%s',\n"
460 "\tcpumodel: '%s',\n"
461 "\tbogomips: '%s',\n"
462 "\tcpuclk: '%s'",
463 si.uptime,
464 reltime(s, si.uptime),
465 si.loads[0], si.loads[1], si.loads[2],
466 mem.total, mem.free,
467 mem.shared, mem.buffers, mem.cached,
468 mem.swaptotal, mem.swapfree,
469 mem.maxfreeram,
470 si.procs,
471 get_flashsize(),
472 system_type,
473 cpu_model,
474 bogomips,
475 cpuclk);
477 if ((a = fopen(procstat, "r")) != NULL) {
478 fgets(sa, sizeof(sa), a);
479 e = sa;
480 if ((e = strchr(sa, ' ')) != NULL) e = e + 2;
481 if ((f = strchr(sa, 10)) != NULL) *f = 0;
482 web_printf(",\n\tjiffies: '");
483 web_printf("%s", e);
484 web_puts("'\n");
485 fclose(a);
486 } else {
487 web_puts("\n");
490 web_puts("};\n");
493 void asp_activeroutes(int argc, char **argv)
495 FILE *f;
496 char s[512];
497 char dev[17];
498 unsigned long dest;
499 unsigned long gateway;
500 unsigned long flags;
501 unsigned long mask;
502 unsigned metric;
503 struct in_addr ia;
504 char s_dest[16];
505 char s_gateway[16];
506 char s_mask[16];
507 int n;
509 web_puts("\nactiveroutes = [");
510 n = 0;
511 if ((f = fopen("/proc/net/route", "r")) != NULL) {
512 while (fgets(s, sizeof(s), f)) {
513 if (sscanf(s, "%16s%lx%lx%lx%*s%*s%u%lx", dev, &dest, &gateway, &flags, &metric, &mask) != 6) continue;
514 if ((flags & RTF_UP) == 0) continue;
515 if (dest != 0) {
516 ia.s_addr = dest;
517 strcpy(s_dest, inet_ntoa(ia));
519 else {
520 strcpy(s_dest, "default");
522 if (gateway != 0) {
523 ia.s_addr = gateway;
524 strcpy(s_gateway, inet_ntoa(ia));
526 else {
527 strcpy(s_gateway, "*");
529 ia.s_addr = mask;
530 strcpy(s_mask, inet_ntoa(ia));
531 web_printf("%s['%s','%s','%s','%s',%u]", n ? "," : "", dev, s_dest, s_gateway, s_mask, metric);
532 ++n;
534 fclose(f);
537 #ifdef TCONFIG_IPV6
538 int pxlen;
539 char addr6x[80];
540 struct sockaddr_in6 snaddr6;
541 char addr6[40], nhop6[40];
543 if ((ipv6_enabled()) &&
544 (f = fopen("/proc/net/ipv6_route", "r")) != NULL) {
545 while (fgets(s, sizeof(s), f)) {
546 if (sscanf(s, "%32s%x%*s%*s%32s%x%*s%*s%lx%s\n",
547 addr6x+14, &pxlen, addr6x+40+7, &metric, &flags, dev) != 6) continue;
549 if ((flags & RTF_UP) == 0) continue;
551 int i = 0;
552 char *p = addr6x+14;
553 do {
554 if (!*p) {
555 if (i == 40) { // nul terminator for 1st address?
556 addr6x[39] = 0; // Fixup... need 0 instead of ':'.
557 ++p; // Skip and continue.
558 continue;
560 goto OUT;
562 addr6x[i++] = *p++;
563 if (!((i+1) % 5)) {
564 addr6x[i++] = ':';
566 } while (i < 40+28+7);
568 inet_pton(AF_INET6, addr6x, (struct sockaddr *) &snaddr6.sin6_addr);
569 if (IN6_IS_ADDR_UNSPECIFIED(&snaddr6.sin6_addr))
570 strcpy(addr6, "default");
571 else
572 inet_ntop(AF_INET6, &snaddr6.sin6_addr, addr6, sizeof(addr6));
574 inet_pton(AF_INET6, addr6x + 40, (struct sockaddr *) &snaddr6.sin6_addr);
575 if (IN6_IS_ADDR_UNSPECIFIED(&snaddr6.sin6_addr))
576 strcpy(nhop6, "*");
577 else
578 inet_ntop(AF_INET6, &snaddr6.sin6_addr, nhop6, sizeof(nhop6));
580 web_printf("%s['%s','%s','%s','%d',%u]", n ? "," : "", dev, addr6, nhop6, pxlen, metric);
581 ++n;
583 OUT:
584 fclose(f);
586 #endif
588 web_puts("];\n");
591 void asp_cgi_get(int argc, char **argv)
593 const char *v;
594 int i;
596 for (i = 0; i < argc; ++i) {
597 v = webcgi_get(argv[i]);
598 if (v) web_puts(v);
602 void asp_time(int argc, char **argv)
604 time_t t;
605 char s[64];
607 t = time(NULL);
608 if (t < Y2K) {
609 web_puts("Not Available");
611 else {
612 strftime(s, sizeof(s), "%a, %d %b %Y %H:%M:%S %z", localtime(&t));
613 web_puts(s);
617 void asp_wanup(int argc, char **argv)
619 web_puts(check_wanup() ? "1" : "0");
622 void asp_wanstatus(int argc, char **argv)
624 const char *p;
626 if ((using_dhcpc()) && (f_exists("/var/lib/misc/dhcpc.renewing"))) {
627 p = "Renewing...";
629 else if (check_wanup()) {
630 p = "Connected";
632 else if (f_exists("/var/lib/misc/wan.connecting")) {
633 p = "Connecting...";
635 else {
636 p = "Disconnected";
638 web_puts(p);
641 void asp_link_uptime(int argc, char **argv)
643 struct sysinfo si;
644 char buf[64];
645 long uptime;
647 buf[0] = '-';
648 buf[1] = 0;
649 if (check_wanup()) {
650 sysinfo(&si);
651 if (f_read("/var/lib/misc/wantime", &uptime, sizeof(uptime)) == sizeof(uptime)) {
652 reltime(buf, si.uptime - uptime);
655 web_puts(buf);
658 void asp_rrule(int argc, char **argv)
660 char s[32];
661 int i;
663 i = nvram_get_int("rruleN");
664 sprintf(s, "rrule%d", i);
665 web_puts("\nrrule = '");
666 web_putj(nvram_safe_get(s));
667 web_printf("';\nrruleN = %d;\n", i);
670 void asp_compmac(int argc, char **argv)
672 char mac[32];
673 char ifname[32];
675 if (get_client_info(mac, ifname)) {
676 web_puts(mac);
680 void asp_ident(int argc, char **argv)
682 web_puth(nvram_safe_get("router_name"));
685 void asp_statfs(int argc, char **argv)
687 struct statfs sf;
688 int mnt;
690 if (argc != 2) return;
692 // used for /cifs/, /jffs/... if it returns squashfs type, assume it's not mounted
693 if ((statfs(argv[0], &sf) != 0) || (sf.f_type == 0x73717368)) {
694 mnt = 0;
695 memset(&sf, 0, sizeof(sf));
696 #ifdef TCONFIG_JFFS2
697 // for jffs, try to get total size from mtd partition
698 if (strncmp(argv[1], "jffs", 4) == 0) {
699 int part;
701 if (mtd_getinfo(argv[1], &part, (int *)&sf.f_blocks)) {
702 sf.f_bsize = 1;
705 #endif
707 else {
708 mnt = 1;
711 web_printf(
712 "\n%s = {\n"
713 "\tmnt: %d,\n"
714 "\tsize: %llu,\n"
715 "\tfree: %llu\n"
716 "};\n",
717 argv[1], mnt,
718 ((uint64_t)sf.f_bsize * sf.f_blocks),
719 ((uint64_t)sf.f_bsize * sf.f_bfree));
722 void asp_notice(int argc, char **argv)
724 char s[256];
725 char buf[2048];
727 if (argc != 1) return;
728 snprintf(s, sizeof(s), "/var/notice/%s", argv[0]);
729 if (f_read_string(s, buf, sizeof(buf)) <= 0) return;
730 web_putj(buf);
733 void wo_wakeup(char *url)
735 char *mac;
736 char *p;
737 char *end;
739 if ((mac = webcgi_get("mac")) != NULL) {
740 end = mac + strlen(mac);
741 while (mac < end) {
742 while ((*mac == ' ') || (*mac == '\t') || (*mac == '\r') || (*mac == '\n')) ++mac;
743 if (*mac == 0) break;
745 p = mac;
746 while ((*p != 0) && (*p != ' ') && (*p != '\r') && (*p != '\n')) ++p;
747 *p = 0;
749 eval("ether-wake", "-b", "-i", nvram_safe_get("lan_ifname"), mac);
750 mac = p + 1;
753 common_redirect();
756 void asp_dns(int argc, char **argv)
758 char s[128];
759 int i;
760 const dns_list_t *dns;
762 dns = get_dns(); // static buffer
763 strcpy(s, "\ndns = [");
764 for (i = 0 ; i < dns->count; ++i) {
765 sprintf(s + strlen(s), "%s'%s:%u'", i ? "," : "", inet_ntoa(dns->dns[i].addr), dns->dns[i].port);
767 strcat(s, "];\n");
768 web_puts(s);
771 int resolve_addr(const char *ip, char *host)
773 struct addrinfo hints;
774 struct addrinfo *res;
775 int ret;
777 memset(&hints, 0, sizeof(hints));
778 hints.ai_family = AF_UNSPEC;
779 hints.ai_socktype = SOCK_STREAM;
781 ret = getaddrinfo(ip, NULL, &hints, &res);
782 if (ret == 0) {
783 ret = getnameinfo(res->ai_addr, res->ai_addrlen, host, NI_MAXHOST, NULL, 0, 0);
784 freeaddrinfo(res);
786 return ret;
789 void wo_resolve(char *url)
791 char *p;
792 char *ip;
793 char host[NI_MAXHOST];
794 char comma;
795 char *js;
797 comma = ' ';
798 web_puts("\nresolve_data = [\n");
799 if ((p = webcgi_get("ip")) != NULL) {
800 while ((ip = strsep(&p, ",")) != NULL) {
801 if (resolve_addr(ip, host) != 0) continue;
802 js = js_string(host);
803 web_printf("%c['%s','%s']", comma, ip, js);
804 free(js);
805 comma = ',';
808 web_puts("];\n");