mirror of
https://github.com/vincentmli/bpfire.git
synced 2026-04-09 18:45:54 +02:00
WIO: first addon release v1.3.1
Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>
This commit is contained in:
Stephan Feddersen
committed by
Michael Tremer
Michael Tremer
parent
12b0bd949a
commit
0d6cc79d98
45
config/rootfiles/packages/wio
Normal file
45
config/rootfiles/packages/wio
Normal file
@@ -0,0 +1,45 @@
|
||||
srv/web/ipfire/cgi-bin/wio.cgi
|
||||
srv/web/ipfire/cgi-bin/wiographs.cgi
|
||||
etc/fcron.minutely/wio
|
||||
var/ipfire/wio
|
||||
var/ipfire/wio/wio.conf
|
||||
var/ipfire/wio/wio.pl
|
||||
var/ipfire/wio/wiovpn.pl
|
||||
usr/lib/wio
|
||||
usr/lib/wio/wio-lib.pl
|
||||
usr/lib/wio/wio-graphs.pl
|
||||
usr/local/bin/wiohelper
|
||||
usr/local/bin/wioscan
|
||||
var/log/wio
|
||||
var/log/wio/wioips
|
||||
var/log/rrd/wio
|
||||
var/ipfire/addon-lang/wio.de.pl
|
||||
var/ipfire/addon-lang/wio.en.pl
|
||||
var/ipfire/menu.d/EX-wio.menu
|
||||
srv/web/ipfire/html/images/wio
|
||||
srv/web/ipfire/html/images/wio/add.png
|
||||
srv/web/ipfire/html/images/wio/back.png
|
||||
srv/web/ipfire/html/images/wio/blue.png
|
||||
srv/web/ipfire/html/images/wio/fqdn.png
|
||||
srv/web/ipfire/html/images/wio/graph.png
|
||||
srv/web/ipfire/html/images/wio/green.png
|
||||
srv/web/ipfire/html/images/wio/http.png
|
||||
srv/web/ipfire/html/images/wio/https.png
|
||||
srv/web/ipfire/html/images/wio/ip.png
|
||||
srv/web/ipfire/html/images/wio/mailgreenoff.png
|
||||
srv/web/ipfire/html/images/wio/mailgreenon.png
|
||||
srv/web/ipfire/html/images/wio/mailredoff.png
|
||||
srv/web/ipfire/html/images/wio/mailredon.png
|
||||
srv/web/ipfire/html/images/wio/no_graph.png
|
||||
srv/web/ipfire/html/images/wio/none.png
|
||||
srv/web/ipfire/html/images/wio/orange.png
|
||||
srv/web/ipfire/html/images/wio/ovpn.png
|
||||
srv/web/ipfire/html/images/wio/ovpnn2n.png
|
||||
srv/web/ipfire/html/images/wio/ovpnrw.png
|
||||
srv/web/ipfire/html/images/wio/red.png
|
||||
srv/web/ipfire/html/images/wio/refresh.png
|
||||
srv/web/ipfire/html/images/wio/vpnn2n.png
|
||||
srv/web/ipfire/html/images/wio/vpn.png
|
||||
srv/web/ipfire/html/images/wio/vpnrw.png
|
||||
srv/web/ipfire/html/images/wio/white.png
|
||||
var/ipfire/backup/addons/includes/wio
|
||||
65
lfs/wio
Normal file
65
lfs/wio
Normal file
@@ -0,0 +1,65 @@
|
||||
###############################################################################
|
||||
# IPFire.org - An Open Source Firewall Solution #
|
||||
# Copyright (C) - IPFire Development Team <info@ipfire.org> #
|
||||
###############################################################################
|
||||
|
||||
###############################################################################
|
||||
# Definitions
|
||||
###############################################################################
|
||||
|
||||
include Config
|
||||
|
||||
VER = 1.3.1
|
||||
|
||||
THISAPP = wio-$(VER)
|
||||
DIR_APP = $(DIR_SRC)/$(THISAPP)
|
||||
TARGET = $(DIR_INFO)/$(THISAPP)
|
||||
PROG = wio
|
||||
PAK_VER = 1
|
||||
|
||||
###############################################################################
|
||||
# Top-level Rules
|
||||
###############################################################################
|
||||
|
||||
install : $(TARGET)
|
||||
|
||||
check :
|
||||
|
||||
download :
|
||||
|
||||
md5 :
|
||||
|
||||
dist:
|
||||
@$(PAK)
|
||||
|
||||
###############################################################################
|
||||
# Installation Details
|
||||
###############################################################################
|
||||
|
||||
$(TARGET) : $(patsubst %,$(DIR_DL)/%,$(objects))
|
||||
@$(PREBUILD)
|
||||
@rm -rf $(DIR_APP) && mkdir $(DIR_APP) && cp -R $(DIR_SRC)/src/wio/ $(DIR_APP)
|
||||
cd $(DIR_APP)
|
||||
mkdir -p /usr/lib/wio
|
||||
mkdir -p /var/log/wio
|
||||
mkdir -p /var/log/rrd/wio
|
||||
mkdir -p /srv/web/ipfire/html/images/wio
|
||||
mkdir -p /var/ipfire/wio
|
||||
|
||||
install -v -m 755 $(DIR_APP)/wio/wio.cgi /srv/web/ipfire/cgi-bin/
|
||||
install -v -m 755 $(DIR_APP)/wio/wiographs.cgi /srv/web/ipfire/cgi-bin/
|
||||
install -v -m 755 $(DIR_APP)/wio/wio /etc/fcron.minutely/
|
||||
install -v -m 644 $(DIR_APP)/wio/main/wio.conf /var/ipfire/wio/
|
||||
install -v -m 754 $(DIR_APP)/wio/main/wio.pl /var/ipfire/wio/
|
||||
install -v -m 754 $(DIR_APP)/wio/main/wiovpn.pl /var/ipfire/wio/
|
||||
install -v -m 644 $(DIR_APP)/wio/wio-lib.pl /usr/lib/wio/
|
||||
install -v -m 644 $(DIR_APP)/wio/wio-graphs.pl /usr/lib/wio/
|
||||
install -v -m 644 $(DIR_APP)/wio/wioips /var/log/wio/
|
||||
install -v -m 644 $(DIR_APP)/wio/images/* /srv/web/ipfire/html/images/wio/
|
||||
install -v -m 655 $(DIR_APP)/wio/lang/wio.de.pl /var/ipfire/addon-lang/
|
||||
install -v -m 655 $(DIR_APP)/wio/lang/wio.en.pl /var/ipfire/addon-lang/
|
||||
install -v -m 655 $(DIR_APP)/wio/EX-wio.menu /var/ipfire/menu.d/
|
||||
install -v -m 644 $(DIR_APP)/wio/config/backup/includes/wio /var/ipfire/backup/addons/includes/wio
|
||||
|
||||
@rm -rf $(DIR_APP)
|
||||
@$(POSTBUILD)
|
||||
1
make.sh
1
make.sh
@@ -885,6 +885,7 @@ buildipfire() {
|
||||
lfsmake2 perl-common-sense
|
||||
lfsmake2 perl-inotify2
|
||||
lfsmake2 perl-Net-IP
|
||||
lfsmake2 wio
|
||||
}
|
||||
|
||||
buildinstaller() {
|
||||
|
||||
@@ -26,7 +26,7 @@ PROGS = iowrap
|
||||
SUID_PROGS = squidctrl sshctrl ipfirereboot \
|
||||
ipsecctrl timectrl dhcpctrl snortctrl \
|
||||
applejuicectrl rebuildhosts backupctrl collectdctrl \
|
||||
logwatch openvpnctrl firewallctrl \
|
||||
logwatch wioscan wiohelper openvpnctrl firewallctrl \
|
||||
wirelessctrl getipstat qosctrl launch-ether-wake \
|
||||
redctrl syslogdctrl extrahdctrl sambactrl upnpctrl \
|
||||
smartctrl clamavctrl addonctrl pakfire mpfirectrl wlanapctrl \
|
||||
|
||||
129
src/misc-progs/list.h
Normal file
129
src/misc-progs/list.h
Normal file
@@ -0,0 +1,129 @@
|
||||
/* list.h by Jan Bobrowski. Inspired by list.h from Linux */
|
||||
|
||||
#ifndef LIST_H
|
||||
#define LIST_H
|
||||
|
||||
typedef struct list {
|
||||
struct list *next, *prev;
|
||||
} list_t;
|
||||
|
||||
static inline void list_link(struct list *a, struct list *b)
|
||||
{
|
||||
a->next = b;
|
||||
b->prev = a;
|
||||
}
|
||||
|
||||
static inline void list_add(struct list *head, struct list *item)
|
||||
{
|
||||
struct list *first = head->next;
|
||||
list_link(head, item);
|
||||
list_link(item, first);
|
||||
}
|
||||
|
||||
static inline void list_add_end(struct list *head, struct list *item)
|
||||
{
|
||||
struct list *last = head->prev;
|
||||
list_link(item, head);
|
||||
list_link(last, item);
|
||||
}
|
||||
|
||||
static inline list_t *list_del(struct list *item)
|
||||
{
|
||||
struct list *prev = item->prev, *next = item->next;
|
||||
list_link(prev, next);
|
||||
return next;
|
||||
}
|
||||
|
||||
static inline void list_init(struct list *head)
|
||||
{
|
||||
list_link(head, head);
|
||||
}
|
||||
|
||||
/* delete item from one list and add it to another */
|
||||
static inline void list_del_add(list_t *head, list_t *item)
|
||||
{
|
||||
list_t *prev = item->prev, *next = item->next;
|
||||
list_link(prev, next);
|
||||
next = head->next;
|
||||
list_link(head, item);
|
||||
list_link(item, next);
|
||||
}
|
||||
|
||||
/*static inline list_check(list_t *l)
|
||||
{
|
||||
list_t *a = l;
|
||||
list_t *b;
|
||||
do {
|
||||
b = a->next;
|
||||
assert(b->prev == a);
|
||||
if(a==l) break;
|
||||
a = b;
|
||||
} while(1);
|
||||
}*/
|
||||
|
||||
static inline void list_del_add_end(list_t *head, list_t *item)
|
||||
{
|
||||
list_t *prev = item->prev, *next = item->next;
|
||||
list_link(prev, next);
|
||||
prev = head->prev;
|
||||
list_link(item, head);
|
||||
item->prev = prev;
|
||||
prev->next = item;
|
||||
}
|
||||
|
||||
static inline void list_del_init(struct list *item)
|
||||
{
|
||||
struct list *prev = item->prev, *next = item->next;
|
||||
list_link(item, item);
|
||||
list_link(prev, next);
|
||||
}
|
||||
|
||||
static inline void list_join(struct list *a, struct list *b)
|
||||
{
|
||||
list_t *ae = a->prev;
|
||||
list_t *be = b->prev;
|
||||
b->prev = ae;
|
||||
a->prev = be;
|
||||
ae->next = b;
|
||||
be->next = a;
|
||||
}
|
||||
|
||||
static inline int list_empty(struct list *head)
|
||||
{
|
||||
return head->next == head;
|
||||
}
|
||||
|
||||
#define LIST(L) struct list L = {&L, &L}
|
||||
|
||||
#define list_entry(L, T, M) ((T*)((char*)(L) - (long)(&((T*)0)->M)))
|
||||
#define list_item(L, T, M) ((T*)((char*)(L) - (long)(&((T*)0)->M)))
|
||||
|
||||
#define list_first(H, T, M) list_item((H)->next, T, M)
|
||||
#define list_last(H, T, M) list_item((H)->prev, T, M)
|
||||
#define list_next(O, M) list_item((O)->M.next, typeof(*(O)), M)
|
||||
|
||||
/* remove first element and return it */
|
||||
static inline struct list *list_get(struct list *head)
|
||||
{
|
||||
struct list *item = head->next;
|
||||
struct list *next = item->next;
|
||||
list_link(head, next);
|
||||
return item;
|
||||
}
|
||||
|
||||
/* remove first element, initialize and return it */
|
||||
static inline struct list *list_get_init(struct list *head)
|
||||
{
|
||||
struct list *item = head->next;
|
||||
struct list *next = item->next;
|
||||
list_link(item, item);
|
||||
list_link(head, next);
|
||||
return item;
|
||||
}
|
||||
|
||||
#define list_get_entry(H, T, M) list_item(list_get((H)), T, M)
|
||||
#define list_get_init_entry(H, T, M) list_item(list_get_init((H)), T, M)
|
||||
#define list_get_item(H, T, M) list_item(list_get((H)), T, M)
|
||||
#define list_get_init_item(H, T, M) list_item(list_get_init((H)), T, M)
|
||||
|
||||
#endif
|
||||
31
src/misc-progs/wiohelper.c
Normal file
31
src/misc-progs/wiohelper.c
Normal file
@@ -0,0 +1,31 @@
|
||||
/* wiohelper - a Who Is Online? Addon helper program
|
||||
*
|
||||
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
||||
*
|
||||
* This program is distributed under the terms of the GNU General Public
|
||||
* Licence. See the file COPYING for details.
|
||||
*
|
||||
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
||||
*
|
||||
* IPFire.org - A linux based firewall
|
||||
* Copyright (C) 2017 Stephan Feddersen <addons@h-loit.de>
|
||||
*
|
||||
* All Rights Reserved.
|
||||
*
|
||||
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
||||
*
|
||||
* Simple program intended to be installed setuid(0) that can be used from WIO
|
||||
*
|
||||
*/
|
||||
|
||||
#include "setuid.h"
|
||||
|
||||
int main(void)
|
||||
{
|
||||
if (!(initsetuid()))
|
||||
exit(1);
|
||||
|
||||
safe_system("/var/ipfire/wio/wio.pl");
|
||||
|
||||
return 0;
|
||||
}
|
||||
665
src/misc-progs/wioscan.c
Normal file
665
src/misc-progs/wioscan.c
Normal file
@@ -0,0 +1,665 @@
|
||||
/*
|
||||
* wioscan
|
||||
*
|
||||
* This program is free software; you can redistribute it and/or
|
||||
* modify it under the terms of the GNU General Public License
|
||||
* version 2 as published by the Free Software Foundation.
|
||||
*/
|
||||
|
||||
#define _GNU_SOURCE
|
||||
#include <sys/types.h>
|
||||
#include <unistd.h>
|
||||
#include <string.h>
|
||||
#include <stdlib.h>
|
||||
#include <stdio.h>
|
||||
#include <poll.h>
|
||||
#include <errno.h>
|
||||
#include <err.h>
|
||||
#include <sys/ioctl.h>
|
||||
#include <sys/socket.h>
|
||||
#include <netpacket/packet.h>
|
||||
#include <net/ethernet.h>
|
||||
#include <net/if.h>
|
||||
#include <net/if_arp.h>
|
||||
#include <netinet/ether.h>
|
||||
#include <arpa/inet.h>
|
||||
#include <stdint.h>
|
||||
#include <fcntl.h>
|
||||
#include <sys/stat.h>
|
||||
#include <sys/mman.h>
|
||||
|
||||
#define _STR(S) #S
|
||||
#define STR(S) _STR(S)
|
||||
|
||||
#define ARP htons(ETHERTYPE_ARP)
|
||||
#define IP htons(ETHERTYPE_IP)
|
||||
|
||||
typedef uint8_t u8;
|
||||
typedef uint16_t u16;
|
||||
typedef uint32_t u32;
|
||||
|
||||
#include "list.h"
|
||||
#define elemof(T) (sizeof T/sizeof*T)
|
||||
#define endof(T) (T+elemof(T))
|
||||
#ifndef offsetof
|
||||
#define offsetof(T,M) ((int)(long)&((T*)0)->M)
|
||||
#endif
|
||||
|
||||
#define HWMAX 8
|
||||
|
||||
union addr {
|
||||
struct sockaddr sa;
|
||||
struct sockaddr_in in;
|
||||
struct sockaddr_ll ll;
|
||||
};
|
||||
|
||||
int sock; /* packet socket */
|
||||
union addr bcast;
|
||||
|
||||
struct opts {
|
||||
unsigned sort:1;
|
||||
unsigned noown:1;
|
||||
unsigned noethn:1;
|
||||
unsigned proui:1;
|
||||
unsigned isrange:1;
|
||||
unsigned passive:1;
|
||||
unsigned nsend;
|
||||
unsigned wait;
|
||||
} opts = {nsend:8, wait:250};
|
||||
|
||||
void print_oui(int sp, u8 a[6]);
|
||||
|
||||
struct he;
|
||||
void print_he(struct he *he);
|
||||
|
||||
struct hwaddr {
|
||||
u8 len, addr[HWMAX];
|
||||
};
|
||||
|
||||
static inline hw_eq(struct hwaddr *h, int hl, u8 *ha)
|
||||
{
|
||||
return h->len == hl && memcmp(h->addr, ha, hl) == 0;
|
||||
}
|
||||
|
||||
static inline void hw_set(struct hwaddr *h, int hl, u8 *ha)
|
||||
{
|
||||
memcpy(h->addr, ha, (h->len = hl));
|
||||
}
|
||||
|
||||
struct ifinfo {
|
||||
int index;
|
||||
char *name;
|
||||
u32 ip, net, mask, bcast;
|
||||
u16 hw_type;
|
||||
struct hwaddr hw;
|
||||
} ifinfo;
|
||||
|
||||
static inline u32 ip_from_sa(struct sockaddr *sa)
|
||||
{
|
||||
return ntohl(((struct sockaddr_in*)sa)->sin_addr.s_addr);
|
||||
}
|
||||
|
||||
/* TABLE */
|
||||
|
||||
struct list hashtbl[128];
|
||||
struct he {
|
||||
struct list hash;
|
||||
u32 ip;
|
||||
struct hwaddr hw;
|
||||
struct hwaddr from;
|
||||
};
|
||||
|
||||
static void init_hash() __attribute__((constructor));
|
||||
static void init_hash()
|
||||
{
|
||||
int i;
|
||||
for(i=0;i<elemof(hashtbl);i++) list_init(&hashtbl[i]);
|
||||
}
|
||||
|
||||
int he_for(u32 ip, struct he **ret, int alloc)
|
||||
{
|
||||
struct list *h, *l;
|
||||
struct he *he;
|
||||
int v = 1;
|
||||
h = &hashtbl[ip & elemof(hashtbl)-1];
|
||||
for(l=h->next; l!=h; l=l->next) {
|
||||
he = list_entry(l, struct he, hash);
|
||||
if(he->ip == ip)
|
||||
goto ret;
|
||||
if(he->ip > ip)
|
||||
break;
|
||||
}
|
||||
v = 0;
|
||||
if(alloc) {
|
||||
he = (struct he*)malloc(sizeof *he);
|
||||
he->ip = ip;
|
||||
list_add(l->prev, &he->hash);
|
||||
ret:
|
||||
if(ret) *ret = he;
|
||||
}
|
||||
return v;
|
||||
}
|
||||
|
||||
/* INTERFACE */
|
||||
|
||||
static int net;
|
||||
|
||||
static void my__ioctl(int i, struct ifreq *r, char *t)
|
||||
{
|
||||
if(ioctl(net, i, r) < 0)
|
||||
err(1, "ioctl(%s,%s)", t, r->ifr_name);
|
||||
}
|
||||
#define my_ioctl(I,R) my__ioctl(I,R,#I)
|
||||
|
||||
void fill_ifinfo(char *name)
|
||||
{
|
||||
struct ifreq ir;
|
||||
int flags;
|
||||
|
||||
ifinfo.index = if_nametoindex(name);
|
||||
if(!ifinfo.index) errx(1, "No such interface: %s", name);
|
||||
ifinfo.name = name;
|
||||
|
||||
net = socket(PF_INET, SOCK_DGRAM, 0);
|
||||
if(net<0) err(1, "socket(PF_INET)");
|
||||
strcpy(ir.ifr_name, ifinfo.name);
|
||||
my_ioctl(SIOCGIFFLAGS, &ir);
|
||||
flags = ir.ifr_flags;
|
||||
if(flags & IFF_NOARP) errx(1, "%s: ARP not supported.", name);
|
||||
my_ioctl(SIOCGIFADDR, &ir);
|
||||
ifinfo.ip = ip_from_sa(&ir.ifr_addr);
|
||||
if(flags & IFF_POINTOPOINT) {
|
||||
my_ioctl(SIOCGIFDSTADDR, &ir);
|
||||
ifinfo.net = ip_from_sa(&ir.ifr_dstaddr);
|
||||
ifinfo.mask = (u32)~0;
|
||||
ifinfo.bcast = 0; /* none */
|
||||
} else {
|
||||
my_ioctl(SIOCGIFNETMASK, &ir);
|
||||
ifinfo.mask = ip_from_sa(&ir.ifr_netmask);
|
||||
my_ioctl(SIOCGIFBRDADDR, &ir);
|
||||
ifinfo.bcast = ip_from_sa(&ir.ifr_broadaddr);
|
||||
ifinfo.net = ifinfo.ip & ifinfo.mask;
|
||||
}
|
||||
close(net);
|
||||
}
|
||||
|
||||
static inline char *str_ip(u32 ip)
|
||||
{
|
||||
struct in_addr n;
|
||||
n.s_addr = htonl(ip);
|
||||
return inet_ntoa(n);
|
||||
}
|
||||
|
||||
char *str_hw(u8 *a, int l)
|
||||
{
|
||||
static char buf[3*HWMAX];
|
||||
char *d = buf;
|
||||
if(!l) return "*";
|
||||
if(l>HWMAX) l=HWMAX;
|
||||
for(;;) {
|
||||
d += sprintf(d, "%02X", *a++);
|
||||
if(--l <= 0) break;
|
||||
*d++ = ':';
|
||||
}
|
||||
*d = 0;
|
||||
return buf;
|
||||
}
|
||||
|
||||
static char *str_addr(union addr *addr)
|
||||
{
|
||||
switch(addr->sa.sa_family) {
|
||||
case AF_INET: return inet_ntoa(addr->in.sin_addr);
|
||||
case AF_PACKET: return str_hw(addr->ll.sll_addr, addr->ll.sll_halen);
|
||||
default: return "???";
|
||||
}
|
||||
}
|
||||
|
||||
static inline void setup_socket()
|
||||
{
|
||||
union addr addr;
|
||||
socklen_t l;
|
||||
|
||||
sock = socket(PF_PACKET, SOCK_DGRAM, 0);
|
||||
if(sock < 0) err(1, "socket(PF_PACKET)");
|
||||
|
||||
memset(&addr.ll, 0, sizeof addr.ll);
|
||||
addr.sa.sa_family = AF_PACKET;
|
||||
addr.ll.sll_protocol = ARP;
|
||||
addr.ll.sll_ifindex = ifinfo.index;
|
||||
|
||||
if(bind(sock, &addr.sa, sizeof addr.ll)<0)
|
||||
err(1, "bind");
|
||||
l = sizeof addr.ll;
|
||||
if(getsockname(sock, &addr.sa, &l)<0)
|
||||
err(1, "getsockname");
|
||||
|
||||
if(addr.ll.sll_halen > HWMAX)
|
||||
errx(1, "hardware address too long (%d)", addr.ll.sll_halen);
|
||||
ifinfo.hw.len = addr.ll.sll_halen;
|
||||
memcpy(ifinfo.hw.addr, addr.ll.sll_addr, sizeof ifinfo.hw.addr);
|
||||
ifinfo.hw_type = addr.ll.sll_hatype;
|
||||
}
|
||||
|
||||
/* SCAN */
|
||||
|
||||
struct arppkt {
|
||||
u16 hrd, pro;
|
||||
u8 hln, pln;
|
||||
u16 op;
|
||||
u8 a[2*HWMAX+2*4];
|
||||
/* u8 sha[6];
|
||||
u8 sip[4];
|
||||
u8 tha[6];
|
||||
u8 tip[4];*/
|
||||
};
|
||||
|
||||
static inline u8 *get_sha(struct arppkt *pkt) {return pkt->a;}
|
||||
static inline u8 *get_tha(struct arppkt *pkt) {return pkt->a+pkt->hln+4;}
|
||||
static inline u32 get_sip(struct arppkt *pkt) {return ntohl(*(u32*)(pkt->a+pkt->hln));}
|
||||
static inline u32 get_tip(struct arppkt *pkt) {return ntohl(*(u32*)(pkt->a+2*pkt->hln+4));}
|
||||
|
||||
#if 0
|
||||
void print_arp(struct arppkt *arp)
|
||||
{
|
||||
u8 *p = arp->a;
|
||||
printf("hrd:%04X pro:%04X ", ntohs(arp->hrd), ntohs(arp->pro));
|
||||
printf("hln:%d pln:%d op:%d ", arp->hln, arp->pln, ntohs(arp->op));
|
||||
printf("sha:%s ", str_hw(p, arp->hln)); p+=arp->hln;
|
||||
printf("sip:%s ", str_ip(ntohl(*(u32*)p))); p+=arp->pln;
|
||||
printf("tha:%s ", str_hw(p, arp->hln)); p+=arp->hln;
|
||||
printf("tip:%s\n", str_ip(ntohl(*(u32*)p)));
|
||||
}
|
||||
#endif
|
||||
|
||||
static struct scan {
|
||||
u32 ip, start, end;
|
||||
} scan;
|
||||
|
||||
#define IN_RANGE(I) ((I) >= scan.start && (I) <= (u32)(scan.end-1))
|
||||
|
||||
int sendscan()
|
||||
{
|
||||
struct arppkt arp;
|
||||
int ns;
|
||||
u8 *p;
|
||||
|
||||
arp.hrd = htons(ifinfo.hw_type);
|
||||
arp.pro = IP;
|
||||
arp.hln = ifinfo.hw.len;
|
||||
arp.pln = 4;
|
||||
arp.op = htons(1);
|
||||
p = arp.a;
|
||||
memcpy(p, ifinfo.hw.addr, ifinfo.hw.len); p += ifinfo.hw.len;
|
||||
*(u32*)p = htonl(ifinfo.ip); p += 4;
|
||||
memset(p, 0, ifinfo.hw.len); p += ifinfo.hw.len;
|
||||
|
||||
ns = 0;
|
||||
while(scan.ip != scan.end) {
|
||||
int v;
|
||||
if(scan.ip == ifinfo.bcast || he_for(scan.ip, 0, 0)) {
|
||||
scan.ip++;
|
||||
continue;
|
||||
}
|
||||
*(u32*)p = htonl(scan.ip);
|
||||
v = sendto(sock, &arp, p+4-(u8*)&arp, 0, &bcast.sa, sizeof bcast.ll);
|
||||
if(v<0) {
|
||||
if(errno != ENOBUFS || opts.nsend <= 1)
|
||||
err(1, "send(%s)", str_addr(&bcast));
|
||||
opts.nsend--;
|
||||
return -1;
|
||||
}
|
||||
scan.ip++;
|
||||
if(++ns >= opts.nsend) break;
|
||||
}
|
||||
return ns;
|
||||
}
|
||||
|
||||
void compare_resp(struct he *he, union addr *src, int hln, u8 *sha)
|
||||
{
|
||||
if(hw_eq(&he->hw, hln, sha)
|
||||
&& hw_eq(&he->from, src->ll.sll_halen, src->ll.sll_addr))
|
||||
return;
|
||||
|
||||
fprintf(stderr, "%s: ", str_ip(he->ip));
|
||||
fprintf(stderr, "inconsistency: %s", str_hw(sha, hln));
|
||||
if(src->ll.sll_halen != hln || memcmp(src->ll.sll_addr, sha, hln))
|
||||
fprintf(stderr, " from %s",
|
||||
str_hw(src->ll.sll_addr, src->ll.sll_halen));
|
||||
fprintf(stderr, ", was %s\n", str_hw(he->hw.addr, he->hw.len));
|
||||
if(!hw_eq(&he->hw, he->from.len, he->from.addr))
|
||||
fprintf(stderr, " from %s",
|
||||
str_hw(he->from.addr, he->from.len));
|
||||
}
|
||||
|
||||
int arp_recv(struct arppkt *pkt, union addr *src)
|
||||
{
|
||||
socklen_t l = sizeof *src;
|
||||
int v = recvfrom(sock, pkt, sizeof *pkt, 0, &src->sa, &l);
|
||||
if(v < 0) err(1, "recvfrom");
|
||||
if(v < offsetof(struct arppkt, a))
|
||||
return 0;
|
||||
if(pkt->pro != IP)
|
||||
return 0;
|
||||
if(pkt->hrd != htons(ifinfo.hw_type) || pkt->hln != ifinfo.hw.len)
|
||||
return 0;
|
||||
if(v < offsetof(struct arppkt, a) + 2*pkt->hln + 2*4)
|
||||
return 0;
|
||||
return 1;
|
||||
}
|
||||
|
||||
void receive()
|
||||
{
|
||||
union addr addr;
|
||||
struct arppkt arp;
|
||||
struct he *he;
|
||||
u32 ip;
|
||||
|
||||
if(!arp_recv(&arp, &addr))
|
||||
return;
|
||||
if(arp.op != htons(2)) /* only responses */
|
||||
return;
|
||||
|
||||
ip = get_sip(&arp);
|
||||
|
||||
if(!he_for(ip, &he, 1)) {
|
||||
hw_set(&he->hw, arp.hln, get_sha(&arp));
|
||||
hw_set(&he->from, addr.ll.sll_halen, addr.ll.sll_addr);
|
||||
if(opts.sort) return;
|
||||
if(opts.isrange && !IN_RANGE(ip)) return;
|
||||
print_he(he);
|
||||
} else
|
||||
compare_resp(he, &addr, arp.hln, get_sha(&arp));
|
||||
}
|
||||
|
||||
/**/
|
||||
|
||||
void passive()
|
||||
{
|
||||
for(;;) {
|
||||
struct arppkt arp;
|
||||
union addr src;
|
||||
if(!arp_recv(&arp, &src))
|
||||
continue;
|
||||
printf("%s: ", str_addr(&src));
|
||||
printf("%s %-15s ", str_hw(get_sha(&arp),arp.hln),
|
||||
str_ip(get_sip(&arp)));
|
||||
switch(htons(arp.op)) {
|
||||
case 1:
|
||||
printf("Q %s", str_ip(get_tip(&arp)));
|
||||
break;
|
||||
case 2:
|
||||
printf("A %s %s", str_hw(get_tha(&arp),arp.hln),
|
||||
str_ip(get_tip(&arp)));
|
||||
break;
|
||||
default:
|
||||
printf("%X", htons(arp.op));
|
||||
}
|
||||
putchar('\n');
|
||||
}
|
||||
}
|
||||
|
||||
/**/
|
||||
|
||||
int waitsock(int n)
|
||||
{
|
||||
int v;
|
||||
struct pollfd pollfd;
|
||||
pollfd.fd = sock;
|
||||
pollfd.events = POLLIN;
|
||||
v = poll(&pollfd, 1, n);
|
||||
if(v < 0) {
|
||||
if(errno != EINTR)
|
||||
err(1, "poll");
|
||||
v = 0;
|
||||
}
|
||||
return v;
|
||||
}
|
||||
|
||||
void print_he(struct he *he)
|
||||
{
|
||||
int l, w;
|
||||
if(opts.noown && he->ip == ifinfo.ip)
|
||||
return;
|
||||
printf("%s,", str_hw(he->hw.addr, he->hw.len));
|
||||
l = 15 - printf("%s", str_ip(he->ip));
|
||||
w = 0;
|
||||
if(!opts.proui && !hw_eq(&he->from, he->hw.len, he->hw.addr))
|
||||
w = 1, l = 1;
|
||||
|
||||
if(opts.proui)
|
||||
print_oui(l, he->hw.addr);
|
||||
else if(!opts.noethn) {
|
||||
#if !defined __dietlibc_ && !defined __UCLIBC__
|
||||
char nm[1024];
|
||||
if(!ether_ntohost(nm, (struct ether_addr*)he->hw.addr))
|
||||
printf("%*s%s", l, "", nm);
|
||||
#endif
|
||||
}
|
||||
if(w)
|
||||
printf(" from %s", str_hw(he->from.addr, he->from.len));
|
||||
putchar('\n');
|
||||
}
|
||||
|
||||
static int parse_iprange(char *p)
|
||||
{
|
||||
char *e;
|
||||
u32 ip=0;
|
||||
int sh;
|
||||
|
||||
for(sh = 24;; sh -= 8) {
|
||||
unsigned long v;
|
||||
|
||||
v = strtoul(p, &e, 10);
|
||||
if(p == e || v > 255)
|
||||
return 0;
|
||||
|
||||
ip |= v << sh;
|
||||
|
||||
p = e + 1;
|
||||
if(*e == '/') {
|
||||
v = strtoul(p, &e, 10);
|
||||
if(p == e || *e || v > 32)
|
||||
return 0;
|
||||
if(v) {
|
||||
v = 32 - v;
|
||||
if(sh > v)
|
||||
return 0;
|
||||
mask:
|
||||
v = ~0 << v;
|
||||
}
|
||||
scan.start = ip & v;
|
||||
scan.end = scan.start - v;
|
||||
return 1;
|
||||
}
|
||||
|
||||
if(!sh) break;
|
||||
|
||||
v = sh;
|
||||
if(!*e)
|
||||
goto mask;
|
||||
|
||||
if(*e != '.')
|
||||
return 0;
|
||||
|
||||
if(!*p || *p == '*' && !p[1])
|
||||
goto mask;
|
||||
}
|
||||
|
||||
scan.start = ip;
|
||||
scan.end = ip + 1;
|
||||
|
||||
if(*e == '-') {
|
||||
u32 end = 0, m = ~0;
|
||||
|
||||
do {
|
||||
unsigned long v = strtoul(p, &e, 10);
|
||||
if(p == e || v > 255)
|
||||
return 0;
|
||||
p = e + 1;
|
||||
end = end<<8 | v;
|
||||
m <<= 8;
|
||||
} while(m && *e);
|
||||
|
||||
if(*e)
|
||||
return 0;
|
||||
|
||||
end |= ip & m;
|
||||
if(end < ip)
|
||||
return 0;
|
||||
|
||||
scan.end = end + 1;
|
||||
return 1;
|
||||
}
|
||||
return *e == 0;
|
||||
}
|
||||
|
||||
int main(int argc, char **argv)
|
||||
{
|
||||
for(;;) switch(getopt(argc, argv, "fsaepwlh")) {
|
||||
case 'f': opts.sort=0; break;
|
||||
case 's': opts.sort=1; break;
|
||||
case 'a': opts.noown=1; break;
|
||||
case 'e': opts.noethn=1; break;
|
||||
case 'p': opts.proui=1; break;
|
||||
case 'w': opts.nsend=2; opts.wait=1000; break;
|
||||
case 'l': opts.passive=1; break;
|
||||
case 'h':
|
||||
printf(
|
||||
"wioscan [-faep] [interface] [ip-range]\n"
|
||||
"\t-s sort responses\n"
|
||||
"\t-a do not list interface's own address\n"
|
||||
#if !defined __dietlibc_ && !defined __UCLIBC__
|
||||
"\t-e do not include info from /etc/ethers\n"
|
||||
#endif
|
||||
"\t-p print vendor names\n"
|
||||
"\t-w slow operation\n"
|
||||
"\t-l listen only (not promiscuous)\n"
|
||||
"ip-range: ip ip/bits ip-ip\n"
|
||||
);
|
||||
return 0;
|
||||
case EOF:
|
||||
goto endopt;
|
||||
}
|
||||
endopt:
|
||||
|
||||
{
|
||||
char *dev = "eth0";
|
||||
if(optind<argc && (*argv[optind] < '0' || *argv[optind] > '9'))
|
||||
dev = argv[optind++];
|
||||
fill_ifinfo(dev);
|
||||
setup_socket();
|
||||
}
|
||||
|
||||
if(optind>=argc) {
|
||||
scan.start = ifinfo.net;
|
||||
scan.end = (ifinfo.net | ~ifinfo.mask) + 1;
|
||||
} else {
|
||||
if(!parse_iprange(argv[optind]))
|
||||
errx(1, "%s: bad IP range", argv[optind]);
|
||||
opts.isrange = 1;
|
||||
}
|
||||
|
||||
if(ifinfo.hw_type != ARPHRD_ETHER)
|
||||
opts.proui = 0, opts.noethn = 1;
|
||||
|
||||
if(opts.passive)
|
||||
passive();
|
||||
|
||||
/* hw broadcast address is Linux's secret, this works with Ethernet */
|
||||
bcast.sa.sa_family = AF_PACKET;
|
||||
bcast.ll.sll_protocol = ARP;
|
||||
bcast.ll.sll_ifindex = ifinfo.index;
|
||||
bcast.ll.sll_hatype = ifinfo.hw_type;
|
||||
bcast.ll.sll_pkttype = PACKET_BROADCAST; /* unused :-( */
|
||||
bcast.ll.sll_halen = ifinfo.hw.len;
|
||||
memset(bcast.ll.sll_addr, 0xFF, ifinfo.hw.len);
|
||||
|
||||
if(IN_RANGE(ifinfo.ip)) {
|
||||
/* XXX we should add all our arpable addresses on the interface */
|
||||
struct he *he;
|
||||
he_for(ifinfo.ip, &he, 1);
|
||||
hw_set(&he->hw, ifinfo.hw.len, ifinfo.hw.addr);
|
||||
hw_set(&he->from, ifinfo.hw.len, ifinfo.hw.addr);
|
||||
if(!opts.sort)
|
||||
print_he(he);
|
||||
}
|
||||
|
||||
/* 1st scan */
|
||||
scan.ip = scan.start;
|
||||
while(sendscan()) {
|
||||
while(waitsock(10))
|
||||
receive();
|
||||
}
|
||||
/* 2nd scan */
|
||||
scan.ip = scan.start;
|
||||
while(sendscan()) {
|
||||
while(waitsock(10))
|
||||
receive();
|
||||
}
|
||||
while(waitsock(opts.wait))
|
||||
receive();
|
||||
|
||||
if(opts.sort) for(scan.ip = ifinfo.net; scan.ip != scan.end; scan.ip++) {
|
||||
struct he *he;
|
||||
if(he_for(scan.ip, &he, 0))
|
||||
print_he(he);
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
typedef uint8_t u8;
|
||||
static int fd = -2;
|
||||
static char *ouiptr, *ouiend;
|
||||
|
||||
static void open_oui()
|
||||
{
|
||||
struct stat st;
|
||||
fd = open("oui", O_RDONLY);
|
||||
if(fd < 0) {
|
||||
fd = open(STR(OUI), O_RDONLY);
|
||||
if(fd < 0) goto err;
|
||||
}
|
||||
if(fstat(fd, &st) < 0 || st.st_size == 0) goto err_cl;
|
||||
ouiptr = mmap(0, st.st_size, PROT_READ, MAP_PRIVATE, fd, 0);
|
||||
ouiend = ouiptr + st.st_size;
|
||||
if(ouiptr == MAP_FAILED) {
|
||||
err_cl:
|
||||
close(fd); fd=-1;
|
||||
err:
|
||||
warnx("Can't open OUI database");
|
||||
return;
|
||||
}
|
||||
#ifdef MADV_SEQUENTIAL
|
||||
madvise(ouiptr, st.st_size, MADV_SEQUENTIAL);
|
||||
#endif
|
||||
}
|
||||
|
||||
void print_oui(int sp, u8 a[6])
|
||||
{
|
||||
char addr[7], *p, *q;
|
||||
if(fd < 0) {
|
||||
if(fd == -2)
|
||||
open_oui();
|
||||
if(fd < 0)
|
||||
return;
|
||||
}
|
||||
sprintf(addr, "%02X%02X%02X", a[0], a[1], a[2]);
|
||||
|
||||
for(p=ouiptr; p<ouiend; p=q+1) {
|
||||
q = memchr(p, '\n', ouiend-p);
|
||||
if(!q) q=ouiend;
|
||||
if(q-p < 8 || memcmp(p, addr, 6))
|
||||
continue;
|
||||
|
||||
p += 7;
|
||||
print:
|
||||
printf("%*s%.*s", sp, "", (int)(q-p), p);
|
||||
return;
|
||||
}
|
||||
if(a[0]==0 && a[1]==0xFF) {
|
||||
p = "(generated)";
|
||||
q = p + 11;
|
||||
goto print;
|
||||
}
|
||||
}
|
||||
37
src/paks/wio/install.sh
Normal file
37
src/paks/wio/install.sh
Normal file
@@ -0,0 +1,37 @@
|
||||
#!/bin/bash
|
||||
############################################################################
|
||||
# #
|
||||
# This file is part of the IPFire Firewall. #
|
||||
# #
|
||||
# IPFire is free software; you can redistribute it and/or modify #
|
||||
# it under the terms of the GNU General Public License as published by #
|
||||
# the Free Software Foundation; either version 2 of the License, or #
|
||||
# (at your option) any later version. #
|
||||
# #
|
||||
# IPFire is distributed in the hope that it will be useful, #
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of #
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
|
||||
# GNU General Public License for more details. #
|
||||
# #
|
||||
# You should have received a copy of the GNU General Public License #
|
||||
# along with IPFire; if not, write to the Free Software #
|
||||
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA #
|
||||
# #
|
||||
# Copyright (C) 2009 IPFire-Team <info@ipfire.org>. #
|
||||
# #
|
||||
############################################################################
|
||||
#
|
||||
. /opt/pakfire/lib/functions.sh
|
||||
extract_files
|
||||
restore_backup ${NAME}
|
||||
|
||||
chown -R nobody.nobody /var/ipfire/wio
|
||||
chown -R nobody.nobody /var/log/rrd/wio
|
||||
chown -R nobody.nobody /var/log/wio
|
||||
chown root.nobody /usr/local/bin/wioscan
|
||||
chown root.nobody /usr/local/bin/wiohelper
|
||||
|
||||
chmod 4750 /usr/local/bin/wioscan
|
||||
chmod 4750 /usr/local/bin/wiohelper
|
||||
|
||||
/usr/local/bin/update-lang-cache
|
||||
28
src/paks/wio/uninstall.sh
Normal file
28
src/paks/wio/uninstall.sh
Normal file
@@ -0,0 +1,28 @@
|
||||
#!/bin/bash
|
||||
############################################################################
|
||||
# #
|
||||
# This file is part of the IPFire Firewall. #
|
||||
# #
|
||||
# IPFire is free software; you can redistribute it and/or modify #
|
||||
# it under the terms of the GNU General Public License as published by #
|
||||
# the Free Software Foundation; either version 2 of the License, or #
|
||||
# (at your option) any later version. #
|
||||
# #
|
||||
# IPFire is distributed in the hope that it will be useful, #
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of #
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
|
||||
# GNU General Public License for more details. #
|
||||
# #
|
||||
# You should have received a copy of the GNU General Public License #
|
||||
# along with IPFire; if not, write to the Free Software #
|
||||
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA #
|
||||
# #
|
||||
# Copyright (C) 2014 IPFire-Team <alexander.marx@ipfire.org> #
|
||||
# #
|
||||
############################################################################
|
||||
|
||||
. /opt/pakfire/lib/functions.sh
|
||||
make_backup ${NAME}
|
||||
remove_files
|
||||
|
||||
/usr/local/bin/update-lang-cache
|
||||
26
src/paks/wio/update.sh
Normal file
26
src/paks/wio/update.sh
Normal file
@@ -0,0 +1,26 @@
|
||||
#!/bin/bash
|
||||
############################################################################
|
||||
# #
|
||||
# This file is part of the IPFire Firewall. #
|
||||
# #
|
||||
# IPFire is free software; you can redistribute it and/or modify #
|
||||
# it under the terms of the GNU General Public License as published by #
|
||||
# the Free Software Foundation; either version 2 of the License, or #
|
||||
# (at your option) any later version. #
|
||||
# #
|
||||
# IPFire is distributed in the hope that it will be useful, #
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of #
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
|
||||
# GNU General Public License for more details. #
|
||||
# #
|
||||
# You should have received a copy of the GNU General Public License #
|
||||
# along with IPFire; if not, write to the Free Software #
|
||||
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA #
|
||||
# #
|
||||
# Copyright (C) 2007 IPFire-Team <info@ipfire.org>. #
|
||||
# #
|
||||
############################################################################
|
||||
#
|
||||
. /opt/pakfire/lib/functions.sh
|
||||
./uninstall.sh
|
||||
./install.sh
|
||||
6
src/wio/EX-wio.menu
Normal file
6
src/wio/EX-wio.menu
Normal file
@@ -0,0 +1,6 @@
|
||||
$substatus->{'55.wio'} = {
|
||||
'caption' => "$Lang::tr{'wio'}",
|
||||
'uri' => '/cgi-bin/wio.cgi',
|
||||
'title' => "$Lang::tr{'wio'}",
|
||||
'enabled' => 1,
|
||||
};
|
||||
2
src/wio/config/backup/includes/wio
Normal file
2
src/wio/config/backup/includes/wio
Normal file
@@ -0,0 +1,2 @@
|
||||
/var/ipfire/wio/wio.conf
|
||||
/var/log/wio
|
||||
BIN
src/wio/images/add.png
Normal file
BIN
src/wio/images/add.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 300 B |
BIN
src/wio/images/back.png
Normal file
BIN
src/wio/images/back.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 315 B |
BIN
src/wio/images/blue.png
Normal file
BIN
src/wio/images/blue.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 177 B |
BIN
src/wio/images/fqdn.png
Normal file
BIN
src/wio/images/fqdn.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 526 B |
BIN
src/wio/images/graph.png
Normal file
BIN
src/wio/images/graph.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 260 B |
BIN
src/wio/images/green.png
Normal file
BIN
src/wio/images/green.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 177 B |
BIN
src/wio/images/http.png
Normal file
BIN
src/wio/images/http.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 349 B |
BIN
src/wio/images/https.png
Normal file
BIN
src/wio/images/https.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 444 B |
BIN
src/wio/images/ip.png
Normal file
BIN
src/wio/images/ip.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 326 B |
BIN
src/wio/images/mailgreenoff.png
Normal file
BIN
src/wio/images/mailgreenoff.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 540 B |
BIN
src/wio/images/mailgreenon.png
Normal file
BIN
src/wio/images/mailgreenon.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 566 B |
BIN
src/wio/images/mailredoff.png
Normal file
BIN
src/wio/images/mailredoff.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 534 B |
BIN
src/wio/images/mailredon.png
Normal file
BIN
src/wio/images/mailredon.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 552 B |
BIN
src/wio/images/no_graph.png
Normal file
BIN
src/wio/images/no_graph.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 276 B |
BIN
src/wio/images/none.png
Normal file
BIN
src/wio/images/none.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 297 B |
BIN
src/wio/images/orange.png
Normal file
BIN
src/wio/images/orange.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 178 B |
BIN
src/wio/images/ovpn.png
Normal file
BIN
src/wio/images/ovpn.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 178 B |
BIN
src/wio/images/ovpnn2n.png
Normal file
BIN
src/wio/images/ovpnn2n.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 207 B |
BIN
src/wio/images/ovpnrw.png
Normal file
BIN
src/wio/images/ovpnrw.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 188 B |
BIN
src/wio/images/red.png
Normal file
BIN
src/wio/images/red.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 177 B |
BIN
src/wio/images/refresh.png
Normal file
BIN
src/wio/images/refresh.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 1.7 KiB |
BIN
src/wio/images/vpn.png
Normal file
BIN
src/wio/images/vpn.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 178 B |
BIN
src/wio/images/vpnn2n.png
Normal file
BIN
src/wio/images/vpnn2n.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 207 B |
BIN
src/wio/images/vpnrw.png
Normal file
BIN
src/wio/images/vpnrw.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 188 B |
BIN
src/wio/images/white.png
Normal file
BIN
src/wio/images/white.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 214 B |
156
src/wio/lang/wio.de.pl
Normal file
156
src/wio/lang/wio.de.pl
Normal file
@@ -0,0 +1,156 @@
|
||||
%tr = (%tr,
|
||||
'wio' => 'Who Is Online?',
|
||||
'wio stat' => 'Status:',
|
||||
'wio checked' => 'zuletzt überprüft',
|
||||
'wio name' => 'Hostname / FQDN',
|
||||
'wio ipadress' => 'IP-Adresse',
|
||||
'wio image' => 'Zustand',
|
||||
'wio up' => 'AKTIV',
|
||||
'wio down' => 'INAKTIV',
|
||||
'wio err' => 'Fehler',
|
||||
'wio warn' => 'Warnung',
|
||||
'wio_import_csv' => 'CSV Datei',
|
||||
'wio_import_hosts' => 'Hosts Datei (var/ipfire/main/hosts)',
|
||||
'wio_import_data' => 'Einstellungen für ',
|
||||
'wio_import_data1' => ' bearbeiten:',
|
||||
'wio_import_data2' => ' importieren:',
|
||||
'wio_import' => 'Importieren',
|
||||
'wio_import_info' => 'Mitteilung:',
|
||||
'wio_import_file' => 'Client(s) importieren aus:',
|
||||
'wio_import_info_csv' => 'Es gibt keine neuen Einstellungen zu importieren!',
|
||||
'wio settings' => 'Konfiguration:',
|
||||
'wio enabled' => 'aktivieren?',
|
||||
'wio min' => 'Minute(n)',
|
||||
'wio cron' => 'Zeitintervall für die Überprüfung:',
|
||||
'wio_ovpn_cron' => 'Zeitintervall für die Überprüfung des OpenVPN RW und IPSec Status:',
|
||||
'wio_save' => 'speichern',
|
||||
'wio_error' => 'Fehlermeldung:',
|
||||
'wio_info' => 'Meldung:',
|
||||
'wio_back' => 'zurück',
|
||||
'wio_use' => 'Diese Einstellungen importieren?',
|
||||
'wio_ip_error' => 'Ungültige IP-Adresse!',
|
||||
'wio_host_error' => 'Ungültiger Hostname!',
|
||||
'wio_host_exists' => 'Hostname wird schon benutzt!',
|
||||
'wio_host_empty' => 'Es wurde kein Hostname eingetragen!',
|
||||
'wio_ip_exists' => 'IP-Adresse wird schon benutzt!',
|
||||
'wio_ip_empty' => 'Es wurde keine IP-Adresse eingetragen!',
|
||||
'wio_import_fixleases' => 'DHCP Datei (var/ipfire/dhcp/fixleases)',
|
||||
'wio_import_leases' => 'Einstellungen importieren:',
|
||||
'wio network' => 'Netzwerk',
|
||||
'wio_refresh' => 'alle Clients aktualisieren',
|
||||
'wio_fqdn_error' => 'Ungültiger Fully Qualified Domain Name (FQDN)! Bitte keine Sonderzeichen, Umlaute oder Leerzeichen beim FQDN verwenden.',
|
||||
'wio_edit' => 'Einstellungen bearbeiten:',
|
||||
'wio_dyndns' => 'DynDNS',
|
||||
'wio_dyndns_hosts' => 'DynDNS Name(n)',
|
||||
'wio_dyndns_refresh' => 'DynDNS IP aktualisieren',
|
||||
'wio_dyndns_on' => 'DynDNS Host aktiviert (klicken, um zu deaktivieren)',
|
||||
'wio_dyndns_off' => 'DynDNS Host deaktiviert (klicken, um zu aktivieren)',
|
||||
'wio_dyndns_info' => 'Keine IP eingetragen, da scheinbar keine Verbindung ins Internet besteht. Bei der nächsten Verbindung ins Internet wird eine Aktualisierung der IP des DynDNS Hostes durchgeführt.',
|
||||
'wio_no_csv' => 'Die Datei hat nicht die Erweiterung .csv',
|
||||
'wio_no_csv_error' => 'Bitte keine Sonderzeichen, Umlaute oder Leerzeichen im Dateinamen verwenden.',
|
||||
'wio_no_file_selected' => 'Es wurde keine Datei ausgewählt!',
|
||||
'wio_import_infos' => 'Einstellungen importieren:',
|
||||
'wio_import_infos_csv' => 'ACHTUNG: Es werden nur die Datensätze importiert, bei denen die Option "Diese Einstellungen importieren?" aktiviert ist! Sollten Datensätze mit doppelten IP-Adressen oder Hostnamen vorkommen, wird der zu erst aufgeführte Datensatz importiert und die anderen Datensätze (mit den doppelten IP-Adressen oder Hostnamen) werden nicht berücksichtigt!',
|
||||
'enable disable dyndns' => 'DynDNS Host aktivieren oder deaktivieren',
|
||||
'wio_msg' => 'Zustand (aktiv/inaktiv) des Clients / der Clients wird aktualisiert ...',
|
||||
'wio_lanname' => 'LAN Hostname',
|
||||
'wio_wanname' => 'WAN Hostname',
|
||||
'wio_wancheck' => 'verbunden seit',
|
||||
'wio_sc_refresh' => 'Client aktualisieren',
|
||||
'wio_edit_settings' => 'Client hinzufügen:',
|
||||
'wio_edit_client' => 'Client bearbeiten:',
|
||||
'wio_graphs' => 'Graphen anzeigen',
|
||||
'wio_no_graphs' => 'keine Graphen vorhanden',
|
||||
'wio_graphs_stat' => 'Diagramme für',
|
||||
'wio_vpn_con' => 'VPN - Verbindung(en):',
|
||||
'wio_wan_con' => 'WAN - Verbindung:',
|
||||
'wio_clients' => 'Clients:',
|
||||
'wio click to disable' => 'Aktiviert',
|
||||
'wio click to enable' => 'Deaktiviert',
|
||||
'wio_net_scan' => 'Netzwerk(e) durchsuchen:',
|
||||
'wio_net_scan_vl' => '',
|
||||
'wio_net_scan_l' => 'Netzwerk an',
|
||||
'wio_net_scan_r' => 'durchsuchen:',
|
||||
'wio_net_scan_green' => 'grünes',
|
||||
'wio_net_scan_blue' => 'blaues',
|
||||
'wio_net_scan_orange' => 'oranges',
|
||||
'wio_net_scan_run' => 'starten',
|
||||
'wio_sort_host' => 'nach Hostnamen (FQDN) sortieren',
|
||||
'wio_sort_ip' => 'nach IP Adressen sortieren',
|
||||
'wio_logging' => 'Logging (/var/log/messages) aktivieren?',
|
||||
'wio_no_image' => 'KEIN STATUS',
|
||||
'wio_ovpn_con' => 'OpenVPN - Verbindung(en):',
|
||||
'wio_ovpn_connected' => 'verbunden seit',
|
||||
'wio_wan_up' => 'VERBUNDEN',
|
||||
'wio_wan_down' => 'GETRENNT',
|
||||
'wio_n2n' => 'Netz-zu-Netz Verbindung',
|
||||
'wio_rw' => 'Host-zu-Netz Verbindung',
|
||||
'wio_mailremark_enabled' => 'Anmerkung des Clients mit in Mailtext übernehmen?',
|
||||
'wio_mail_online_on' => 'Online-E-Mail aktiviert (klicken, um zu deaktivieren)',
|
||||
'wio_mail_online_off' => 'Online-E-Mail deaktiviert (klicken, um zu aktivieren)',
|
||||
'wio_mail_offline_on' => 'Offline-E-Mail aktiviert (klicken, um zu deaktivieren)',
|
||||
'wio_mail_offline_off' => 'Offline-E-Mail deaktiviert (klicken, um zu aktivieren)',
|
||||
'wio_mail_online' => 'Online E-Mail aktivieren oder deaktivieren',
|
||||
'wio_mail_offline' => 'Offline E-Mail aktivieren oder deaktivieren',
|
||||
'wio_sendemail' => 'E-Mail senden wenn',
|
||||
'wio_hwaddress' => 'HW-Adresse',
|
||||
'wio_iface' => 'Schnittstelle',
|
||||
'wio_client_enable' => 'Client aktivieren?',
|
||||
'wio_ping_send' => 'überprüfen per',
|
||||
'enable disable client' => 'Client aktivieren oder deaktivieren',
|
||||
'wio_client_on' => 'Überwachung aktiviert (klicken, um zu deaktivieren)',
|
||||
'wio_client_off' => 'Überwachung deaktiviert (klicken, um zu aktivieren)',
|
||||
'wio_webinterface' => 'LINK',
|
||||
'wio_webinterface_link' => 'Link öffnen',
|
||||
'wio_ip' => 'überprüfen per IP aktiviert',
|
||||
'wio_fqdn' => 'überprüfen per FQDN aktiviert',
|
||||
'wio_ip_on' => 'überprüfen per IP aktiviert (klicken, um per FQDN zu aktivieren)',
|
||||
'wio_fqdn_on' => 'überprüfen per FQDN aktiviert (klicken, um per IP zu aktivieren)',
|
||||
'wio_client_add' => 'Eingaben anwenden',
|
||||
'wio_config' => 'Client(s) konfigurieren:',
|
||||
'wio_settings_msg' => 'Einstellungen bearbeiten:',
|
||||
'wio_settings_msg_hint' => 'Um Who Is Online? benutzen zu können, müssen hier grundsätzliche Einstellungen vorgenommen werden.',
|
||||
'wio_sub' => 'WIO Client-Status-Mail',
|
||||
'wio timeout' => 'Ping Timeout:',
|
||||
'wio sec' => 'Sekunde(n)',
|
||||
'wio_add' => 'Client hinzufügen:',
|
||||
'wio_no_add' => 'Client ist vorhanden',
|
||||
'wio_id' => '#',
|
||||
'wio_online' => 'online',
|
||||
'wio_offline' => 'offline',
|
||||
'wio_status' => 'WIO Client-Status',
|
||||
'wio_mail_style' => 'WIO Client Statusmails versenden als',
|
||||
'wio_mail_smail' => 'Sammelmail',
|
||||
'wio_mail_email' => 'Einzelmails',
|
||||
'wio_mail_ovpnrw' => 'OpenVPN RW und IPSec Statusmails aktivieren?',
|
||||
'wio_edit_set' => 'Konfiguration',
|
||||
'wio_service' => 'Service:',
|
||||
'wio_dyndns_success' => 'DynDNS IP ermittelt und eingetragen!',
|
||||
'wio_remove_all' => 'alle Clients löschen',
|
||||
'wio_remove_all_hint' => 'Möchten Sie wirklich alle Clients löschen?',
|
||||
'wio_remove_client' => 'Client löschen',
|
||||
'wio_remove_client_hint' => 'Möchten Sie den Client wirklich löschen?',
|
||||
'wio_arp_table_entries' => 'Client aus der ARP-Tabelle hinzufügen:',
|
||||
'wio_activ' => 'aktiv',
|
||||
'wio_check' => 'prüfen',
|
||||
'wio_common_name' => 'Remote Host / IP',
|
||||
'wio_msg_left' => 'Das',
|
||||
'wio_msg_green' => 'grüne',
|
||||
'wio_msg_blue' => 'blaue',
|
||||
'wio_msg_orange' => 'orange',
|
||||
'wio_msg_center' => 'Netzwerk an',
|
||||
'wio_msg_right' => 'wird durchsucht.',
|
||||
'wio_msg_hint' => 'Einen Moment bitte ...',
|
||||
'wio_last_update' => 'zuletzt aktualisiert',
|
||||
'wio_disable_hint' => 'Achtung! Es werden alle Einstellungen incl. der zu überprüfenden Clients zurückgesetzt!',
|
||||
'wio_clientremark' => 'Anmerkung anzeigen?',
|
||||
'wio_already_running' => 'Die Prüfung wird bereits durchgeführt!',
|
||||
'wio_error_function' => 'Diese Funktion kann im Moment nicht ausgeführt werden, da im Hintergrund gerade der Zustand (aktiv/inaktiv) der Clients aktualisiert wird.',
|
||||
'wio_shutdown' => 'Herunterfahren, wenn alle Clients "offline" sind?',
|
||||
'wio_unknown_lan' => 'UNBEKANNT',
|
||||
'wio_red_lan' => 'ROT',
|
||||
'wio_search' => 'Suche im lokalen Netzwerk nach aktiven Hosts ...',
|
||||
'wio_answer' => 'Antwort',
|
||||
'wio_answer_time' => 'Antwortzeit',
|
||||
'wio_scriptruntime' => 'Scriptlaufzeit',
|
||||
);
|
||||
156
src/wio/lang/wio.en.pl
Normal file
156
src/wio/lang/wio.en.pl
Normal file
@@ -0,0 +1,156 @@
|
||||
%tr = (%tr,
|
||||
'wio' => 'Who Is Online?',
|
||||
'wio stat' => 'Current condition(s):',
|
||||
'wio checked' => 'Last checked',
|
||||
'wio name' => 'Hostname or FQDN',
|
||||
'wio ipadress' => 'IP-Address',
|
||||
'wio image' => 'Condition',
|
||||
'wio up' => 'Active',
|
||||
'wio down' => 'Inactive',
|
||||
'wio err' => 'Error',
|
||||
'wio warn' => 'Warning',
|
||||
'wio_import_csv' => 'CSV file:',
|
||||
'wio_import_hosts' => 'hosts configuration (var/ipfire/main/hosts) ?',
|
||||
'wio_import_data' => 'import settings for ',
|
||||
'wio_import_data1' => ' correct:',
|
||||
'wio_import_data2' => ' import:',
|
||||
'wio_import' => 'Importing',
|
||||
'wio_import_info' => 'message:',
|
||||
'wio_import_file' => 'Import settings from:',
|
||||
'wio_import_info_csv' => 'There are no new settings to import!',
|
||||
'wio settings' => 'configuration:',
|
||||
'wio enabled' => 'enable ?',
|
||||
'wio min' => 'Minute(s)',
|
||||
'wio cron' => 'Time interval for checking:',
|
||||
'wio_ovpn_cron' => 'Time interval for checking the OpenVPN RW and IPSec Status:',
|
||||
'wio_save' => 'save',
|
||||
'wio_error' => 'errormessage:',
|
||||
'wio_info' => 'message:',
|
||||
'wio_back' => 'back',
|
||||
'wio_use' => 'Import these settings ?',
|
||||
'wio_ip_error' => 'Invalid IP Address.',
|
||||
'wio_host_error' => 'Invalid Hostname.',
|
||||
'wio_host_exists' => 'Hostname is already used.',
|
||||
'wio_host_empty' => 'No Hostname was registered!',
|
||||
'wio_ip_exists' => 'IP Address is already used.',
|
||||
'wio_ip_empty' => 'No IP Address was registered!',
|
||||
'wio_import_fixleases' => 'DHCP configuration (var/ipfire/dhcp/fixleases) ?',
|
||||
'wio_import_leases' => 'Import settings:',
|
||||
'wio network' => 'Network',
|
||||
'wio_refresh' => 'update all clients now',
|
||||
'wio_fqdn_error' => 'Invalid Fully Qualified Domain Name (FQDN)! Please do not use special characters or blanks in the FQDN.',
|
||||
'wio_edit' => 'change settings:',
|
||||
'wio_dyndns' => 'DynDNS',
|
||||
'wio_dyndns_hosts' => 'DynDNS Name(s)',
|
||||
'wio_dyndns_refresh' => 'DynDNS Host IP update',
|
||||
'wio_dyndns_on' => 'DynDNS Host enabled (click to disable)',
|
||||
'wio_dyndns_off' => 'DynDNS Host disabled (click to enable)',
|
||||
'wio_dyndns_info' => 'None IP registered, since apparently no connection exists in Internet. With the next connection in Internet is accomplished an actualization of the IP of the DynDNS Hostes.',
|
||||
'wio_no_csv' => 'File has not the extension .csv',
|
||||
'wio_no_csv_error' => 'Please do not use special characters or blanks in the filename.',
|
||||
'wio_no_file_selected' => 'No File selected!',
|
||||
'wio_import_infos' => 'Import settings:',
|
||||
'wio_import_infos_csv' => 'NOTE: Only Data records with marked "Import these settings ?" are considered by importing! If data records with double IP-Addresses or Hostnames should occur, only the first data record will be imported and the other data records (with the double IP-Addresses or Hostnames) will not be considered!',
|
||||
'enable disable dyndns' => 'enable or disable DynDNS Host',
|
||||
'wio_msg' => 'Condition of the examining Client(s) are updated ...',
|
||||
'wio_lanname' => 'LAN Hostname',
|
||||
'wio_wanname' => 'WAN Hostname',
|
||||
'wio_wancheck' => 'connected since',
|
||||
'wio_sc_refresh' => 'update client now',
|
||||
'wio_edit_settings' => 'add client:',
|
||||
'wio_edit_client' => 'edit client:',
|
||||
'wio_graphs' => 'show graphs',
|
||||
'wio_no_graphs' => 'no graphs available',
|
||||
'wio_graphs_stat' => 'Diagramm for',
|
||||
'wio_vpn_con' => 'VPN - Connection(s):',
|
||||
'wio_wan_con' => 'WAN - Connection:',
|
||||
'wio_clients' => 'clients:',
|
||||
'wio click to disable' => 'Activated',
|
||||
'wio click to enable' => 'Deactivated',
|
||||
'wio_net_scan' => 'Scan Network(s):',
|
||||
'wio_net_scan_vl' => 'scan',
|
||||
'wio_net_scan_l' => 'Network on',
|
||||
'wio_net_scan_r' => '',
|
||||
'wio_net_scan_green' => 'green',
|
||||
'wio_net_scan_blue' => 'blue',
|
||||
'wio_net_scan_orange' => 'orange',
|
||||
'wio_net_scan_run' => 'start',
|
||||
'wio_sort_host' => 'sort Hostnames (FQDN)',
|
||||
'wio_sort_ip' => 'sort IP-Adresses',
|
||||
'wio_logging' => 'activate Logging (/var/log/messages) ?',
|
||||
'wio_no_image' => 'NO STATUS',
|
||||
'wio_ovpn_con' => 'OpenVPN - Connection(s):',
|
||||
'wio_ovpn_connected' => 'connected since',
|
||||
'wio_wan_up' => 'CONNECTED',
|
||||
'wio_wan_down' => 'NOT CONNECTED',
|
||||
'wio_n2n' => 'Net-to-Net Connection',
|
||||
'wio_rw' => 'Host-to-Net Connection',
|
||||
'wio_mailremark_enabled' => 'Add Remark from client to mailbody ?',
|
||||
'wio_mail_online_on' => 'online email enabled (click to disable)',
|
||||
'wio_mail_online_off' => 'online email disabled (click to enable)',
|
||||
'wio_mail_offline_on' => 'offline email enabled (click to disable)',
|
||||
'wio_mail_offline_off' => 'offline emaildisabled (click to enable)',
|
||||
'wio_mail_online' => 'enable or disable online email',
|
||||
'wio_mail_offline' => 'enable or disable offline email',
|
||||
'wio_sendemail' => 'send email',
|
||||
'wio_hwaddress' => 'HW-Adresse',
|
||||
'wio_iface' => 'Interface',
|
||||
'wio_client_enable' => 'enable Host ?',
|
||||
'wio_ping_send' => 'send ping to',
|
||||
'enable disable client' => 'enable or disable client',
|
||||
'wio_client_on' => 'Client enabled (click to disable)',
|
||||
'wio_client_off' => 'Client disabled (click to enable)',
|
||||
'wio_webinterface' => 'LINK',
|
||||
'wio_webinterface_link' => 'follow link',
|
||||
'wio_ip' => 'send ping to IP enabled',
|
||||
'wio_fqdn' => 'send ping to FQDN enabled',
|
||||
'wio_ip_on' => 'send ping to IP enabled (click to enable FQDN)',
|
||||
'wio_fqdn_on' => 'send ping to FQDN enabled (click to enable IP)',
|
||||
'wio_client_add' => 'use settings',
|
||||
'wio_config' => 'configurate Client(s):',
|
||||
'wio_settings_msg' => 'configurate settings:',
|
||||
'wio_settings_msg_hint' => 'Here you have to set some values to get the addon started.',
|
||||
'wio_sub' => 'WIO Client-Status-Mail',
|
||||
'wio timeout' => 'Ping Timeout:',
|
||||
'wio sec' => 'Second(s)',
|
||||
'wio_add' => 'add Client:',
|
||||
'wio_no_add' => 'Client is available',
|
||||
'wio_id' => '#',
|
||||
'wio_online' => 'online',
|
||||
'wio_offline' => 'offline',
|
||||
'wio_status' => 'WIO Client-Status',
|
||||
'wio_mail_style' => 'send WIO Client Statusmails as',
|
||||
'wio_mail_smail' => 'collected mail',
|
||||
'wio_mail_email' => 'single mails',
|
||||
'wio_mail_ovpnrw' => 'enable OpenVPN RW and IPSec Statusmails ?',
|
||||
'wio_edit_set' => 'configuration',
|
||||
'wio_service' => 'Service:',
|
||||
'wio_dyndns_success' => 'DynDNS IP identified and registered!',
|
||||
'wio_remove_all' => 'remove all clients',
|
||||
'wio_remove_all_hint' => 'Are you sure to delete all the clients?',
|
||||
'wio_remove_client' => 'remove client',
|
||||
'wio_remove_client_hint' => 'Are you sure to delete the client?',
|
||||
'wio_arp_table_entries' => 'add client from ARP-Table:',
|
||||
'wio_activ' => 'activ',
|
||||
'wio_check' => 'check',
|
||||
'wio_common_name' => 'Remote Host/IP',
|
||||
'wio_msg_left' => 'Searching on the',
|
||||
'wio_msg_green' => 'green',
|
||||
'wio_msg_blue' => 'blue',
|
||||
'wio_msg_orange' => 'orange',
|
||||
'wio_msg_center' => 'Interface on',
|
||||
'wio_msg_right' => 'is being examined.',
|
||||
'wio_msg_hint' => 'One moment please ...',
|
||||
'wio_last_update' => 'last update',
|
||||
'wio_disable_hint' => 'Attention! It will reset all settings including the client to be checked!',
|
||||
'wio_clientremark' => 'show remark?',
|
||||
'wio_already_running' => 'This check is already running!',
|
||||
'wio_error_function' => 'This function is temporarily unavailable, because in the background client states are being updated (active/inactive).',
|
||||
'wio_shutdown' => 'Shutdown when all clients are "offline"?',
|
||||
'wio_unknown_lan' => 'UNKNOWN',
|
||||
'wio_red_lan' => 'RED',
|
||||
'wio_search' => 'Searching for active hosts in the local network ...',
|
||||
'wio_answer' => 'Answer',
|
||||
'wio_answer_time' => 'Response Time',
|
||||
'wio_scriptruntime' => 'Script Execution Time',
|
||||
);
|
||||
0
src/wio/main/wio.conf
Normal file
0
src/wio/main/wio.conf
Normal file
385
src/wio/main/wio.pl
Normal file
385
src/wio/main/wio.pl
Normal file
@@ -0,0 +1,385 @@
|
||||
#!/usr/bin/perl
|
||||
#
|
||||
###############################################################################
|
||||
# #
|
||||
# IPFire.org - A linux based firewall #
|
||||
# Copyright (C) 2017 Stephan Feddersen <addons@h-loit.de> #
|
||||
# All Rights Reserved. #
|
||||
# #
|
||||
# This program is free software: you can redistribute it and/or modify #
|
||||
# it under the terms of the GNU General Public License as published by #
|
||||
# the Free Software Foundation, either version 3 of the License, or #
|
||||
# (at your option) any later version. #
|
||||
# #
|
||||
# This program is distributed in the hope that it will be useful, #
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of #
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
|
||||
# GNU General Public License for more details. #
|
||||
# #
|
||||
# You should have received a copy of the GNU General Public License #
|
||||
# along with this program. If not, see <http://www.gnu.org/licenses/>. #
|
||||
# #
|
||||
###############################################################################
|
||||
#
|
||||
# id: wio.pl, v1.3.1 2017/07/11 21:31:16 sfeddersen
|
||||
#
|
||||
# This wio.pl is based on the Code from the IPCop WIO Addon
|
||||
# and is extremly adapted to work with IPFire.
|
||||
#
|
||||
# Autor: Stephan Feddersen
|
||||
# Co-Autor: Alexander Marx
|
||||
# Co-Autor: Frank Mainz
|
||||
#
|
||||
|
||||
# enable only the following on debugging purpose
|
||||
#use warnings;
|
||||
|
||||
use strict;
|
||||
use POSIX qw(strftime);
|
||||
use Time::HiRes qw(gettimeofday tv_interval);
|
||||
use Net::Ping;
|
||||
use RRDs;
|
||||
use Fatal qw/ open /;
|
||||
|
||||
require '/var/ipfire/general-functions.pl';
|
||||
require '/var/ipfire/lang.pl';
|
||||
require '/usr/lib/wio/wio-lib.pl';
|
||||
|
||||
my ( $debug, $i, $t, $ib, $tb, $ivpn, $tvpn ) = '';
|
||||
my $logdir = "/var/log/wio";
|
||||
my $owner = getpwnam "nobody";
|
||||
my $group = getgrnam "nobody";
|
||||
my $ipadrfile = "$logdir/wioips";
|
||||
|
||||
unless ( -e $ipadrfile ) { print ( "The file $ipadrfile doesn't exist!\n" ); exit; }
|
||||
|
||||
foreach (@ARGV) {
|
||||
if ( $_ eq '-d' || $_ eq '--debug') { $debug = 1; }
|
||||
if ( $_ eq '-h' || $_ eq '--help' ) { die help(); }
|
||||
}
|
||||
|
||||
my ( %wiosettings, %mainsettings, %mailsettings, %netsettings ) = ();
|
||||
|
||||
&General::readhash('/var/ipfire/main/settings', \%mainsettings);
|
||||
&General::readhash('/var/ipfire/ethernet/settings', \%netsettings);
|
||||
&General::readhash('/var/ipfire/dma/mail.conf', \%mailsettings);
|
||||
&General::readhash("/var/ipfire/wio/wio.conf", \%wiosettings);
|
||||
|
||||
my $now = strftime "%a, %d.%m.%Y %H:%M:%S", localtime;
|
||||
my $logging = $wiosettings{'LOGGING'};
|
||||
my $mailstyle = $wiosettings{'MAILSTYLE'};
|
||||
my $mailremark = $wiosettings{'MAILREMARK'};
|
||||
my $timeout = $wiosettings{'TIMEOUT'};
|
||||
my $shutdown = $wiosettings{'SHUTDOWN'};
|
||||
my $rrddir = "/var/log/rrd/wio";
|
||||
my $onoffip = "$logdir/wioscip";
|
||||
my $hostname = "$mainsettings{'HOSTNAME'}.$mainsettings{'DOMAINNAME'}";
|
||||
my $redactive = "/var/ipfire/red/active";
|
||||
my $rediface = "/var/ipfire/red/iface";
|
||||
my $reddev = '';
|
||||
|
||||
if ( -e $rediface ) {
|
||||
$reddev = &General::get_red_interface;
|
||||
}
|
||||
|
||||
my $redip = $hostname;
|
||||
my $vpnpid = ( -e "/var/run/charon.pid" ? `awk '{print $1}' /var/run/charon.pid`: '');
|
||||
my $ovpnpid = ( -e "/var/run/openvpn.pid" ? `awk '{print $1}' /var/run/openvpn.pid`: '');
|
||||
|
||||
my $steptime = $wiosettings{'CRON'} *= 60;
|
||||
my $i_ping = 'icmp';
|
||||
my $t_ping = 'tcp';
|
||||
|
||||
my $nr = 1;
|
||||
my $poweroff = 0;
|
||||
|
||||
my ( $togglestat, $arp, $time, $start, $timestamp ) = 0;
|
||||
my ( $id, $ipadr, $ipadrnew, $host, $hostnew, $enable, $remark, $dyndns, $dyndnsip ) = '';
|
||||
my ( $mail, $mailon, $mailoff, $ping, $on, $httphost, $mailen ) = '';
|
||||
my ( $msg, $logmsg, $mailmsg, $smailtxt, $infomsg, $client, $mode, $onbak, $arpclient ) = '';
|
||||
my ( $ping_i, $ping_t, $ping_ib, $ping_tb, $ping_iv, $ping_tv, $pingmode ) = '';
|
||||
my ( @tmp, @arptmp, @myarray, @status, @arpclients ) = '';
|
||||
my @ifaces = ('GREEN','BLUE','ORANGE');
|
||||
|
||||
|
||||
if ( $mailsettings{'USEMAIL'} eq 'on' ) { $mailen = 'on'; }
|
||||
else { $mailen = 'off'; }
|
||||
|
||||
if ( -e $redactive ) {
|
||||
open(IPADDR, "/var/ipfire/red/local-ipaddress");
|
||||
$redip = <IPADDR>;
|
||||
close IPADDR;
|
||||
chomp($redip);
|
||||
}
|
||||
|
||||
if ($debug) {
|
||||
$start = [gettimeofday];
|
||||
startdebug();
|
||||
}
|
||||
|
||||
foreach (@ifaces) {
|
||||
if ( $netsettings{"${_}_DEV"} ne '' && $netsettings{"${_}_DEV"} ne 'disabled' ) {
|
||||
my $output = `ifconfig $netsettings{"${_}_DEV"}`;
|
||||
|
||||
if ( grep (/RX bytes:0/, $output) ) { next; }
|
||||
else {
|
||||
@arptmp = `/usr/local/bin/wioscan -s $netsettings{"${_}_DEV"}`;
|
||||
|
||||
foreach $arpclient (@arptmp) {
|
||||
push (@arpclients, (split (/\,/,$arpclient))[1]);
|
||||
}
|
||||
}
|
||||
$output = '';
|
||||
undef(@arptmp);
|
||||
}
|
||||
}
|
||||
|
||||
if ( -e "$onoffip" ) { open( FILE, "< $onoffip" ); }
|
||||
else { open( FILE, "< $ipadrfile" ); }
|
||||
@myarray = <FILE>;
|
||||
close(FILE);
|
||||
|
||||
# ping all clients
|
||||
|
||||
foreach (@myarray) {
|
||||
chomp;
|
||||
@tmp = split( /\,/, $_ );
|
||||
|
||||
($id,$timestamp,$ipadr,$host,$enable,$remark,$dyndns,$mailon,$mailoff,$ping,$on,$httphost) = @tmp;
|
||||
|
||||
$timestamp = strftime "%d.%m.%Y - %H:%M:%S", localtime;
|
||||
|
||||
if ( $enable ne 'on' ) {
|
||||
push (@status, "$id,$timestamp,$ipadr,$host,$enable,$remark,$dyndns,$mailon,$mailoff,$ping,$on,$httphost\n");
|
||||
next;
|
||||
}
|
||||
|
||||
if ( defined($dyndns) && ( $dyndns =~ 'on' ) ) {
|
||||
($dyndnsip, $infomsg) = &WIO::getdyndnsip($host, @myarray);
|
||||
if ($dyndnsip ne $ipadr) { $ipadr = $dyndnsip; }
|
||||
}
|
||||
|
||||
$ping_i = $ping_t = $ping_ib = $ping_tb = $ping_iv = $ping_tv = $pingmode = $arp = 0;
|
||||
|
||||
foreach (@arpclients) {
|
||||
chomp;
|
||||
unless ( $ipadr eq $_ )
|
||||
{
|
||||
$i = Net::Ping->new( $i_ping, $timeout );
|
||||
unless ( defined $i ) { die "Can't create Net::Ping object $!"; }
|
||||
|
||||
$t = Net::Ping->new( $t_ping, $timeout );
|
||||
unless ( defined $t ) { die "Can't create Net::Ping object $!"; }
|
||||
|
||||
$ib = Net::Ping->new( $i_ping, $timeout );
|
||||
unless ( defined $ib ) { die "Can't create Net::Ping object $!"; }
|
||||
$ib->bind($redip);
|
||||
|
||||
$tb = Net::Ping->new( $t_ping, $timeout );
|
||||
unless ( defined $tb ) { die "Can't create Net::Ping object $!"; }
|
||||
$tb->bind($redip);
|
||||
|
||||
if ($ovpnpid || $vpnpid)
|
||||
{
|
||||
$ivpn = Net::Ping->new( $i_ping, $timeout );
|
||||
unless ( defined $ivpn ) { die "Can't create Net::Ping object $!"; }
|
||||
$ivpn->bind($hostname);
|
||||
|
||||
$tvpn = Net::Ping->new( $t_ping, $timeout );
|
||||
unless ( defined $tvpn ) { die "Can't create Net::Ping object $!"; }
|
||||
$tvpn->bind($hostname);
|
||||
}
|
||||
}
|
||||
else { $arp = 1 }
|
||||
}
|
||||
|
||||
$client = ( ( $dyndns eq 'on' || $ping eq 'fqdn' ) ? $host : $ipadr );
|
||||
|
||||
if ($debug) {
|
||||
printf "%2s %15s", $nr++, ($client ne $ipadr ? $ipadr : $client );
|
||||
$time = [gettimeofday];
|
||||
}
|
||||
|
||||
if ( $arp == 1
|
||||
|| ($ping_i = $i->ping($client))
|
||||
|| ($ping_t = $t->ping($client))
|
||||
|| ($ping_ib = $ib->ping($client))
|
||||
|| ($ping_tb = $tb->ping($client))
|
||||
|| ($ovpnpid?($ping_iv = $ivpn->ping($client)) : 0)
|
||||
|| ($vpnpid?($ping_tv = $tvpn->ping($client)) : 0) )
|
||||
{
|
||||
$mode = 100;
|
||||
$msg = "$Lang::tr{'wio up'}";
|
||||
$onbak = $on;
|
||||
$togglestat = ( $on ne 'on' ) ? 1 : 0;
|
||||
$on = 'on';
|
||||
}
|
||||
else {
|
||||
$mode = 0;
|
||||
$msg = "$Lang::tr{'wio down'}";
|
||||
$onbak = $on;
|
||||
$togglestat = ( $on ne 'off' ) ? 1 : 0;
|
||||
$on = 'off';
|
||||
}
|
||||
|
||||
push (@status, "$id,$timestamp,$ipadr,$host,$enable,$remark,$dyndns,$mailon,$mailoff,$ping,$on,$httphost\n");
|
||||
|
||||
if ($debug) {
|
||||
$mail = '----';
|
||||
if ( $mailon eq 'on' && $togglestat == 1 && $mode == 100 ) { $mail = 'Online'; }
|
||||
if ( $mailoff eq 'on' && $togglestat == 1 && $mode == 0 ) { $mail = 'Offline'; }
|
||||
if ( $dyndns ne 'on' ) { $dyndns = 'off'; }
|
||||
|
||||
$pingmode = $arp ? 'ARPSCAN' : $ping_i ? 'ICMP' : $ping_t ? 'TCP' : $ping_ib ? 'ICMP+BIND' : $ping_tb ? 'TCP+BIND' : $ping_iv ? 'VPN ICMP' : $ping_tv ? 'VPN TCP' : 'NO ECHO';
|
||||
printf "%7s%8s%9s%10s %.4f sek%12s\n", $ping, $dyndns, $msg, $mail, tv_interval($time), $pingmode;
|
||||
}
|
||||
|
||||
if ( $host eq '' ) { $hostnew = 'n/a'; } else { $hostnew = $host; }
|
||||
if ( $ipadr eq '' ) { $ipadrnew = 'n/a'; } else { $ipadrnew = $ipadr; }
|
||||
|
||||
if ( $logging eq 'on' ) {
|
||||
$logmsg = "Client: $hostnew - IP: $ipadrnew - Status: $msg";
|
||||
&General::log("wio","$logmsg");
|
||||
}
|
||||
|
||||
if ( $mailen eq 'on' && $togglestat == 1 && ($mailon eq 'on' || $mailoff eq 'on')) {
|
||||
|
||||
if ( $mailstyle eq 'email' || ($mailstyle eq 'smail' && $smailtxt eq '') ) { $mailmsg .= "Date\t : $now\n\n"; }
|
||||
|
||||
$mailmsg .= "Client\t : $hostnew\nIP\t : $ipadrnew\nStatus\t : $msg\n";
|
||||
|
||||
if ( $mailremark eq 'on' && $remark ne '' ) {
|
||||
$mailmsg .= "Remark : $remark\n\n";
|
||||
}
|
||||
|
||||
if ( $mailstyle eq 'email' ) {
|
||||
&WIO::mailsender("WIO - $host - $msg", $mailmsg);
|
||||
undef ($mailmsg);
|
||||
}
|
||||
elsif ( $mailstyle eq 'smail' ) {
|
||||
$smailtxt .= $mailmsg."\n";
|
||||
undef ($mailmsg);
|
||||
}
|
||||
}
|
||||
|
||||
if ( $ping ne 'fqdn' ) { $client = $host; }
|
||||
if ( $host eq '' ) { $client = $ipadr; }
|
||||
|
||||
updatewiodata("$id");
|
||||
|
||||
if ( $arp == 0 ) {
|
||||
$i->close();
|
||||
$t->close();
|
||||
$ib->close();
|
||||
$tb->close();
|
||||
}
|
||||
|
||||
if ( ( -e $ovpnpid || -e $vpnpid ) && $arp == 0 ) {
|
||||
$ivpn->close();
|
||||
$tvpn->close();
|
||||
}
|
||||
}
|
||||
|
||||
# write adressfile new
|
||||
|
||||
if ( !-e $onoffip ) {
|
||||
open( FILE, "> $ipadrfile" );
|
||||
print FILE @status;
|
||||
close(FILE);
|
||||
}
|
||||
else {
|
||||
system("/bin/sed -i 's#$tmp[0],$tmp[1],$tmp[2],$tmp[3],$tmp[4],$tmp[5],$tmp[6],$tmp[7],$tmp[8],$tmp[9],$tmp[10],$tmp[11]#$id,$timestamp,$ipadr,$host,$enable,$remark,$dyndns,$mailon,$mailoff,$ping,$on,$httphost#g' $ipadrfile");
|
||||
chmod ( 0644, $ipadrfile );
|
||||
chown ( $owner, $group, $ipadrfile );
|
||||
}
|
||||
|
||||
if ($debug) {
|
||||
printf ("\n$Lang::tr{'wio_scriptruntime'}: %.4f $Lang::tr{'age ssecond'}\n\n", tv_interval($start));
|
||||
}
|
||||
|
||||
if ( $smailtxt ne '' ) { &WIO::mailsender($Lang::tr{'wio_sub'}, $smailtxt); }
|
||||
|
||||
if ($shutdown eq 'on') {
|
||||
foreach (@status) {
|
||||
chomp;
|
||||
@tmp = split( /\,/, $_ );
|
||||
|
||||
($id,$timestamp,$ipadr,$host,$enable,$remark,$dyndns,$mailon,$mailoff,$ping,$on,$httphost) = @tmp;
|
||||
|
||||
if ( $on eq 'on' ) {
|
||||
$poweroff = 0;
|
||||
last;
|
||||
}
|
||||
else {
|
||||
$poweroff = 1;
|
||||
next;
|
||||
}
|
||||
}
|
||||
|
||||
if ($poweroff == 1) {
|
||||
if ($debug) {
|
||||
printf "$Lang::tr{'shutting down ipfire'}!\n\n";
|
||||
}
|
||||
|
||||
&General::log("wio","$Lang::tr{'shutting down ipfire'}!");
|
||||
system '/usr/local/bin/ipfirereboot down';
|
||||
}
|
||||
}
|
||||
|
||||
undef (@tmp);
|
||||
undef (@myarray);
|
||||
undef (@status);
|
||||
undef (@arptmp);
|
||||
undef (@arpclients);
|
||||
|
||||
if ( -e $onoffip ) { unlink($onoffip); }
|
||||
|
||||
sub updatewiodata {
|
||||
my $id = $_[0];
|
||||
|
||||
if ( !-e "$rrddir/$id.rrd" ) {
|
||||
RRDs::create(
|
||||
"$rrddir/$id.rrd", "--step=$steptime",
|
||||
"DS:mode:GAUGE:3600:0:100", "RRA:AVERAGE:0.5:1:576",
|
||||
"RRA:AVERAGE:0.5:6:672", "RRA:AVERAGE:0.5:24:732",
|
||||
"RRA:AVERAGE:0.5:144:1460"
|
||||
);
|
||||
my $ERROR = RRDs::error;
|
||||
print "Error in RRD::create for Who Is Online: $ERROR\n" if $ERROR;
|
||||
}
|
||||
|
||||
RRDs::update( "$rrddir/$id.rrd", "-t", "mode", "N:$mode" );
|
||||
|
||||
my $error = RRDs::error;
|
||||
|
||||
if ($error) { &General::log("wio","$error"); }
|
||||
}
|
||||
|
||||
sub startdebug {
|
||||
|
||||
printf "
|
||||
HOSTNAME : $hostname
|
||||
TIMEOUT : $timeout $Lang::tr{'age ssecond'}
|
||||
MAILSTYLE : $mailstyle
|
||||
RED TYPE : $netsettings{'RED_TYPE'}
|
||||
RED DEVICE : $reddev
|
||||
RED ADDRESS : $redip
|
||||
SHUTDOWN : $shutdown
|
||||
";
|
||||
if ($ovpnpid) {printf "OVPN PID : $ovpnpid"}
|
||||
if ($vpnpid) {printf "VPN PID : $vpnpid"}
|
||||
printf "
|
||||
$Lang::tr{'wio_search'}
|
||||
|
||||
%3s%17s%7s%8s%9s%10s%15s%12s
|
||||
---------------------------------------------------------------------------------
|
||||
","ID ", "$Lang::tr{'wio ipadress'}", "Ping", "DynDNS", "Status", "Mail", "$Lang::tr{'wio_answer_time'}", "$Lang::tr{'wio_answer'}";
|
||||
}
|
||||
|
||||
sub help {
|
||||
return "
|
||||
Who Is Online? for IPFire
|
||||
|
||||
use option -d for debugging
|
||||
use option -h for help\n\n";
|
||||
}
|
||||
293
src/wio/main/wiovpn.pl
Normal file
293
src/wio/main/wiovpn.pl
Normal file
@@ -0,0 +1,293 @@
|
||||
#!/usr/bin/perl
|
||||
#
|
||||
###############################################################################
|
||||
# #
|
||||
# IPFire.org - A linux based firewall #
|
||||
# Copyright (C) 2017 Stephan Feddersen <addons@h-loit.de> #
|
||||
# All Rights Reserved. #
|
||||
# #
|
||||
# This program is free software: you can redistribute it and/or modify #
|
||||
# it under the terms of the GNU General Public License as published by #
|
||||
# the Free Software Foundation, either version 3 of the License, or #
|
||||
# (at your option) any later version. #
|
||||
# #
|
||||
# This program is distributed in the hope that it will be useful, #
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of #
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
|
||||
# GNU General Public License for more details. #
|
||||
# #
|
||||
# You should have received a copy of the GNU General Public License #
|
||||
# along with this program. If not, see <http://www.gnu.org/licenses/>. #
|
||||
# #
|
||||
###############################################################################
|
||||
#
|
||||
# id: wioovpn.pl, v1.3.1 2017/07/11 21:31:16 sfeddersen
|
||||
#
|
||||
# This wioovpn.pl is based on the Code from the IPCop WIO Addon
|
||||
# and is extremly adapted to work with IPFire.
|
||||
#
|
||||
# Autor: Stephan Feddersen
|
||||
# Co-Autor: Alexander Marx
|
||||
# Co-Autor: Frank Mainz
|
||||
#
|
||||
|
||||
# enable only the following on debugging purpose
|
||||
#use warnings;
|
||||
|
||||
use strict;
|
||||
use POSIX qw(strftime);
|
||||
|
||||
my $logdir = "/var/log/wio";
|
||||
|
||||
require '/var/ipfire/general-functions.pl';
|
||||
require '/var/ipfire/lang.pl';
|
||||
require '/usr/lib/wio/wio-lib.pl';
|
||||
|
||||
my %wiosettings = ();
|
||||
|
||||
&General::readhash( "/var/ipfire/wio/wio.conf", \%wiosettings );
|
||||
|
||||
my $mailremark = $wiosettings{'MAILREMARK'};
|
||||
my $logging = $wiosettings{'LOGGING'};
|
||||
|
||||
my ( @ovpnstatus, @ovpncfg, @ovpncache, @ovpnarray, @ovpnmatch, @ovpnwrite );
|
||||
|
||||
my $now = strftime "%a, %d.%m.%Y %H:%M:%S", localtime;
|
||||
my $ovpnpid = "/var/run/openvpn.pid";
|
||||
my $ovpnmailmsg = '';
|
||||
my $ovpncache = "$logdir/.ovpncache";
|
||||
my $ovpnconfig = "/var/ipfire/ovpn/ovpnconfig";
|
||||
|
||||
my ( $name, $nameul, $ovpnclt, $ovpncltip, $realipadr, $connected ) = '';
|
||||
my ( $ovpnmailsub, $ovpnrwlogin, $ovpnrwstatus, $status, $remark, $logmsg ) = '';
|
||||
|
||||
my ( @vpnstatus, @vpncfg, @vpncache, @vpnarray, @vpnwrite );
|
||||
|
||||
my $vpnpid = "/var/run/charon.pid";
|
||||
my $vpnmailmsg = '';
|
||||
my $vpncache = "$logdir/.vpncache";
|
||||
my $vpnconfig = "/var/ipfire/vpn/config";
|
||||
|
||||
my ( $activ, $vpnmailsub, $vpnrwstatus, $status,) = '';
|
||||
|
||||
my $togglestat = 0;
|
||||
|
||||
if ( ! -e "$ovpnpid" ) {
|
||||
unlink "$ovpncache";
|
||||
}
|
||||
else {
|
||||
|
||||
@ovpnstatus = `cat /var/run/ovpnserver.log`;
|
||||
|
||||
open(FILE, "$ovpnconfig");
|
||||
@ovpncfg = <FILE>;
|
||||
close (FILE);
|
||||
|
||||
unless ( -e "$ovpncache" ) {
|
||||
open(FILE, ">$ovpncache");
|
||||
close (FILE);
|
||||
}
|
||||
else {
|
||||
open(FILE, "$ovpncache");
|
||||
@ovpncache = <FILE>;
|
||||
close (FILE);
|
||||
}
|
||||
|
||||
foreach (@ovpncfg)
|
||||
{
|
||||
chomp;
|
||||
|
||||
if ( $_ =~ "server" ) { next; }
|
||||
|
||||
( $name, $remark ) = (split (/\,/, $_))[3, 26];
|
||||
|
||||
$status = 'off';
|
||||
|
||||
unless ( grep (/$name/, @ovpncache) ) { push (@ovpncache, "$name,$remark,$status\n"); }
|
||||
}
|
||||
|
||||
foreach (@ovpncache)
|
||||
{
|
||||
chomp;
|
||||
|
||||
( $name, $remark, $status ) = split (/\,/, $_);
|
||||
|
||||
if ( grep (/,$name,/, @ovpncfg) ) { push (@ovpnarray, "$name,$remark,$status\n"); }
|
||||
}
|
||||
|
||||
foreach (@ovpnarray)
|
||||
{
|
||||
chomp;
|
||||
( $name, $remark, $status ) = split (/\,/, $_);
|
||||
|
||||
if ( $name =~ m/_/ ) { $nameul = $name; }
|
||||
else { ($nameul = $name) =~ s/ /_/g; }
|
||||
|
||||
if ( grep (/$name/, @ovpnstatus) || grep (/$nameul/, @ovpnstatus) )
|
||||
{
|
||||
foreach (@ovpnstatus)
|
||||
{
|
||||
chomp;
|
||||
|
||||
if ( $_ =~ "ROUTING TABLE" ) { last; }
|
||||
|
||||
@ovpnmatch = split (/\,/, $_);
|
||||
|
||||
if ( @ovpnmatch != 5 || $_ =~ "Common Name" ) { next; }
|
||||
|
||||
( $ovpnclt, $realipadr, undef, undef, $connected ) = @ovpnmatch;
|
||||
|
||||
( $ovpncltip, undef ) = split (/:/, $realipadr);
|
||||
|
||||
$ovpnrwlogin = &WIO::statustime($connected);
|
||||
|
||||
if ( $nameul eq $ovpnclt || $name eq $ovpnclt ) {
|
||||
$ovpnrwstatus = "$Lang::tr{'wio up'}";
|
||||
$togglestat = ( $status ne 'on' ) ? 1 : 0;
|
||||
$status = 'on';
|
||||
}
|
||||
|
||||
if ( ! $name =~ m/_/ ) { $ovpnclt =~ s/_/ /g; }
|
||||
|
||||
if ( $nameul eq $ovpnclt || $name eq $ovpnclt ) { push (@ovpnwrite, "$name,$remark,$status\n"); }
|
||||
|
||||
if ( $togglestat == 1 && ($name eq $ovpnclt || $nameul eq $ovpnclt) )
|
||||
{
|
||||
$ovpnmailsub = "WIO OVPN - $name - $ovpnrwstatus - $now";
|
||||
$logmsg = "Client: WIO OVPN $name - IP: $ovpncltip - Status: $ovpnrwstatus";
|
||||
$ovpnmailmsg = "Client : $name\nLogin : $ovpnrwlogin\nIP : $ovpncltip\nStatus : $ovpnrwstatus\n";
|
||||
|
||||
if ( $mailremark eq 'on' ) {
|
||||
$ovpnmailmsg .= "Remark : $remark\n\n";
|
||||
}
|
||||
|
||||
&WIO::mailsender($ovpnmailsub, $ovpnmailmsg);
|
||||
if ( $logging eq 'on' ) { &General::log("wio","$logmsg"); }
|
||||
undef ($ovpnmailsub);
|
||||
undef ($ovpnmailmsg);
|
||||
$togglestat = 0;
|
||||
}
|
||||
}
|
||||
}
|
||||
else {
|
||||
if ( $status eq 'on' ) {
|
||||
$ovpnrwstatus = "$Lang::tr{'wio down'}";
|
||||
$status = 'off';
|
||||
$ovpnmailsub = "WIO OVPN - $name - $ovpnrwstatus - $now";
|
||||
$logmsg = "Client: WIO OVPN $name - Status: $ovpnrwstatus";
|
||||
$ovpnmailmsg = "Client : $name\nLogout : $now\nStatus : $ovpnrwstatus\n";
|
||||
|
||||
if ( $mailremark eq 'on' ) {
|
||||
$ovpnmailmsg .= "Remark : $remark\n\n";
|
||||
}
|
||||
|
||||
&WIO::mailsender($ovpnmailsub, $ovpnmailmsg);
|
||||
if ( $logging eq 'on' ) { &General::log("wio","$logmsg"); }
|
||||
undef ($ovpnmailsub);
|
||||
undef ($ovpnmailmsg);
|
||||
}
|
||||
|
||||
push (@ovpnwrite, "$name,$remark,$status\n");
|
||||
}
|
||||
}
|
||||
|
||||
open( FILE, "> $ovpncache" );
|
||||
print FILE @ovpnwrite;
|
||||
close(FILE);
|
||||
|
||||
}
|
||||
|
||||
if ( ! -e "$vpnpid" ) {
|
||||
unlink "$vpncache";
|
||||
}
|
||||
else {
|
||||
|
||||
if ( -e "$vpnpid" ) {
|
||||
@vpnstatus = `/usr/local/bin/ipsecctrl I`;
|
||||
}
|
||||
|
||||
open(FILE, "$vpnconfig");
|
||||
@vpncfg = <FILE>;
|
||||
close (FILE);
|
||||
|
||||
if ( ! -e "$vpncache" ) {
|
||||
open(FILE, ">$vpncache");
|
||||
close (FILE);
|
||||
}
|
||||
else {
|
||||
open(FILE, "$vpncache");
|
||||
@vpncache = <FILE>;
|
||||
close (FILE);
|
||||
}
|
||||
|
||||
foreach (@vpncfg)
|
||||
{
|
||||
chomp;
|
||||
|
||||
( $activ, $name, $remark ) = (split (/\,/, $_))[1, 2, 25];
|
||||
|
||||
if ( $remark eq 'off' ) { $remark = '-'; }
|
||||
|
||||
$status = 'off';
|
||||
|
||||
if ( $activ eq "off" ) { next; }
|
||||
|
||||
unless ( grep (/$name/, @vpncache) ) { push (@vpncache, "$name,$remark,$status\n"); }
|
||||
}
|
||||
|
||||
foreach (@vpncache)
|
||||
{
|
||||
chomp;
|
||||
|
||||
( $name, $remark, $status ) = split (/\,/, $_);
|
||||
|
||||
if ( grep (/,$name,/, @vpncfg) ) { push (@vpnarray, "$name,$remark,$status\n"); }
|
||||
}
|
||||
|
||||
foreach (@vpnarray)
|
||||
{
|
||||
chomp;
|
||||
|
||||
( $name, $remark, $status ) = split (/\,/, $_);
|
||||
|
||||
if ( grep (/$name\{.*INSTALLED/ , @vpnstatus) )
|
||||
{
|
||||
$vpnrwstatus = "$Lang::tr{'wio up'}";
|
||||
$togglestat = ( $status ne 'on' ) ? 1 : 0;
|
||||
$status = 'on';
|
||||
}
|
||||
else {
|
||||
$vpnrwstatus = "$Lang::tr{'wio down'}";
|
||||
$togglestat = ( $status ne 'off' ) ? 1 : 0;
|
||||
$status = 'off';
|
||||
}
|
||||
|
||||
push (@vpnwrite, "$name,$remark,$status\n");
|
||||
|
||||
if ( $togglestat == 1 )
|
||||
{
|
||||
$vpnmailsub = "WIO VPN - $name - $vpnrwstatus - $now";
|
||||
$logmsg = "Client: WIO VPN $name - Status: $vpnrwstatus $now";
|
||||
|
||||
if ( $mailremark eq 'on' ) {
|
||||
if ( $status eq 'on' ) { $vpnmailmsg = "Client : $name\nLogin : $now\nStatus : $vpnrwstatus\nRemark : $remark\n"; }
|
||||
else { $vpnmailmsg = "Client : $name\nLogout : $now\nStatus : $vpnrwstatus\nRemark : $remark\n"; }
|
||||
}
|
||||
else {
|
||||
if ( $status eq 'on' ) { $vpnmailmsg = "Client : $name\nLogin : $now\nStatus : $vpnrwstatus\n"; }
|
||||
else { $vpnmailmsg = "Client : $name\nLogout : $now\nStatus : $vpnrwstatus\n"; }
|
||||
}
|
||||
|
||||
&WIO::mailsender($vpnmailsub, $vpnmailmsg);
|
||||
if ( $logging eq 'on' ) { &General::log("wio","$logmsg"); }
|
||||
undef ($vpnmailsub);
|
||||
undef ($vpnmailmsg);
|
||||
$togglestat = 0;
|
||||
}
|
||||
}
|
||||
|
||||
open( FILE, "> $vpncache" );
|
||||
print FILE @vpnwrite;
|
||||
close(FILE);
|
||||
|
||||
}
|
||||
24
src/wio/wio
Normal file
24
src/wio/wio
Normal file
@@ -0,0 +1,24 @@
|
||||
#!/bin/bash
|
||||
#
|
||||
# Script to run wio helpers
|
||||
#
|
||||
. /var/ipfire/wio/wio.conf
|
||||
|
||||
MINUTE=`date +%M`
|
||||
|
||||
if [ $ENABLE == on ]; then
|
||||
|
||||
if [ $(($MINUTE%$CRON)) == 0 ]; then
|
||||
/var/ipfire/wio/wio.pl > /dev/null
|
||||
fi
|
||||
|
||||
if [ $OVPNRWMAIL == on ]; then
|
||||
if [ $(($MINUTE%$OVPNCRON)) == 0 ]; then
|
||||
/var/ipfire/wio/wiovpn.pl > /dev/null
|
||||
fi
|
||||
else
|
||||
rm -f /var/log/wio/.vpncache
|
||||
rm -f /var/log/wio/.ovpncache
|
||||
fi
|
||||
|
||||
fi
|
||||
127
src/wio/wio-graphs.pl
Normal file
127
src/wio/wio-graphs.pl
Normal file
@@ -0,0 +1,127 @@
|
||||
#!/usr/bin/perl
|
||||
#
|
||||
###############################################################################
|
||||
# #
|
||||
# IPFire.org - A linux based firewall #
|
||||
# Copyright (C) 2017 Stephan Feddersen <addons@h-loit.de> #
|
||||
# All Rights Reserved. #
|
||||
# #
|
||||
# This program is free software: you can redistribute it and/or modify #
|
||||
# it under the terms of the GNU General Public License as published by #
|
||||
# the Free Software Foundation, either version 3 of the License, or #
|
||||
# (at your option) any later version. #
|
||||
# #
|
||||
# This program is distributed in the hope that it will be useful, #
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of #
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
|
||||
# GNU General Public License for more details. #
|
||||
# #
|
||||
# You should have received a copy of the GNU General Public License #
|
||||
# along with this program. If not, see <http://www.gnu.org/licenses/>. #
|
||||
# #
|
||||
###############################################################################
|
||||
#
|
||||
# id: wio-graphs.pl, v1.3.1 2017/07/11 21:31:16 sfeddersen
|
||||
#
|
||||
# This wio-graphs.pl is based on the Code from the IPCop WIO Addon
|
||||
# and is extremly adapted to work with IPFire.
|
||||
#
|
||||
# Autor: Stephan Feddersen
|
||||
# Co-Autor: Alexander Marx
|
||||
#
|
||||
|
||||
package WIOGraphs;
|
||||
|
||||
use strict;
|
||||
|
||||
# enable only the following on debugging purpose
|
||||
#use warnings;
|
||||
|
||||
use RRDs;
|
||||
|
||||
require '/var/ipfire/general-functions.pl';
|
||||
require '/var/ipfire/lang.pl';
|
||||
|
||||
my ( %mainsettings, %color ) = ();
|
||||
|
||||
&General::readhash('/var/ipfire/main/settings', \%mainsettings);
|
||||
&General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
|
||||
|
||||
sub wio {
|
||||
my $hostid = $_[0];
|
||||
my $hostname = $_[1];
|
||||
my $period = $_[2];
|
||||
|
||||
my @rrd = ();
|
||||
|
||||
push @rrd, ("-");
|
||||
push @rrd, @{&header($period, "$hostname ($Lang::tr{$period})")};
|
||||
push @rrd, @{&body($hostid)};
|
||||
|
||||
RRDs::graph (@rrd);
|
||||
|
||||
my $error = RRDs::error;
|
||||
print "Error in RRD::graph for Who Is Online: $error\n" if $error;
|
||||
}
|
||||
|
||||
sub body {
|
||||
my $hostid = shift;
|
||||
my $result = [];
|
||||
|
||||
push @$result, "DEF:mode=/var/log/rrd/wio/$hostid.rrd:mode:AVERAGE";
|
||||
push @$result, "CDEF:online=mode,UN,0,mode,IF,50,GT,100,0,IF";
|
||||
push @$result, "CDEF:offline=mode,UN,100,mode,IF,50,LT,100,0,IF";
|
||||
push @$result, "AREA:online".$color{"color12"}.":$Lang::tr{'wio up'}\\j";
|
||||
push @$result, "AREA:offline".$color{"color13"}.":$Lang::tr{'wio down'}\\j";
|
||||
push @$result, "COMMENT:\r<span size='smaller'>$Lang::tr{'wio_last_update'}\\: ". lastupdate(scalar localtime()) ."</span>\\r";
|
||||
|
||||
return $result;
|
||||
}
|
||||
|
||||
sub lastupdate {
|
||||
my $text = shift;
|
||||
|
||||
return undef if not defined $text;
|
||||
$text =~ s/\\/\\\\/g;
|
||||
$text =~ s/:/\\:/g;
|
||||
|
||||
return $text;
|
||||
}
|
||||
|
||||
sub header {
|
||||
my $period = shift;
|
||||
my $title = shift;
|
||||
my $result = [];
|
||||
|
||||
push @$result, ("--title", "$title");
|
||||
push @$result, ("--start", "-1$period", "-aPNG", "-i", "-z");
|
||||
push @$result, ("--border", "0");
|
||||
push @$result, ("--full-size-mode");
|
||||
push @$result, ("--slope-mode");
|
||||
push @$result, ("--pango-markup");
|
||||
push @$result, ("--alt-y-grid", "-w 910", "-h 300");
|
||||
if ( $period eq 'day' ) { push @$result, ("--x-grid", "MINUTE:30:HOUR:1:HOUR:2:0:%H:%M"); }
|
||||
push @$result, ("--color", "SHADEA".$color{"color19"});
|
||||
push @$result, ("--color", "SHADEB".$color{"color19"});
|
||||
push @$result, ("--color", "BACK".$color{"color21"});
|
||||
|
||||
return $result;
|
||||
}
|
||||
|
||||
sub wiographbox {
|
||||
print "<center>";
|
||||
print "<table width='100%' cellspacing='0'>";
|
||||
print "<tr>";
|
||||
print "<td align='center' bgcolor='".$color{"color20"}."'><a href='".$_[0]."?".$_[1]."?hour?".$_[3]."' target='".$_[1]."box'><b>".$Lang::tr{'hour'}."</b></a></td>";
|
||||
print "<td align='center' bgcolor='".$color{"color20"}."'><a href='".$_[0]."?".$_[1]."?day?".$_[3]."' target='".$_[1]."box'><b>".$Lang::tr{'day'}."</b></a></td>";
|
||||
print "<td align='center' bgcolor='".$color{"color20"}."'><a href='".$_[0]."?".$_[1]."?week?".$_[3]."' target='".$_[1]."box'><b>".$Lang::tr{'week'}."</b></a></td>";
|
||||
print "<td align='center' bgcolor='".$color{"color20"}."'><a href='".$_[0]."?".$_[1]."?month?".$_[3]."' target='".$_[1]."box'><b>".$Lang::tr{'month'}."</b></a></td>";
|
||||
print "<td align='center' bgcolor='".$color{"color20"}."'><a href='".$_[0]."?".$_[1]."?year?".$_[3]."' target='".$_[1]."box'><b>".$Lang::tr{'year'}."</b></a></td>";
|
||||
print "</tr>";
|
||||
print "</table>";
|
||||
print "<table width='100%' cellspacing='0'>";
|
||||
print "<tr><td align='center' colspan='8'> </td></tr>";
|
||||
print "<tr><td align='center' colspan='8'><iframe class='graph' src='".$_[0]."?".$_[1]."?".$_[2]."?".$_[3]."' scrolling='no' marginheight='0' frameborder='no' name='".$_[1]."box'></iframe></td></tr>";
|
||||
print "</table>";
|
||||
print "</center>";
|
||||
}
|
||||
206
src/wio/wio-lib.pl
Normal file
206
src/wio/wio-lib.pl
Normal file
@@ -0,0 +1,206 @@
|
||||
#!/usr/bin/perl
|
||||
#
|
||||
###############################################################################
|
||||
# #
|
||||
# IPFire.org - A linux based firewall #
|
||||
# Copyright (C) 2017 Stephan Feddersen <addons@h-loit.de> #
|
||||
# All Rights Reserved. #
|
||||
# #
|
||||
# This program is free software: you can redistribute it and/or modify #
|
||||
# it under the terms of the GNU General Public License as published by #
|
||||
# the Free Software Foundation, either version 3 of the License, or #
|
||||
# (at your option) any later version. #
|
||||
# #
|
||||
# This program is distributed in the hope that it will be useful, #
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of #
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
|
||||
# GNU General Public License for more details. #
|
||||
# #
|
||||
# You should have received a copy of the GNU General Public License #
|
||||
# along with this program. If not, see <http://www.gnu.org/licenses/>. #
|
||||
# #
|
||||
###############################################################################
|
||||
#
|
||||
# id: wio-lib.pl, v1.3.1 2017/07/11 21:31:16 sfeddersen
|
||||
#
|
||||
# This wio-lib.pl is based on the Code from the IPCop WIO Addon
|
||||
# and is extremly adapted to work with IPFire.
|
||||
#
|
||||
# Autor: Stephan Feddersen
|
||||
# Co-Autor: Alexander Marx
|
||||
# Co-Autor: Frank Mainz
|
||||
#
|
||||
|
||||
package WIO;
|
||||
|
||||
# enable only the following on debugging purpose
|
||||
#use warnings;
|
||||
|
||||
use strict;
|
||||
use Socket;
|
||||
use Time::Local;
|
||||
use MIME::Lite;
|
||||
|
||||
require '/var/ipfire/general-functions.pl';
|
||||
require '/var/ipfire/header.pl';
|
||||
require '/var/ipfire/lang.pl';
|
||||
|
||||
my $mailfile = "${General::swroot}/dma/mail.conf";
|
||||
my %mail = ();
|
||||
&General::readhash($mailfile, \%mail);
|
||||
|
||||
my $redactive = "/var/ipfire/red/active";
|
||||
my $msg = '';
|
||||
|
||||
############################################################################################################################
|
||||
|
||||
sub getdyndnsip {
|
||||
my $ipadr = $_[0];
|
||||
my $host = $_[1];
|
||||
my @fetchip = ();
|
||||
|
||||
if ( -e $redactive ) {
|
||||
@fetchip = gethostbyname($host);
|
||||
|
||||
if ( defined($fetchip[0]) ) {
|
||||
@fetchip = map ( &Socket::inet_ntoa($_), @fetchip[4..$#fetchip]);
|
||||
return ($fetchip[0], $Lang::tr{'wio_dyndns_success'});
|
||||
}
|
||||
}
|
||||
else {
|
||||
return ($ipadr, $Lang::tr{'wio_dyndns_info'});
|
||||
}
|
||||
}
|
||||
|
||||
############################################################################################################################
|
||||
|
||||
sub contime {
|
||||
my $str = $_[0];
|
||||
my %m = ();
|
||||
@m{qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/} = (0 .. 11);
|
||||
|
||||
if ( $str =~ /^\w{3}\ ([a-zA-Z]+)\ (\d{1,2})\ (\d{2})\:(\d{2})\:(\d{2}) (\d{4})$/ ||
|
||||
$str =~ /^\w{3}\ ([a-zA-Z]+)\ (\d{1})\ (\d{2})\:(\d{2})\:(\d{2}) (\d{4})$/ )
|
||||
{
|
||||
my $past = timelocal($5, $4, $3, $2, $m{$1}, $6);
|
||||
my $now = time;
|
||||
|
||||
my $totalsecs = $now - $past;
|
||||
my $days = int($totalsecs / 86400);
|
||||
my $totalhours = int($totalsecs / 3600);
|
||||
my $hours = $totalhours % 24;
|
||||
my $totalmins = int($totalsecs / 60);
|
||||
my $mins = $totalmins % 60;
|
||||
my $secs = $totalsecs % 60;
|
||||
|
||||
return "${days}d ${hours}h ${mins}m ${secs}s";
|
||||
}
|
||||
else {
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
############################################################################################################################
|
||||
|
||||
sub statustime {
|
||||
my $str = $_[0];
|
||||
my ( $day, $mon ) = '';
|
||||
|
||||
my %m = qw ( Jan 01 Feb 02 Mar 03 Apr 04 May 05 Jun 06 Jul 07 Aug 08 Sep 09 Oct 10 Nov 11 Dec 12 );
|
||||
|
||||
if ( $str =~ /^\w{3}\ ([a-zA-Z]+)\ (\d{1,2})\ (\d{2})\:(\d{2})\:(\d{2}) (\d{4})$/ ||
|
||||
$str =~ /^\w{3}\ ([a-zA-Z]+)\ (\d{1})\ (\d{2})\:(\d{2})\:(\d{2}) (\d{4})$/ )
|
||||
{
|
||||
$mon = $m{$1};
|
||||
|
||||
if (length $2 < 2) { $day = "0$2"; }
|
||||
else { $day = $2; }
|
||||
|
||||
return "$day.$mon.$6 - $3:$4:$5";
|
||||
}
|
||||
else {
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
############################################################################################################################
|
||||
|
||||
sub mailsender {
|
||||
$msg = MIME::Lite->new(
|
||||
From => $mail{'SENDER'},
|
||||
To => $mail{'RECIPIENT'},
|
||||
Subject => $_[0],
|
||||
Type => 'multipart/mixed'
|
||||
);
|
||||
|
||||
$msg->attach(
|
||||
Type => 'TEXT',
|
||||
Data => $_[1]
|
||||
);
|
||||
|
||||
$msg->send_by_sendmail;
|
||||
}
|
||||
|
||||
############################################################################################################################
|
||||
|
||||
sub checkinto {
|
||||
my ($checkip, $checkhost, @checkfile) = @_;
|
||||
|
||||
if ( $checkip ne '' ) {
|
||||
foreach (@checkfile) {
|
||||
chomp;
|
||||
if ( (split (/\,/, $_))[2] eq $checkip ) { return $Lang::tr{'wio_ip_exists'}; last; }
|
||||
}
|
||||
}
|
||||
|
||||
if ( $checkhost ne '' ) {
|
||||
foreach (@checkfile) {
|
||||
chomp;
|
||||
if ( (split (/\,/, $_))[3] eq $checkhost ) {
|
||||
if ( $checkip ne '' ) {
|
||||
my $fileip = (split (/\,/, $_))[2];
|
||||
|
||||
$fileip =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;
|
||||
|
||||
my $fileip1 = $1;
|
||||
my $fileip2 = $2;
|
||||
my $fileip3 = $3;
|
||||
my $fileip4 = $4;
|
||||
|
||||
$checkip =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/;
|
||||
|
||||
if ( $fileip1 == $1 && $fileip2 == $2 && $fileip3 == $3 ) {
|
||||
return $Lang::tr{'wio_host_exists'}; last; }
|
||||
}
|
||||
else { return $Lang::tr{'wio_host_exists'}; last; }
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
############################################################################################################################
|
||||
|
||||
sub clearfile {
|
||||
my $file = $_[0];
|
||||
|
||||
open(FILE, "> $file");
|
||||
close(FILE);
|
||||
}
|
||||
|
||||
############################################################################################################################
|
||||
|
||||
sub color_devices() {
|
||||
my $output = shift;
|
||||
|
||||
if ( uc($output) eq "GREEN0" ) { $output = "<b><font color ='$Header::colourgreen'>$output</b>";}
|
||||
elsif ( uc($output) eq "BLUE0" ) { $output = "<b><font color ='$Header::colourblue'>$output</b>"; }
|
||||
elsif ( uc($output) eq "ORANGE0" ) { $output = "<b><font color ='$Header::colourorange'>$output</b>"; }
|
||||
elsif ( uc($output) eq "RED0" ) { $output = "<b><font color ='$Header::colourred'>$output</b>"; }
|
||||
else { return $output = "<b><font color ='#696565'>$output</b>"; }
|
||||
|
||||
return $output;
|
||||
}
|
||||
|
||||
return 1;
|
||||
2143
src/wio/wio.cgi
Normal file
2143
src/wio/wio.cgi
Normal file
File diff suppressed because it is too large
Load Diff
73
src/wio/wiographs.cgi
Normal file
73
src/wio/wiographs.cgi
Normal file
@@ -0,0 +1,73 @@
|
||||
#!/usr/bin/perl
|
||||
#
|
||||
###############################################################################
|
||||
# #
|
||||
# IPFire.org - A linux based firewall #
|
||||
# Copyright (C) 2017 Stephan Feddersen <addons@h-loit.de> #
|
||||
# All Rights Reserved. #
|
||||
# #
|
||||
# This program is free software: you can redistribute it and/or modify #
|
||||
# it under the terms of the GNU General Public License as published by #
|
||||
# the Free Software Foundation, either version 3 of the License, or #
|
||||
# (at your option) any later version. #
|
||||
# #
|
||||
# This program is distributed in the hope that it will be useful, #
|
||||
# but WITHOUT ANY WARRANTY; without even the implied warranty of #
|
||||
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
|
||||
# GNU General Public License for more details. #
|
||||
# #
|
||||
# You should have received a copy of the GNU General Public License #
|
||||
# along with this program. If not, see <http://www.gnu.org/licenses/>. #
|
||||
# #
|
||||
###############################################################################
|
||||
#
|
||||
# id: wiographs.cgi, v1.3.1 2017/07/11 21:31:16 sfeddersen
|
||||
#
|
||||
# This wiographs.cgi is based on the Code from the IPCop WIO Addon
|
||||
# and is extremly adapted to work with IPFire.
|
||||
#
|
||||
# Autor: Stephan Feddersen
|
||||
# Co-Autor: Alexander Marx
|
||||
#
|
||||
|
||||
use strict;
|
||||
|
||||
# enable only the following on debugging purpose
|
||||
#use warnings;
|
||||
#no warnings 'once';
|
||||
#use CGI::Carp 'fatalsToBrowser';
|
||||
|
||||
use CGI;
|
||||
my $cgi = new CGI;
|
||||
my $hostid = $cgi->param("HOSTID");
|
||||
my $hostname = $cgi->param("HOSTNAME");
|
||||
|
||||
require '/var/ipfire/general-functions.pl';
|
||||
require '/var/ipfire/header.pl';
|
||||
require '/var/ipfire/lang.pl';
|
||||
require '/usr/lib/wio/wio-graphs.pl';
|
||||
|
||||
my @querry = split(/\?/,$ENV{'QUERY_STRING'});
|
||||
|
||||
$querry[0] = '' unless defined $querry[0]; # hostid
|
||||
$querry[1] = '' unless defined $querry[1]; # period
|
||||
$querry[2] = '' unless defined $querry[2]; # hostname
|
||||
|
||||
if ($querry[0] =~ "$hostid") {
|
||||
print "Content-type: image/png\n\n";
|
||||
binmode(STDOUT);
|
||||
&WIOGraphs::wio($querry[0], $querry[2], $querry[1]);
|
||||
}
|
||||
else {
|
||||
&Header::showhttpheaders();
|
||||
&Header::openpage("$Lang::tr{'wio'}", 1, '');
|
||||
&Header::openbigbox('100%', 'left');
|
||||
&Header::openbox('100%', 'left', "$Lang::tr{'wio_graphs_stat'} $hostname");
|
||||
&WIOGraphs::wiographbox("wiographs.cgi","$hostid","day","$hostname");
|
||||
print"<table width='100%'><tr><td><a href='/cgi-bin/wio.cgi'><img src='/images/wio/back.png' alt='$Lang::tr{'wio_back'}' title='$Lang::tr{'wio_back'}' /></a></td></tr></table>";
|
||||
&Header::closebox();
|
||||
&Header::closebigbox();
|
||||
&Header::closepage();
|
||||
}
|
||||
|
||||
1;
|
||||
0
src/wio/wioips
Normal file
0
src/wio/wioips
Normal file
Reference in New Issue
Block a user