begining of code cleanup: more modular source code
[svn/Prometheus-QoS/.git] / prometheus.c
index 59e2759..6401255 100644 (file)
@@ -2,12 +2,12 @@
  /*     Prometheus QoS - you can "steal fire" from your ISP     */\r
 /*      "fair-per-IP" quality of service (QoS) utility          */\r
 /*      requires Linux 2.4.x or 2.6.x with HTB support          */\r
-/*      Copyright(C) 2005-2008 Michael Polak (xChaos)           */\r
+/*      Copyright(C) 2005-2012 Michael Polak, Arachne Labs      */\r
 /*    iptables-restore support Copyright(C) 2007-2008 ludva     */\r
 /*  Credit: CZFree.Net,Martin Devera,Netdave,Aquarius,Gandalf  */\r
 /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  */\r
 \r
-/* Modified by: xChaos, 20120516\r
+/* Modified by: xChaos, 20120612\r
                  ludva, 20080415\r
  \r
    Prometheus QoS is free software; you can redistribute it and/or\r
    \r
    GNU General Public License is located in file COPYING */\r
 \r
-#define STRLEN 256\r
+#define STRLEN 512\r
 #define FIRSTGROUPID 1024\r
 #define FIRSTIPCLASS 2048\r
 #undef DEBUG\r
 \r
 #include "cll1-0.6.2.h"\r
 \r
-const char *version = "0.8.3-d";\r
+const char *version = "0.8.3-f";\r
 \r
 /* Version numbers: 0.8.3 is development releases ("beta"), 0.8.4 will be "stable" */\r
 /* Debian(RPM) package versions/patchlevels: 0.7.9-2, 0.8.0-1, 0.8.0-2, etc. */\r
 /* C source code development versions ("beta"): 0.7.9-a, 0.8.1-b, etc. */\r
 /* C source code release versions: 0.8.0, 0.8.2, 0.8.4, etc. */\r
 \r
-const char *stats_html_signature = "<span class=\"small\">Statistics generated by Prometheus QoS version %s<br />GPL+Copyright(C)2005-2012 Michael Polak, <a href=\"http://www.arachne.cz/\">Arachne Labs</a></span>\n";\r
+const char *stats_html_signature = "<span class=\"small\">Statistics generated by Prometheus QoS version %s<br />GPL+Copyright(C)2005-2012 Michael Polak, <a target=\"_blank\" href=\"http://www.arachne.cz/\">Arachne Labs</a></span>\n";\r
 \r
 /* ======= All path names are defined here (for RPM patch) =======  */\r
 \r
@@ -57,8 +57,9 @@ char    *iptablesfile = "/var/spool/prometheus.iptables"; /* temporary file for
 char          *credit = "/var/lib/misc/prometheus.credit"; /* credit log file */\r
 char        *classmap = "/var/lib/misc/prometheus.classes"; /* credit log file */\r
 char            *html = "/var/www/traffic.html"; /* hall of fame - html version */\r
-char         *preview = "/var/www/preview.html"; /* hall of fame preview */\r
-char            *json = "/var/www/traffic.json"; /* hall of fame - json version */\r
+char         *preview = "/var/www/preview.html"; /* hall of fame preview - html version */\r
+char            *json = "/var/www/logs/traffic.json"; /* hall of fame - json version */\r
+char    *json_preview = "/var/www/logs/preview.json"; /* hall of fame preview - json version */\r
 char          *cmdlog = "/var/log/prometheuslog"; /* command log filename */\r
 char         *log_dir = "/var/www/logs/"; /* log directory pathname, ended with slash */\r
 char         *log_url = "/logs/"; /* log directory relative URI prefix (partial URL) */\r
@@ -70,6 +71,9 @@ int use_jquery_popups = 1;
 int      row_odd_even = 0; /*<tr class="odd/even"> */\r
 \r
 \r
