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 #ifdef TCONFIG_IPV6
  27 #include <ifaddrs.h>
  28 #endif
  29
  30 #include <wlioctl.h>
  31 #include <wlutils.h>
  32
  33 // to javascript-safe string
  34 char *js_string(const char *s)
  35 {
  36         unsigned char c;
  37         char *buffer;
  38         char *b;
  39
  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);
  45                         }
  46                         else {
  47                                 *b++ = c;
  48                         }
  49                 }
  50                 *b = 0;
  51         }
  52         return buffer;
  53 }
  54
  55 // to html-safe string
  56 char *html_string(const char *s)
  57 {
  58         unsigned char c;
  59         char *buffer;
  60         char *b;
  61
  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);
  67                         }
  68                         else {
  69                                 *b++ = c;
  70                         }
  71                 }
  72                 *b = 0;
  73         }
  74         return buffer;
  75 }
  76
  77 // removes \r
  78 char *unix_string(const char *s)
  79 {
  80         char *buffer;
  81         char *b;
  82         char c;
  83
  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;
  89         }
  90         return buffer;
  91 }
  92
  93 // # days, ##:##:##
  94 char *reltime(char *buf, time_t t)
  95 {
  96         int days;
  97         int m;
  98
  99         if (t < 0) t = 0;
 100         days = t / 86400;
 101         m = t / 60;
 102         if (days == 0) {
 103                 sprintf(buf, "%02d:%02d:%02d", ((m / 60) % 24), (m % 60), (int)(t % 60));
 104         } else {
 105                 sprintf(buf, "%d day%s, %02d:%02d:%02d", days, ((days==1) ? "" : "s"), ((m / 60) % 24), (m % 60), (int)(t % 60));
 106         }
 107         return buf;
 108 }
 109
 110 int get_client_info(char *mac, char *ifname)
 111 {
 112         FILE *f;
 113         char s[256];
 114 #ifdef TCONFIG_IPV6
 115         char ip[INET6_ADDRSTRLEN];
 116 #else
 117         char ip[INET_ADDRSTRLEN];
 118 #endif
 119
 120 /*
 121 # ip neigh show fe80:0:0::201:02ff:fe03:0405
 122 fe80::201:2ff:fe3:405 dev br0 lladdr 00:01:02:03:04:05 REACHABLE
 123 */
 124         if (clientsai.ss_family == AF_INET) {
 125                 inet_ntop(clientsai.ss_family, &(((struct sockaddr_in*)&clientsai)->sin_addr), ip, sizeof(ip));
 126                 sprintf(s, "ip neigh show %s", ip);
 127         }
 128 #ifdef TCONFIG_IPV6
 129         else if (clientsai.ss_family == AF_INET6) {
 130                 inet_ntop(clientsai.ss_family, &(((struct sockaddr_in6*)&clientsai)->sin6_addr), ip, sizeof(ip));
 131                 if (IN6_IS_ADDR_V4MAPPED( &(((struct sockaddr_in6*)&clientsai)->sin6_addr) ))
 132                         sprintf(s, "ip neigh show %s", ip + 7); // chop off the ::ffff: to get the ipv4 bit
 133                 else
 134                         sprintf(s, "ip neigh show %s", ip);
 135         }
 136 #endif
 137
 138         if ((f = popen(s, "r")) != NULL) {
 139                 while (fgets(s, sizeof(s), f)) {
 140                         if (sscanf(s, "%*s dev %16s lladdr %17s %*s", ifname, mac) == 2) {
 141                                 pclose(f);
 142                                 return 1;
 143                         }
 144                 }
 145                 pclose(f);
 146         }
 147         return 0;
 148 }
 149
 150
 151 //      <% lanip(mode); %>
 152 //      <mode>
 153 //              1               return first 3 octets (192.168.1)
 154 //              2               return last octet (1)
 155 //              else    return full (192.168.1.1)
 156
 157 void asp_lanip(int argc, char **argv)
 158 {
 159         char *nv, *p;
 160         char s[64];
 161         char mode;
 162
 163         mode = argc ? *argv[0] : 0;
 164
 165         if ((nv = nvram_get("lan_ipaddr")) != NULL) {
 166                 strcpy(s, nv);
 167                 if ((p = strrchr(s, '.')) != NULL) {
 168                         *p = 0;
 169                         web_puts((mode == '1') ? s : (mode == '2') ? (p + 1) : nv);
 170                 }
 171         }
 172 }
 173
 174 void asp_lipp(int argc, char **argv)
 175 {
 176         char *one = "1";
 177         asp_lanip(1, &one);
 178 }
 179
 180 //      <% psup(process); %>
 181 //      returns 1 if process is running
 182
 183 void asp_psup(int argc, char **argv)
 184 {
 185         if (argc == 1) web_printf("%d", pidof(argv[0]) > 0);
 186 }
 187
 188 void wo_vpn_status(char *url)
 189 {
 190 #ifdef TCONFIG_OPENVPN
 191         char buf[256];
 192         char *type;
 193         char *str;
 194         int num;
 195         FILE *fp;
 196
 197         type = 0;
 198         if ( (str = webcgi_get("server")) )
 199                 type = "server";
 200         else if ( (str = webcgi_get("client")) )
 201                 type = "client";
 202
 203         num = str? atoi(str): 0;
 204         if ( type && num > 0 )
 205         {
 206                 // Trigger OpenVPN to update the status file
 207                 snprintf(&buf[0], sizeof(buf), "vpn%s%d", type, num);
 208                 killall(&buf[0], SIGUSR2);
 209
 210                 // Give it a chance to update the file
 211                 sleep(1);
 212
 213                 // Read the status file and repeat it verbatim to the caller
 214                 snprintf(&buf[0], sizeof(buf), "/etc/openvpn/%s%d/status", type, num);
 215                 fp = fopen(&buf[0], "r");
 216                 if( fp != NULL )
 217                 {
 218                         while (fgets(&buf[0], sizeof(buf), fp) != NULL)
 219                                 web_puts(&buf[0]);
 220                         fclose(fp);
 221                 }
 222         }
 223 #endif
 224 }
 225
 226 /*
 227 # cat /proc/meminfo
 228         total:    used:    free:  shared: buffers:  cached:
 229 Mem:  14872576 12877824  1994752        0  1236992  4837376
 230 Swap:        0        0        0
 231 MemTotal:        14524 kB
 232 MemFree:          1948 kB
 233 MemShared:           0 kB
 234 Buffers:          1208 kB
 235 Cached:           4724 kB
 236 SwapCached:          0 kB
 237 Active:           4364 kB
 238 Inactive:         2952 kB
 239 HighTotal:           0 kB
 240 HighFree:            0 kB
 241 LowTotal:        14524 kB
 242 LowFree:          1948 kB
 243 SwapTotal:           0 kB
 244 SwapFree:            0 kB
 245
 246 */
 247
 248 typedef struct {
 249         unsigned long total;
 250         unsigned long free;
 251         unsigned long shared;
 252         unsigned long buffers;
 253         unsigned long cached;
 254         unsigned long swaptotal;
 255         unsigned long swapfree;
 256         unsigned long maxfreeram;
 257 } meminfo_t;
 258
 259 static int get_memory(meminfo_t *m)
 260 {
 261         FILE *f;
 262         char s[128];
 263         int ok = 0;
 264
 265         memset(m, 0, sizeof(*m));
 266         if ((f = fopen("/proc/meminfo", "r")) != NULL) {
 267                 while (fgets(s, sizeof(s), f)) {
 268 #ifdef LINUX26
 269                         if (strncmp(s, "MemTotal:", 9) == 0) {
 270                                 m->total = strtoul(s + 12, NULL, 10) * 1024;
 271                                 ++ok;
 272                         }
 273                         else if (strncmp(s, "MemFree:", 8) == 0) {
 274                                 m->free = strtoul(s + 12, NULL, 10) * 1024;
 275                                 ++ok;
 276                         }
 277                         else if (strncmp(s, "Buffers:", 8) == 0) {
 278                                 m->buffers = strtoul(s + 12, NULL, 10) * 1024;
 279                                 ++ok;
 280                         }
 281                         else if (strncmp(s, "Cached:", 7) == 0) {
 282                                 m->cached = strtoul(s + 12, NULL, 10) * 1024;
 283                                 ++ok;
 284                         }
 285 #else
 286                         if (strncmp(s, "Mem:", 4) == 0) {
 287                                 if (sscanf(s + 6, "%ld %*d %ld %ld %ld %ld", &m->total, &m->free, &m->shared, &m->buffers, &m->cached) == 5)
 288                                         ++ok;
 289                         }
 290 #endif
 291                         else if (strncmp(s, "SwapTotal:", 10) == 0) {
 292                                 m->swaptotal = strtoul(s + 12, NULL, 10) * 1024;
 293                                 ++ok;
 294                         }
 295                         else if (strncmp(s, "SwapFree:", 9) == 0) {
 296                                 m->swapfree = strtoul(s + 11, NULL, 10) * 1024;
 297                                 ++ok;
 298 #ifndef LINUX26
 299                                 break;
 300 #endif
 301                         }
 302                 }
 303                 fclose(f);
 304         }
 305         if (ok == 0) {
 306                 return 0;
 307         }
 308         m->maxfreeram = m->free;
 309         if (nvram_match("t_cafree", "1")) m->maxfreeram += (m->cached + m->buffers);
 310         return 1;
 311 }
 312
 313 #ifdef TCONFIG_IPV6
 314 #define IP6ADDR_MAX_CNT 3       // wan, lan, lan-ll
 315 static void print_ipv6_addrs(void)
 316 {
 317         char buf[INET6_ADDRSTRLEN];
 318         int found;
 319         char *addrtype;
 320         struct ifaddrs *ifap, *ifa;
 321         struct sockaddr_in6 *s6;
 322
 323         if (!ipv6_enabled() || (getifaddrs(&ifap) != 0))
 324                 return;
 325
 326         found = 0;
 327         for (ifa = ifap; ifa; ifa = ifa->ifa_next) {
 328                 if ((ifa->ifa_addr == NULL) || (ifa->ifa_addr->sa_family != AF_INET6))
 329                         continue;
 330
 331                 s6 = (struct sockaddr_in6 *)(ifa->ifa_addr);
 332
 333                 if (strncmp(ifa->ifa_name, nvram_safe_get("lan_ifname"), IFNAMSIZ) == 0) {
 334                         if (IN6_IS_ADDR_LINKLOCAL(&s6->sin6_addr))
 335                                 addrtype = "lan_ll";
 336                         else
 337                                 addrtype = "lan";
 338                 }
 339                 else if (strncmp(ifa->ifa_name, get_wan6face(), IFNAMSIZ) == 0) {
 340                         if (!IN6_IS_ADDR_LINKLOCAL(&s6->sin6_addr))
 341                                 addrtype = "wan";
 342                         else
 343                                 continue;
 344                 }
 345                 else
 346                         continue;
 347
 348                 if (inet_ntop(ifa->ifa_addr->sa_family, &(s6->sin6_addr), buf, sizeof(buf)) != NULL) {
 349                         web_printf("\tip6_%s: '%s',\n",
 350                                 addrtype, buf);
 351                         if (++found >= IP6ADDR_MAX_CNT)
 352                                 break;
 353                 }
 354         }
 355         freeifaddrs(ifap);
 356 }
 357
 358
 359 void asp_calc6rdlocalprefix(int argc, char **argv)
 360 {
 361         struct in6_addr prefix_addr, local_prefix_addr;
 362         int prefix_len = 0, relay_prefix_len = 0, local_prefix_len = 0;
 363         struct in_addr wanip_addr;
 364         char local_prefix[INET6_ADDRSTRLEN];
 365         char s[128];
 366
 367         if (argc != 3) return;
 368
 369         inet_pton(AF_INET6, argv[0], &prefix_addr);
 370         prefix_len = atoi(argv[1]);
 371         relay_prefix_len = atoi(argv[2]);
 372         inet_pton(AF_INET, get_wanip(), &wanip_addr);
 373
 374         if (calc_6rd_local_prefix(&prefix_addr, prefix_len, relay_prefix_len,
 375             &wanip_addr, &local_prefix_addr, &local_prefix_len) &&
 376             inet_ntop(AF_INET6, &local_prefix_addr, local_prefix, sizeof(local_prefix)) != NULL) {
 377                 sprintf(s, "\nlocal_prefix = '%s/%d';\n", local_prefix, local_prefix_len);
 378                 web_puts(s);
 379         }
 380 }
 381 #endif
 382
 383
 384 int get_flashsize()
 385 {
 386 /*
 387 # cat /proc/mtd
 388 dev:    size   erasesize  name
 389 mtd0: 00020000 00010000 "pmon"
 390 mtd1: 007d0000 00010000 "linux"
 391 */
 392         FILE *f;
 393         char s[512];
 394         unsigned int size;
 395         char partname[16];
 396         int found = 0;
 397
 398         if ((f = fopen("/proc/mtd", "r")) != NULL) {
 399         while (fgets(s, sizeof(s), f)) {
 400                 if (sscanf(s, "%*s %X %*s %16s", &size, partname) != 2) continue;
 401                         if (strcmp(partname, "\"linux\"") == 0) {
 402                                 found = 1;
 403                                 break;
 404                         }
 405                 }
 406                 fclose(f);
 407         }
 408         if (found) {
 409                      if (nvram_match("boardtype", "0x052b") && nvram_match("boardrev", "02")) return 128; //Netgear 3500L v2 has 128MB NAND flash but linux partition has only 32MB
 410                 else if ((size > 0x2000000) && (size < 0x4000000)) return 64;
 411                 else if ((size > 0x1000000) && (size < 0x2000000)) return 32;
 412                 else if ((size > 0x800000) && (size < 0x1000000)) return 16;
 413                 else if ((size > 0x400000) && (size < 0x800000)) return 8;
 414                 else if ((size > 0x200000) && (size < 0x400000)) return 4;
 415                 else if ((size > 0x100000) && (size < 0x200000)) return 2;
 416                 else return 1;
 417         }
 418         else {
 419                 return 0;
 420         }
 421 }
 422
 423 void asp_jiffies(int argc, char **argv)
 424 {
 425         char sa[64];
 426         FILE *a;
 427         char *e = NULL;
 428         char *f= NULL;
 429
 430         const char procstat[] = "/proc/stat";
 431         if ((a = fopen(procstat, "r")) != NULL) {
 432                 fgets(sa, sizeof(sa), a);
 433
 434                 e = sa;
 435
 436                 if ((e = strchr(sa, ' ')) != NULL) e = e + 2;
 437
 438                 if ((f = strchr(sa, 10)) != NULL) *f = 0;
 439
 440                 web_printf("\njiffies = [ '");
 441                 web_printf("%s", e);
 442                 web_puts("' ];\n");
 443                 fclose(a);
 444         }
 445 }
 446
 447 void asp_sysinfo(int argc, char **argv)
 448 {
 449         struct sysinfo si;
 450         char s[64];
 451         meminfo_t mem;
 452
 453         char sa[64];
 454         FILE *a;
 455         char *e = NULL;
 456         char *f= NULL;
 457         const char procstat[] = "/proc/stat";
 458
 459         char system_type[64];
 460         char cpu_model[64];
 461         char bogomips[8];
 462         char cpuclk[8];
 463
 464         get_cpuinfo(system_type, cpu_model, bogomips, cpuclk);
 465
 466         web_puts("\nsysinfo = {\n");
 467
 468 #ifdef TCONFIG_IPV6
 469         print_ipv6_addrs();
 470 #endif
 471         sysinfo(&si);
 472         get_memory(&mem);
 473         web_printf(
 474                 "\tuptime: %ld,\n"
 475                 "\tuptime_s: '%s',\n"
 476                 "\tloads: [%ld, %ld, %ld],\n"
 477                 "\ttotalram: %ld,\n"
 478                 "\tfreeram: %ld,\n"
 479                 "\tshareram: %ld,\n"
 480                 "\tbufferram: %ld,\n"
 481                 "\tcached: %ld,\n"
 482                 "\ttotalswap: %ld,\n"
 483                 "\tfreeswap: %ld,\n"
 484                 "\ttotalfreeram: %ld,\n"
 485                 "\tprocs: %d,\n"
 486                 "\tflashsize: %d,\n"
 487                 "\tsystemtype: '%s',\n"
 488                 "\tcpumodel: '%s',\n"
 489                 "\tbogomips: '%s',\n"
 490                 "\tcpuclk: '%s'",
 491                         si.uptime,
 492                         reltime(s, si.uptime),
 493                         si.loads[0], si.loads[1], si.loads[2],
 494                         mem.total, mem.free,
 495                         mem.shared, mem.buffers, mem.cached,
 496                         mem.swaptotal, mem.swapfree,
 497                         mem.maxfreeram,
 498                         si.procs,
 499                         get_flashsize(),
 500                         system_type,
 501                         cpu_model,
 502                         bogomips,
 503                         cpuclk);
 504
 505         if ((a = fopen(procstat, "r")) != NULL) {
 506                 fgets(sa, sizeof(sa), a);
 507                 e = sa;
 508                 if ((e = strchr(sa, ' ')) != NULL) e = e + 2;
 509                 if ((f = strchr(sa, 10)) != NULL) *f = 0;
 510                 web_printf(",\n\tjiffies: '");
 511                 web_printf("%s", e);
 512                 web_puts("'\n");
 513                 fclose(a);
 514         } else {
 515                 web_puts("\n");
 516         }
 517
 518         web_puts("};\n");
 519 }
 520
 521 void asp_activeroutes(int argc, char **argv)
 522 {
 523         FILE *f;
 524         char s[512];
 525         char dev[17];
 526         unsigned long dest;
 527         unsigned long gateway;
 528         unsigned long flags;
 529         unsigned long mask;
 530         unsigned metric;
 531         struct in_addr ia;
 532         char s_dest[16];
 533         char s_gateway[16];
 534         char s_mask[16];
 535         int n;
 536
 537         web_puts("\nactiveroutes = [");
 538         n = 0;
 539         if ((f = fopen("/proc/net/route", "r")) != NULL) {
 540                 while (fgets(s, sizeof(s), f)) {
 541                         if (sscanf(s, "%16s%lx%lx%lx%*s%*s%u%lx", dev, &dest, &gateway, &flags, &metric, &mask) != 6) continue;
 542                         if ((flags & RTF_UP) == 0) continue;
 543                         if (dest != 0) {
 544                                 ia.s_addr = dest;
 545                                 strcpy(s_dest, inet_ntoa(ia));
 546                         }
 547                         else {
 548                                 strcpy(s_dest, "default");
 549                         }
 550                         if (gateway != 0) {
 551                                 ia.s_addr = gateway;
 552                                 strcpy(s_gateway, inet_ntoa(ia));
 553                         }
 554                         else {
 555                                 strcpy(s_gateway, "*");
 556                         }
 557                         ia.s_addr = mask;
 558                         strcpy(s_mask, inet_ntoa(ia));
 559                         web_printf("%s['%s','%s','%s','%s',%u]", n ? "," : "", dev, s_dest, s_gateway, s_mask, metric);
 560                         ++n;
 561                 }
 562                 fclose(f);
 563         }
 564
 565 #ifdef TCONFIG_IPV6
 566         int pxlen;
 567         char addr6x[80];
 568         struct sockaddr_in6 snaddr6;
 569         char addr6[40], nhop6[40];
 570
 571         if ((ipv6_enabled()) &&
 572             (f = fopen("/proc/net/ipv6_route", "r")) != NULL) {
 573                 while (fgets(s, sizeof(s), f)) {
 574                         if (sscanf(s, "%32s%x%*s%*s%32s%x%*s%*s%lx%s\n",
 575                                 addr6x+14, &pxlen, addr6x+40+7, &metric, &flags, dev) != 6) continue;
 576
 577                         if ((flags & RTF_UP) == 0) continue;
 578
 579                         int i = 0;
 580                         char *p = addr6x+14;
 581                         do {
 582                                 if (!*p) {
 583                                         if (i == 40) { // nul terminator for 1st address?
 584                                                 addr6x[39] = 0; // Fixup... need 0 instead of ':'.
 585                                                 ++p;    // Skip and continue.
 586                                                 continue;
 587                                         }
 588                                         goto OUT;
 589                                 }
 590                                 addr6x[i++] = *p++;
 591                                 if (!((i+1) % 5)) {
 592                                         addr6x[i++] = ':';
 593                                 }
 594                         } while (i < 40+28+7);
 595
 596                         inet_pton(AF_INET6, addr6x, (struct sockaddr *) &snaddr6.sin6_addr);
 597                         if (IN6_IS_ADDR_UNSPECIFIED(&snaddr6.sin6_addr))
 598                                 strcpy(addr6, "default");
 599                         else
 600                                 inet_ntop(AF_INET6, &snaddr6.sin6_addr, addr6, sizeof(addr6));
 601
 602                         inet_pton(AF_INET6, addr6x + 40, (struct sockaddr *) &snaddr6.sin6_addr);
 603                         if (IN6_IS_ADDR_UNSPECIFIED(&snaddr6.sin6_addr))
 604                                 strcpy(nhop6, "*");
 605                         else
 606                                 inet_ntop(AF_INET6, &snaddr6.sin6_addr, nhop6, sizeof(nhop6));
 607
 608                         web_printf("%s['%s','%s','%s','%d',%u]", n ? "," : "", dev, addr6, nhop6, pxlen, metric);
 609                         ++n;
 610                 }
 611 OUT:
 612                 fclose(f);
 613         }
 614 #endif
 615
 616         web_puts("];\n");
 617 }
 618
 619 void asp_cgi_get(int argc, char **argv)
 620 {
 621         const char *v;
 622         int i;
 623
 624         for (i = 0; i < argc; ++i) {
 625                 v = webcgi_get(argv[i]);
 626                 if (v) web_puts(v);
 627         }
 628 }
 629
 630 void asp_time(int argc, char **argv)
 631 {
 632         time_t t;
 633         char s[64];
 634
 635         t = time(NULL);
 636         if (t < Y2K) {
 637                 web_puts("Not Available");
 638         }
 639         else {
 640                 strftime(s, sizeof(s), "%a, %d %b %Y %H:%M:%S %z", localtime(&t));
 641                 web_puts(s);
 642         }
 643 }
 644
 645 void asp_wanup(int argc, char **argv)
 646 {
 647         web_puts(check_wanup() ? "1" : "0");
 648 }
 649
 650 void asp_wanstatus(int argc, char **argv)
 651 {
 652         const char *p;
 653
 654         if ((using_dhcpc()) && (f_exists("/var/lib/misc/dhcpc.renewing"))) {
 655                 p = "Renewing...";
 656         }
 657         else if (check_wanup()) {
 658                 p = "Connected";
 659         }
 660         else if (f_exists("/var/lib/misc/wan.connecting")) {
 661                 int proto = get_wan_proto();
 662
 663                 p = "Connecting...";
 664
 665                 if ((proto == WP_PPPOE || proto == WP_PPP3G) && f_exists("/tmp/ppp/log")) {
 666                         char s[256];
 667
 668                         f_read_string("/tmp/ppp/log", s, sizeof(s));
 669
 670                         if (strcmp(s, "PADO_TIMEOUT") == 0 || strcmp(s, "PADS_TIMEOUT") == 0) {
 671                                 web_printf("Timed out%s", nvram_get_int("ppp_demand") == 0 ? ", Trying again...":"");
 672                         } else if (strcmp(s, "PAP_AUTH_FAIL") == 0 || strcmp(s, "CHAP_AUTH_FAIL") == 0) {
 673                                 web_printf("Authentication failed%s", nvram_get_int("ppp_demand") == 0 ? ", Trying again...":"");
 674                         } else {
 675                                 web_puts(p);
 676                         }
 677
 678                         return;
 679
 680                 }
 681
 682         }
 683         else {
 684                 p = "Disconnected";
 685         }
 686         web_puts(p);
 687 }
 688
 689 void asp_link_uptime(int argc, char **argv)
 690 {
 691         struct sysinfo si;
 692         char buf[64];
 693         long uptime;
 694
 695         buf[0] = '-';
 696         buf[1] = 0;
 697         if (check_wanup()) {
 698                 sysinfo(&si);
 699                 if (f_read("/var/lib/misc/wantime", &uptime, sizeof(uptime)) == sizeof(uptime)) {
 700                         reltime(buf, si.uptime - uptime);
 701                 }
 702         }
 703         web_puts(buf);
 704 }
 705
 706 void asp_link_starttime(int argc, char **argv)
 707 {
 708         struct sysinfo si;
 709         char buf[64];
 710         long uptime;
 711
 712         buf[0] = 0;
 713
 714         if (!check_wanup() && f_exists("/var/lib/misc/wan.connecting")) {
 715                 sysinfo(&si);
 716                 if (f_read("/var/lib/misc/wan.connecting", &uptime, sizeof(uptime)) == sizeof(uptime)) {
 717                         reltime(buf, si.uptime - uptime);
 718                 }
 719         }
 720         web_puts(buf);
 721 }
 722
 723 void asp_rrule(int argc, char **argv)
 724 {
 725         char s[32];
 726         int i;
 727
 728         i = nvram_get_int("rruleN");
 729         sprintf(s, "rrule%d", i);
 730         web_puts("\nrrule = '");
 731         web_putj(nvram_safe_get(s));
 732         web_printf("';\nrruleN = %d;\n", i);
 733 }
 734
 735 void asp_compmac(int argc, char **argv)
 736 {
 737         char mac[32];
 738         char ifname[32];
 739
 740         if (get_client_info(mac, ifname)) {
 741                 web_puts(mac);
 742         }
 743 }
 744
 745 void asp_ident(int argc, char **argv)
 746 {
 747         web_puth(nvram_safe_get("router_name"));
 748 }
 749
 750 void asp_statfs(int argc, char **argv)
 751 {
 752         struct statfs sf;
 753         int mnt;
 754
 755         if (argc != 2) return;
 756
 757         // used for /cifs/, /jffs/... if it returns squashfs type, assume it's not mounted
 758         if ((statfs(argv[0], &sf) != 0) || (sf.f_type == 0x73717368)) {
 759                 mnt = 0;
 760                 memset(&sf, 0, sizeof(sf));
 761 #ifdef TCONFIG_JFFS2
 762                 // for jffs, try to get total size from mtd partition
 763                 if (strncmp(argv[1], "jffs", 4) == 0) {
 764                         int part;
 765
 766                         if (mtd_getinfo(argv[1], &part, (int *)&sf.f_blocks)) {
 767                                 sf.f_bsize = 1;
 768                         }
 769                 }
 770 #endif
 771         }
 772         else {
 773                 mnt = 1;
 774         }
 775
 776         web_printf(
 777                         "\n%s = {\n"
 778                         "\tmnt: %d,\n"
 779                         "\tsize: %llu,\n"
 780                         "\tfree: %llu\n"
 781                         "};\n",
 782                         argv[1], mnt,
 783                         ((uint64_t)sf.f_bsize * sf.f_blocks),
 784                         ((uint64_t)sf.f_bsize * sf.f_bfree));
 785 }
 786
 787 void asp_notice(int argc, char **argv)
 788 {
 789         char s[256];
 790         char buf[2048];
 791
 792         if (argc != 1) return;
 793         snprintf(s, sizeof(s), "/var/notice/%s", argv[0]);
 794         if (f_read_string(s, buf, sizeof(buf)) <= 0) return;
 795         web_putj(buf);
 796 }
 797
 798 void wo_wakeup(char *url)
 799 {
 800         char *mac;
 801         char *p;
 802         char *end;
 803
 804         if ((mac = webcgi_get("mac")) != NULL) {
 805                 end = mac + strlen(mac);
 806                 while (mac < end) {
 807                         while ((*mac == ' ') || (*mac == '\t') || (*mac == '\r') || (*mac == '\n')) ++mac;
 808                         if (*mac == 0) break;
 809
 810                         p = mac;
 811                         while ((*p != 0) && (*p != ' ') && (*p != '\r') && (*p != '\n')) ++p;
 812                         *p = 0;
 813
 814                         eval("ether-wake", "-b", "-i", nvram_safe_get("lan_ifname"), mac);
 815 #ifdef TCONFIG_VLAN
 816                         if (strcmp(nvram_safe_get("lan1_ifname"), "") != 0)
 817                                 eval("ether-wake", "-b", "-i", nvram_safe_get("lan1_ifname"), mac);
 818                         if (strcmp(nvram_safe_get("lan2_ifname"), "") != 0)
 819                                 eval("ether-wake", "-b", "-i", nvram_safe_get("lan2_ifname"), mac);
 820                         if (strcmp(nvram_safe_get("lan3_ifname"), "") != 0)
 821                                 eval("ether-wake", "-b", "-i", nvram_safe_get("lan3_ifname"), mac);
 822 #endif
 823                         mac = p + 1;
 824                 }
 825         }
 826         common_redirect();
 827 }
 828
 829 void asp_dns(int argc, char **argv)
 830 {
 831         char s[128];
 832         int i;
 833         const dns_list_t *dns;
 834
 835         dns = get_dns();        // static buffer
 836         strcpy(s, "\ndns = [");
 837         for (i = 0 ; i < dns->count; ++i) {
 838                 sprintf(s + strlen(s), "%s'%s:%u'", i ? "," : "", inet_ntoa(dns->dns[i].addr), dns->dns[i].port);
 839         }
 840         strcat(s, "];\n");
 841         web_puts(s);
 842 }
 843
 844 int resolve_addr(const char *ip, char *host)
 845 {
 846         struct addrinfo hints;
 847         struct addrinfo *res;
 848         int ret;
 849
 850         memset(&hints, 0, sizeof(hints));
 851         hints.ai_family = AF_UNSPEC;
 852         hints.ai_socktype = SOCK_STREAM;
 853
 854         ret = getaddrinfo(ip, NULL, &hints, &res);
 855         if (ret == 0) {
 856                 ret = getnameinfo(res->ai_addr, res->ai_addrlen, host, NI_MAXHOST, NULL, 0, 0);
 857                 freeaddrinfo(res);
 858         }
 859         return ret;
 860 }
 861
 862 void wo_resolve(char *url)
 863 {
 864         char *p;
 865         char *ip;
 866         char host[NI_MAXHOST];
 867         char comma;
 868         char *js;
 869
 870         comma = ' ';
 871         web_puts("\nresolve_data = [\n");
 872         if ((p = webcgi_get("ip")) != NULL) {
 873                 while ((ip = strsep(&p, ",")) != NULL) {
 874                         if (resolve_addr(ip, host) != 0) continue;
 875                         js = js_string(host);
 876                         web_printf("%c['%s','%s']", comma, ip, js);
 877                         free(js);
 878                         comma = ',';
 879                 }
 880         }
 881         web_puts("];\n");
 882 }