mirror of
https://github.com/3proxy/3proxy.git
synced 2025-02-23 02:25:40 +08:00
remove contrib because of outdated content
This commit is contained in:
z3APA3A
parent
6a8fee9847
commit
68e8530f85
@ -1,6 +0,0 @@
|
||||
all: isqlodbc$(EXESUFFICS)
|
||||
clean:
|
||||
@$(REMOVECOMMAND) *$(OBJSUFFICS) $(COMPFILES)
|
||||
|
||||
isqlodbc$(EXESUFFICS): isqlodbc$(OBJSUFFICS)
|
||||
$(LN) $(LNOUT)isqlodbc$(EXESUFFICS) $(LDFLAGS) $(VERFILE) isqlodbc$(OBJSUFFICS) $(COMPATLIBS) $(LIBS)
|
||||
@ -1,15 +0,0 @@
|
||||
CC = gcc
|
||||
CFLAGS = -I /usr/local/include -DUNIX
|
||||
COUT = -o
|
||||
LN = gcc
|
||||
LDFLAGS =
|
||||
LIBS =-L /usr/local/lib -lodbc
|
||||
LNOUT = -o
|
||||
EXESUFFICS =
|
||||
OBJSUFFICS = .o
|
||||
DEFINEOPTION = -D
|
||||
COMPFILES = *~
|
||||
REMOVECOMMAND = rm -f
|
||||
COMPATLIBS =
|
||||
|
||||
include Makefile.inc
|
||||
@ -1,15 +0,0 @@
|
||||
CC = gcc
|
||||
CFLAGS = -DWIN32
|
||||
COUT = -o
|
||||
LN = gcc
|
||||
LDFLAGS =
|
||||
LIBS = -lodbc32
|
||||
LNOUT = -o
|
||||
EXESUFFICS =
|
||||
OBJSUFFICS = .o
|
||||
DEFINEOPTION = -D
|
||||
COMPFILES = *~
|
||||
REMOVECOMMAND = rm -f
|
||||
COMPATLIBS =
|
||||
|
||||
include Makefile.inc
|
||||
@ -1,191 +0,0 @@
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
#ifdef WIN32
|
||||
#include <io.h>
|
||||
#include <windows.h>
|
||||
#endif
|
||||
#ifdef UNIX
|
||||
#include <sqltypes.h>
|
||||
#endif
|
||||
#include <sql.h>
|
||||
#include <sqlext.h>
|
||||
|
||||
|
||||
|
||||
#define BUF_LENGTH 65000
|
||||
|
||||
/* environment variable */
|
||||
SQLHENV env=NULL;
|
||||
SQLHDBC dbc=NULL;
|
||||
SQLHSTMT stmt=NULL;
|
||||
SQLHSTMT cstmt=NULL;
|
||||
unsigned char *dsn;
|
||||
unsigned char *user;
|
||||
unsigned char *pass;
|
||||
|
||||
RETCODE retcod;
|
||||
|
||||
/*description a columns of result of request */
|
||||
SQLSMALLINT ColumnCount;
|
||||
unsigned int ColNumber;
|
||||
unsigned char ColName[SQL_MAX_COLUMN_NAME_LEN];
|
||||
unsigned int Length;
|
||||
unsigned int Type;
|
||||
unsigned int Size;
|
||||
unsigned int Digits;
|
||||
unsigned int Nullable;
|
||||
|
||||
|
||||
unsigned char data_buf[BUF_LENGTH];
|
||||
unsigned long OutData;
|
||||
|
||||
/* function print error message*/
|
||||
void PrintError(HENV env,HDBC dbc,HSTMT stmt,RETCODE retcod)
|
||||
{
|
||||
SQLINTEGER nError;
|
||||
SQLSMALLINT TextLength;
|
||||
unsigned char BufErrMsg[SQL_MAX_MESSAGE_LENGTH+1];
|
||||
unsigned char SqlState[128];
|
||||
|
||||
SQLError(env,dbc,stmt,SqlState,&nError,BufErrMsg,512, &TextLength);
|
||||
printf("%s\n" ,BufErrMsg);
|
||||
}
|
||||
|
||||
void sqlquery(SQLHDBC dbc,SQLHSTMT stmt, unsigned char *strquery)
|
||||
{
|
||||
retcod=SQLAllocStmt(dbc, &stmt);
|
||||
|
||||
retcod=SQLExecDirect(stmt,strquery,SQL_NTS);
|
||||
if(retcod!=SQL_SUCCESS)
|
||||
{ PrintError(env,dbc,stmt,retcod);}
|
||||
|
||||
SQLNumResultCols(stmt,&ColumnCount);
|
||||
|
||||
while(SQLFetch(stmt)==SQL_SUCCESS)
|
||||
{
|
||||
for(ColNumber=1; ColNumber<=ColumnCount ; ColNumber++)
|
||||
{
|
||||
SQLGetData(stmt,ColNumber,SQL_CHAR,data_buf,BUF_LENGTH,&OutData);
|
||||
printf("%s|",data_buf);
|
||||
}
|
||||
printf("\n",data_buf);
|
||||
strcpy(data_buf,"");
|
||||
}
|
||||
SQLFreeStmt( stmt, SQL_DROP );
|
||||
}
|
||||
|
||||
/* isqlodbc dsn[[,user][,pass]] ["SQLCMD"] */
|
||||
int main(int argc, char *argv[])
|
||||
{
|
||||
unsigned char qbuf[64000];
|
||||
unsigned char *ptr=NULL;
|
||||
|
||||
/* Allocate environment and database connection handles */
|
||||
retcod=SQLAllocEnv( &env );
|
||||
if(retcod!=SQL_SUCCESS)
|
||||
{
|
||||
PrintError(env,dbc,stmt,retcod);
|
||||
SQLFreeEnv(env);
|
||||
return (-1);
|
||||
}
|
||||
retcod = SQLAllocConnect( env, &dbc );
|
||||
if(retcod!=SQL_SUCCESS)
|
||||
{
|
||||
PrintError(env,dbc,stmt,retcod);
|
||||
SQLFreeConnect( dbc );
|
||||
return (-1);
|
||||
}
|
||||
|
||||
|
||||
if(argc > 1 )
|
||||
{
|
||||
/* parsing command line and get parametrs */
|
||||
dsn = strtok(argv[1],",");
|
||||
user = strtok(NULL, ",");
|
||||
pass = strtok(NULL, ",");
|
||||
|
||||
/* Connect from DSN */
|
||||
retcod=SQLConnect(dbc,dsn,SQL_NTS,user,SQL_NTS,pass,SQL_NTS);
|
||||
|
||||
if(retcod!=SQL_SUCCESS)
|
||||
{ PrintError(env,dbc,stmt,retcod); }
|
||||
else
|
||||
{
|
||||
if (argc > 2)
|
||||
{
|
||||
/*sql cmd from command line*/
|
||||
sqlquery(dbc,stmt,argv[2]);
|
||||
}
|
||||
else
|
||||
{
|
||||
/*sql cmd from stdin */
|
||||
if( isatty(0) ){ printf(".tables - list table\n.q - exit\nsql>"); }
|
||||
while(fgets(qbuf,63000,stdin) != NULL )
|
||||
{
|
||||
ptr=strrchr(qbuf,';');
|
||||
if (ptr!=NULL)
|
||||
{
|
||||
sqlquery(dbc,stmt,qbuf);
|
||||
}
|
||||
else
|
||||
{
|
||||
/*cmd exit*/
|
||||
if (strstr(qbuf,".q")){ break; };
|
||||
|
||||
/*cmd table list*/
|
||||
if (strstr(qbuf,".tables"))
|
||||
{
|
||||
retcod=SQLAllocStmt(dbc, &stmt);
|
||||
if(retcod!=SQL_SUCCESS){ PrintError(env,dbc,stmt,retcod); }
|
||||
else
|
||||
{
|
||||
retcod=SQLTables(stmt,NULL,0,NULL,0,NULL,0,NULL,0);
|
||||
if(retcod !=SQL_SUCCESS) { PrintError(env,dbc,stmt,retcod);}
|
||||
while(SQLFetch(stmt)==SQL_SUCCESS)
|
||||
{
|
||||
SQLGetData(stmt,3,SQL_CHAR,data_buf,BUF_LENGTH,&OutData);
|
||||
printf("%s|",data_buf);
|
||||
|
||||
/*list columns */
|
||||
retcod=SQLAllocStmt(dbc, &cstmt);
|
||||
retcod=SQLColumns(cstmt,NULL,0,NULL,0,data_buf,strlen(data_buf),NULL,0);
|
||||
|
||||
if(retcod !=SQL_SUCCESS) { PrintError(env,dbc,stmt,retcod);}
|
||||
else
|
||||
{
|
||||
printf("create table %s (",data_buf);
|
||||
while(SQLFetch(cstmt)==SQL_SUCCESS)
|
||||
{
|
||||
SQLGetData(cstmt,4,SQL_CHAR,data_buf,BUF_LENGTH,&OutData);
|
||||
printf("%s ",data_buf);
|
||||
SQLGetData(cstmt,6,SQL_CHAR,data_buf,BUF_LENGTH,&OutData);
|
||||
printf("%s, ",data_buf);
|
||||
}
|
||||
printf(");\n");
|
||||
SQLFreeStmt( cstmt, SQL_DROP );
|
||||
}/*end list columns*/
|
||||
|
||||
}/*end while SQLFetch */
|
||||
SQLFreeStmt( stmt, SQL_DROP );
|
||||
}
|
||||
|
||||
}/*end if (strstr(qbuf,".tables")) */
|
||||
|
||||
|
||||
} /*end else cmd*/
|
||||
if( isatty(0) ){ printf("sql>"); }
|
||||
} /*end while*/
|
||||
}
|
||||
}
|
||||
SQLDisconnect(dbc);
|
||||
} /* if (argc > 2) */
|
||||
else
|
||||
{
|
||||
printf("isqlodbc dsn[[,user][,pass]] [\"SQLCMD\"]\n");
|
||||
}
|
||||
|
||||
SQLFreeConnect( dbc );
|
||||
SQLFreeEnv( env );
|
||||
return 0;
|
||||
}
|
||||
@ -1,22 +0,0 @@
|
||||
|
||||
create table log (ldate date,ltime time,username char (30),userip char (16),bytein integer (10),byteout integer (10),service char (8), host char(255), hostport integer (10), url char (255) );
|
||||
|
||||
create index idate on log (ldate);
|
||||
create index iusername on log (username);
|
||||
create index iuserip on log (userip);
|
||||
create index ihost on log (host);
|
||||
|
||||
create table services (port integer(10),service char(100),description char (100));
|
||||
|
||||
INSERT INTO services values (80,'PROXY', 'Access to Web Server');
|
||||
INSERT INTO services values (21,'PROXY', 'Access to Ftp Server via HTTP proxy');
|
||||
INSERT INTO services values (5190,'PROXY', 'Access to ICQ via HTTP proxy');
|
||||
INSERT INTO services values (0, 'POP3P', 'Received Mail via POP3');
|
||||
INSERT INTO services values (0,'FTPPR', 'Access to Ftp server via FTP proxy');
|
||||
INSERT INTO services values (0,'SOCKS4', 'Access to external server via Socks v4');
|
||||
INSERT INTO services values (0,'SOCKS5', 'Access to external server via Socks v5');
|
||||
INSERT INTO services values (0,'TCPPM', 'Access to external server via TCP mapping');
|
||||
INSERT INTO services values (0,'UDPPM', 'Access to external server via UDP mapping');
|
||||
INSERT INTO services values (0, 0, NULL, 'Unknown');
|
||||
|
||||
|
||||
@ -1,63 +0,0 @@
|
||||
------------------------------ KOI8-R ------------------------------------
|
||||
Этот архив содержит набор CGI cкриптов и программ для получения
|
||||
статистики работы пользователей прокси сервера "3proxy", посредством анализа
|
||||
лога расположенного в ODBC источнике(базе), через Web интерфейс.
|
||||
|
||||
stat.awk - основной CGI скрипт (Для его испольнения под Win9X/2000 необходима
|
||||
программа awk.exe ,в linux/freebsd она как правило входит в сиситему
|
||||
по умолчанию).
|
||||
isqlodbc - программа для выполнения SQL запросов к базам ODBC
|
||||
(вызывается из stat.awk). компилируется gcc и работает как в
|
||||
win9X/2000 так и в linux/freebsd. (Так же может
|
||||
использоваться независимо от stat.awk как отдельная
|
||||
программа..)
|
||||
log.sql - SQL скрипт создания базы для лога сервера.
|
||||
awk.exe - awk интерпретатор под Win9X/2000.
|
||||
|
||||
Настройка скриптов статистики .
|
||||
|
||||
Для работы вам потребуется:
|
||||
1) любой http сервер подерживающий CGI
|
||||
2) odbc менеджер (под win32 ) или iodbc менеджер (под unix)
|
||||
любая база данных например : sqlite, mysql, postgress или любые другие
|
||||
имеющие ODBC драйвера.(Как настраивать iODBC под linux/freebsd смотрите в
|
||||
файле iodbc.txt в каталоге /doc/ru архива 3proxy.)
|
||||
|
||||
Шаг настройки N1:
|
||||
Создаем базу данных и DSN для хранения лога. ( в нашем случае DSN будет
|
||||
называться "sqlite".) далее выполняя скрипт log.sql создаем необходимые
|
||||
таблицы и индексы:
|
||||
|
||||
isqlodbc sqlite < log.sql
|
||||
|
||||
Шаг настройки N2:
|
||||
Устанавливаем DSN и формат таблицы с логом в файле 3proxy.cfg следующего вида:
|
||||
-----------
|
||||
# create table log (
|
||||
# ldate date,
|
||||
# ltime time,
|
||||
# username char (30),
|
||||
# userip char (16),
|
||||
# bytein integer (10),
|
||||
# byteout integer (10),
|
||||
# service char (8),
|
||||
# host char(255),
|
||||
# hostport integer (10),
|
||||
# url char (255)
|
||||
# );
|
||||
|
||||
log &sqlite
|
||||
logformat "Linsert into log values ('%Y-%m-%d','%H:%M:%S','%U','%C','%I','%O','%N','%n','%r','%T');"
|
||||
-----------
|
||||
|
||||
Шаг настройки N3:
|
||||
Копируем файлы isqlodbc и stat.awk в каталог с CGI скриптами http сервера
|
||||
и меняем в stat.awk путь вызова и DSN на свои значения , например:
|
||||
isql="./isqlodbc.exe sqlite "
|
||||
|
||||
Шаг настройки N4:
|
||||
Пробуем вызвать скрипт из web браузера , например
|
||||
|
||||
http://localhost/cgi/stat.awk?
|
||||
|
||||
------------------------------ KOI8-R ------------------------------------
|
||||
@ -1,129 +0,0 @@
|
||||
#!/usr/bin/awk -f
|
||||
BEGIN {
|
||||
scriptname = ENVIRON["SCRIPT_NAME"]
|
||||
#for win32
|
||||
isql=".\\isqlodbc.exe sqlite "
|
||||
|
||||
#for unix
|
||||
#isql="./isqlodbc sqlite "
|
||||
|
||||
|
||||
print "Content-Type: text/html; charset=koi8-r \n\n"
|
||||
print "<HTML>\n<BODY>\n";
|
||||
|
||||
# query parse
|
||||
query_str = ENVIRON["QUERY_STRING"]
|
||||
n = split(query_str, querys, "&")
|
||||
for (i=1; i<=n; i++)
|
||||
{
|
||||
split(querys[i], data, "=")
|
||||
qr[data[1]] = data[2]
|
||||
}
|
||||
|
||||
printf "<FORM METHOD=PUT action=\"" scriptname "?rep=1\">"
|
||||
printf "datefrom:<INPUT name=\"datefrom\" value=\"2004-06-01\"> "
|
||||
printf "dateto:<INPUT name=\"dateto\" value=\"2004-07-30\"> <br>"
|
||||
printf "<INPUT type=\"radio\" name=\"userid\" value=\"username\" checked> LOGIN user <br>"
|
||||
printf "<INPUT type=\"radio\" name=\"userid\" value=\"userip\"> IP user <br>"
|
||||
printf "<INPUT type=\"hidden\" name=\"rep\" value=\"user\">"
|
||||
printf "<INPUT type=\"submit\" value=\"Report\">"
|
||||
printf "</FORM>"
|
||||
|
||||
|
||||
#printf "query_str=%s\n<br>",query_str
|
||||
#print qr["rep"]
|
||||
|
||||
if(qr["rep"]=="user")
|
||||
{
|
||||
cmd = isql " \"select " qr["userid"] ",sum(bytein),sum(byteout),sum(bytein+byteout) from log \
|
||||
where ldate > '" qr["datefrom"] "' AND ldate < '" qr["dateto"] \
|
||||
"' group by " qr["userid"] " order by sum(bytein+byteout) desc;\""
|
||||
printf " <table WIDTH=100%% BORDER=1><tr><td><b>user</b></td> <td><b>bytein</b></td> <td><b>byteout</b> </td> <td> <b>bytesum</b></td></tr>"
|
||||
while( (cmd|getline result)>0)
|
||||
{
|
||||
split(result, rt, "|")
|
||||
printf "<tr> <td><a href=\"%s?rep=host&datefrom=%s&dateto=%s&userid=%s&selectid=%s\"> %s <\/a></td><td>%d</td><td>%d</td><td>%d</td></tr>",
|
||||
scriptname,qr["datefrom"],qr["dateto"],qr["userid"],rt[1],rt[1],rt[2],rt[3],rt[4]
|
||||
totalbytein=totalbytein+rt[2];
|
||||
totalbyteout=totalbyteout+rt[3];
|
||||
totalbytesum=totalbytesum+rt[4];
|
||||
}
|
||||
printf "<tr> <td><br>Total users</td> <td><br>%d</td> <td><br>%d</td> \
|
||||
<td><br>%d</td></tr> </table> ",totalbytein,totalbyteout, totalbytesum
|
||||
close(cmd)
|
||||
}
|
||||
|
||||
|
||||
if(qr["rep"]=="host")
|
||||
{
|
||||
cmd = isql "\"select sum(bytein+byteout), sum(bytein), sum(byteout),host from log \
|
||||
where ldate > '" qr["datefrom"] "' AND ldate < '"qr["dateto"] \
|
||||
"' AND " qr["userid"] " = '" qr["selectid"] \
|
||||
"' group by host order by sum(bytein+byteout) desc;\""
|
||||
|
||||
printf "<center><b>Detail statistic for user: %s</b></center>",qr["selectid"]
|
||||
printf " <table WIDTH=100%% BORDER=1> <tr><td><b>sum byte</b></td> <td><b>bytein</b></td> <td><b>byteout</b></td><td><b>host</b></td></tr>"
|
||||
while( (cmd|getline result)>0)
|
||||
{
|
||||
split(result, rt, "|")
|
||||
printf "<tr><td>%d</td><td>%d</td><td>%d</td><td>%s</td></tr>",rt[1],rt[2],rt[3],rt[4]
|
||||
totalbytein=totalbytein+rt[1];
|
||||
totalbyteout=totalbyteout+rt[2];
|
||||
totalbytesum=totalbytesum+rt[3];
|
||||
|
||||
}
|
||||
printf "<tr> <td><br>%d</td> <td><br>%d</td> \
|
||||
<td><br>%d</td><td><br>Total host</td></tr> </table> ",totalbytein,totalbyteout, totalbytesum
|
||||
printf " </table> "
|
||||
close(cmd)
|
||||
|
||||
}
|
||||
|
||||
printf " </BODY> </HTML>";
|
||||
} # end BEGIN
|
||||
|
||||
|
||||
# decode urlencoded string
|
||||
function decode(text, hex, i, hextab, decoded, len, c, c1, c2, code) {
|
||||
|
||||
split("0 1 2 3 4 5 6 7 8 9 a b c d e f", hex, " ")
|
||||
for (i=0; i<16; i++) hextab[hex[i+1]] = i
|
||||
|
||||
# urldecode function from Heiner Steven
|
||||
# http://www.shelldorado.com/scripts/cmds/urldecode
|
||||
|
||||
# decode %xx to ASCII char
|
||||
decoded = ""
|
||||
i = 1
|
||||
len = length(text)
|
||||
|
||||
while ( i <= len ) {
|
||||
c = substr (text, i, 1)
|
||||
if ( c == "%" )
|
||||
{
|
||||
if ( i+2 <= len )
|
||||
{
|
||||
c1 = tolower(substr(text, i+1, 1))
|
||||
c2 = tolower(substr(text, i+2, 1))
|
||||
if ( hextab [c1] != "" || hextab [c2] != "" ) {
|
||||
if ( (c1 >= 2 && (c1 != 7 && c2 != "F")) || (c1 == 0 && c2 ~ "[9acd]") )
|
||||
{
|
||||
code = 0 + hextab [c1] * 16 + hextab [c2] + 0
|
||||
c = sprintf ("%c", code)
|
||||
}
|
||||
else { c = " " }
|
||||
i = i + 2
|
||||
}
|
||||
}
|
||||
} else if ( c == "+" ) { # special handling: "+" means " "
|
||||
c = " "
|
||||
}
|
||||
decoded = decoded c
|
||||
++i
|
||||
}
|
||||
# change linebreaks to \n
|
||||
gsub(/\r\n/, "\n", decoded)
|
||||
# remove last linebreak
|
||||
sub(/[\n\r]*$/,"",decoded)
|
||||
return decoded
|
||||
}
|
||||
@ -1,185 +0,0 @@
|
||||
#!/usr/bin/perl
|
||||
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
|
||||
if $running_under_some_shell;
|
||||
# this emulates #! processing on NIH machines.
|
||||
# (remove #! line above if indigestible)
|
||||
|
||||
eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
|
||||
# process any FOO=bar switches
|
||||
|
||||
$[ = 1; # set array base to 1
|
||||
$, = ' '; # set output field separator
|
||||
$\ = "\n"; # set output record separator
|
||||
|
||||
$scriptname = $ENVIRON{'SCRIPT_NAME'};
|
||||
#for win32
|
||||
$isql = ".\\isqlodbc.exe sqlite ";
|
||||
|
||||
#for unix
|
||||
#isql="./isqlodbc sqlite "
|
||||
|
||||
print "Content-Type: text/html; charset=koi8-r \n\n";
|
||||
print "<HTML>\n<BODY>\n";
|
||||
|
||||
# query parse
|
||||
$query_str = $ENVIRON{'QUERY_STRING'};
|
||||
$n = (@querys = split(/&/, $query_str, 9999));
|
||||
for ($i = 1; $i <= $n; $i++) {
|
||||
@data = split(/=/, $querys[$i], 9999);
|
||||
$qr{$data[1]} = $data[2];
|
||||
}
|
||||
|
||||
printf "<FORM METHOD=PUT action=\"" . $scriptname . "?rep=1\">";
|
||||
printf "datefrom:<INPUT name=\"datefrom\" value=\"2004-06-01\"> ";
|
||||
printf "dateto:<INPUT name=\"dateto\" value=\"2004-07-30\"> <br>";
|
||||
printf
|
||||
|
||||
"<INPUT type=\"radio\" name=\"userid\" value=\"username\" checked> LOGIN user <br>";
|
||||
printf
|
||||
|
||||
"<INPUT type=\"radio\" name=\"userid\" value=\"userip\"> IP user <br>";
|
||||
printf "<INPUT type=\"hidden\" name=\"rep\" value=\"user\">";
|
||||
printf "<INPUT type=\"submit\" value=\"Report\">";
|
||||
printf '</FORM>';
|
||||
|
||||
#printf "query_str=%s\n<br>",query_str
|
||||
#print qr["rep"]
|
||||
|
||||
if ($qr{'rep'} eq 'user') {
|
||||
$cmd = $isql . " \"select " . $qr{'userid'} .
|
||||
|
||||
",sum(bytein),sum(byteout),sum(bytein+byteout) from log where ldate > '"
|
||||
|
||||
. $qr{'datefrom'} . "' AND ldate < '" . $qr{'dateto'} . "' group by " .
|
||||
|
||||
$qr{'userid'} . " order by sum(bytein+byteout) desc;\"";
|
||||
printf
|
||||
|
||||
' <table WIDTH=100%% BORDER=1><tr><td><b>user</b></td> <td><b>bytein</b></td> <td><b>byteout</b> </td> <td> <b>bytesum</b></td></tr>';
|
||||
while ((($result = &Getline3($cmd, '|'),$getline_ok)) > 0) {
|
||||
@rt = split(/\|/, $result, 9999);
|
||||
printf
|
||||
|
||||
"<tr> <td><a href=\"%s?rep=host&datefrom=%s&dateto=%s&userid=%s&selectid=%s\"> %s <\\/a></td><td>%d</td><td>%d</td><td>%d</td></tr>",
|
||||
|
||||
|
||||
$scriptname, $qr{'datefrom'}, $qr{'dateto'}, $qr{'userid'}, $rt[1],
|
||||
|
||||
$rt[1], $rt[2], $rt[3], $rt[4];
|
||||
$totalbytein = $totalbytein + $rt[2];
|
||||
$totalbyteout = $totalbyteout + $rt[3];
|
||||
$totalbytesum = $totalbytesum + $rt[4];
|
||||
}
|
||||
printf
|
||||
|
||||
'<tr> <td><br>Total users</td> <td><br>%d</td> <td><br>%d</td> <td><br>%d</td></tr> </table> ',
|
||||
|
||||
$totalbytein, $totalbyteout, $totalbytesum;
|
||||
delete $opened{$cmd} && close($cmd);
|
||||
}
|
||||
|
||||
if ($qr{'rep'} eq 'host') {
|
||||
$cmd = $isql .
|
||||
|
||||
"\"select sum(bytein+byteout), sum(bytein), sum(byteout),host from log where ldate > '"
|
||||
|
||||
. $qr{'datefrom'} . "' AND ldate < '" . $qr{'dateto'} . "' AND " .
|
||||
|
||||
$qr{'userid'} . " = '" . $qr{'selectid'} .
|
||||
|
||||
"' group by host order by sum(bytein+byteout) desc;\"";
|
||||
|
||||
printf '<center><b>Detail statistic for user: %s</b></center>',
|
||||
|
||||
$qr{'selectid'};
|
||||
printf
|
||||
|
||||
' <table WIDTH=100%% BORDER=1> <tr><td><b>sum byte</b></td> <td><b>bytein</b></td> <td><b>byteout</b></td><td><b>host</b></td></tr>';
|
||||
while ((($result = &Getline3($cmd, '|'),$getline_ok)) > 0) {
|
||||
@rt = split(/\|/, $result, 9999);
|
||||
printf '<tr><td>%d</td><td>%d</td><td>%d</td><td>%s</td></tr>',
|
||||
|
||||
$rt[1], $rt[2], $rt[3], $rt[4];
|
||||
$totalbytein = $totalbytein + $rt[1];
|
||||
$totalbyteout = $totalbyteout + $rt[2];
|
||||
$totalbytesum = $totalbytesum + $rt[3];
|
||||
}
|
||||
printf
|
||||
|
||||
'<tr> <td><br>%d</td> <td><br>%d</td> <td><br>%d</td><td><br>Total host</td></tr> </table> ',
|
||||
|
||||
$totalbytein, $totalbyteout, $totalbytesum;
|
||||
printf ' </table> ';
|
||||
delete $opened{$cmd} && close($cmd);
|
||||
}
|
||||
|
||||
printf ' </BODY> </HTML>';
|
||||
|
||||
# end BEGIN
|
||||
|
||||
# decode urlencoded string
|
||||
|
||||
sub decode {
|
||||
local($text, *Hex, $i, *hextab, $decoded, $len, $c, $c1, $c2, $code) = @_;
|
||||
@Hex = split(' ', '0 1 2 3 4 5 6 7 8 9 a b c d e f', 9999);
|
||||
for ($i = 0; $i < 16; $i++) {
|
||||
$hextab{$Hex[$i + 1]} = $i;
|
||||
|
||||
# urldecode function from Heiner Steven
|
||||
# http://www.shelldorado.com/scripts/cmds/urldecode
|
||||
|
||||
# decode %xx to ASCII char
|
||||
;
|
||||
}
|
||||
$decoded = '';
|
||||
$i = 1;
|
||||
$len = length($text);
|
||||
|
||||
while ($i <= $len) { #???
|
||||
$c = substr($text, $i, 1);
|
||||
if ($c eq '%') {
|
||||
if ($i + 2 <= $len) {
|
||||
$c1 = &tolower(substr($text, $i + 1, 1));
|
||||
$c2 = &tolower(substr($text, $i + 2, 1));
|
||||
if ($hextab{$c1} ne '' || $hextab{$c2} ne '') {
|
||||
if (($c1 >= 2 && ($c1 != 7 && $c2 ne 'F')) ||
|
||||
|
||||
($c1 == 0 && $c2 =~ '[9acd]')) {
|
||||
$code = 0 + $hextab{$c1} * 16 + $hextab{$c2} + 0;
|
||||
$c = sprintf('%c', $code);
|
||||
}
|
||||
else {
|
||||
$c = ' ';
|
||||
}
|
||||
$i = $i + 2;
|
||||
}
|
||||
}
|
||||
}
|
||||
elsif ($c eq '+') {
|
||||
# special handling: "+" means " "
|
||||
$c = ' ';
|
||||
}
|
||||
$decoded = $decoded . $c;
|
||||
++$i;
|
||||
}
|
||||
# change linebreaks to \n
|
||||
$decoded =~ s/\r\n/\n/g;
|
||||
# remove last linebreak
|
||||
$decoded =~ s/[\n\r]*$//;
|
||||
$decoded;
|
||||
}
|
||||
|
||||
sub Getline3 {
|
||||
&Pick('',@_);
|
||||
local($_);
|
||||
if ($getline_ok = (($_ = <$fh>) ne '')) {
|
||||
;
|
||||
}
|
||||
$_;
|
||||
}
|
||||
|
||||
sub Pick {
|
||||
local($mode,$name,$pipe) = @_;
|
||||
$fh = $name;
|
||||
open($name,$mode.$name.$pipe) unless $opened{$name}++;
|
||||
}
|
||||
Loading…
Reference in New Issue
Block a user