+void parse_ip_log(int argc, char **argv);\r
+/* implementid in parselog.c */\r
+\r
 const char *tr_odd_even(void)\r
 {\r
  row_odd_even = 1 - row_odd_even;\r
@@ -89,22 +93,21 @@ void help(void)
 {\r
  puts("Command line switches:\n\\r
 \n\\r
--?, --help    this help screen\n\\r
--v, --version show Version number of this utility and exit\n\\r
--c filename   force alternative /etc/prometheus.Conf filename\n\\r
--h filename   force alternative /etc/Hosts filename (overrides hosts keyword)\n\\r
--f            just Flush iptables and tc classes and exit (stop shaping)\n\\r
--9            emergency iptables flush (do not read data transfer statistics)\n\\r
--p            just generate Preview of data transfer statistics and exit\n\\r
--d            Dry run (preview tc and iptables commands on stdout)\n\\r
--r            Run (reset all statistics and start shaping)\n\\r
--n            run Now (start shaping without delay - overrides qos-free-delay keyword)\n\\r
--l Mmm YYYY   generate HTML summary of traffic Logs (Mmm=Jan-Dec or Year, YYYY=year)\n\\r
--m            generate HTML summary of traffic logs for yesterday's Month\n\\r
--y            generate HTML summary of traffic logs for yesterday's Year\n");\r
-/* not yet implemented:\r
--s            start shaping! (keep data transfer statistics - but apply shaping)\n\\r
-*/\r
+-d   Dry run (preview tc and iptables commands on stdout)\n\\r
+-r   Run (reset all statistics and start shaping - daily usage)\n\\r
+-p   just generate Preview of data transfer statistics and exit (after -r)\n\\r
+-s   start Shaping FUP limits (keeps data transfer stat like -p) (after -r)\n\\r
+-n   run Now (like -r delay - overrides qos-free-delay keyword, after boot)\n\\r
+-f   just Flush iptables and tc classes and exit (stop shaping, no QiS)\n\\r
+-9   emergency iptables flush (like -f, but dumps data transfer statistics)\n\\r
+\n\\r
+-c filename  force alternative /etc/prometheus/prometheus.conf filename\n\\r
+-h filename  force alternative /etc/hosts filename (overrides hosts keyword)\n\\r
+-l Mmm YYYY  generate HTML summary of Logged traffic (Mmm=Jan-Dec) (and exit)\n\\r
+-m           generate HTML summary of traffic for yesterday's Month (and exit)\n\\r
+-y           generate HTML summary of traffic for yesterday's Year (and exit)\n\\r
+-? --help    show this help scree (and exit)\n\\r
+-v --version show Version number of this utility (and exit)\n");\r
 }\r
 \r
 /* === Configuraration file values defaults - stored in global variables ==== */\r
@@ -440,6 +443,7 @@ void get_config(char *config_filename)
   option("hall-of-fame-filename",html);\r
   option("json-filename",json);\r
   option("hall-of-fame-preview",preview);\r
+  option("json-preview",json_preview);\r
   option("log-filename",cmdlog);\r
   option("credit-filename",credit);\r
   option("classmap-filename",classmap);\r
@@ -476,7 +480,7 @@ void get_config(char *config_filename)
   perror(config_filename);\r
   puts("Warning - using built-in defaults instead ...");\r
  }\r
- done;\r
+ done; /* ugly macro end */\r
  printf("\n");\r
  \r
  /* leaf discipline for keywords */\r
@@ -610,7 +614,7 @@ void get_traffic_statistics(void)
      {\r
       printf("(upload) ");\r
      }\r
-     printf("IP %s: %Lu M (%ld pkts)\n", ipaddr, traffic, pkts);\r
+     printf("IP %s: %Lu MB (%ld pkts)\n", ipaddr, traffic, pkts);\r
 \r
      if_exists(ip,ips,eq(ip->addr,ipaddr)); \r
      else \r
@@ -656,8 +660,7 @@ void get_traffic_statistics(void)
      }\r
     }  \r
   }\r
-\r
- free(cmd);\r
+  free(cmd);\r
 }\r
  \r
 /* ========== This function executes, logs OR ALSO prints command ========== */\r
@@ -689,7 +692,7 @@ void run_restore(void)
  string(restor,STRLEN);\r
 \r
  /*-----------------------------------------------------------------*/\r
- printf("Running %s <%s ...\n",iptablesrestore,iptablesfile);\r
+ printf("Running %s <%s ...\n", iptablesrestore, iptablesfile);\r
  /*-----------------------------------------------------------------*/\r
  \r
  save_line("COMMIT");\r
@@ -700,7 +703,7 @@ void run_restore(void)
   {\r
    printf("%s\n",_);\r
   }\r
-  done;\r
+  done; /* ugly macro end */\r
  }\r
 \r
  sprintf(restor,"%s <%s",iptablesrestore, iptablesfile);\r
@@ -776,270 +779,8 @@ char *parse_datafile_line(char *str)
  }\r
 }\r
 \r
-struct IpLog\r
-{\r
- char *name;\r
- long traffic;\r
- long guaranted;\r
- int i;\r
- int lmsid;\r
- long l;\r
- list(IpLog);\r
-} *iplog,*iplogs;\r
-\r
-void parse_ip_log(int argc, char **argv) \r
-{\r
- char *month, *year, *str, *name="(undefined)", *ptr, *ptr2, *filename;\r
- long traffic=0l, traffic_month, total=0, guaranted;\r
- int col, col2, y_ok, m_ok, accept_month, i=1, any_month=0, lmsid;\r
- char mstr[4], ystr[5];\r
- FILE *f; \r
- string(str,STRLEN);\r
- string(filename,STRLEN);\r
-\r
- if(argv[1][1]=='l') /* -l */\r
- {\r
-  if(argc<4)\r
-  {\r
-   puts("Missing parameter(s)!\nUsage: prometheus -l Mmm YYYY (Mmm=Jan-Dec or Year, YYYY=year)");\r
-   exit(-1);\r
-  }\r
-  else\r
-  {\r
-   month=argv[2];\r
-   if(eq(month,"Year")) any_month=1;\r
-   year=argv[3];\r
-  }\r
- }\r
- else\r
- { \r
-  time_t t = time(NULL) - 3600*24 ; /* yesterday's timestamp*/\r
-  struct tm *timep = localtime(&t);                                           \r
-\r
-  if(argv[1][1]=='m') /* -m yestarday - month */\r
-  {\r
-   strftime(mstr, 4, "%b", timep);\r
-   month=mstr;\r
-   strftime(ystr, 5, "%Y", timep);\r
-   year=ystr; \r
-  }\r
-  else /* -y yesterday - year */\r
-  {\r
-   month="Year";\r
-   any_month=1;\r
-   strftime(ystr, 5, "%Y", timep);\r
-   year=ystr;\r
-  }\r
- }\r
- printf("Analysing traffic for %s %s ...\n",month,year);\r
-\r
- /* sorry... next release of C<<1 header file will include for_path_files(name,path) {  } macro */\r
- sprintf(str,"%s %s/",ls,log_dir);\r
- shell(str);\r
- input(str,STRLEN) \r
- {\r
-  if(strstr(str,".log"))\r
-  {\r
-    ptr=strrchr(str,'\n');\r
-    if(ptr) *ptr='\0';\r
-    sprintf(filename,"%s/%s",log_dir,str);\r
-    printf("Parsing %s ...",filename);\r
-    accept_month=0;\r
-    traffic_month=0;\r
-    guaranted=0;\r
-    lmsid=-1;\r
-    parse(filename)\r
-    {\r
-     y_ok=m_ok=0;  \r
-     valid_columns(ptr,_,'\t',col) switch(col)\r
-     {\r
-      case 2: name = ptr;break;\r
-      case 3: traffic = atol(ptr);break;\r
-      /* column number   - was 7, now 11...*/\r
-      case 7:\r
-      case 8:\r
-      case 9:\r
-      case 10:\r
-      case 11: if(isalpha(*ptr)) /* character, not numeric string = date, just one*/\r
-               {\r
-                valid_columns(ptr2,ptr,' ',col2) switch(col2)\r
-                {\r
-                 case 2: if(any_month || eq(ptr2,month)) m_ok = 1; break;\r
-                 case 5: if(eq(ptr2,year)) y_ok = 1; break;\r
-                }\r
-               }\r
-               else\r
-               {\r
-                 if(col == 7) guaranted = atol(ptr);\r
-                 if(col == 10) lmsid = atoi(ptr);\r
-               }\r
-     }\r
-     \r
-     if(y_ok && m_ok) \r
-     {\r
-      traffic_month += traffic;\r
-      accept_month = 1;\r
-     }\r
-    }\r
-    done;\r
-\r
-    if(accept_month)\r
-    {\r
-     create(iplog,IpLog);\r
-     iplog->name = name;\r
-     iplog->guaranted = guaranted;\r
-     iplog->traffic = traffic_month;\r
-     iplog->lmsid = lmsid;\r
-     insert(iplog,iplogs,desc_order_by,traffic);\r
-     printf(" %ld MB\n",iplog->traffic);\r
-    }\r
-    else\r
-    {\r
-     puts(" no records.");\r
-    }\r
-  }\r
- }\r
- sprintf(str,"%s/%s-%s.html",html_log_dir,year,month);\r
- printf("Writing %s ... ",str);\r
- f=fopen(str,"w");\r
- if(f > 0)\r
- {\r
-  fprintf(f, "<table class=\"decorated last\"><thead>\n\\r
-<tr><th colspan=\"2\">%s %s</th>\n\\r
-<th style=\"text-align: right\">lms</th>\n\\r
-<th colspan=\"2\">Data transfers</th>\n\\r
-<th style=\"text-align: right\">Min.speed</th>\n\\r
-</tr></thead><tbody>\n ",\r
-             month, year);\r
 \r
-  row_odd_even = 0;\r
-  for_each(iplog, iplogs)\r
-  {\r
-   if(iplog->traffic)\r
-   {\r
-    fprintf(f, "%s<td style=\"text-align: right\">%d</td>\n\\r
-<td style=\"text-align: left\"><a class=\"blue\" href=\"%s%s.log\">%s</td>\n\\r
-<td style=\"text-align: right\">", \r
-               tr_odd_even(), i++, log_url, iplog->name, iplog->name);  \r
-    if(iplog->lmsid > 0)\r
-    {\r
-     /*base URL will be configurable soon ... */\r
-     fprintf(f, "<a  class=\"blue\"  href=\"%s%d\">%04d</a>\n", lms_url, iplog->lmsid, iplog->lmsid);\r
-    }\r
-    else if(iplog->lmsid == 0)\r
-    {\r
-     fputs("-------",f);\r
-    }    \r
-    fprintf(f, "<td style=\"text-align: right\">%ld&nbsp;MB</td>\n\\r
-    <td style=\"text-align: right\"><strong>%ld&nbsp;GB</strong></td>\n\\r
-    <td style=\"text-align: right\">%ld&nbsp;kb/s</th></tr>\n",\r
-               iplog->traffic, iplog->traffic>>10, iplog->guaranted);\r
-    total+=iplog->traffic>>10;\r
-    iplog->i=i;\r
-    iplog->l=total;\r
-   }\r
-  }\r
-  fprintf(f,"</tbody><thead><tr>\\r
-  <td colspan=\"4\" style=\"text-align: left\">Total:</td>\\r
-  <td style=\"text-align: right\"><strong>%ld&nbsp;GB</strong></td>\\r
-  <td style=\"text-align: right\"><strong>%Ld&nbsp;kb/s</strong></td></tr>\n", total, line);\r
-  fputs("</thead></table>\n", f);\r
 \r
-  row_odd_even = 0;\r
-  if(i>10)\r
-  {\r
-   fputs("<a name=\"erp\"></a><p><table class=\"decorated last\">\n\\r
-<caption>Enterprise Resource Planning (ERP)</caption>\n\\r
-<thead><tr>\n\\r
-<th>Analytic category</th>\n\\r
-<th colspan=\"2\" style=\"text-align: center\">Active Classes</th>\n\\r
-<th colspan=\"2\" style=\"text-align: center\">Data transfers</th>\n\\r
-</tr></thead><tbody>\n",f);\r
-\r
-   if_exists(iplog,iplogs,iplog->l>=total/4)\r
-   {\r
-    fprintf(f,"%s<td>Top 25%% of traffic</td>\n", tr_odd_even());\r
-    fprintf(f,"<td style=\"text-align: right\">%d</td><td style=\"text-align: right\">%d %%</td><td style=\"text-align: right\">%ld G</td><td style=\"text-align: right\">%d %%</td></tr>\n",iplog->i,(100*iplog->i+50)/i,iplog->l,(int)((100*iplog->l+50)/total));\r
-   }\r
-   \r
-   if_exists(iplog,iplogs,iplog->i==10)\r
-   {\r
-    fprintf(f,"%s<td>Top 10 downloaders</td>\n", tr_odd_even());\r
-    fprintf(f,"<td style=\"text-align: right\"><strong>10</strong></td>\n\\r
-<td style=\"text-align: right\">%d %%</td>\n\\r
-<td style=\"text-align: right\">%ld G</td>\n\\r
-<td style=\"text-align: right\">%d %%</td></tr>\n",\r
-               (100*iplog->i+50)/i,iplog->l,(int)((100*iplog->l+50)/total));\r
-   }\r
-\r
-   if_exists(iplog,iplogs,iplog->l>=total/2)\r
-   {\r
-    fprintf(f,"%s<td>Top 50%% of traffic</td>\n", tr_odd_even());\r
-    fprintf(f,"<td style=\"text-align: right\">%d</td>\n\\r
-<td style=\"text-align: right\">%d %%</td>\n\\r
-<td style=\"text-align: right\">%ld G</td>\n\\r
-<td style=\"text-align: right\"><strong>%d %%</strong></td></tr>\n",\r
-              iplog->i,(100*iplog->i+50)/i,iplog->l,(int)((100*iplog->l+50)/total));\r
-   }\r
-\r
-   if_exists(iplog,iplogs,iplog->l>=4*total/5)\r
-   {\r
-    fprintf(f,"%s<td>Top 80%% of traffic</td>\n",tr_odd_even());\r
-    fprintf(f,"<td style=\"text-align: right\">%d</td>\n\\r
-<td style=\"text-align: right\">%d %%</td>\n\\r
-<td style=\"text-align: right\">%ld G</td>\n\\r
-<td style=\"text-align: right\"><strong>%d %%</strong></td></tr>\n",\r
-              iplog->i,(100*iplog->i+50)/i,iplog->l,(int)((100*iplog->l+50)/total));\r
-   }\r
-\r
-   if_exists (iplog,iplogs,iplog->i>=i/5)\r
-   {\r
-    fprintf(f,"%s<td>Top 20%% downloaders</td>\n",tr_odd_even());\r
-    fprintf(f,"<td style=\"text-align: right\">%d</td>\n\\r
-<td style=\"text-align: right\"><strong>%d %%</strong></td>\n\\r
-<td style=\"text-align: right\">%ld G</td>\n\\r
-<td style=\"text-align: right\">%d %%</td></tr>\n",\r
-              iplog->i,(100*iplog->i+50)/i,iplog->l,(int)((100*iplog->l+50)/total));\r
-   }\r
-\r
-   if_exists(iplog,iplogs,iplog->i>=i/4)\r
-   {\r
-    fprintf(f,"%s<td>Top 25%% downloaders</td>\n", tr_odd_even());\r
-    fprintf(f,"<td style=\"text-align: right\">%d</td><td style=\"text-align: right\">%d %%</td><td style=\"text-align: right\">%ld G</td><td style=\"text-align: right\">%d %%</td></tr>\n",iplog->i,(100*iplog->i+50)/i,iplog->l,(int)((100*iplog->l+50)/total));\r
-   }\r
-\r
-   if_exists(iplog,iplogs,iplog->i>=i/2)\r
-   {\r
-    fprintf(f,"%s<td>Top 50%% downloaders</td>\n",tr_odd_even());\r
-    fprintf(f,"<td style=\"text-align: right\">%d</td>\n\\r
-<td style=\"text-align: right\"><strong>%d %%</strong></td>\n\\r
-<td style=\"text-align: right\">%ld G</td><td style=\"text-align: right\">%d %%</td></tr>\n",iplog->i,(100*iplog->i+50)/i,iplog->l,(int)((100*iplog->l+50)/total));\r
-   }\r
-\r
-   if_exists(iplog,iplogs,iplog->i>=4*i/5)\r
-   {\r
-    fprintf(f,"%s<td>Top 80%% downloaders</td>\n",tr_odd_even());\r
-    fprintf(f,"<td style=\"text-align: right\">%d</td><td style=\"text-align: right\">%d %%</td><td style=\"text-align: right\">%ld G</td><td style=\"text-align: right\">%d %%</td></tr>\n",iplog->i,(100*iplog->i+50)/i,iplog->l,(int)((100*iplog->l+50)/total));\r
-   }\r
-\r
-   fprintf(f,"</tbody><thead><tr>\n\\r
-<th>All users, all traffic</th>\n\\r
-<th style=\"text-align: right\">%d</th>\n\\r
-<th style=\"text-align: right\">100 %%</th>\n\\r
-<th style=\"text-align: right\">%ld G</th>\n\\r
-<th style=\"text-align: right\">100 %%</th></tr>\n",i-1,total);\r
-   fputs("</thead></table>\n", f);\r
-  }\r
-\r
-  fprintf(f, stats_html_signature, version);\r
-  fclose(f);\r
-  puts("done.");\r
- }\r
- else\r
- {\r
-  perror(str);\r
- }\r
-}\r
 \r
 void append_log(struct IP *self) /*using global variables*/\r
 {\r
@@ -1070,16 +811,17 @@ void append_log(struct IP *self) /*using global variables*/
 \r
 program\r
 {\r
- int i=0;\r
- FILE *f=NULL;\r
- char *str, *ptr, *d;\r
+ int i=0;                    /* just plain old Fortran style integer :-) */\r
+ FILE *f=NULL;               /* everything is just stream of bytes... */\r
+ char *str, *ptr, *d;        /* LET A$=B$ :-) */\r
  char *substring;\r
  int class_count=0,ip_count=0;\r
  int parent=1;\r
- int just_flush=FALSE;\r
+ int just_flush=FALSE;       /* deactivates all previous actions */\r
  int nodelay=FALSE;\r
- int just_preview=FALSE;                /* preview - generate just stats */\r
- int just_logs=FALSE;                   /* just parse logs */\r
+ int just_preview=FALSE;     /* preview - generate just stats */\r
+ int start_shaping=FALSE;    /* apply FUP - requires classmap file */\r
+ int just_logs=FALSE;        /* just parse logs */\r
  int run=FALSE;\r
  int total=0;\r
  \r
@@ -1088,12 +830,11 @@ program
   \r
  printf("\n\\r
 Prometheus QoS - \"fair-per-IP\" Quality of Service setup utility.\n\\r
-Version %s - Copyright (C)2005-2012 Michael Polak (xChaos)\n\\r
+Version %s - Copyright (C)2005-2012 Michael Polak, Arachne Labs\n\\r
 iptables-restore & burst tunning & classify modification by Ludva\n\\r
 Credit: CZFree.Net, Martin Devera, Netdave, Aquarius, Gandalf\n\n",version);\r
 \r
- /*----- Boring... we have to check command line options first: ----*/\r
-   \r
+ /*----- Boring... we have to check command line options first: ----*/   \r
  arguments\r
  {\r
   argument("-c") { nextargument(config); }\r
@@ -1102,6 +843,7 @@ Credit: CZFree.Net, Martin Devera, Netdave, Aquarius, Gandalf\n\n",version);
   argument("-f") { run=TRUE; just_flush=TRUE; }\r
   argument("-9") { run=TRUE; just_flush=9; }\r
   argument("-p") { run=TRUE; just_preview=TRUE; }\r
+  argument("-s") { run=TRUE; just_preview=TRUE; start_shaping=TRUE; }\r
   argument("-r") { run=TRUE; }\r
   argument("-n") { run=TRUE; nodelay=TRUE; }\r
   argument("-l") { just_logs=TRUE; }\r
@@ -1252,7 +994,7 @@ Credit: CZFree.Net, Martin Devera, Netdave, Aquarius, Gandalf\n\n",version);
   perror(hosts);\r
   exit(-1);\r
  }\r
- done;\r
+ done; /* ugly macro end */\r
 \r
  /*-----------------------------------------------------------------*/\r
  /* cll1.h - let's allocate brand new character buffer...           */\r
@@ -1295,7 +1037,7 @@ Credit: CZFree.Net, Martin Devera, Netdave, Aquarius, Gandalf\n\n",version);
     }\r
    }\r
   }\r
-  done;\r
+  done; /* ugly macro end */\r
  }\r
 \r
  if(!just_preview)\r
@@ -1622,13 +1364,53 @@ Credit: CZFree.Net, Martin Devera, Netdave, Aquarius, Gandalf\n\n",version);
 \r
  if(just_preview)\r
  {\r
-  f=fopen(preview,"w");\r
-  ptr=preview; \r
+  if(start_shaping)\r
+  {\r
+   printf("Reading %s and applying Fair Use Policy rules ... \n", classmap);\r
+   parse(classmap)\r
+   {\r
+    ptr=strchr(_,' ');\r
+    if(ptr)\r
+    {\r
+     *ptr=0;\r
+     ptr++;\r
+     if_exists(ip,ips,eq(ip->addr,_))\r
+     {\r
+      ip->mark=atoi(ptr);\r
+      if(ip->max < ip->desired) /* apply FUP limit immediately.... */\r
+      {\r
+       printf("Applying limit for %-22s %-16s %04d ", ip->name, ip->addr, ip->mark);       \r
+       printf("(down: %dk-%dk ", ip->min, ip->max); \r
+       sprintf(str, "%s class change dev %s parent 1:%d classid 1:%d htb rate %dkbit ceil %dkbit burst %dk prio %d", \r
+                    tc, lan, ip->group, ip->mark,ip->min,ip->max, burst, ip->prio);\r
+       safe_run(str);\r
+       printf("up: %dk-%dk)\n", (int)((ip->min/ip->keyword->asymetry_ratio)-ip->keyword->asymetry_fixed), \r
+                                (int)((ip->max/ip->keyword->asymetry_ratio)-ip->keyword->asymetry_fixed));\r
+       sprintf(str,"%s class change dev %s parent 1:%d classid 1:%d htb rate %dkbit ceil %dkbit burst %dk prio %d",\r
+                    tc, wan, ip->group, ip->mark,\r
+                    (int)((ip->min/ip->keyword->asymetry_ratio)-ip->keyword->asymetry_fixed),\r
+                    (int)((ip->max/ip->keyword->asymetry_ratio)-ip->keyword->asymetry_fixed), burst, ip->prio);\r
+       safe_run(str);\r
+      }\r
+     }\r
+    }\r
+   }\r
+   fail\r
+   { \r
+    perror(classmap);\r
+    puts("Warning - classmap file not fund, just generating preview ...");\r
+    start_shaping=FALSE;\r
+   }\r
+   done; /* ugly macro end */\r
+  }\r
+  html=preview;\r
+  json=json_preview;\r
  }\r
- else if(!dry_run && !just_flush)\r
+\r
+ if(!dry_run && !just_flush)\r
  {\r
   /*-----------------------------------------------------------------*/\r
-  printf("Writing daily statistics  %s ... ", json);\r
+  printf("Writing json overview  %s ... ", json);\r
   /*-----------------------------------------------------------------*/\r
   f=fopen(json, "w");\r
   if(f > 0)\r
@@ -1637,16 +1419,17 @@ Credit: CZFree.Net, Martin Devera, Netdave, Aquarius, Gandalf\n\n",version);
    fprintf(f, "{\n");\r
    for_each(ip, ips)\r
    {\r
-    if(jsoncount)\r
+    if(     ip->lmsid > 0 \r
+        && (ip->traffic || ip->direct || ip->proxy || ip->upload))\r
     {\r
-     fprintf(f, ",\n");\r
-    }\r
-    if(ip->traffic || ip->direct || ip->proxy || ip->upload)\r
-    {\r
-     fprintf(f, "%d:{\"ip\":%s, \"total\":%Lu, \"down\":%Lu, \"proxy\":%Lu, \"up\":%Lu}\n",\r
-                ip->lmsid, ip->addr, ip->traffic, ip->direct, ip->proxy, ip->upload);\r
+     if(jsoncount)\r
+     {\r
+      fprintf(f, ",\n");\r
+     }\r
+     fprintf(f, " \"%s\":{ \"lms\": %d, \"ip\":\"%s\", \"total\":%Lu, \"down\":%Lu, \"proxy\":%Lu, \"up\":%Lu, \"min\":%d, \"max\":%d, \"limit\":%d }",\r
+                ip->name, ip->lmsid, ip->addr, ip->traffic, ip->direct, ip->proxy, ip->upload, ip->min, ip->desired, ip->max);\r
+     jsoncount++;\r
     }\r
-    jsoncount++;\r
    }\r
    fprintf(f, "}\n");\r
    fclose(f);\r
@@ -1656,17 +1439,16 @@ Credit: CZFree.Net, Martin Devera, Netdave, Aquarius, Gandalf\n\n",version);
   {\r
    perror(json);\r
   }\r
-  f=fopen(html,"w");\r
-  ptr=html;\r
  }\r
 \r
- if(f)\r
+ f=fopen(html,"w");\r
+ if(f > 0)\r
  {\r
   int count=1;\r
   i=0;\r
 \r
   /*-----------------------------------------------------------------*/\r
-  printf("Sorting data and generating statistics page %s ...\n", ptr);\r
+  printf("Sorting data and generating statistics page %s ...\n", html);\r
   /*-----------------------------------------------------------------*/\r
 \r
   if(use_jquery_popups)\r
@@ -1727,7 +1509,7 @@ Credit: CZFree.Net, Martin Devera, Netdave, Aquarius, Gandalf\n\n",version);
  }\r
 \r
  i=0;\r
- if(f)\r
+ if(f > 0)\r
  {\r
   unsigned long long total_traffic=0, total_direct=0, total_proxy=0, total_upload=0, tmp_sum=0;\r
   int active_classes=0;\r
@@ -1777,25 +1559,25 @@ Credit: CZFree.Net, Martin Devera, Netdave, Aquarius, Gandalf\n\n",version);
   {\r
    char *f1="", *f2="";\r
    i++;\r
-      \r
-   if(ip->max < ip->desired)\r
-   {\r
-    f1="<span style=\"color:red\">";\r
-    f2="</span>";\r
-    limit_count++;\r
-   }\r
-   else if(ip->prio > highest_priority+1)\r
-   {\r
-    f1="<span style=\"color:brown\">";\r
-    f2="</span>";\r
-    prio_count++;\r
-   }\r
+\r
+   if(ip->max < ip->desired) \r
+   { \r
+    f1="<span style=\"color:red\">"; \r
+    f2="</span>"; \r
+    limit_count++; \r
+   } \r
+   else if(ip->prio > highest_priority+1) \r
+   { \r
+    f1="<span style=\"color:brown\">"; \r
+    f2="</span>"; \r
+    prio_count++; \r
+   }       \r
 \r
 #ifdef DEBUG\r
    printf("%03d. %-22s %10Lu (%d/%d)\n",i ,ip->name, ip->traffic, ip->min, ip->max); \r
 #endif\r
    /* hostnames -------------------------------------- */\r
-   fprintf(f,"%s<td style=\"text-align: right\"><a name=\"%s\"></a>%d</td><td><a class=\"blue\" href=\"%s%s.log\">%s</a>\n", \r
+   fprintf(f,"%s<td style=\"text-align: right\"><a name=\"%s\"></a>%d</td><td><a class=\"blue\" target=\"_blank\" href=\"%s%s.log\">%s</a>\n", \r
               tr_odd_even(), ip->name, i, log_url, ip->name, ip->name);\r
 \r
    if(use_jquery_popups)\r
@@ -1804,7 +1586,7 @@ Credit: CZFree.Net, Martin Devera, Netdave, Aquarius, Gandalf\n\n",version);
      popup_button=0;\r
      for_each(sharedip, ips) if(eq(ip->name, sharedip->sharing))\r
      {\r
-      fprintf(f,"<br /><a class=\"blue\" href=\"%s%s.log\">%s</a>\n", log_url, sharedip->name, sharedip->name);\r
+      fprintf(f,"<br /><a class=\"blue\" target=\"_blank\" href=\"%s%s.log\">%s</a>\n", log_url, sharedip->name, sharedip->name);\r
       popup_button++;\r
      }\r
      fputs("</span>\n",f);\r
@@ -1822,7 +1604,7 @@ Credit: CZFree.Net, Martin Devera, Netdave, Aquarius, Gandalf\n\n",version);
     fputs("<td style=\"text-align: right\">",f);\r
     if(ip->lmsid > 0)\r
     {\r
-     fprintf(f,"<a class=\"blue\" href=\"%s%d\">%04d</a>\n", lms_url, ip->lmsid, ip->lmsid);\r
+     fprintf(f,"<a class=\"blue\" target=\"_blank\" href=\"%s%d\">%04d</a>\n", lms_url, ip->lmsid, ip->lmsid);\r
     }\r
     else if(ip->lmsid == 0)\r
     {\r
@@ -1862,10 +1644,6 @@ Credit: CZFree.Net, Martin Devera, Netdave, Aquarius, Gandalf\n\n",version);
      for_each(sharedip,ips) if(eq(ip->name, sharedip->sharing))\r
      {\r
       fprintf(f,"<br />%Lu", sharedip->upload);\r
-      if(!just_preview)\r
-      {\r
-       append_log(sharedip);\r
-      }\r
      }\r
      fputs("</span>\n",f);\r
    }\r
@@ -1897,6 +1675,10 @@ Credit: CZFree.Net, Martin Devera, Netdave, Aquarius, Gandalf\n\n",version);
    if(!just_preview)\r
    {\r
     append_log(ip);\r
+    for_each(sharedip,ips) if(eq(ip->name, sharedip->sharing))\r
+    {\r
+     append_log(sharedip);\r
+    }\r
    }\r
   }\r
   fprintf(f,"</tbody><thead><tr>\n\\r
@@ -1926,7 +1708,11 @@ Credit: CZFree.Net, Martin Devera, Netdave, Aquarius, Gandalf\n\n",version);
    if_exists(sum,sums,sum->l>=total_traffic/4)\r
    {\r
     fprintf(f,"%s<td>Top 25%% of traffic</td>\n", tr_odd_even());\r
-    fprintf(f,"<td style=\"text-align: right\">%d</td><td style=\"text-align: right\">%d %%</td><td style=\"text-align: right\">%Lu M</td><td style=\"text-align: right\">%Ld %%</td></tr>\n",sum->i,(100*sum->i+50)/active_classes,sum->l,(100*sum->l+50)/total_traffic);\r
+    fprintf(f,"<td style=\"text-align: right\">%d</td>\n\\r
+<td style=\"text-align: right\">%d %%</td>\n\\r
+<td style=\"text-align: right\">%Lu MB</td>\n\\r
+<td style=\"text-align: right\">%Ld %%</td></tr>\n",\r
+              sum->i, (100*sum->i+50)/active_classes, sum->l, (100*sum->l+50)/total_traffic);\r
    }\r
    \r
    if_exists(sum,sums,sum->i==10)\r
@@ -1936,7 +1722,7 @@ Credit: CZFree.Net, Martin Devera, Netdave, Aquarius, Gandalf\n\n",version);
 <td style=\"text-align: right\">%d %%</td>\n\\r
 <td style=\"text-align: right\">%Lu MB</td>\n\\r
 <td style=\"text-align: right\">%Ld %%</td></tr>\n",\r
-              (100*sum->i+50)/active_classes,sum->l,(100*sum->l+50)/total_traffic);\r
+              (100*sum->i+50)/active_classes, sum->l, (100*sum->l+50)/total_traffic);\r
    }\r
 \r
    if_exists(sum,sums,sum->l>=total_traffic/2)\r
@@ -2003,10 +1789,10 @@ Credit: CZFree.Net, Martin Devera, Netdave, Aquarius, Gandalf\n\n",version);
               sum->i,(100*sum->i+50)/active_classes,sum->l,(100*sum->l+50)/total_traffic);\r
    }\r
 \r
-   fprintf(f,"<tr><thead><th><a class=\"blue\" href=\"%sERP.log\">All users, all traffic</a></th>\n", log_url);\r
+   fprintf(f,"<thead><tr><th><a class=\"blue\" target=\"_blank\" href=\"%sERP.log\">All users, all traffic</a></th>\n", log_url);\r
    fprintf(f,"<th style=\"text-align: right\">%d</th>\n\\r
 <th style=\"text-align: right\">100 %%</th>\n\\r
-<th style=\"text-align: right\">%Lu M</th>\n\\r
+<th style=\"text-align: right\">%Lu MB</th>\n\\r
 <th style=\"text-align: right\">100 %%</th></tr>\n",active_classes,total_traffic);\r
    fputs("</thead></table>\n", f);\r
 \r
@@ -2036,7 +1822,12 @@ Credit: CZFree.Net, Martin Devera, Netdave, Aquarius, Gandalf\n\n",version);
 \r
  if(just_preview)\r
  {\r
-  puts("Statistics preview generated (-p switch) - now exiting ...");\r
+  char swchar='p';\r
+  if(start_shaping)\r
+  {\r
+   swchar='s';\r
+  }\r
+  printf("Statistics preview generated (-%c switch) - now exiting ...\n", swchar);\r
   exit(0);\r
  }  \r
 \r
@@ -2165,9 +1956,9 @@ Credit: CZFree.Net, Martin Devera, Netdave, Aquarius, Gandalf\n\n",version);
      safe_run(str);\r
    }\r
   \r
-   if(f)\r
+   if(f > 0)\r
    {\r
-     fprintf(f, "%s %d", ip->addr, ip->mark);\r
+     fprintf(f, "%s %d\n", ip->addr, ip->mark);\r
    }\r
   }\r
   else\r
@@ -2178,7 +1969,7 @@ Credit: CZFree.Net, Martin Devera, Netdave, Aquarius, Gandalf\n\n",version);
   }\r
   i++;\r
  }\r
- if(f)\r
+ if(f > 0)\r
  {\r
   puts("done.");\r
   fclose(f);\r
This page took 0.355421 seconds and 4 git commands to generate.