From mboxrd@z Thu Jan 1 00:00:00 1970 From: Stephan Feddersen To: development@lists.ipfire.org Subject: [PATCH] WIO: first addon release v1.3.1 Date: Fri, 14 Jul 2017 12:26:55 +0200 Message-ID: <1500028015-2271-1-git-send-email-sfeddersen@ipfire.org> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============1486638983931921398==" List-Id: --===============1486638983931921398== Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable --- config/rootfiles/packages/wio | 45 + lfs/wio | 65 ++ make.sh | 1 + src/misc-progs/Makefile | 2 +- src/misc-progs/list.h | 129 +++ src/misc-progs/wiohelper.c | 31 + src/misc-progs/wioscan.c | 665 +++++++++++ src/paks/wio/install.sh | 37 + src/paks/wio/uninstall.sh | 28 + src/paks/wio/update.sh | 26 + src/wio/EX-wio.menu | 6 + src/wio/config/backup/includes/wio | 2 + src/wio/images/add.png | Bin 0 -> 300 bytes src/wio/images/back.png | Bin 0 -> 315 bytes src/wio/images/blue.png | Bin 0 -> 177 bytes src/wio/images/fqdn.png | Bin 0 -> 526 bytes src/wio/images/graph.png | Bin 0 -> 260 bytes src/wio/images/green.png | Bin 0 -> 177 bytes src/wio/images/http.png | Bin 0 -> 349 bytes src/wio/images/https.png | Bin 0 -> 444 bytes src/wio/images/ip.png | Bin 0 -> 326 bytes src/wio/images/mailgreenoff.png | Bin 0 -> 540 bytes src/wio/images/mailgreenon.png | Bin 0 -> 566 bytes src/wio/images/mailredoff.png | Bin 0 -> 534 bytes src/wio/images/mailredon.png | Bin 0 -> 552 bytes src/wio/images/no_graph.png | Bin 0 -> 276 bytes src/wio/images/none.png | Bin 0 -> 297 bytes src/wio/images/orange.png | Bin 0 -> 178 bytes src/wio/images/ovpn.png | Bin 0 -> 178 bytes src/wio/images/ovpnn2n.png | Bin 0 -> 207 bytes src/wio/images/ovpnrw.png | Bin 0 -> 188 bytes src/wio/images/red.png | Bin 0 -> 177 bytes src/wio/images/refresh.png | Bin 0 -> 1751 bytes src/wio/images/vpn.png | Bin 0 -> 178 bytes src/wio/images/vpnn2n.png | Bin 0 -> 207 bytes src/wio/images/vpnrw.png | Bin 0 -> 188 bytes src/wio/images/white.png | Bin 0 -> 214 bytes src/wio/lang/wio.de.pl | 156 +++ src/wio/lang/wio.en.pl | 156 +++ src/wio/main/wio.conf | 0 src/wio/main/wio.pl | 385 +++++++ src/wio/main/wiovpn.pl | 293 +++++ src/wio/wio | 24 + src/wio/wio-graphs.pl | 127 +++ src/wio/wio-lib.pl | 206 ++++ src/wio/wio.cgi | 2143 ++++++++++++++++++++++++++++++++++= ++ src/wio/wiographs.cgi | 73 ++ src/wio/wioips | 0 48 files changed, 4599 insertions(+), 1 deletion(-) create mode 100644 config/rootfiles/packages/wio create mode 100644 lfs/wio create mode 100644 src/misc-progs/list.h create mode 100644 src/misc-progs/wiohelper.c create mode 100644 src/misc-progs/wioscan.c create mode 100644 src/paks/wio/install.sh create mode 100644 src/paks/wio/uninstall.sh create mode 100644 src/paks/wio/update.sh create mode 100644 src/wio/EX-wio.menu create mode 100644 src/wio/config/backup/includes/wio create mode 100644 src/wio/images/add.png create mode 100644 src/wio/images/back.png create mode 100644 src/wio/images/blue.png create mode 100644 src/wio/images/fqdn.png create mode 100644 src/wio/images/graph.png create mode 100644 src/wio/images/green.png create mode 100644 src/wio/images/http.png create mode 100644 src/wio/images/https.png create mode 100644 src/wio/images/ip.png create mode 100644 src/wio/images/mailgreenoff.png create mode 100644 src/wio/images/mailgreenon.png create mode 100644 src/wio/images/mailredoff.png create mode 100644 src/wio/images/mailredon.png create mode 100644 src/wio/images/no_graph.png create mode 100644 src/wio/images/none.png create mode 100644 src/wio/images/orange.png create mode 100644 src/wio/images/ovpn.png create mode 100644 src/wio/images/ovpnn2n.png create mode 100644 src/wio/images/ovpnrw.png create mode 100644 src/wio/images/red.png create mode 100644 src/wio/images/refresh.png create mode 100644 src/wio/images/vpn.png create mode 100644 src/wio/images/vpnn2n.png create mode 100644 src/wio/images/vpnrw.png create mode 100644 src/wio/images/white.png create mode 100644 src/wio/lang/wio.de.pl create mode 100644 src/wio/lang/wio.en.pl create mode 100644 src/wio/main/wio.conf create mode 100644 src/wio/main/wio.pl create mode 100644 src/wio/main/wiovpn.pl create mode 100644 src/wio/wio create mode 100644 src/wio/wio-graphs.pl create mode 100644 src/wio/wio-lib.pl create mode 100644 src/wio/wio.cgi create mode 100644 src/wio/wiographs.cgi create mode 100644 src/wio/wioips diff --git a/config/rootfiles/packages/wio b/config/rootfiles/packages/wio new file mode 100644 index 0000000..f238662 --- /dev/null +++ b/config/rootfiles/packages/wio @@ -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 diff --git a/lfs/wio b/lfs/wio new file mode 100644 index 0000000..a3c00d9 --- /dev/null +++ b/lfs/wio @@ -0,0 +1,65 @@ +############################################################################= ### +# IPFire.org - An Open Source Firewall Solution = # +# Copyright (C) - IPFire Development Team = # +############################################################################= ### + +############################################################################= ### +# Definitions +############################################################################= ### + +include Config + +VER =3D 1.3.1 + +THISAPP =3D wio-$(VER) +DIR_APP =3D $(DIR_SRC)/$(THISAPP) +TARGET =3D $(DIR_INFO)/$(THISAPP) +PROG =3D wio +PAK_VER =3D 1 + +############################################################################= ### +# Top-level Rules +############################################################################= ### + +install : $(TARGET) + +check :=20 + +download : + +md5 :=20 + +dist:=20 + @$(PAK) + +############################################################################= ### +# Installation Details +############################################################################= ### + +$(TARGET) : $(patsubst %,$(DIR_DL)/%,$(objects)) + @$(PREBUILD) + @rm -rf $(DIR_APP) && mkdir $(DIR_APP) && cp -R $(DIR_SRC)/src/wio/ $(DIR_A= PP) + 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/bac= kup/addons/includes/wio + + @rm -rf $(DIR_APP) + @$(POSTBUILD) diff --git a/make.sh b/make.sh index 663f23f..49bf518 100755 --- a/make.sh +++ b/make.sh @@ -885,6 +885,7 @@ buildipfire() { lfsmake2 perl-common-sense lfsmake2 perl-inotify2 lfsmake2 perl-Net-IP + lfsmake2 wio } =20 buildinstaller() { diff --git a/src/misc-progs/Makefile b/src/misc-progs/Makefile index 08a4e37..7cc70b4 100644 --- a/src/misc-progs/Makefile +++ b/src/misc-progs/Makefile @@ -26,7 +26,7 @@ PROGS =3D iowrap SUID_PROGS =3D 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 \ diff --git a/src/misc-progs/list.h b/src/misc-progs/list.h new file mode 100644 index 0000000..19bd21e --- /dev/null +++ b/src/misc-progs/list.h @@ -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 =3D b; + b->prev =3D a; +} + +static inline void list_add(struct list *head, struct list *item) +{ + struct list *first =3D 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 =3D head->prev; + list_link(item, head); + list_link(last, item); +} + +static inline list_t *list_del(struct list *item) +{ + struct list *prev =3D item->prev, *next =3D 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 =3D item->prev, *next =3D item->next; + list_link(prev, next); + next =3D head->next; + list_link(head, item); + list_link(item, next); +} + +/*static inline list_check(list_t *l) +{ + list_t *a =3D l; + list_t *b; + do { + b =3D a->next; + assert(b->prev =3D=3D a); + if(a=3D=3Dl) break; + a =3D b; + } while(1); +}*/ + +static inline void list_del_add_end(list_t *head, list_t *item) +{ + list_t *prev =3D item->prev, *next =3D item->next; + list_link(prev, next); + prev =3D head->prev; + list_link(item, head); + item->prev =3D prev; + prev->next =3D item; +} + +static inline void list_del_init(struct list *item) +{ + struct list *prev =3D item->prev, *next =3D item->next; + list_link(item, item); + list_link(prev, next); +} + +static inline void list_join(struct list *a, struct list *b) +{ + list_t *ae =3D a->prev; + list_t *be =3D b->prev; + b->prev =3D ae; + a->prev =3D be; + ae->next =3D b; + be->next =3D a; +} + +static inline int list_empty(struct list *head) +{ + return head->next =3D=3D head; +} + +#define LIST(L) struct list L =3D {&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 =3D head->next; + struct list *next =3D 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 =3D head->next; + struct list *next =3D 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 diff --git a/src/misc-progs/wiohelper.c b/src/misc-progs/wiohelper.c new file mode 100644 index 0000000..0f7fd86 --- /dev/null +++ b/src/misc-progs/wiohelper.c @@ -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. + * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + *=20 + * IPFire.org - A linux based firewall + * Copyright (C) 2017 Stephan Feddersen + * + * All Rights Reserved. + * + * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * + * + * Simple program intended to be installed setuid(0) that can be used from W= IO + * +*/ + +#include "setuid.h" + +int main(void) +{ + if (!(initsetuid())) + exit(1); + + safe_system("/var/ipfire/wio/wio.pl"); + + return 0; +} diff --git a/src/misc-progs/wioscan.c b/src/misc-progs/wioscan.c new file mode 100644 index 0000000..206456c --- /dev/null +++ b/src/misc-progs/wioscan.c @@ -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 +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#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 =3D {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 =3D=3D hl && memcmp(h->addr, ha, hl) =3D=3D 0; +} + +static inline void hw_set(struct hwaddr *h, int hl, u8 *ha) +{ + memcpy(h->addr, ha, (h->len =3D 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=3D0;inext; l!=3Dh; l=3Dl->next) { + he =3D list_entry(l, struct he, hash); + if(he->ip =3D=3D ip) + goto ret; + if(he->ip > ip) + break; + } + v =3D 0; + if(alloc) { + he =3D (struct he*)malloc(sizeof *he); + he->ip =3D ip; + list_add(l->prev, &he->hash); +ret: + if(ret) *ret =3D 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 =3D if_nametoindex(name); + if(!ifinfo.index) errx(1, "No such interface: %s", name); + ifinfo.name =3D name; + + net =3D 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 =3D ir.ifr_flags; + if(flags & IFF_NOARP) errx(1, "%s: ARP not supported.", name); + my_ioctl(SIOCGIFADDR, &ir); + ifinfo.ip =3D ip_from_sa(&ir.ifr_addr); + if(flags & IFF_POINTOPOINT) { + my_ioctl(SIOCGIFDSTADDR, &ir); + ifinfo.net =3D ip_from_sa(&ir.ifr_dstaddr); + ifinfo.mask =3D (u32)~0; + ifinfo.bcast =3D 0; /* none */ + } else { + my_ioctl(SIOCGIFNETMASK, &ir); + ifinfo.mask =3D ip_from_sa(&ir.ifr_netmask); + my_ioctl(SIOCGIFBRDADDR, &ir); + ifinfo.bcast =3D ip_from_sa(&ir.ifr_broadaddr); + ifinfo.net =3D ifinfo.ip & ifinfo.mask; + } + close(net); +} + +static inline char *str_ip(u32 ip) +{ + struct in_addr n; + n.s_addr =3D htonl(ip); + return inet_ntoa(n); +} + +char *str_hw(u8 *a, int l) +{ + static char buf[3*HWMAX]; + char *d =3D buf; + if(!l) return "*"; + if(l>HWMAX) l=3DHWMAX; + for(;;) { + d +=3D sprintf(d, "%02X", *a++); + if(--l <=3D 0) break; + *d++ =3D ':'; + } + *d =3D 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 =3D 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 =3D AF_PACKET; + addr.ll.sll_protocol =3D ARP; + addr.ll.sll_ifindex =3D ifinfo.index; + + if(bind(sock, &addr.sa, sizeof addr.ll)<0) + err(1, "bind"); + l =3D 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 =3D addr.ll.sll_halen; + memcpy(ifinfo.hw.addr, addr.ll.sll_addr, sizeof ifinfo.hw.addr); + ifinfo.hw_type =3D 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+p= kt->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 =3D 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+=3Darp->hln; + printf("sip:%s ", str_ip(ntohl(*(u32*)p))); p+=3Darp->pln; + printf("tha:%s ", str_hw(p, arp->hln)); p+=3Darp->hln; + printf("tip:%s\n", str_ip(ntohl(*(u32*)p))); +} +#endif + +static struct scan { + u32 ip, start, end; +} scan; + +#define IN_RANGE(I) ((I) >=3D scan.start && (I) <=3D (u32)(scan.end-1)) + +int sendscan() +{ + struct arppkt arp; + int ns; + u8 *p; + + arp.hrd =3D htons(ifinfo.hw_type); + arp.pro =3D IP; + arp.hln =3D ifinfo.hw.len; + arp.pln =3D 4; + arp.op =3D htons(1); + p =3D arp.a; + memcpy(p, ifinfo.hw.addr, ifinfo.hw.len); p +=3D ifinfo.hw.len; + *(u32*)p =3D htonl(ifinfo.ip); p +=3D 4; + memset(p, 0, ifinfo.hw.len); p +=3D ifinfo.hw.len; + + ns =3D 0; + while(scan.ip !=3D scan.end) { + int v; + if(scan.ip =3D=3D ifinfo.bcast || he_for(scan.ip, 0, 0)) { + scan.ip++; + continue; + } + *(u32*)p =3D htonl(scan.ip); + v =3D sendto(sock, &arp, p+4-(u8*)&arp, 0, &bcast.sa, sizeof bcast.ll); + if(v<0) { + if(errno !=3D ENOBUFS || opts.nsend <=3D 1) + err(1, "send(%s)", str_addr(&bcast)); + opts.nsend--; + return -1; + } + scan.ip++; + if(++ns >=3D 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 !=3D 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 =3D sizeof *src; + int v =3D 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 !=3D IP) + return 0; + if(pkt->hrd !=3D htons(ifinfo.hw_type) || pkt->hln !=3D 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 !=3D htons(2)) /* only responses */ + return; + + ip =3D 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 =3D sock; + pollfd.events =3D POLLIN; + v =3D poll(&pollfd, 1, n); + if(v < 0) { + if(errno !=3D EINTR) + err(1, "poll"); + v =3D 0; + } + return v; +} + +void print_he(struct he *he) +{ + int l, w; + if(opts.noown && he->ip =3D=3D ifinfo.ip) + return; + printf("%s,", str_hw(he->hw.addr, he->hw.len)); + l =3D 15 - printf("%s", str_ip(he->ip)); + w =3D 0; + if(!opts.proui && !hw_eq(&he->from, he->hw.len, he->hw.addr)) + w =3D 1, l =3D 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=3D0; + int sh; + + for(sh =3D 24;; sh -=3D 8) { + unsigned long v; + + v =3D strtoul(p, &e, 10); + if(p =3D=3D e || v > 255) + return 0; + + ip |=3D v << sh; + + p =3D e + 1; + if(*e =3D=3D '/') { + v =3D strtoul(p, &e, 10); + if(p =3D=3D e || *e || v > 32) + return 0; + if(v) { + v =3D 32 - v; + if(sh > v) + return 0; +mask: + v =3D ~0 << v; + } + scan.start =3D ip & v; + scan.end =3D scan.start - v; + return 1; + } + + if(!sh) break; + + v =3D sh; + if(!*e) + goto mask; + + if(*e !=3D '.') + return 0; + + if(!*p || *p =3D=3D '*' && !p[1]) + goto mask; + } + + scan.start =3D ip; + scan.end =3D ip + 1; + + if(*e =3D=3D '-') { + u32 end =3D 0, m =3D ~0; + + do { + unsigned long v =3D strtoul(p, &e, 10); + if(p =3D=3D e || v > 255) + return 0; + p =3D e + 1; + end =3D end<<8 | v; + m <<=3D 8; + } while(m && *e); + + if(*e) + return 0; + + end |=3D ip & m; + if(end < ip) + return 0; + + scan.end =3D end + 1; + return 1; + } + return *e =3D=3D 0; +} + +int main(int argc, char **argv) +{ + for(;;) switch(getopt(argc, argv, "fsaepwlh")) { + case 'f': opts.sort=3D0; break; + case 's': opts.sort=3D1; break; + case 'a': opts.noown=3D1; break; + case 'e': opts.noethn=3D1; break; + case 'p': opts.proui=3D1; break; + case 'w': opts.nsend=3D2; opts.wait=3D1000; break; + case 'l': opts.passive=3D1; 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 =3D "eth0"; + if(optind '9')) + dev =3D argv[optind++]; + fill_ifinfo(dev); + setup_socket(); + } + + if(optind>=3Dargc) { + scan.start =3D ifinfo.net; + scan.end =3D (ifinfo.net | ~ifinfo.mask) + 1; + } else { + if(!parse_iprange(argv[optind])) + errx(1, "%s: bad IP range", argv[optind]); + opts.isrange =3D 1; + } + + if(ifinfo.hw_type !=3D ARPHRD_ETHER) + opts.proui =3D 0, opts.noethn =3D 1; + + if(opts.passive) + passive(); + + /* hw broadcast address is Linux's secret, this works with Ethernet */ + bcast.sa.sa_family =3D AF_PACKET; + bcast.ll.sll_protocol =3D ARP; + bcast.ll.sll_ifindex =3D ifinfo.index; + bcast.ll.sll_hatype =3D ifinfo.hw_type; + bcast.ll.sll_pkttype =3D PACKET_BROADCAST; /* unused :-( */ + bcast.ll.sll_halen =3D 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 =3D scan.start; + while(sendscan()) { + while(waitsock(10)) + receive(); + } + /* 2nd scan */ + scan.ip =3D scan.start; + while(sendscan()) { + while(waitsock(10)) + receive(); + } + while(waitsock(opts.wait)) + receive(); + + if(opts.sort) for(scan.ip =3D ifinfo.net; scan.ip !=3D 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 =3D -2; +static char *ouiptr, *ouiend; + +static void open_oui() +{ + struct stat st; + fd =3D open("oui", O_RDONLY); + if(fd < 0) { + fd =3D open(STR(OUI), O_RDONLY); + if(fd < 0) goto err; + } + if(fstat(fd, &st) < 0 || st.st_size =3D=3D 0) goto err_cl; + ouiptr =3D mmap(0, st.st_size, PROT_READ, MAP_PRIVATE, fd, 0); + ouiend =3D ouiptr + st.st_size; + if(ouiptr =3D=3D MAP_FAILED) { +err_cl: + close(fd); fd=3D-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 =3D=3D -2) + open_oui(); + if(fd < 0) + return; + } + sprintf(addr, "%02X%02X%02X", a[0], a[1], a[2]); + + for(p=3Douiptr; p. = # +# # +############################################################################ +# +. /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 diff --git a/src/paks/wio/uninstall.sh b/src/paks/wio/uninstall.sh new file mode 100644 index 0000000..6be522d --- /dev/null +++ b/src/paks/wio/uninstall.sh @@ -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 = # +# # +############################################################################ + +. /opt/pakfire/lib/functions.sh +make_backup ${NAME} +remove_files + +/usr/local/bin/update-lang-cache diff --git a/src/paks/wio/update.sh b/src/paks/wio/update.sh new file mode 100644 index 0000000..89c40d0 --- /dev/null +++ b/src/paks/wio/update.sh @@ -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 . = # +# # +############################################################################ +# +. /opt/pakfire/lib/functions.sh +./uninstall.sh +./install.sh diff --git a/src/wio/EX-wio.menu b/src/wio/EX-wio.menu new file mode 100644 index 0000000..33a785e --- /dev/null +++ b/src/wio/EX-wio.menu @@ -0,0 +1,6 @@ + $substatus->{'55.wio'} =3D { + 'caption' =3D> "$Lang::tr{'wio'}", + 'uri' =3D> '/cgi-bin/wio.cgi', + 'title' =3D> "$Lang::tr{'wio'}", + 'enabled' =3D> 1, + }; diff --git a/src/wio/config/backup/includes/wio b/src/wio/config/backup/inclu= des/wio new file mode 100644 index 0000000..688b819 --- /dev/null +++ b/src/wio/config/backup/includes/wio @@ -0,0 +1,2 @@ +/var/ipfire/wio/wio.conf +/var/log/wio diff --git a/src/wio/images/add.png b/src/wio/images/add.png new file mode 100644 index 0000000000000000000000000000000000000000..d8946890d5ea4cb9777416d67cf1a= 39d92473f1f GIT binary patch literal 300 zcmeAS(a)N?(olHy`uVBq!ia0vp^A|TAc0wmQNuC(a)Uw#^NA%Cx&(BWL^R}OiAAEE)4(M z`_JqL@;D1TB8wRqxP?KOkzv*x37{Z*iKnkC`wdQ35k<|rr3y_zp$(ocjv*T7dnX+f zJftAtD&JFnT$nw2L&F_S#nQAj4U+wu2h?nqF(a)98daL7qX-9zrZKKHYO^^aA=3D_1a8! z&lKBIBsgORL&Y)K3!U?4JLSG(a)7QJ!Bjq%$2^FIPhUN=3DvF+2FqKlHA+Vvo~Mwt8KjC zCVy2uYtN>zeerGGdb>2%6{KnIQ>fy8(a)Vf1M%&zC5{g2LBC+(a)pZ!>xCt?NMQuI%?&_&NCG=3DN~`J4;11o z(a)Q5sCU|>xIVMfLqwI6|kEa{HEjtmSN`?>!lvI6<1JY5_^DsH` literal 0 HcmV?d00001 diff --git a/src/wio/images/blue.png b/src/wio/images/blue.png new file mode 100644 index 0000000000000000000000000000000000000000..84d570ea2e7c4631131bc6eaa80ba= e3703c3dae0 GIT binary patch literal 177 zcmeAS(a)N?(olHy`uVBq!ia0vp^A|TAc1|)ksWqE-Vdx(a)v7EBk#GDPAe9wrgAMfkK=3DG z9+AZi3~~oSnDKCCNH9>4CEd~2k%3`jKlh(RRv_QO)5S5Q;#P8kgwccl|NrwGJ7)ZU zavJm-XbhUfEBR9i>Z2{ig T>vbms&0_F$^>bP0l+XkKx^g!O literal 0 HcmV?d00001 diff --git a/src/wio/images/fqdn.png b/src/wio/images/fqdn.png new file mode 100644 index 0000000000000000000000000000000000000000..2db5ff73b233923c3a3c246666c63= c014452704d GIT binary patch literal 526 zcmV+p0`dKcP)ug zK~zY`&6TZ=3D@=3Dy?lpORH1BqVSJr?y}a{02=3D38Us1V+8P`Xz;XrrC~)}RL4i6HvbG9b z6J$TL?NW9j&1RSVPBO_k^L9Ej=3DWX8spw(*mz)S5tCrYqsx7)mOZMRzh6u(a)7v*8tRN zwO>!{`#!tf4ge`7i2$fpt1szXQItrow_D)0%KM-=3DojptX=3D$!cKMXIWX7WiD(rQ7YI zX&RkQ2iJA+eIFqNLI{e*B8FjbKA!-GBd<`QwaI~)$^x=3Dt#ULf3U{+m7JbY?gk%AMtCN z#%8m5O4q{zZYlVRyZe1$w^*;&3u%ab13~aT1?6&?`FxJ&c`OzSn$2b;?sB;>o6V?H zDxt4luai!ve};nLaLDm^q);euI-M8{1|cSdpwVdHc^>2OIMR%i^66g(a)3Q=3D4UvTYl~ zFfdJ%OeXVfJ+LebDdmR_#9gIQ>C*@J9X0$!fn`}Qn*)Iq{};oEzaGc`032l61Iv;C QkpKVy07*qoM6N<$f-Vi>SpWb4 literal 0 HcmV?d00001 diff --git a/src/wio/images/graph.png b/src/wio/images/graph.png new file mode 100644 index 0000000000000000000000000000000000000000..ac86b8cb25eff84a3f9e29f9354ff= e2bbe4bca66 GIT binary patch literal 260 zcmeAS(a)N?(olHy`uVBq!ia0vp^A|TAd3?%E9GuQzs_7YEDSN5A65*(6(i)V8$0Sa*z zctjR6FvuMQVaCImA;CaFmUKs7M+SzC{oH>NS%G|^0G|-o0|yRl+O+A+nKM8E28RFp z85mC5Z~6{oGL{7S1v5B2yO9RuWO%wbhE&|j?Yqd^puodg$UI+(a)IpGn*0=3D|G|<|{3K z!zXV0H=3D`ha`eIGq#4{|(@47Z=3Dd74gsx~^M0dTqmmtB0&y( y!(3k6*6uy=3DeV#-8_sG8oO3gQEO=3D|i-Q8`ZkzreK literal 0 HcmV?d00001 diff --git a/src/wio/images/green.png b/src/wio/images/green.png new file mode 100644 index 0000000000000000000000000000000000000000..44838ec22a23309e2dffb736d31ce= 03072a86e97 GIT binary patch literal 177 zcmeAS(a)N?(olHy`uVBq!ia0vp^A|TAc1|)ksWqE-Vdx(a)v7EBk#GDP9Tl>(6$l0EIXU zJR*x37~~FuFyrCOkYJ!7OS+(a)4BLl<6e(pbstU$hlr;B4q#jWH738M%9|NrMXX59OK zavJm-XbhUfEBR9jxe*xaF T4R3u1n#JJh>gTe~DWM4f7i>9m literal 0 HcmV?d00001 diff --git a/src/wio/images/http.png b/src/wio/images/http.png new file mode 100644 index 0000000000000000000000000000000000000000..851e400b9df6c7ddce1457f5056ab= 70ec8e501fc GIT binary patch literal 349 zcmeAS(a)N?(olHy`uVBq!ia0vp^3P3Et!3HGD8EPYe6kC$Fy9>jA5L~c#`DCC7XMsm# zF#`j)5C}6~x?A(a)LD9B#o>Fdh=3DfQeI7Kre9N<+DJcSDr48As)xiPCeV(V!+e7UtwJU ziypJrgEJF(a)k94lG2x9jzNsKxfXC`EP*ndLXo2V`k^}fG3`&AgOl)i0P(a)z`ALnE$M0 zipzQ)b2KpCG2mec3H(a)4;@LcAz4fBOK}9TwAh;0yR7eDcFt|m7I qhrz%%*o5Jq=3D0EZIg7tr8|1*@B%(e*<+xr^mYX(nOKbLh*2~7YzAdHCs literal 0 HcmV?d00001 diff --git a/src/wio/images/https.png b/src/wio/images/https.png new file mode 100644 index 0000000000000000000000000000000000000000..823126a3ff7ea4d6ff28b9018e0cb= 5eccebe015e GIT binary patch literal 444 zcmV;t0Ym6FvyG^_+ex_&4;&jVmKn~`N%|1B`n*X`Es`ln~QnD7CZP54dV md_Ipx;QkcjA5L~c#`DCC7XMsm# zF#`j)5C}6~x?A(a)LD9B#o>Fdh=3DfQeI7&?+dw>?2UQw{l=3D4R~DRmBRD{ z{SNTBC#0o3^z!iN>6yda#~5BXec2*chaksW9$`YR+xEYemu^_3!NQ^CKVPF-@|$$Hg?0wLIvc*FE(a)JVYkfP2vCtlu*-7O(B zu~#BFZnt5ZiErktW7f*Qy0)DA>~nitN$m5r(y@#RoB&sY Ren9Urc)I$ztaD0e0svC?cJ2TG literal 0 HcmV?d00001 diff --git a/src/wio/images/mailgreenoff.png b/src/wio/images/mailgreenoff.png new file mode 100644 index 0000000000000000000000000000000000000000..041c9e7b36d1cb0114c12914f222c= 62caad9b9de GIT binary patch literal 540 zcmV+%0^|LOP)Px#24YJ`L;(K){{a7>y{D4^000SaNLh0L01FZT01FZU(%pXi00007bV*G`2iXf3 z6e1UVwQ)ND00EpyL_t(I%cYY~D1&hr$3MTfH5x<8P=3Dv{B7aJ!B3wI6{4vM6>%0Y<> zX_6BM4svoqqLf(a)6Tvj`XgB|81GWoNGS$p(a)+>!R0Q(a)9ThH{p#uYeLqh<&-48W{&*5z zuL>ak0|Q8=3D3ajv86{^Yg<-#RrXF{05a5{M~Yj~QO+9wwVu>1tCZ*L%9CV78V$UezD zls10Bk(a)IF_3*X?^qdVST6f6~aIykr(066{B=3DM2#*)Y?feH#T9x9RkT z0xJtAT0B1OX8=3DC{n}cf<+w9ywKkD?-PkSDp_G|H5`i2q@%zB0CuYtP_f00-bGDl<5-v9bYLAruX3Iid4*FUdXt0000-Qm;# literal 0 HcmV?d00001 diff --git a/src/wio/images/mailgreenon.png b/src/wio/images/mailgreenon.png new file mode 100644 index 0000000000000000000000000000000000000000..9acc3582695458e410db1b4dfc806= bcb2fce82e1 GIT binary patch literal 566 zcmV-60?GY}P)Px#24YJ`L;(K){{a7>y{D4^000SaNLh0L01FZT01FZU(%pXi00007bV*G`2iXf2 z6crr9+;8Fl00Fj1L_t(I%gvKdNRx3G$3O4e+q=3Dy_8wM%^-^|J8PMZco^atw{RMMp` zBma<47mx1b#c3k_0X>vmI&}*P5iEl`1VIc2)gdJEAc*3q=3D0(a)bk-go2iAddaji-#U~ zF3<1#{r(=3DF=3Dlj6_8M(a)Mqu1J;aE{7^r$?!G2G*R*N_~rya52k!O^ylzOL|j9LI4+zL zThJ+*VHdUOq=3DZ)@H9M&wpJ>*_7H~@a)n;k9)*_DcO=3D1f;D(a)2qc0XY*6vh`|>+*StH zfI)|+1EZylF1Hter;~G7n;CrfdRU!`f+>nt+{9ULkj?B5`k#dgq=3DR_(jFALHgG}@;fG(Xp+m38+5jM3LLF`6n%kFL& z{@^p3+rGalyGm|5%a!SV>g{zUc&*wp+TEv#JAM+Hxm&2c9GJ&d*U0a`i4v?@PPXzE zvAK`jd49i8OJ~#EdNIuMqu0a}@xuic=3DNAY)93i=3Dz!pd7DcT=3DdUN;YTGe%sG>Y@>z~ zbww^cxz0In?~zWAuEqE?_6AH*ij6c|!~eB%_E_$24(a)h#L23E&SeEPx#24YJ`L;(K){{a7>y{D4^000SaNLh0L01FZT01FZU(%pXi00007bV*G`2iXf3 z6eJHhgHG!J00EXsL_t(I%cYaQO9EjS$3J(;31>pr1vTY#gAkMj%{EB{L9iU|g*;%yVVJ7l< z7v2p9c`B8doSS1On9^ebjsO4v07*qoM6N<$f`u33mH+?% literal 0 HcmV?d00001 diff --git a/src/wio/images/mailredon.png b/src/wio/images/mailredon.png new file mode 100644 index 0000000000000000000000000000000000000000..668ba7d423c2caac7611f0edd1e8d= 9dd9665ea9a GIT binary patch literal 552 zcmV+(a)0@wYCP)Px#24YJ`L;(K){{a7>y{D4^000SaNLh0L01FZT01FZU(%pXi00007bV*G`2iXf2 z6c8QBtgA5q00F2;L_t(I%f*vFNE>k!$3J%-iT$N5y*UmcO1g9~xVQ*iln`#ta!yW;#X$rq9YjTNh)^6NL9`@t-XELv(xEkYO(GPBzVZ9s z=3DK~Mkga2JptI!bQC9v0`^~!SH{W}FW(a)W*VniT*S{-z1UR!G+CD%B2!NJdeu71&(bq zwY=3DOUk=3DntB+uOu(a)dUzaPlaGKm1<<>!U7$U2vx(a)k&B}kn^&ntpZH;6m)5wBajrU7Se6=3DjRO66|B z!Nvw}=3DH{sSKJ_4=3D>ibBt%+Fel7b7E_9Ur$};j&m{$S{8I9g6`F{nLvAF-_xHBEe;` q*nG-{5Gz3XAO2|7a@`O2{>EQ0DxRTiMB-Nf0000^O^P5cccFjmwZO3L}CYY&SD)NnePVp(}oeqB6USE$|t-(a)Q{DD(Z^X}x(a)h zl+{c-)k-^Bu!IX<~+(a)P!P~iS z^KUuF&MTLATD`(?Tgm$`&h6Xm16SU*J)>8|84=3D2{jA5L~c#`DCC7XMsm# zF#`j)5C}6~x?A(a)LD9B#o>Fdh=3DfQeI7*evsbLQxEbUR^V}!@9>;t zc!*<;W!esznaw?nt1oy9FBSD%siZJ%g59Pw|BtaTC-itaT>kpZCFektw|DV5Mumng zI@}CVuU{R}RJ~TpnlLZ@$+H>DR(d{j>fqNaEs+VWW1pH*=3D32EaT$Mdmw(h#h+_l{e zk9$|uGaWBvQE1ulSVH-*K}wtDnm{r-UW|JdJJ^ literal 0 HcmV?d00001 diff --git a/src/wio/images/orange.png b/src/wio/images/orange.png new file mode 100644 index 0000000000000000000000000000000000000000..950446903074f485dfddf23735e2b= 7e0ba672bdc GIT binary patch literal 178 zcmeAS(a)N?(olHy`uVBq!ia0vp^A|TAc1|)ksWqE-Vdx(a)v7EBk#GDP9(a)2M96Bp4{jlJ4m1$iT3%pZiZDE0FK#>EaktaVt4N!sx;O|NnXZr%U}; z=3DVtzzB;~O#F~DX6n_a~Rh8}lbm2(a=3D(vl4S@~S-Xjd`?~jjwZ$&)Y}Y7nm4wbw1rT ToR(a)6}G>pO1)z4*}Q$iB}F4i?< literal 0 HcmV?d00001 diff --git a/src/wio/images/ovpn.png b/src/wio/images/ovpn.png new file mode 100644 index 0000000000000000000000000000000000000000..407a868a0a63266c7fd162470e8ef= 7cf26cfb9a8 GIT binary patch literal 178 zcmeAS(a)N?(olHy`uVBq!ia0vp^A|TAc1|)ksWqE-Vdx(a)v7EBk#GDPB>QyEB&91BEyX zJR*x37~~FuFyrCOkYJ!7OS+(a)4BLl<6e(pbstU$h_r;B4q#jWH738M%9|NrMXW}N;{ zoxS->54CEd~2k%3`jKlh(RRv_1~yp=3DM-H&_%N-D1u=3D(T3ho%C{80NZ(J5N8Jt+1=3DRK(b>E-}>nrB|T0o zRgvsCU9gB(<%#Vg<bP0l+XkK?L4CEd~2k%3`jKlh(RRv_Qo)5S5Q;#P8kgwcY93mXqsJUjFM zNy3CU9*1>_1~yp=3Ds~Y*`Y#NeN40Cc8(a)w%k*+c9sfl$>qhskdZTW60-E5B%GkFFULf dk8c)ZV7QmuTKUeUO$lf$gQu&X%Q~loCIC&gIL810 literal 0 HcmV?d00001 diff --git a/src/wio/images/red.png b/src/wio/images/red.png new file mode 100644 index 0000000000000000000000000000000000000000..e15dfb1eb17b404ad6c3a025afffe= 186006836d9 GIT binary patch literal 177 zcmeAS(a)N?(olHy`uVBq!ia0vp^A|TAc1|)ksWqE-Vdx(a)v7EBk#GDPA#ahs(DP0);pW zJR*x3803I#xr2;{Ged%bf-LEdzK#qG8~eHcB(ehe4xTQKAr-fh6C{it{Qv)-=3Dd!Qw z|H;jcRfY^Z+YWv>Aob(HL1qIv(+L*LiL*M7eledg!Mw1uU&=3Dz{lhM`g^^V*O(J_IK UOAhOK0?lIZboFyt=3DakR{0NUg?Pyhe` literal 0 HcmV?d00001 diff --git a/src/wio/images/refresh.png b/src/wio/images/refresh.png new file mode 100644 index 0000000000000000000000000000000000000000..60a5ddd4b400a2614eab95045e684= 6481c014b06 GIT binary patch literal 1751 zcmV;|1}OQ7P)004R=3D004l4008;_004mK004C`008P>0026d000+nm#LZ5000JJ zNkl~2M~V-%6$gX-|ft_|6$V) z5I~IB4Bm6(yqF+Aucf4zpazh(XJuj502;)>z{vRZ(a)1H*(zWw-h=3DiP(a)-w;w%y{qE1- zzmr^S3^5D`2p|lDx9vS4B_k#3qNO5V&%(;02vYNx;s3vX|Ns91;$Of2{r}Fu!19^t zFZ0)rA6`AUeB<7OKY#xfcsZG)7!D9XEXbU7+YZVq%S(A`sVOwEFf)q-4g4Q ztNs7Jym|NUKO(a)WkpNvd@FUg7hN&6oC-a|R~`RA`+{xdQ#VfY##fZzr%TfdV}T}dub zTSKV`WazDDR~X!1$1LEl`3nOZ2M5C^Cf5J2*jWFwef<9A(a)QdA7MZT&q>T0N8 z`SJ6IAkc`n$OZ!h5ZK^3OV)!TMqWWy(iLc^{Lf$C7#!ckGKhR-WRQ9Bf#I6E4Z}LU z$&9RQJpU)}n)u=3DAoom-r1*3Q!t(a)Lgw$cVN)eEjPF-lG(a)xI9nS$fEf%BK+N32a`Fre z|2_4!Rjrj2WW$-5m^cj1c{1?)`Nm*&^DTp&PT&77vpNP&7LNZ6f0;ghe9U%5K|rUO zTkxT-t)WdB6C)$H06&j4HzzyOp%WJ$s4B_40~rhuK#WhGJo^tcn1PF%>mShBO#gsv z#S8ijZdX1syi{`gztL(oaDRfRqs-iQE&no(a)aXj|202kR zkWt?rK6&1A_R`J8K+au&0Ak_h=3D7hN(90L=3DN_b|9W{l>ul`wv6CL^2~I6B7eBP?4vr zUHIjzw{~bK%jN(Lea1ict$nY3}qN{JQz`uU6D{MB3M00M~d(c>ro zd3m(a)Qs*g4^e7ZT6;jIuK1JAdg48OS88QycUFo=3DKp#ZY0lnL(UKf#Kzww?CESW!Rs+ zz0Y9rG#s2`7?}PrxSx8)aLLSx;e^gIU^-&>y!+sZVt(a)buSpcU00}B!v{4_8vHAW#p z2WbPN09DfH0P7A401EH(037c104ynp05%&q0Mpjm`YtOb2ln~#06N=3DS01x{N0QUs> z072pP00RgK03_Md0M`K#067{n2N)F-O#+DN+Vz{?w(i`w{P&+fKOX8`Wax5~W)OMz znc*!z7eiadYlcYeV1{kG5B=3DD-d;c+D_WsMo&d+eoXfMM)%|#6Ex85=3DEzJAZ}R?LQ> zH}y3`oXNz)KY#vyyKC>kxkpc(yZ8I|@4Wy41kZV!S1&l^ z>Kp#|;-#yvlj0&gTG~1uef#LfXRi9I45cCo{`uo4ko^BtR$N#>ORtpO|92wmFQr$^JbZji zob0TOtQ;JS)$)eG;+g5+i&wAjPnte=3D?d2;smH>nDGO{@U0fe=3Dn2Zl8Z4>xzUfu4(a)A zxv8uz+Iz`RmuO7cbvDK78c(r6b2rJ$d^4<(>=3DH~&jC?>>a{UM9t$+Xiz5V(9>&*}EUcLDE z?)7(&7lHUM5dQ*UpqYOG0tjX>DDSgD4QGO4MkvMy{zLIUC=3DIF;e*(??0uVs3F#ZO_ tf1rjlLk(si(qI(a)3a`8{7s~G?S3;=3DzEe4F>K!oUCk002ovPDHLkV1fySR9*l8 literal 0 HcmV?d00001 diff --git a/src/wio/images/vpn.png b/src/wio/images/vpn.png new file mode 100644 index 0000000000000000000000000000000000000000..d68f08e88fc0282e5a5e865d64979= 396ff37f9d6 GIT binary patch literal 178 zcmeAS(a)N?(olHy`uVBq!ia0vp^A|TAc1|)ksWqE-Vdx(a)v7EBk#GDP9Gh!lHM(fkK=3DG z9+AZi3~~oSnDKCCNH9>4CEd~2k%3`jKlh(RRv_Qe)5S5Q;#P8kgwccl|NrwCOQ!u( zXK((J#8AZB{IJpV!@*|u1e+{{LbgLD!rd?P6%_Ly3CWulXgo<>B_7`_#=3DxMVTk(F=3D TfhAc$!x%hW{an^LB{Ts5GSV~n literal 0 HcmV?d00001 diff --git a/src/wio/images/vpnn2n.png b/src/wio/images/vpnn2n.png new file mode 100644 index 0000000000000000000000000000000000000000..2aa96df0864959fbf94ed6a452508= bf95d6435eb GIT binary patch literal 207 zcmeAS(a)N?(olHy`uVBq!ia0vp^A|TAc1|)ksWqE-Vdx(a)v7EBk#GDPDQ;#V2{QfkK=3DG z9+AZi3~~oSnDKCCNH9>4CEd~2k%3`jKlh(RRv|4CEd~2k%3`jKlh(RRv_Qo)5S5Q;#P8kgwcY93mX&F4xjn| zBw<1vkHfk|1Dh;`RgL^|HVw%shB-NlcwN%@?U*-KO3t?M)LXKvG34{72mbBNmmOA# d$2W^HFbIE+wAbdTm;yAG!PC{xWt~$(69D`qHp&11 literal 0 HcmV?d00001 diff --git a/src/wio/images/white.png b/src/wio/images/white.png new file mode 100644 index 0000000000000000000000000000000000000000..20546bc071036721768210e1865fe= e9f12fc72a1 GIT binary patch literal 214 zcmeAS(a)N?(olHy`uVBq!ia0vp^A|TAc1|)ksWqE-VTavfC3&Vd9T(EcfWS|IVfk$L9 z0|UP$2s2tW{8|qbWH0gbb!ETDEX$>)+EVx722d#3)5S5w;`G%i)_eyHIGla+UJ4ia zl&=3DuFxN?5Oq$($mjq{k9Zp2>W_GDPF-Y#urcwglN4sA&+yxE#b90U zull_ccgKHQHqXG%Oz6(n(;W2{sXlS-mrhKZSW+*`b6VEe!_z|oXdQ#6tDnm{r-UW| DdoM?F literal 0 HcmV?d00001 diff --git a/src/wio/lang/wio.de.pl b/src/wio/lang/wio.de.pl new file mode 100644 index 0000000..430284e --- /dev/null +++ b/src/wio/lang/wio.de.pl @@ -0,0 +1,156 @@ +%tr =3D (%tr, +'wio' =3D> 'Who Is Online?', +'wio stat' =3D> 'Status:', +'wio checked' =3D> 'zuletzt =C3=BCberpr=C3=BCft', +'wio name' =3D> 'Hostname / FQDN', +'wio ipadress' =3D> 'IP-Adresse', +'wio image' =3D> 'Zustand', +'wio up' =3D> 'AKTIV', +'wio down' =3D> 'INAKTIV', +'wio err' =3D> 'Fehler', +'wio warn' =3D> 'Warnung', +'wio_import_csv' =3D> 'CSV Datei', +'wio_import_hosts' =3D> 'Hosts Datei (var/ipfire/main/hosts)', +'wio_import_data' =3D> 'Einstellungen f=C3=BCr ', +'wio_import_data1' =3D> ' bearbeiten:', +'wio_import_data2' =3D> ' importieren:', +'wio_import' =3D> 'Importieren', +'wio_import_info' =3D> 'Mitteilung:', +'wio_import_file' =3D> 'Client(s) importieren aus:', +'wio_import_info_csv' =3D> 'Es gibt keine neuen Einstellungen zu importieren= !', +'wio settings' =3D> 'Konfiguration:', +'wio enabled' =3D> 'aktivieren?', +'wio min' =3D> 'Minute(n)', +'wio cron' =3D> 'Zeitintervall f=C3=BCr die =C3=9Cberpr=C3=BCfung:', +'wio_ovpn_cron' =3D> 'Zeitintervall f=C3=BCr die =C3=9Cberpr=C3=BCfung des O= penVPN RW und IPSec Status:', +'wio_save' =3D> 'speichern', +'wio_error' =3D> 'Fehlermeldung:', +'wio_info' =3D> 'Meldung:', +'wio_back' =3D> 'zur=C3=BCck', +'wio_use' =3D> 'Diese Einstellungen importieren?', +'wio_ip_error' =3D> 'Ung=C3=BCltige IP-Adresse!', +'wio_host_error' =3D> 'Ung=C3=BCltiger Hostname!', +'wio_host_exists' =3D> 'Hostname wird schon benutzt!', +'wio_host_empty' =3D> 'Es wurde kein Hostname eingetragen!', +'wio_ip_exists' =3D> 'IP-Adresse wird schon benutzt!', +'wio_ip_empty' =3D> 'Es wurde keine IP-Adresse eingetragen!', +'wio_import_fixleases' =3D> 'DHCP Datei (var/ipfire/dhcp/fixleases)', +'wio_import_leases' =3D> 'Einstellungen importieren:', +'wio network' =3D> 'Netzwerk', +'wio_refresh' =3D> 'alle Clients aktualisieren', +'wio_fqdn_error' =3D> 'Ung=C3=BCltiger Fully Qualified Domain Name (FQDN)! B= itte keine Sonderzeichen, Umlaute oder Leerzeichen beim FQDN verwenden.', +'wio_edit' =3D> 'Einstellungen bearbeiten:', +'wio_dyndns' =3D> 'DynDNS', +'wio_dyndns_hosts' =3D> 'DynDNS Name(n)', +'wio_dyndns_refresh' =3D> 'DynDNS IP aktualisieren', +'wio_dyndns_on' =3D> 'DynDNS Host aktiviert (klicken, um zu deaktivieren)', +'wio_dyndns_off' =3D> 'DynDNS Host deaktiviert (klicken, um zu aktivieren)', +'wio_dyndns_info' =3D> 'Keine IP eingetragen, da scheinbar keine Verbindung = ins Internet besteht. Bei der n=C3=A4chsten Verbindung ins Internet wird eine= Aktualisierung der IP des DynDNS Hostes durchgef=C3=BChrt.', +'wio_no_csv' =3D> 'Die Datei hat nicht die Erweiterung .csv', +'wio_no_csv_error' =3D> 'Bitte keine Sonderzeichen, Umlaute oder Leerzeichen= im Dateinamen verwenden.', +'wio_no_file_selected' =3D> 'Es wurde keine Datei ausgew=C3=A4hlt!', +'wio_import_infos' =3D> 'Einstellungen importieren:', +'wio_import_infos_csv' =3D> 'ACHTUNG: Es werden nur die Datens=C3=A4tze impo= rtiert, bei denen die Option "Diese Einstellungen importieren?" aktiviert ist= ! Sollten Datens=C3=A4tze mit doppelten IP-Adressen oder Hostnamen vorkommen,= wird der zu erst aufgef=C3=BChrte Datensatz importiert und die anderen Daten= s=C3=A4tze (mit den doppelten IP-Adressen oder Hostnamen) werden nicht ber=C3= =BCcksichtigt!', +'enable disable dyndns' =3D> 'DynDNS Host aktivieren oder deaktivieren', +'wio_msg' =3D> 'Zustand (aktiv/inaktiv) des Clients / der Clients wird aktua= lisiert ...', +'wio_lanname' =3D> 'LAN Hostname', +'wio_wanname' =3D> 'WAN Hostname', +'wio_wancheck' =3D> 'verbunden seit', +'wio_sc_refresh' =3D> 'Client aktualisieren', +'wio_edit_settings' =3D> 'Client hinzuf=C3=BCgen:', +'wio_edit_client' =3D> 'Client bearbeiten:', +'wio_graphs' =3D> 'Graphen anzeigen', +'wio_no_graphs' =3D> 'keine Graphen vorhanden', +'wio_graphs_stat' =3D> 'Diagramme f=C3=BCr', +'wio_vpn_con' =3D> 'VPN - Verbindung(en):', +'wio_wan_con' =3D> 'WAN - Verbindung:', +'wio_clients' =3D> 'Clients:', +'wio click to disable' =3D> 'Aktiviert', +'wio click to enable' =3D> 'Deaktiviert', +'wio_net_scan' =3D> 'Netzwerk(e) durchsuchen:', +'wio_net_scan_vl' =3D> '', +'wio_net_scan_l' =3D> 'Netzwerk an', +'wio_net_scan_r' =3D> 'durchsuchen:', +'wio_net_scan_green' =3D> 'gr=C3=BCnes', +'wio_net_scan_blue' =3D> 'blaues', +'wio_net_scan_orange' =3D> 'oranges', +'wio_net_scan_run' =3D> 'starten', +'wio_sort_host' =3D> 'nach Hostnamen (FQDN) sortieren', +'wio_sort_ip' =3D> 'nach IP Adressen sortieren', +'wio_logging' =3D> 'Logging (/var/log/messages) aktivieren?', +'wio_no_image' =3D> 'KEIN STATUS', +'wio_ovpn_con' =3D> 'OpenVPN - Verbindung(en):', +'wio_ovpn_connected' =3D> 'verbunden seit', +'wio_wan_up' =3D> 'VERBUNDEN', +'wio_wan_down' =3D> 'GETRENNT', +'wio_n2n' =3D> 'Netz-zu-Netz Verbindung', +'wio_rw' =3D> 'Host-zu-Netz Verbindung', +'wio_mailremark_enabled' =3D> 'Anmerkung des Clients mit in Mailtext =C3=BCb= ernehmen?', +'wio_mail_online_on' =3D> 'Online-E-Mail aktiviert (klicken, um zu deaktivie= ren)', +'wio_mail_online_off' =3D> 'Online-E-Mail deaktiviert (klicken, um zu aktivi= eren)', +'wio_mail_offline_on' =3D> 'Offline-E-Mail aktiviert (klicken, um zu deaktiv= ieren)', +'wio_mail_offline_off' =3D> 'Offline-E-Mail deaktiviert (klicken, um zu akti= vieren)', +'wio_mail_online' =3D> 'Online E-Mail aktivieren oder deaktivieren', +'wio_mail_offline' =3D> 'Offline E-Mail aktivieren oder deaktivieren', +'wio_sendemail' =3D> 'E-Mail senden wenn', +'wio_hwaddress' =3D> 'HW-Adresse', +'wio_iface' =3D> 'Schnittstelle', +'wio_client_enable' =3D> 'Client aktivieren?', +'wio_ping_send' =3D> '=C3=BCberpr=C3=BCfen per', +'enable disable client' =3D> 'Client aktivieren oder deaktivieren', +'wio_client_on' =3D> '=C3=9Cberwachung aktiviert (klicken, um zu deaktiviere= n)', +'wio_client_off' =3D> '=C3=9Cberwachung deaktiviert (klicken, um zu aktivier= en)', +'wio_webinterface' =3D> 'LINK', +'wio_webinterface_link' =3D> 'Link =C3=B6ffnen', +'wio_ip' =3D> '=C3=BCberpr=C3=BCfen per IP aktiviert', +'wio_fqdn' =3D> '=C3=BCberpr=C3=BCfen per FQDN aktiviert', +'wio_ip_on' =3D> '=C3=BCberpr=C3=BCfen per IP aktiviert (klicken, um per FQD= N zu aktivieren)', +'wio_fqdn_on' =3D> '=C3=BCberpr=C3=BCfen per FQDN aktiviert (klicken, um per= IP zu aktivieren)', +'wio_client_add' =3D> 'Eingaben anwenden', +'wio_config' =3D> 'Client(s) konfigurieren:', +'wio_settings_msg' =3D> 'Einstellungen bearbeiten:', +'wio_settings_msg_hint' =3D> 'Um Who Is Online? benutzen zu k=C3=B6nnen, m= =C3=BCssen hier grunds=C3=A4tzliche Einstellungen vorgenommen werden.', +'wio_sub' =3D> 'WIO Client-Status-Mail', +'wio timeout' =3D> 'Ping Timeout:', +'wio sec' =3D> 'Sekunde(n)', +'wio_add' =3D> 'Client hinzuf=C3=BCgen:', +'wio_no_add' =3D> 'Client ist vorhanden', +'wio_id' =3D> '#', +'wio_online' =3D> 'online', +'wio_offline' =3D> 'offline', +'wio_status' =3D> 'WIO Client-Status', +'wio_mail_style' =3D> 'WIO Client Statusmails versenden als', +'wio_mail_smail' =3D> 'Sammelmail', +'wio_mail_email' =3D> 'Einzelmails', +'wio_mail_ovpnrw' =3D> 'OpenVPN RW und IPSec Statusmails aktivieren?', +'wio_edit_set' =3D> 'Konfiguration', +'wio_service' =3D> 'Service:', +'wio_dyndns_success' =3D> 'DynDNS IP ermittelt und eingetragen!', +'wio_remove_all' =3D> 'alle Clients l=C3=B6schen', +'wio_remove_all_hint' =3D> 'M=C3=B6chten Sie wirklich alle Clients l=C3=B6sc= hen?', +'wio_remove_client' =3D> 'Client l=C3=B6schen', +'wio_remove_client_hint' =3D> 'M=C3=B6chten Sie den Client wirklich l=C3=B6s= chen?', +'wio_arp_table_entries' =3D> 'Client aus der ARP-Tabelle hinzuf=C3=BCgen:', +'wio_activ' =3D> 'aktiv', +'wio_check' =3D> 'pr=C3=BCfen', +'wio_common_name' =3D> 'Remote Host / IP', +'wio_msg_left' =3D> 'Das', +'wio_msg_green' =3D> 'gr=C3=BCne', +'wio_msg_blue' =3D> 'blaue', +'wio_msg_orange' =3D> 'orange', +'wio_msg_center' =3D> 'Netzwerk an', +'wio_msg_right' =3D> 'wird durchsucht.', +'wio_msg_hint' =3D> 'Einen Moment bitte ...', +'wio_last_update' =3D> 'zuletzt aktualisiert', +'wio_disable_hint' =3D> 'Achtung! Es werden alle Einstellungen incl. der zu = =C3=BCberpr=C3=BCfenden Clients zur=C3=BCckgesetzt!', +'wio_clientremark' =3D> 'Anmerkung anzeigen?', +'wio_already_running' =3D> 'Die Pr=C3=BCfung wird bereits durchgef=C3=BChrt!= ', +'wio_error_function' =3D> 'Diese Funktion kann im Moment nicht ausgef=C3=BCh= rt werden, da im Hintergrund gerade der Zustand (aktiv/inaktiv) der Clients a= ktualisiert wird.', +'wio_shutdown' =3D> 'Herunterfahren, wenn alle Clients "offline" sind?', +'wio_unknown_lan' =3D> 'UNBEKANNT', +'wio_red_lan' =3D> 'ROT', +'wio_search' =3D> 'Suche im lokalen Netzwerk nach aktiven Hosts ...', +'wio_answer' =3D> 'Antwort', +'wio_answer_time' =3D> 'Antwortzeit', +'wio_scriptruntime' =3D> 'Scriptlaufzeit', +); diff --git a/src/wio/lang/wio.en.pl b/src/wio/lang/wio.en.pl new file mode 100644 index 0000000..154e64f --- /dev/null +++ b/src/wio/lang/wio.en.pl @@ -0,0 +1,156 @@ +%tr =3D (%tr, +'wio' =3D> 'Who Is Online?', +'wio stat' =3D> 'Current condition(s):', +'wio checked' =3D> 'Last checked', +'wio name' =3D> 'Hostname or FQDN', +'wio ipadress' =3D> 'IP-Address', +'wio image' =3D> 'Condition', +'wio up' =3D> 'Active', +'wio down' =3D> 'Inactive', +'wio err' =3D> 'Error', +'wio warn' =3D> 'Warning', +'wio_import_csv' =3D> 'CSV file:', +'wio_import_hosts' =3D> 'hosts configuration (var/ipfire/main/hosts) ?', +'wio_import_data' =3D> 'import settings for ', +'wio_import_data1' =3D> ' correct:', +'wio_import_data2' =3D> ' import:', +'wio_import' =3D> 'Importing', +'wio_import_info' =3D> 'message:', +'wio_import_file' =3D> 'Import settings from:', +'wio_import_info_csv' =3D> 'There are no new settings to import!', +'wio settings' =3D> 'configuration:', +'wio enabled' =3D> 'enable ?', +'wio min' =3D> 'Minute(s)', +'wio cron' =3D> 'Time interval for checking:', +'wio_ovpn_cron' =3D> 'Time interval for checking the OpenVPN RW and IPSec St= atus:', +'wio_save' =3D> 'save', +'wio_error' =3D> 'errormessage:', +'wio_info' =3D> 'message:', +'wio_back' =3D> 'back', +'wio_use' =3D> 'Import these settings ?', +'wio_ip_error' =3D> 'Invalid IP Address.', +'wio_host_error' =3D> 'Invalid Hostname.', +'wio_host_exists' =3D> 'Hostname is already used.', +'wio_host_empty' =3D> 'No Hostname was registered!', +'wio_ip_exists' =3D> 'IP Address is already used.', +'wio_ip_empty' =3D> 'No IP Address was registered!', +'wio_import_fixleases' =3D> 'DHCP configuration (var/ipfire/dhcp/fixleases) = ?', +'wio_import_leases' =3D> 'Import settings:', +'wio network' =3D> 'Network', +'wio_refresh' =3D> 'update all clients now', +'wio_fqdn_error' =3D> 'Invalid Fully Qualified Domain Name (FQDN)! Please do= not use special characters or blanks in the FQDN.', +'wio_edit' =3D> 'change settings:', +'wio_dyndns' =3D> 'DynDNS', +'wio_dyndns_hosts' =3D> 'DynDNS Name(s)', +'wio_dyndns_refresh' =3D> 'DynDNS Host IP update', +'wio_dyndns_on' =3D> 'DynDNS Host enabled (click to disable)', +'wio_dyndns_off' =3D> 'DynDNS Host disabled (click to enable)', +'wio_dyndns_info' =3D> 'None IP registered, since apparently no connection e= xists in Internet. With the next connection in Internet is accomplished an ac= tualization of the IP of the DynDNS Hostes.', +'wio_no_csv' =3D> 'File has not the extension .csv', +'wio_no_csv_error' =3D> 'Please do not use special characters or blanks in t= he filename.', +'wio_no_file_selected' =3D> 'No File selected!', +'wio_import_infos' =3D> 'Import settings:', +'wio_import_infos_csv' =3D> 'NOTE: Only Data records with marked "Import the= se settings ?" are considered by importing! If data records with double IP-Ad= dresses or Hostnames should occur, only the first data record will be importe= d and the other data records (with the double IP-Addresses or Hostnames) will= not be considered!', +'enable disable dyndns' =3D> 'enable or disable DynDNS Host', +'wio_msg' =3D> 'Condition of the examining Client(s) are updated ...', +'wio_lanname' =3D> 'LAN Hostname', +'wio_wanname' =3D> 'WAN Hostname', +'wio_wancheck' =3D> 'connected since', +'wio_sc_refresh' =3D> 'update client now', +'wio_edit_settings' =3D> 'add client:', +'wio_edit_client' =3D> 'edit client:', +'wio_graphs' =3D> 'show graphs', +'wio_no_graphs' =3D> 'no graphs available', +'wio_graphs_stat' =3D> 'Diagramm for', +'wio_vpn_con' =3D> 'VPN - Connection(s):', +'wio_wan_con' =3D> 'WAN - Connection:', +'wio_clients' =3D> 'clients:', +'wio click to disable' =3D> 'Activated', +'wio click to enable' =3D> 'Deactivated', +'wio_net_scan' =3D> 'Scan Network(s):', +'wio_net_scan_vl' =3D> 'scan', +'wio_net_scan_l' =3D> 'Network on', +'wio_net_scan_r' =3D> '', +'wio_net_scan_green' =3D> 'green', +'wio_net_scan_blue' =3D> 'blue', +'wio_net_scan_orange' =3D> 'orange', +'wio_net_scan_run' =3D> 'start', +'wio_sort_host' =3D> 'sort Hostnames (FQDN)', +'wio_sort_ip' =3D> 'sort IP-Adresses', +'wio_logging' =3D> 'activate Logging (/var/log/messages) ?', +'wio_no_image' =3D> 'NO STATUS', +'wio_ovpn_con' =3D> 'OpenVPN - Connection(s):', +'wio_ovpn_connected' =3D> 'connected since', +'wio_wan_up' =3D> 'CONNECTED', +'wio_wan_down' =3D> 'NOT CONNECTED', +'wio_n2n' =3D> 'Net-to-Net Connection', +'wio_rw' =3D> 'Host-to-Net Connection', +'wio_mailremark_enabled' =3D> 'Add Remark from client to mailbody ?', +'wio_mail_online_on' =3D> 'online email enabled (click to disable)', +'wio_mail_online_off' =3D> 'online email disabled (click to enable)', +'wio_mail_offline_on' =3D> 'offline email enabled (click to disable)', +'wio_mail_offline_off' =3D> 'offline emaildisabled (click to enable)', +'wio_mail_online' =3D> 'enable or disable online email', +'wio_mail_offline' =3D> 'enable or disable offline email', +'wio_sendemail' =3D> 'send email', +'wio_hwaddress' =3D> 'HW-Adresse', +'wio_iface' =3D> 'Interface', +'wio_client_enable' =3D> 'enable Host ?', +'wio_ping_send' =3D> 'send ping to', +'enable disable client' =3D> 'enable or disable client', +'wio_client_on' =3D> 'Client enabled (click to disable)', +'wio_client_off' =3D> 'Client disabled (click to enable)', +'wio_webinterface' =3D> 'LINK', +'wio_webinterface_link' =3D> 'follow link', +'wio_ip' =3D> 'send ping to IP enabled', +'wio_fqdn' =3D> 'send ping to FQDN enabled', +'wio_ip_on' =3D> 'send ping to IP enabled (click to enable FQDN)', +'wio_fqdn_on' =3D> 'send ping to FQDN enabled (click to enable IP)', +'wio_client_add' =3D> 'use settings', +'wio_config' =3D> 'configurate Client(s):', +'wio_settings_msg' =3D> 'configurate settings:', +'wio_settings_msg_hint' =3D> 'Here you have to set some values to get the ad= don started.', +'wio_sub' =3D> 'WIO Client-Status-Mail', +'wio timeout' =3D> 'Ping Timeout:', +'wio sec' =3D> 'Second(s)', +'wio_add' =3D> 'add Client:', +'wio_no_add' =3D> 'Client is available', +'wio_id' =3D> '#', +'wio_online' =3D> 'online', +'wio_offline' =3D> 'offline', +'wio_status' =3D> 'WIO Client-Status', +'wio_mail_style' =3D> 'send WIO Client Statusmails as', +'wio_mail_smail' =3D> 'collected mail', +'wio_mail_email' =3D> 'single mails', +'wio_mail_ovpnrw' =3D> 'enable OpenVPN RW and IPSec Statusmails ?', +'wio_edit_set' =3D> 'configuration', +'wio_service' =3D> 'Service:', +'wio_dyndns_success' =3D> 'DynDNS IP identified and registered!', +'wio_remove_all' =3D> 'remove all clients', +'wio_remove_all_hint' =3D> 'Are you sure to delete all the clients?', +'wio_remove_client' =3D> 'remove client', +'wio_remove_client_hint' =3D> 'Are you sure to delete the client?', +'wio_arp_table_entries' =3D> 'add client from ARP-Table:', +'wio_activ' =3D> 'activ', +'wio_check' =3D> 'check', +'wio_common_name' =3D> 'Remote Host/IP', +'wio_msg_left' =3D> 'Searching on the', +'wio_msg_green' =3D> 'green', +'wio_msg_blue' =3D> 'blue', +'wio_msg_orange' =3D> 'orange', +'wio_msg_center' =3D> 'Interface on', +'wio_msg_right' =3D> 'is being examined.', +'wio_msg_hint' =3D> 'One moment please ...', +'wio_last_update' =3D> 'last update', +'wio_disable_hint' =3D> 'Attention! It will reset all settings including the= client to be checked!', +'wio_clientremark' =3D> 'show remark?', +'wio_already_running' =3D> 'This check is already running!', +'wio_error_function' =3D> 'This function is temporarily unavailable, because= in the background client states are being updated (active/inactive).', +'wio_shutdown' =3D> 'Shutdown when all clients are "offline"?', +'wio_unknown_lan' =3D> 'UNKNOWN', +'wio_red_lan' =3D> 'RED', +'wio_search' =3D> 'Searching for active hosts in the local network ...', +'wio_answer' =3D> 'Answer', +'wio_answer_time' =3D> 'Response Time', +'wio_scriptruntime' =3D> 'Script Execution Time', +); diff --git a/src/wio/main/wio.conf b/src/wio/main/wio.conf new file mode 100644 index 0000000..e69de29 diff --git a/src/wio/main/wio.pl b/src/wio/main/wio.pl new file mode 100644 index 0000000..985900d --- /dev/null +++ b/src/wio/main/wio.pl @@ -0,0 +1,385 @@ +#!/usr/bin/perl +# +############################################################################= ### +# = # +# IPFire.org - A linux based firewall = # +# Copyright (C) 2017 Stephan Feddersen = # +# 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 . = # +# = # +############################################################################= ### +# +# 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 ) =3D ''; +my $logdir =3D "/var/log/wio"; +my $owner =3D getpwnam "nobody"; +my $group =3D getgrnam "nobody"; +my $ipadrfile =3D "$logdir/wioips"; + +unless ( -e $ipadrfile ) { print ( "The file $ipadrfile doesn't exist!\n" );= exit; } + +foreach (@ARGV) { + if ( $_ eq '-d' || $_ eq '--debug') { $debug =3D 1; } + if ( $_ eq '-h' || $_ eq '--help' ) { die help(); } +} + +my ( %wiosettings, %mainsettings, %mailsettings, %netsettings ) =3D (); + +&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 =3D strftime "%a, %d.%m.%Y %H:%M:%S", localtime; +my $logging =3D $wiosettings{'LOGGING'}; +my $mailstyle =3D $wiosettings{'MAILSTYLE'}; +my $mailremark =3D $wiosettings{'MAILREMARK'}; +my $timeout =3D $wiosettings{'TIMEOUT'}; +my $shutdown =3D $wiosettings{'SHUTDOWN'}; +my $rrddir =3D "/var/log/rrd/wio"; +my $onoffip =3D "$logdir/wioscip"; +my $hostname =3D "$mainsettings{'HOSTNAME'}.$mainsettings{'DOMAINNAME'}"; +my $redactive =3D "/var/ipfire/red/active"; +my $rediface =3D "/var/ipfire/red/iface"; +my $reddev =3D ''; + +if ( -e $rediface ) { + $reddev =3D &General::get_red_interface; +} + +my $redip =3D $hostname; +my $vpnpid =3D ( -e "/var/run/charon.pid" ? `awk '{print $1}' /var/run/c= haron.pid`: ''); +my $ovpnpid =3D ( -e "/var/run/openvpn.pid" ? `awk '{print $1}' /var/run= /openvpn.pid`: ''); + +my $steptime =3D $wiosettings{'CRON'} *=3D 60; +my $i_ping =3D 'icmp'; +my $t_ping =3D 'tcp'; + +my $nr =3D 1; +my $poweroff =3D 0; + +my ( $togglestat, $arp, $time, $start, $timestamp ) =3D 0; +my ( $id, $ipadr, $ipadrnew, $host, $hostnew, $enable, $remark, $dyndns, $dy= ndnsip ) =3D ''; +my ( $mail, $mailon, $mailoff, $ping, $on, $httphost, $mailen ) =3D ''; +my ( $msg, $logmsg, $mailmsg, $smailtxt, $infomsg, $client, $mode, $onbak, $= arpclient ) =3D ''; +my ( $ping_i, $ping_t, $ping_ib, $ping_tb, $ping_iv, $ping_tv, $pingmode ) = =3D ''; +my ( @tmp, @arptmp, @myarray, @status, @arpclients ) =3D ''; +my @ifaces =3D ('GREEN','BLUE','ORANGE'); + + +if ( $mailsettings{'USEMAIL'} eq 'on' ) { $mailen =3D 'on'; } +else { $mailen =3D 'off'; } + +if ( -e $redactive ) { + open(IPADDR, "/var/ipfire/red/local-ipaddress"); + $redip =3D ; + close IPADDR; + chomp($redip); +} + +if ($debug) { + $start =3D [gettimeofday]; + startdebug(); +} + +foreach (@ifaces) { + if ( $netsettings{"${_}_DEV"} ne '' && $netsettings{"${_}_DEV"} ne 'disable= d' ) { + my $output =3D `ifconfig $netsettings{"${_}_DEV"}`; + + if ( grep (/RX bytes:0/, $output) ) { next; } + else { + @arptmp =3D `/usr/local/bin/wioscan -s $netsettings{"${_}_DEV"}`; + + foreach $arpclient (@arptmp) { + push (@arpclients, (split (/\,/,$arpclient))[1]); + } + } + $output =3D ''; + undef(@arptmp); + } +} + +if ( -e "$onoffip" ) { open( FILE, "< $onoffip" ); } +else { open( FILE, "< $ipadrfile" ); } +(a)myarray =3D ; +close(FILE); + +# ping all clients + +foreach (@myarray) { + chomp; + @tmp =3D split( /\,/, $_ ); + + ($id,$timestamp,$ipadr,$host,$enable,$remark,$dyndns,$mailon,$mailoff,$ping= ,$on,$httphost) =3D @tmp; + + $timestamp =3D strftime "%d.%m.%Y - %H:%M:%S", localtime; + + if ( $enable ne 'on' ) { + push (@status, "$id,$timestamp,$ipadr,$host,$enable,$remark,$dyndns,$mailo= n,$mailoff,$ping,$on,$httphost\n"); + next; + } + + if ( defined($dyndns) && ( $dyndns =3D~ 'on' ) ) { + ($dyndnsip, $infomsg) =3D &WIO::getdyndnsip($host, @myarray); + if ($dyndnsip ne $ipadr) { $ipadr =3D $dyndnsip; } + } + + $ping_i =3D $ping_t =3D $ping_ib =3D $ping_tb =3D $ping_iv =3D $ping_tv = =3D $pingmode =3D $arp =3D 0; + + foreach (@arpclients) { + chomp; + unless ( $ipadr eq $_ ) + { + $i =3D Net::Ping->new( $i_ping, $timeout ); + unless ( defined $i ) { die "Can't create Net::Ping object $!"; } + + $t =3D Net::Ping->new( $t_ping, $timeout ); + unless ( defined $t ) { die "Can't create Net::Ping object $!"; } + + $ib =3D Net::Ping->new( $i_ping, $timeout ); + unless ( defined $ib ) { die "Can't create Net::Ping object $!"; } + $ib->bind($redip); + + $tb =3D Net::Ping->new( $t_ping, $timeout ); + unless ( defined $tb ) { die "Can't create Net::Ping object $!"; } + $tb->bind($redip); + + if ($ovpnpid || $vpnpid) + { + $ivpn =3D Net::Ping->new( $i_ping, $timeout ); + unless ( defined $ivpn ) { die "Can't create Net::Ping object $!"; } + $ivpn->bind($hostname); + + $tvpn =3D Net::Ping->new( $t_ping, $timeout ); + unless ( defined $tvpn ) { die "Can't create Net::Ping object $!"; } + $tvpn->bind($hostname); + } + } + else { $arp =3D 1 } + } + + $client =3D ( ( $dyndns eq 'on' || $ping eq 'fqdn' ) ? $host : $ipadr ); + + if ($debug) { + printf "%2s %15s", $nr++, ($client ne $ipadr ? $ipadr : $client ); + $time =3D [gettimeofday]; + } + + if ( $arp =3D=3D 1=20 + || ($ping_i =3D $i->ping($client)) + || ($ping_t =3D $t->ping($client)) + || ($ping_ib =3D $ib->ping($client)) + || ($ping_tb =3D $tb->ping($client)) + || ($ovpnpid?($ping_iv =3D $ivpn->ping($client)) : 0) + || ($vpnpid?($ping_tv =3D $tvpn->ping($client)) : 0) ) + { + $mode =3D 100; + $msg =3D "$Lang::tr{'wio up'}"; + $onbak =3D $on; + $togglestat =3D ( $on ne 'on' ) ? 1 : 0; + $on =3D 'on'; + } + else { + $mode =3D 0; + $msg =3D "$Lang::tr{'wio down'}"; + $onbak =3D $on; + $togglestat =3D ( $on ne 'off' ) ? 1 : 0; + $on =3D 'off'; + } + + push (@status, "$id,$timestamp,$ipadr,$host,$enable,$remark,$dyndns,$mailon= ,$mailoff,$ping,$on,$httphost\n"); + + if ($debug) { + $mail =3D '----'; + if ( $mailon eq 'on' && $togglestat =3D=3D 1 && $mode =3D=3D 100 ) { $mail= =3D 'Online'; } + if ( $mailoff eq 'on' && $togglestat =3D=3D 1 && $mode =3D=3D 0 ) { $mail = =3D 'Offline'; } + if ( $dyndns ne 'on' ) { $dyndns =3D 'off'; } + + $pingmode =3D $arp ? 'ARPSCAN' : $ping_i ? 'ICMP' : $ping_t ? 'TCP' : $pin= g_ib ? 'ICMP+BIND' : $ping_tb ? 'TCP+BIND' : $ping_iv ? 'VPN ICMP' : $ping_tv= ? 'VPN TCP' : 'NO ECHO'; =20 + printf "%7s%8s%9s%10s %.4f sek%12s\n", $ping, $dyndns, $msg, $mail, tv= _interval($time), $pingmode; + } + + if ( $host eq '' ) { $hostnew =3D 'n/a'; } else { $hostnew =3D $host; } + if ( $ipadr eq '' ) { $ipadrnew =3D 'n/a'; } else { $ipadrnew =3D $ipadr; } + + if ( $logging eq 'on' ) { + $logmsg =3D "Client: $hostnew - IP: $ipadrnew - Status: $msg"; + &General::log("wio","$logmsg"); + } + + if ( $mailen eq 'on' && $togglestat =3D=3D 1 && ($mailon eq 'on' || $mailof= f eq 'on')) { +=09 + if ( $mailstyle eq 'email' || ($mailstyle eq 'smail' && $smailtxt eq '') )= { $mailmsg .=3D "Date\t : $now\n\n"; } + + $mailmsg .=3D "Client\t : $hostnew\nIP\t : $ipadrnew\nStatus\t : $msg\n"; + + if ( $mailremark eq 'on' && $remark ne '' ) { + $mailmsg .=3D "Remark : $remark\n\n"; + } + + if ( $mailstyle eq 'email' ) { + &WIO::mailsender("WIO - $host - $msg", $mailmsg); + undef ($mailmsg); + } + elsif ( $mailstyle eq 'smail' ) { + $smailtxt .=3D $mailmsg."\n"; + undef ($mailmsg); + } + } + + if ( $ping ne 'fqdn' ) { $client =3D $host; } + if ( $host eq '' ) { $client =3D $ipadr; } + + updatewiodata("$id"); + + if ( $arp =3D=3D 0 ) { + $i->close(); + $t->close(); + $ib->close(); + $tb->close(); + } + + if ( ( -e $ovpnpid || -e $vpnpid ) && $arp =3D=3D 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,$en= able,$remark,$dyndns,$mailon,$mailoff,$ping,$on,$httphost#g' $ipadrfile"); + chmod ( 0644, $ipadrfile );=20 + 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 =3D split( /\,/, $_ ); + + ($id,$timestamp,$ipadr,$host,$enable,$remark,$dyndns,$mailon,$mailoff,$pin= g,$on,$httphost) =3D @tmp; + =09 + if ( $on eq 'on' ) { + $poweroff =3D 0; + last; + } + else { + $poweroff =3D 1; + next; + } + } + + if ($poweroff =3D=3D 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 =3D $_[0]; + + if ( !-e "$rrddir/$id.rrd" ) { + RRDs::create( + "$rrddir/$id.rrd", "--step=3D$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 =3D 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 =3D 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"; +} diff --git a/src/wio/main/wiovpn.pl b/src/wio/main/wiovpn.pl new file mode 100644 index 0000000..f22bd7a --- /dev/null +++ b/src/wio/main/wiovpn.pl @@ -0,0 +1,293 @@ +#!/usr/bin/perl +# +############################################################################= ### +# = # +# IPFire.org - A linux based firewall = # +# Copyright (C) 2017 Stephan Feddersen = # +# 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 . = # +# = # +############################################################################= ### +# +# 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 =3D "/var/log/wio"; + +require '/var/ipfire/general-functions.pl'; +require '/var/ipfire/lang.pl'; +require '/usr/lib/wio/wio-lib.pl'; + +my %wiosettings =3D (); + +&General::readhash( "/var/ipfire/wio/wio.conf", \%wiosettings ); + +my $mailremark =3D $wiosettings{'MAILREMARK'}; +my $logging =3D $wiosettings{'LOGGING'}; + +my ( @ovpnstatus, @ovpncfg, @ovpncache, @ovpnarray, @ovpnmatch, @ovpnwrite ); + +my $now =3D strftime "%a, %d.%m.%Y %H:%M:%S", localtime; +my $ovpnpid =3D "/var/run/openvpn.pid"; +my $ovpnmailmsg =3D ''; +my $ovpncache =3D "$logdir/.ovpncache"; +my $ovpnconfig =3D "/var/ipfire/ovpn/ovpnconfig"; + +my ( $name, $nameul, $ovpnclt, $ovpncltip, $realipadr, $connected ) =3D ''; +my ( $ovpnmailsub, $ovpnrwlogin, $ovpnrwstatus, $status, $remark, $logmsg ) = =3D ''; + +my ( @vpnstatus, @vpncfg, @vpncache, @vpnarray, @vpnwrite ); + +my $vpnpid =3D "/var/run/charon.pid"; +my $vpnmailmsg =3D ''; +my $vpncache =3D "$logdir/.vpncache"; +my $vpnconfig =3D "/var/ipfire/vpn/config"; + +my ( $activ, $vpnmailsub, $vpnrwstatus, $status,) =3D ''; + +my $togglestat =3D 0; + +if ( ! -e "$ovpnpid" ) { + unlink "$ovpncache"; +} +else { + +(a)ovpnstatus =3D `cat /var/run/ovpnserver.log`; + +open(FILE, "$ovpnconfig"); +(a)ovpncfg =3D ; +close (FILE); + +unless ( -e "$ovpncache" ) { + open(FILE, ">$ovpncache"); + close (FILE); +} +else { + open(FILE, "$ovpncache"); + @ovpncache =3D ; + close (FILE); +} + +foreach (@ovpncfg) +{ + chomp; + + if ( $_ =3D~ "server" ) { next; } + + ( $name, $remark ) =3D (split (/\,/, $_))[3, 26]; + + $status =3D 'off'; + + unless ( grep (/$name/, @ovpncache) ) { push (@ovpncache, "$name,$remark,$s= tatus\n"); } +} + +foreach (@ovpncache) +{ + chomp; + + ( $name, $remark, $status ) =3D split (/\,/, $_); + + if ( grep (/,$name,/, @ovpncfg) ) { push (@ovpnarray, "$name,$remark,$statu= s\n"); } +} + +foreach (@ovpnarray) +{ + chomp; + ( $name, $remark, $status ) =3D split (/\,/, $_); + + if ( $name =3D~ m/_/ ) { $nameul =3D $name; } + else { ($nameul =3D $name) =3D~ s/ /_/g; } + + if ( grep (/$name/, @ovpnstatus) || grep (/$nameul/, @ovpnstatus) ) + { + foreach (@ovpnstatus) + { + chomp; + + if ( $_ =3D~ "ROUTING TABLE" ) { last; } + + @ovpnmatch =3D split (/\,/, $_); + + if ( @ovpnmatch !=3D 5 || $_ =3D~ "Common Name" ) { next; } + + ( $ovpnclt, $realipadr, undef, undef, $connected ) =3D @ovpnmatch; + + ( $ovpncltip, undef ) =3D split (/:/, $realipadr); + + $ovpnrwlogin =3D &WIO::statustime($connected); + + if ( $nameul eq $ovpnclt || $name eq $ovpnclt ) { + $ovpnrwstatus =3D "$Lang::tr{'wio up'}"; + $togglestat =3D ( $status ne 'on' ) ? 1 : 0; + $status =3D 'on'; + } + + if ( ! $name =3D~ m/_/ ) { $ovpnclt =3D~ s/_/ /g; } + + if ( $nameul eq $ovpnclt || $name eq $ovpnclt ) { push (@ovpnwrite, "$nam= e,$remark,$status\n"); } + + if ( $togglestat =3D=3D 1 && ($name eq $ovpnclt || $nameul eq $ovpnclt) ) + { + $ovpnmailsub =3D "WIO OVPN - $name - $ovpnrwstatus - $now"; + $logmsg =3D "Client: WIO OVPN $name - IP: $ovpncltip - Status: $ovpnrwst= atus"; + $ovpnmailmsg =3D "Client : $name\nLogin : $ovpnrwlogin\nIP : $ovpnc= ltip\nStatus : $ovpnrwstatus\n"; + + if ( $mailremark eq 'on' ) { + $ovpnmailmsg .=3D "Remark : $remark\n\n"; + } + + &WIO::mailsender($ovpnmailsub, $ovpnmailmsg); + if ( $logging eq 'on' ) { &General::log("wio","$logmsg"); } + undef ($ovpnmailsub); + undef ($ovpnmailmsg); + $togglestat =3D 0; + } + } + } + else { + if ( $status eq 'on' ) { + $ovpnrwstatus =3D "$Lang::tr{'wio down'}"; + $status =3D 'off'; + $ovpnmailsub =3D "WIO OVPN - $name - $ovpnrwstatus - $now"; + $logmsg =3D "Client: WIO OVPN $name - Status: $ovpnrwstatus"; + $ovpnmailmsg =3D "Client : $name\nLogout : $now\nStatus : $ovpnrwstatus\n= "; + + if ( $mailremark eq 'on' ) { + $ovpnmailmsg .=3D "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 =3D `/usr/local/bin/ipsecctrl I`; +} + +open(FILE, "$vpnconfig"); +(a)vpncfg =3D ; +close (FILE); + +if ( ! -e "$vpncache" ) { + open(FILE, ">$vpncache"); + close (FILE); +} +else { + open(FILE, "$vpncache"); + @vpncache =3D ; + close (FILE); +} + +foreach (@vpncfg) +{ + chomp; + + ( $activ, $name, $remark ) =3D (split (/\,/, $_))[1, 2, 25]; + + if ( $remark eq 'off' ) { $remark =3D '-'; } + + $status =3D 'off'; + + if ( $activ eq "off" ) { next; } + + unless ( grep (/$name/, @vpncache) ) { push (@vpncache, "$name,$remark,$sta= tus\n"); } +} + +foreach (@vpncache) +{ + chomp; + + ( $name, $remark, $status ) =3D split (/\,/, $_); +=09 + if ( grep (/,$name,/, @vpncfg) ) { push (@vpnarray, "$name,$remark,$status\= n"); } +} + +foreach (@vpnarray) +{ + chomp; +=09 + ( $name, $remark, $status ) =3D split (/\,/, $_); + + if ( grep (/$name\{.*INSTALLED/ , @vpnstatus) ) + { + $vpnrwstatus =3D "$Lang::tr{'wio up'}"; + $togglestat =3D ( $status ne 'on' ) ? 1 : 0; + $status =3D 'on'; + } + else { + $vpnrwstatus =3D "$Lang::tr{'wio down'}"; + $togglestat =3D ( $status ne 'off' ) ? 1 : 0; + $status =3D 'off'; + } + + push (@vpnwrite, "$name,$remark,$status\n"); + + if ( $togglestat =3D=3D 1 ) + { + $vpnmailsub =3D "WIO VPN - $name - $vpnrwstatus - $now"; + $logmsg =3D "Client: WIO VPN $name - Status: $vpnrwstatus $now"; + + if ( $mailremark eq 'on' ) { + if ( $status eq 'on' ) { $vpnmailmsg =3D "Client : $name\nLogin : $now\n= Status : $vpnrwstatus\nRemark : $remark\n"; } + else { $vpnmailmsg =3D "Client : $name\nLogout : $now\nStatus : $vpnrwsta= tus\nRemark : $remark\n"; } + } + else { + if ( $status eq 'on' ) { $vpnmailmsg =3D "Client : $name\nLogin : $now\n= Status : $vpnrwstatus\n"; } + else { $vpnmailmsg =3D "Client : $name\nLogout : $now\nStatus : $vpnrwsta= tus\n"; } + } + + &WIO::mailsender($vpnmailsub, $vpnmailmsg); + if ( $logging eq 'on' ) { &General::log("wio","$logmsg"); } + undef ($vpnmailsub); + undef ($vpnmailmsg); + $togglestat =3D 0; + } +} + +open( FILE, "> $vpncache" ); +print FILE @vpnwrite; +close(FILE); + +} diff --git a/src/wio/wio b/src/wio/wio new file mode 100644 index 0000000..dea5e57 --- /dev/null +++ b/src/wio/wio @@ -0,0 +1,24 @@ +#!/bin/bash +# +# Script to run wio helpers +# +. /var/ipfire/wio/wio.conf + +MINUTE=3D`date +%M` + +if [ $ENABLE =3D=3D on ]; then + + if [ $(($MINUTE%$CRON)) =3D=3D 0 ]; then + /var/ipfire/wio/wio.pl > /dev/null + fi + + if [ $OVPNRWMAIL =3D=3D on ]; then + if [ $(($MINUTE%$OVPNCRON)) =3D=3D 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 diff --git a/src/wio/wio-graphs.pl b/src/wio/wio-graphs.pl new file mode 100644 index 0000000..a5a58b4 --- /dev/null +++ b/src/wio/wio-graphs.pl @@ -0,0 +1,127 @@ +#!/usr/bin/perl +# +############################################################################= ### +# = # +# IPFire.org - A linux based firewall = # +# Copyright (C) 2017 Stephan Feddersen = # +# 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 . = # +# = # +############################################################################= ### +# +# 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 ) =3D (); + +&General::readhash('/var/ipfire/main/settings', \%mainsettings); +&General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/i= nclude/colors.txt", \%color); + +sub wio { + my $hostid =3D $_[0]; + my $hostname =3D $_[1]; + my $period =3D $_[2]; + + my @rrd =3D (); + + push @rrd, ("-"); + push @rrd, @{&header($period, "$hostname ($Lang::tr{$period})")}; + push @rrd, @{&body($hostid)}; + + RRDs::graph (@rrd); + + my $error =3D RRDs::error; + print "Error in RRD::graph for Who Is Online: $error\n" if $error; +} + +sub body { + my $hostid =3D shift; + my $result =3D []; + + push @$result, "DEF:mode=3D/var/log/rrd/wio/$hostid.rrd:mode:AVERAGE"; + push @$result, "CDEF:online=3Dmode,UN,0,mode,IF,50,GT,100,0,IF"; + push @$result, "CDEF:offline=3Dmode,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$Lang::tr{'wio_last_update= '}\\: ". lastupdate(scalar localtime()) ."\\r"; + + return $result; +} + +sub lastupdate { + my $text =3D shift; + + return undef if not defined $text; + $text =3D~ s/\\/\\\\/g; + $text =3D~ s/:/\\:/g; + + return $text; +} + +sub header { + my $period =3D shift; + my $title =3D shift; + my $result =3D []; + + 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:HOU= R: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 "
"; + print ""; + print ""; + print ""; + print ""; + print ""; + print ""; + print ""; + print ""; + print "
".$Lang::tr{'hou= r'}."".$Lang::tr{'day'= }."".$Lang::tr{'wee= k'}."".$Lang::tr{'mo= nth'}."".$Lang::tr{'yea= r'}."
"; + print ""; + print ""; + print ""; + print "
 
"; + print "
"; +} diff --git a/src/wio/wio-lib.pl b/src/wio/wio-lib.pl new file mode 100644 index 0000000..2f23c1d --- /dev/null +++ b/src/wio/wio-lib.pl @@ -0,0 +1,206 @@ +#!/usr/bin/perl +# +############################################################################= ### +# = # +# IPFire.org - A linux based firewall = # +# Copyright (C) 2017 Stephan Feddersen = # +# 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 . = # +# = # +############################################################################= ### +# +# 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 =3D "${General::swroot}/dma/mail.conf"; +my %mail =3D (); +&General::readhash($mailfile, \%mail); + +my $redactive =3D "/var/ipfire/red/active"; +my $msg =3D ''; + +############################################################################= ################################################ + +sub getdyndnsip { + my $ipadr =3D $_[0]; + my $host =3D $_[1]; + my @fetchip =3D (); + + if ( -e $redactive ) { + @fetchip =3D gethostbyname($host); + + if ( defined($fetchip[0]) ) { + @fetchip =3D 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 =3D $_[0]; + my %m =3D (); + @m{qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/} =3D (0 .. 11); + + if ( $str =3D~ /^\w{3}\ ([a-zA-Z]+)\ (\d{1,2})\ (\d{2})\:(\d{2})\:(\d{2}) (= \d{4})$/ || + $str =3D~ /^\w{3}\ ([a-zA-Z]+)\ (\d{1})\ (\d{2})\:(\d{2})\:(\d{2}) (\d{4= })$/ )=20 + { + my $past =3D timelocal($5, $4, $3, $2, $m{$1}, $6); + my $now =3D time; + + my $totalsecs =3D $now - $past; + my $days =3D int($totalsecs / 86400); + my $totalhours =3D int($totalsecs / 3600); + my $hours =3D $totalhours % 24; + my $totalmins =3D int($totalsecs / 60); + my $mins =3D $totalmins % 60; + my $secs =3D $totalsecs % 60; + + return "${days}d ${hours}h ${mins}m ${secs}s"; + } + else { + return; + } +} + +############################################################################= ################################################ + +sub statustime { + my $str =3D $_[0]; + my ( $day, $mon ) =3D ''; + + my %m =3D 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 =3D~ /^\w{3}\ ([a-zA-Z]+)\ (\d{1,2})\ (\d{2})\:(\d{2})\:(\d{2}) (= \d{4})$/ || + $str =3D~ /^\w{3}\ ([a-zA-Z]+)\ (\d{1})\ (\d{2})\:(\d{2})\:(\d{2}) (\d{4= })$/ ) + { + $mon =3D $m{$1}; + + if (length $2 < 2) { $day =3D "0$2"; } + else { $day =3D $2; } + + return "$day.$mon.$6 - $3:$4:$5"; + } + else { + return; + } +} + +############################################################################= ################################################ + +sub mailsender { + $msg =3D MIME::Lite->new( + From =3D> $mail{'SENDER'}, + To =3D> $mail{'RECIPIENT'}, + Subject =3D> $_[0], + Type =3D> 'multipart/mixed' + ); + + $msg->attach( + Type =3D> 'TEXT', + Data =3D> $_[1] + ); + + $msg->send_by_sendmail; +} + +############################################################################= ################################################ + +sub checkinto { + my ($checkip, $checkhost, @checkfile) =3D @_; + + if ( $checkip ne '' ) { + foreach (@checkfile) { + chomp; + if ( (split (/\,/, $_))[2] eq $checkip ) { return $Lang::tr{'wio_ip_exist= s'}; last; } + } + } + + if ( $checkhost ne '' ) { + foreach (@checkfile) { + chomp; + if ( (split (/\,/, $_))[3] eq $checkhost ) { + if ( $checkip ne '' ) { + my $fileip =3D (split (/\,/, $_))[2]; + + $fileip =3D~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/; + + my $fileip1 =3D $1; + my $fileip2 =3D $2; + my $fileip3 =3D $3; + my $fileip4 =3D $4; + =09 + $checkip =3D~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/; + + if ( $fileip1 =3D=3D $1 && $fileip2 =3D=3D $2 && $fileip3 =3D=3D $3 ) { + return $Lang::tr{'wio_host_exists'}; last; } + } + else { return $Lang::tr{'wio_host_exists'}; last; } + } + } + } + + return; +} + +############################################################################= ################################################ + +sub clearfile { + my $file =3D $_[0]; + + open(FILE, "> $file"); + close(FILE); +} + +############################################################################= ################################################ + +sub color_devices() { + my $output =3D shift; + + if ( uc($output) eq "GREEN0" ) { $output =3D "$output";} + elsif ( uc($output) eq "BLUE0" ) { $output =3D "$output"; } + elsif ( uc($output) eq "ORANGE0" ) { $output =3D "$output"; } + elsif ( uc($output) eq "RED0" ) { $output =3D "$output"; } + else { return $output =3D "$output"; } + + return $output; +} + +return 1; diff --git a/src/wio/wio.cgi b/src/wio/wio.cgi new file mode 100644 index 0000000..e7bf7e2 --- /dev/null +++ b/src/wio/wio.cgi @@ -0,0 +1,2143 @@ +#!/usr/bin/perl +# +############################################################################= ### +# = # +# IPFire.org - A linux based firewall = # +# Copyright (C) 2017 Stephan Feddersen = # +# 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 . = # +# = # +############################################################################= ### +# +# id: wio.cgi, v1.3.1 2017/07/11 21:31:16 sfeddersen +# +# This wio.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 +# Co-Autor: Frank Mainz +# + +use strict; + +# enable only the following on debugging purpose +#use warnings; +#no warnings 'once'; +#use CGI::Carp 'fatalsToBrowser'; + +my $debug =3D 0; + +use Socket; +use POSIX qw(strftime); +use File::Copy; +use Fatal qw/ open /; +use Net::Telnet; + +require '/var/ipfire/general-functions.pl'; +require '/var/ipfire/lang.pl'; +require '/var/ipfire/header.pl'; +require '/usr/lib/wio/wio-lib.pl'; +require '/usr/lib/wio/wio-graphs.pl'; + +my $logdir =3D "/var/log/wio"; + +my ( %mainsettings, %mailsettings, %wiosettings, %cgiparams, %netsettings, %= ipshash, + %vpnconfighash, %ovpnconfighash, %ovpnccdconfhash, %ovpnsettings, %checked= , %selected, %color ) =3D (); + +&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); +&General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/i= nclude/colors.txt", \%color); +&General::readhasharray('/var/ipfire/ovpn/ovpnconfig', \%ovpnconfighash); +&General::readhash('/var/ipfire/ovpn/settings', \%ovpnsettings); +&General::readhasharray('/var/ipfire/ovpn/ccd.conf', \%ovpnccdconfhash); +&General::readhasharray('/var/ipfire/vpn/config', \%vpnconfighash); + +my $ipadrfile =3D "$logdir/wioips"; +my $onoffip =3D "$logdir/wioscip"; +my $wiosettings =3D "/var/ipfire/wio/wio.conf"; +my $dyndnsconfig =3D "/var/ipfire/ddns/config"; +my $importfile =3D "$logdir/importfile"; +my $wiofile =3D "$logdir/wiofile"; +my $editfile =3D "$logdir/editfile"; +my $hostfile =3D "/var/ipfire/main/hosts"; +my $dhcpfile =3D "/var/ipfire/dhcp/fixleases"; +my $imgstatic =3D "/images/wio"; +my $rrddir =3D "/var/log/rrd/wio"; +my $refreshbox =3D ''; +my $sortstring =3D '^IPADR|^HOST'; +my $ovpnaddon =3D "/var/ipfire/ovpn"; +my $ovpnpid =3D "/var/run/openvpn.pid"; +my $vpnpid =3D "/var/run/charon.pid"; +my $redactive =3D "/var/ipfire/red/active"; +my $redip =3D '-'; +my $now =3D strftime "%Y-%m-%d", localtime; + +if ( -e $redactive ) { + open(IPADDR, "/var/ipfire/red/local-ipaddress"); + $redip =3D ; + close IPADDR; + chomp($redip); +} + +my $i =3D 0; +my $idarp =3D 0; +my $iddyndns =3D 0; +my $idvpn =3D 0; +my $idovpn =3D 0; +my $idsort =3D 0; +my $nr =3D 0; +my $count =3D 0; +my $showcount =3D 0; + +my ( $infomessage, $errormessage, $importmessage, $message ) =3D ''; + +my ( $buttontext, $host, $timestamp, $ipadr, $on, $remark, $dyndns, $dyndnsi= p, $sendemailon, $net, $dev, $iprange, $output, $write, $webinterface, + $sendemailoff, $pingmethode, $online, $color, $bgcolor, $exitcode, $id, $l= ine, $interface, $counter, $vpnn2nip, $vpnn2nmask, $ddns, $edc, + $edd, $wmon, $wmoff, $ipfqdn, $http, $wioscan, $statustxt, $status, $key, = $ic, $text, $image ) =3D ();=20 + +my ( @temp, @dates, @ipaddresses, @names, @remark, @sendemailon, @sendemailo= ff, @current, @ddns, @match, @webinterface, @arpcache, @arpadd, @line, + @hosts, @vpnstatus, @ovpnstatus, @activ, @dyndns, @pingmethode, @status, @= id, @write, @log ); + +my @nosaved =3D ('ACTION','ID','CLIENTID','TIMESTAMP','IPADR','HOST','REMARK= ','DYNDNS','SENDEMAILON','SENDEMAILOFF','PINGMETHODE','ONLINE','WEBINTERFACE'= ); + +my @devs_color =3D ('GREEN','BLUE','ORANGE','RED'); +my @devs_net =3D ('green0','blue0','orange0','red0'); +my @devs_img =3D ('green.png','blue.png','orange.png','red.png'); +my @devs_alt =3D ('green','blue','orange','red'); + +my %ifacecolor =3D ( GREEN =3D> 'wio_run_green', BLUE =3D> 'wio_run_blue', O= RANGE =3D> 'wio_run_orange'); + +&loadips(); + +## some wio settings + +$wiosettings{'ACTION'} =3D ''; +$wiosettings{'COUNT'} =3D ''; +$wiosettings{'ID'} =3D ''; +$wiosettings{'CLIENTID'} =3D ''; +$wiosettings{'SORT'} =3D 'IPADR'; +$wiosettings{'HOST'} =3D ''; +$wiosettings{'IPADR'} =3D ''; +$wiosettings{'EN'} =3D 'on'; +$wiosettings{'REMARK'} =3D ''; +$wiosettings{'DYNDNS'} =3D ''; +$wiosettings{'CLIENTREMARK'} =3D ''; +$wiosettings{'SENDEMAILON'} =3D ''; +$wiosettings{'SENDEMAILOFF'} =3D ''; +$wiosettings{'PINGMETHODE'} =3D 'ip'; +$wiosettings{'WEBINTERFACE'} =3D '----'; +$wiosettings{'TIMEOUT'} =3D '1'; +$wiosettings{'TIMESTAMP'} =3D ''; +$wiosettings{'ONLINE'} =3D 'off'; +$wiosettings{'CRON'} =3D '15'; +$wiosettings{'OVPNCRON'} =3D '5'; +$wiosettings{'ENABLE'} =3D 'off'; +$wiosettings{'LOGGING'} =3D 'off'; +$wiosettings{'MAILREMARK'} =3D 'off'; +$wiosettings{'MAILSTYLE'} =3D 'email'; +$wiosettings{'OVPNRWMAIL'} =3D 'off'; +$wiosettings{'SHUTDOWN'} =3D 'off'; + +&Header::getcgihash(\%wiosettings); +&Header::getcgihash(\%mainsettings); +&Header::getcgihash(\%mailsettings); +&Header::getcgihash(\%netsettings); + +if ( $mailsettings{'USEMAIL'} eq 'on' ) { $wiosettings{'SENDEMAIL'} =3D 'on'= ; } +else { $wiosettings{'SENDEMAIL'} =3D 'off'; } + +if ( -e $wiofile ) { goto WIOSCAN; } + +## get network ips +foreach (@devs_color) { + if ( $netsettings{"${_}_DEV"} ne '' ) { + + $wiosettings{"${_}_IPLOW"} =3D inet_ntoa pack q/N/, (unpack (q/N/, inet_at= on ($netsettings{"${_}_NETADDRESS"}))+1); + my @addrarr =3D split(/\./,$netsettings{"${_}_ADDRESS"}); + my $ipaddress =3D unpack( "N", pack( "C4",@addrarr ) ); + + my @maskarr =3D split(/\./,$netsettings{"${_}_NETMASK"}); + my $netmask =3D unpack( "N", pack( "C4",@maskarr ) ); + + my $bcast =3D ( $ipaddress & $netmask ) + ( ~ $netmask ); + my @bcastarr =3D inet_ntoa pack q/N/, (unpack (q/N/, inet_aton ($bcast))-1= ); + + $wiosettings{"${_}_IPHIGH"} =3D join(".",@bcastarr); + } +} + +## save wio settings + +if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_save'}.'1' ) { + unless ( `ps -A | grep wio.pl` ) { + $cgiparams{'SORT'} =3D $wiosettings{'SORT'}; + $cgiparams{'CRON'} =3D $wiosettings{'CRON'}; + $cgiparams{'OVPNCRON'} =3D $wiosettings{'OVPNCRON'}; + $cgiparams{'ENABLE'} =3D $wiosettings{'ENABLE'}; + $cgiparams{'LOGGING'} =3D $wiosettings{'LOGGING'}; + $cgiparams{'TIMEOUT'} =3D $wiosettings{'TIMEOUT'}; + $cgiparams{'ACTION'} =3D $wiosettings{'ACTION'}; + $cgiparams{'CLIENTREMARK'} =3D $wiosettings{'CLIENTREMARK'}; + $cgiparams{'MAILREMARK'} =3D $wiosettings{'MAILREMARK'}; + $cgiparams{'MAILSTYLE'} =3D $wiosettings{'MAILSTYLE'}; + $cgiparams{'OVPNRWMAIL'} =3D $wiosettings{'OVPNRWMAIL'}; + $cgiparams{'SHUTDOWN'} =3D $wiosettings{'SHUTDOWN'}; + + &General::writehash($wiosettings, \%cgiparams); + &General::readhash($wiosettings, \%wiosettings); + + if ( $wiosettings{'ENABLE'} eq 'off' ) { + &WIO::clearfile($ipadrfile); + unlink glob "$rrddir/*"; + } + } + else { + $infomessage =3D "$Lang::tr{'wio_error_function'}"; + } +} + +## save imported clients + +if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_save'}.'2' ) { + unless ( `ps -A | grep wio.pl` ) { + while ( $count < $wiosettings{'COUNT'} ) { + if ( defined($wiosettings{"USE$count"}) && $wiosettings{"USE$count"} eq '= on' ) { + $wiosettings{'CLIENTID'} =3D $wiosettings{'CLIENTID$count'}; + $wiosettings{'TIMESTAMP'} =3D $wiosettings{"TIMESTAMP$count"}; + $wiosettings{'IPADR'} =3D $wiosettings{"IPADR$count"}; + $wiosettings{'HOST'} =3D $wiosettings{"HOST$count"}; + $wiosettings{'EN'} =3D $wiosettings{"EN$count"}; + $wiosettings{'REMARK'} =3D $wiosettings{"REMARK$count"}; + $wiosettings{'DYNDNS'} =3D $wiosettings{"DYNDNS$count"}; + $wiosettings{'SENDEMAILON'} =3D $wiosettings{"SENDEMAILON$count"}; + $wiosettings{'SENDEMAILOFF'} =3D $wiosettings{"SENDEMAILOFF$count"}; + $wiosettings{'PINGMETHODE'} =3D $wiosettings{"PINGMETHODE$count"}; + $wiosettings{'ONLINE'} =3D $wiosettings{"ONLINE$count"}; + $wiosettings{'WEBINTERFACE'} =3D $wiosettings{"WEBINTERFACE$count"}; + + &validSave(); + + if ($errormessage) { + open(FILE, ">> $editfile"); + print FILE "$wiosettings{'CLIENTID'},$wiosettings{'TIMESTAMP'},$wiosett= ings{'IPADR'},$wiosettings{'HOST'},$wiosettings{'EN'},$wiosettings{'REMARK'},= $wiosettings{'DYNDNS'},$wiosettings{'SENDEMAILON'},$wiosettings{'SENDEMAILOFF= '},$wiosettings{'PINGMETHODE'},$wiosettings{'ONLINE'},$wiosettings{'WEBINTERF= ACE'}\n"; + close(FILE); + $importmessage =3D $errormessage; + } + else { + $wiosettings{'CLIENTID'} =3D &General::findhasharraykey (\%ipshash); + unshift (@current, "$wiosettings{'CLIENTID'},$wiosettings{'TIMESTAMP'},= $wiosettings{'IPADR'},$wiosettings{'HOST'},$wiosettings{'EN'},$wiosettings{'R= EMARK'},$wiosettings{'DYNDNS'},$wiosettings{'SENDEMAILON'},$wiosettings{'SEND= EMAILOFF'},$wiosettings{'PINGMETHODE'},$wiosettings{'ONLINE'},$wiosettings{'W= EBINTERFACE'}\n"); + &SortDataFile('',@current); + } + } + $count++; + } + + map ($wiosettings{$_} =3D '' ,@nosaved); + unlink ($importfile); + if ( -e "$editfile" ) { goto EDIT; } + } + else { + $infomessage =3D "$Lang::tr{'wio_error_function'}"; + } +} + +## add or update client + +if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_client_add'} ) { + unless ( `ps -A | grep wio.pl` ) { + &validSave(); + + unless ($errormessage) { + if ( $wiosettings{'ID'} eq '' && $wiosettings{'ACTION'} ne $Lang::tr{'edi= t'} ) { + $wiosettings{'CLIENTID'} =3D &General::findhasharraykey (\%ipshash); + unshift (@current, "$wiosettings{'CLIENTID'},$wiosettings{'TIMESTAMP'},$= wiosettings{'IPADR'},$wiosettings{'HOST'},$wiosettings{'EN'},$wiosettings{'RE= MARK'},$wiosettings{'DYNDNS'},$wiosettings{'SENDEMAILON'},$wiosettings{'SENDE= MAILOFF'},$wiosettings{'PINGMETHODE'},$wiosettings{'ONLINE'},$wiosettings{'WE= BINTERFACE'}\n"); + } + else { + @current[$wiosettings{'ID'}] =3D "$wiosettings{'CLIENTID'},$wiosettings{= 'TIMESTAMP'},$wiosettings{'IPADR'},$wiosettings{'HOST'},$wiosettings{'EN'},$w= iosettings{'REMARK'},$wiosettings{'DYNDNS'},$wiosettings{'SENDEMAILON'},$wios= ettings{'SENDEMAILOFF'},$wiosettings{'PINGMETHODE'},$wiosettings{'ONLINE'},$w= iosettings{'WEBINTERFACE'}\n"; + } + } + else { goto ERROR; } + + map ($wiosettings{$_} =3D '' ,@nosaved); + &SortDataFile('',@current); + } + else { + $infomessage =3D "$Lang::tr{'wio_error_function'}"; + } +} + +## add arp client + +if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_add'} ) { + unless ( `ps -A | grep wio.pl` ) { + open(FILE, "$logdir/.arpcache"); + @arpadd =3D ; + close (FILE); + + chomp(@arpadd[$wiosettings{'ID'}]); + @temp =3D split (/\,/, @arpadd[$wiosettings{'ID'}]); + + $wiosettings{'CLIENTID'} =3D &General::findhasharraykey (\%ipshash); + $wiosettings{'IPADR'} =3D $temp[1]; + $wiosettings{'HOST'} =3D $temp[2]; + $wiosettings{'EN'} =3D 'on'; + + $wiosettings{'PINGMETHODE'} =3D 'ip'; + $wiosettings{'ONLINE'} =3D 'off'; + + open(FILE, ">> $editfile"); + print FILE "$wiosettings{'CLIENTID'},$wiosettings{'TIMESTAMP'},$wiosetting= s{'IPADR'},$wiosettings{'HOST'},$wiosettings{'EN'},$wiosettings{'REMARK'},$wi= osettings{'DYNDNS'},$wiosettings{'SENDEMAILON'},$wiosettings{'SENDEMAILOFF'},= $wiosettings{'PINGMETHODE'},$wiosettings{'ONLINE'},$wiosettings{'WEBINTERFACE= '}\n"; + close(FILE); + + goto EDIT; + } + else { + undef($wiosettings{'ID'}); + $infomessage =3D "$Lang::tr{'wio_error_function'}"; + } +} + +## enable / disabel client || enable / disable dyndns || enable / disable se= ndemailon || enable / disable sendemailoff || change ip / fqdn + +if ( $wiosettings{'ACTION'} eq $Lang::tr{'enable disable client'} ) { $edc = =3D 'on'; } +if ( $wiosettings{'ACTION'} eq $Lang::tr{'enable disable dyndns'} ) { $edd = =3D 'on'; } +if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_mail_online'} ) { $wmon =3D 'o= n'; } +if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_mail_offline'} ) { $wmoff =3D = 'on'; } +if (( $wiosettings{'ACTION'} eq $Lang::tr{'wio_ip_on'} ) || ( $wiosettings{'= ACTION'} eq $Lang::tr{'wio_fqdn_on'} )) { $ipfqdn =3D 'on'; } + +if ( defined($edc) || defined($edd) || defined($wmon) || defined($wmoff) || = defined($ipfqdn) ) { + unless ( `ps -A | grep wio.pl` ) { + chomp(@current[$wiosettings{'ID'}]); + @temp =3D split (/\,/, @current[$wiosettings{'ID'}]); + + if ( $edc eq 'on' ) { + $temp[4] =3D $temp[4] ne '' ? '' : 'on'; + $temp[10] =3D ''; + $temp[11] =3D ''; + $temp[1] =3D ''; + unlink "$rrddir/$temp[0].rrd"; + } + elsif ( $edd eq 'on' ) { $temp[6] =3D $temp[6] ne '' ? '' : 'on'; } + elsif ( $wmon eq 'on' ) { $temp[7] =3D $temp[7] ne '' ? '' : 'on'; } + elsif ( $wmoff eq 'on' ) { $temp[8] =3D $temp[8] ne '' ? '' : 'on'; } + elsif ( $ipfqdn eq 'on' ) { $temp[9] =3D $temp[9] eq 'fqdn' ? 'ip' : 'fqdn= '; } + + @current[$wiosettings{'ID'}] =3D join (',', @temp)."\n"; + undef($wiosettings{'ID'}); + + &writeips(); + } + else { + undef($wiosettings{'ID'}); + $infomessage =3D "$Lang::tr{'wio_error_function'}"; + } +} + +## refresh wio status || refresh single client status + +if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_refresh'} || $wiosettings{'ACT= ION'} eq $Lang::tr{'wio_sc_refresh'} ) { + + if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_sc_refresh'} ) { + open(FILE, "> $onoffip"); + print FILE @current[$wiosettings{'ID'}]; + close(FILE); + + undef($wiosettings{'ID'}); + } + +unless ( `ps -A | grep wio.pl` ) { + +&Header::showhttpheaders(); +&Header::openpage($Lang::tr{'wio'}, 1, $refreshbox); +&Header::openbigbox('100%', 'left', ''); +&Header::openbox('100%', 'left', $Lang::tr{'wio_info'}); + +print" + + + + +
$Lang::tr{'wio_msg'}
 
+"; + +&Header::closebox(); +&Header::closebigbox(); +&Header::closepage(); + +while ( system("/usr/local/bin/wiohelper", "&") ) {} + +exit 0; =09 +} +else { + $infomessage =3D "$Lang::tr{'wio_already_running'}"; +} + +} + +## refresh dyndns ip + +if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_dyndns_refresh'} ) { + unless ( `ps -A | grep wio.pl` ) { + chomp(@current[$wiosettings{'ID'}]); + @temp =3D split (/\,/, @current[$wiosettings{'ID'}]); + + ($temp[2], $infomessage) =3D &WIO::getdyndnsip($temp[2], $temp[3]); + + @current[$wiosettings{'ID'}] =3D join (',', @temp)."\n"; + + &writeips(); + + undef($wiosettings{'ID'}); + } + else { + $infomessage =3D "$Lang::tr{'wio_error_function'}"; + } +} + +## edit client + +if ( $wiosettings{'ACTION'} eq $Lang::tr{'edit'} ) { + unless ( `ps -A | grep wio.pl` ) { + chomp(@current[$wiosettings{'ID'}]); + @temp =3D split (/\,/, @current[$wiosettings{'ID'}]); + + $wiosettings{'CLIENTID'} =3D $temp[0]; + $wiosettings{'TIMESTAMP'} =3D $temp[1]; + $wiosettings{'IPADR'} =3D $temp[2]; + $wiosettings{'HOST'} =3D $temp[3]; + $wiosettings{'EN'} =3D $temp[4]; + $wiosettings{'REMARK'} =3D $temp[5]; + $wiosettings{'DYNDNS'} =3D $temp[6]; + $wiosettings{'SENDEMAILON'} =3D $temp[7]; + $wiosettings{'SENDEMAILOFF'} =3D $temp[8]; + $wiosettings{'PINGMETHODE'} =3D $temp[9]; + $wiosettings{'ONLINE'} =3D $temp[10]; + $wiosettings{'WEBINTERFACE'} =3D $temp[11]; + } + else { + undef($wiosettings{'ACTION'}); + $infomessage =3D "$Lang::tr{'wio_error_function'}"; + } +} + +## remove client + +if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_remove_client'} ) { + unless ( `ps -A | grep wio.pl` ) { + chomp(@current[$wiosettings{'ID'}]); + + @temp =3D split (/\,/, @current[$wiosettings{'ID'}]); + + unlink "$rrddir/$temp[0].rrd"; + + splice (@current,$wiosettings{'ID'},1); + + &writeips(); + + undef($wiosettings{'ID'}); + } + else { + undef($wiosettings{'ID'}); + $infomessage =3D "$Lang::tr{'wio_error_function'}"; + } +} + +## remove all clients + +if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_remove_all'} ) { + unless ( `ps -A | grep wio.pl` ) { + &WIO::clearfile($ipadrfile); + unlink glob "$rrddir/*"; + undef(@current); + } + else { + $infomessage =3D "$Lang::tr{'wio_error_function'}"; + } +} + +## back function + +if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_back'} ) { + if ( -e "$importfile" ) { unlink ($importfile); } + map ($wiosettings{$_} =3D '' ,@nosaved); + undef($errormessage); +} + +## import hosts, fixleases or csv file || scan networks (green/blue/orange) + +if ( $wiosettings{'ACTION'} eq 'wio_run_green' || + $wiosettings{'ACTION'} eq 'wio_run_blue' || + $wiosettings{'ACTION'} eq 'wio_run_orange') { $wioscan =3D 'on'; } + +if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_import'}.'1' || + $wiosettings{'ACTION'} eq $Lang::tr{'wio_import'}.'2' || + $wiosettings{'ACTION'} eq $Lang::tr{'wio_import'}.'3' || + defined($wioscan) || defined($importmessage) ) { + +unless ( `ps -A | grep wio.pl` ) { + if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_import'}.'1' && $importmessag= e eq '' ) { + + &Header::getcgihash(\%wiosettings, {'wantfile' =3D> 1, 'filevar' =3D> 'CSV= FILE'}); + + if ( $wiosettings{'CSVFILE'} eq '' ) { + $errormessage =3D $Lang::tr{'wio_no_file_selected'}; + $message =3D 2; goto ERROR; + } + + if ( $wiosettings{'CSVFILE'} =3D~ /[^a-z0-9A-Z\ \.\-\_\:\\]+/ ) { + $errormessage =3D $Lang::tr{'wio_no_csv_error'}; + $message =3D 2; goto ERROR; + } + + if ( !($wiosettings{'CSVFILE'} =3D~ /.csv$/) ) { + $errormessage =3D $Lang::tr{'wio_no_csv'}; + $message =3D 2; goto ERROR; + } + + if (copy($wiosettings{'CSVFILE'}, "$logdir/importfile") !=3D 1) { + $errormessage =3D $!; + $message =3D 2; goto ERROR; + } + } + +EDIT: + +&General::readhash($wiosettings, \%wiosettings); + +&Header::showhttpheaders(); +&Header::openpage($Lang::tr{'wio'}, 1, ''); +&Header::openbigbox('100%', 'left'); + +if ($importmessage) { + &Header::openbox('100%', 'left', $Lang::tr{'wio_error'}, 'error'); + print"
$importmessage
"; + &Header::closebox(); +} + +if ( -e "$editfile" ) { + open(FILE, "< $editfile" ); } +elsif ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_import'}.'1' ) { + open(FILE, "< $importfile" ); } +elsif ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_import'}.'2' ) { + open(FILE, "< $hostfile" ); } +elsif ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_import'}.'3' ) { + open(FILE, "< $dhcpfile" ); } +elsif ( $wioscan eq 'on' ) { + + foreach (keys(%ifacecolor)) { + if ( $netsettings{"${_}_DEV"} eq $wiosettings{'ID'} ) { + $dev =3D $netsettings{"${_}_DEV"}; + $iprange =3D $wiosettings{"${_}_IPLOW"} . "-" . $wiosettings{"${_}_IPHIGH= "}; + + if ( $_ eq 'GREEN' ) { $color =3D "$Header::colourgreen"; $net =3D $Lang:= :tr{'wio_msg_green'}; } + elsif ( $_ eq 'BLUE' ) { $color =3D "$Header::colourblue"; $net =3D $Lang= ::tr{'wio_msg_blue'}; } + else { $color =3D "$Header::colourorange"; $net =3D $Lang::tr{'wio_msg_or= ange'}; } + } + } + +&Header::openbox('100%', 'left', $Lang::tr{'wio_info'}); + print" + + + +
$Lang::tr{'wio_msg_left'} = $net $Lang::tr{'wi= o_msg_center'} $dev $Lang::tr{'wio_msg_right'} $Lang::tr{'wio_msg_hint'}
 
"; +&Header::closebox(); +&Header::closebigbox(); + + open(FILE, "/usr/local/bin/wioscan -wsa $dev $iprange |" ); + +} + +(a)hosts =3D ; +close(FILE); + +if ( $wioscan ne 'on' && ! -e $wiofile ) { @hosts =3D sort @hosts; } +else { + open(FILE, "> $wiofile"); + print FILE @hosts; + close(FILE); + + print""; + exit 0; +} + +WIOSCAN: + +if ( -e $wiofile ) { + open(FILE, "< $wiofile"); + @hosts =3D ; + close (FILE); + + &General::readhash($wiosettings, \%wiosettings); + + &Header::showhttpheaders(); + &Header::openpage($Lang::tr{'wio'}, 1, ''); + &Header::openbigbox('100%', 'left'); +} + +foreach (@hosts) { + chomp; + + @line =3D split (/\,/, $_); + + if ( -e $editfile || -e $importfile ) { + $wiosettings{'CLIENTID$count'} =3D $line[0]; + $wiosettings{'TIMESTAMP$count'} =3D $line[1]; + $wiosettings{'IPADR$count'} =3D $line[2]; + $wiosettings{'HOST$count'} =3D $line[3]; + $wiosettings{'EN$count'} =3D $line[4]; + $wiosettings{'REMARK$count'} =3D $line[5]; + $wiosettings{'DYNDNS$count'} =3D $line[6]; + $wiosettings{'SENDEMAILON$count'} =3D $line[7]; + $wiosettings{'SENDEMAILOFF$count'} =3D $line[8]; + $wiosettings{'PINGMETHODE$count'} =3D $line[9]; + $wiosettings{'ONLINE$count'} =3D $line[10]; + $wiosettings{'WEBINTERFACE$count'} =3D $line[11]; + $wiosettings{'USE$count'} =3D 'on'; + } + else { + $wiosettings{'IPADR$count'} =3D $line[1]; + $wiosettings{'EN$count'} =3D 'on'; + $wiosettings{'PINGMETHODE$count'} =3D 'ip'; + $wiosettings{'USE$count'} =3D 'on'; + + if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_import'}.'2' ) { + $wiosettings{'HOST$count'} =3D $line[2]; + $wiosettings{'DOM$count'} =3D $line[3]; + $wiosettings{'REMARK$count'} =3D ''; + } + elsif ( $wioscan eq 'on' || -e $wiofile ) { + $wiosettings{'HOST$count'} =3D gethostbyaddr(inet_aton($line[1]), AF_INET= ); + if ($wiosettings{'HOST$count'} eq '') { $wiosettings{'HOST$count'} =3D $l= ine[1]; } + $wiosettings{'REMARK$count'} =3D ''; + $wiosettings{'WEBINTERFACE$count'} =3D ''; + } + else { + $wiosettings{'HOST$count'} =3D $line[7]; + $wiosettings{'REMARK$count'} =3D $line[6]; + } + } + + $checked{'EN$count'}{'on'} =3D ($wiosettings{'EN$count'} eq '' ) ? '' : "ch= ecked=3D'checked'"; + + $checked{'DYNDNS$count'}{'on'} =3D ($wiosettings{'DYNDNS$count'} eq '' ) ? = '' : "checked=3D'checked'"; + $checked{'SENDEMAILON$count'}{'on'} =3D ($wiosettings{'SENDEMAILON$count'} = eq '' ) ? '' : "checked=3D'checked'"; + $checked{'SENDEMAILOFF$count'}{'on'} =3D ($wiosettings{'SENDEMAILOFF$count'= } eq '' ) ? '' : "checked=3D'checked'"; + + $checked{'PINGMETHODE$count'}{'ip'} =3D $checked{'PINGMETHODE$count'}{'fqdn= '} =3D ''; + $checked{'PINGMETHODE$count'}{$wiosettings{'PINGMETHODE$count'}} =3D "check= ed=3D'checked'"; + + $checked{'USE$count'}{'on'} =3D ($wiosettings{'USE$count'} eq '' ) ? '' : "= checked=3D'checked'"; +=09 + $selected{'WEBINTERFACE$count'}{'----'} =3D ''; + $selected{'WEBINTERFACE$count'}{'HTTP'} =3D ''; + $selected{'WEBINTERFACE$count'}{'HTTPS'} =3D ''; + $selected{'WEBINTERFACE$count'}{$wiosettings{'WEBINTERFACE$count'}} =3D "se= lected=3D'selected'"; + +if (! &WIO::checkinto($wiosettings{'IPADR$count'}, $wiosettings{'HOST$count'= }, @current) ) { + +if ( $importmessage ) { + &Header::openbox('100%', 'left', "$Lang::tr{'wio_import_data'}'$wiosettings= {'HOST$count'}'$Lang::tr{'wio_import_data1'}"); +}=20 +elsif ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_import'}.'1' || $wioscan eq= 'on' || -e $wiofile || -e $editfile ) { + &Header::openbox('100%', 'left', "$Lang::tr{'wio_import_data'}'$wiosettings= {'HOST$count'}'$Lang::tr{'wio_import_data2'}"); +} +elsif ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_import'}.'2' ) { + &Header::openbox('100%', 'left', "$Lang::tr{'wio_import_data'}'$wiosettings= {'HOST$count'}.$wiosettings{'DOM$count'}'$Lang::tr{'wio_import_data2'}"); +} +else { + &Header::openbox('100%', 'left', $Lang::tr{'wio_import_leases'}); +} + +print" +
+ + + + + + + + + + + + + + + +"; + +if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_import'}.'2' ) { + print""; +} +else { + print""; +} + +print" + + + + + + + + +"; + +if ( $wiosettings{'SENDEMAIL'} eq 'on' ) { + print" + "; +} +else { + print""; +} + +print" + + + + + +
$Lang::tr{'wio_use'}
$Lang::tr{'wio_client_enable'}
$Lang::tr{'host ip'}:$Lang::tr{'hostname'}:$Lang::tr{'remark'}:
$Lang::tr{'wio_ping_send'}: IP    = ;  FQDN$Lang::tr{'wio_dyndns'}:$Lang::tr{'wio_sendemail'}: $Lang::tr{'wio_online'}    &n= bsp; $Lang::tr{'wio_offline'} 
$Lang::tr{'wio_ping_send'}: + +
+"; + +&Header::closebox(); +$showcount++; +} +$count++; +} + +if ( $showcount gt 0 ) { +&Header::openbox('100%', 'left', $Lang::tr{'wio_import_infos'}); + +print" + + +"; + +if ($importmessage) { print""; } +else { print""; } + +print" + + +
 $Lang::tr{'wio_import_inf= os_csv'}
 
+ + + + + + + +
 = =
 
+"; + +&Header::closebox(); +&Header::closebigbox(); +&Header::closepage(); +} +else { + print""; +} + +if ( -e "$editfile" ) { unlink ($editfile); } +if ( -e "$wiofile" ) { unlink($wiofile); } +exit 0; +} +else { + $infomessage =3D "$Lang::tr{'wio_error_function'}"; +} +} + +## skript function + +if ($ENV{'QUERY_STRING'} =3D~ /$sortstring/ ) { + my $string =3D $ENV{'QUERY_STRING'}; + + if ( $string eq 'INFO' ) { + $infomessage =3D $Lang::tr{'wio_import_info_csv'}; + } + else { + &General::readhash($wiosettings, \%wiosettings); + + my $actual =3D $wiosettings{'SORT'}; + + if ($actual =3D~ $string) { + my $Rev =3D ''; + if ($actual !~ 'Rev') { $Rev =3D 'Rev'; } + $string.=3D$Rev; + } + + system("/bin/sed -i 's#$wiosettings{'SORT'}#$string#g' $wiosettings"); + + $wiosettings{'SORT'} =3D $string; + map ($wiosettings{$_} =3D '' ,@nosaved); + &SortDataFile('',@current); + } +} + +## main part + +ERROR: + +unless($message =3D=3D 1) { &General::readhash($wiosettings, \%wiosettings);= } + +for ($i=3D5; $i<=3D60; $i+=3D5) { $selected{'CRON'}{$i} =3D ''; } + +$selected{'CRON'}{$wiosettings{'CRON'}} =3D "selected=3D'selected'"; +=09 +for ($i=3D1; $i<=3D15; $i++) { + $selected{'TIMEOUT'}{$i} =3D ''; + $selected{'OVPNCRON'}{$i} =3D ''; +} + +$selected{'TIMEOUT'}{$wiosettings{'TIMEOUT'}} =3D "selected=3D'selected'"; +$selected{'OVPNCRON'}{$wiosettings{'OVPNCRON'}} =3D "selected=3D'selected'"; + +$checked{'ENABLE'}{'off'} =3D $checked{'ENABLE'}{'on'} =3D ''; +$checked{'ENABLE'}{$wiosettings{'ENABLE'}} =3D "checked=3D'checked'"; + +$checked{'LOGGING'}{'off'} =3D $checked{'LOGGING'}{'on'} =3D ''; +$checked{'LOGGING'}{$wiosettings{'LOGGING'}} =3D "checked=3D'checked'"; + +$checked{'CLIENTREMARK'}{'off'} =3D $checked{'CLIENTREMARK'}{'on'} =3D ''; +$checked{'CLIENTREMARK'}{$wiosettings{'CLIENTREMARK'}} =3D "checked=3D'check= ed'"; + +$checked{'MAILREMARK'}{'off'} =3D $checked{'MAILREMARK'}{'on'} =3D ''; +$checked{'MAILREMARK'}{$wiosettings{'MAILREMARK'}} =3D "checked=3D'checked'"; + +$checked{'OVPNRWMAIL'}{'off'} =3D $checked{'OVPNRWMAIL'}{'on'} =3D ''; +$checked{'OVPNRWMAIL'}{$wiosettings{'OVPNRWMAIL'}} =3D "checked=3D'checked'"; + +$checked{'SHUTDOWN'}{'off'} =3D $checked{'SHUTDOWN'}{'on'} =3D ''; +$checked{'SHUTDOWN'}{$wiosettings{'SHUTDOWN'}} =3D "checked=3D'checked'"; + +$checked{'MAILSTYLE'}{'smail'} =3D $checked{'MAILSTYLE'}{'email'} =3D ''; +$checked{'MAILSTYLE'}{$wiosettings{'MAILSTYLE'}} =3D "checked=3D'checked'"; + +&Header::showhttpheaders(); +&Header::openpage($Lang::tr{'wio'}, 1, ""); +&Header::openbigbox('100%', 'left', ''); + +## DEBUG / ERROR / INFO / UPDATE + +if ( $debug ) { + &Header::openbox('100%', 'left', 'DEBUG', 'warning'); + + print"errormessage: $errormessage
\n"; + print"infomessage: $infomessage
\n"; + + &hrline(); + =09 + my $wiodebug =3D 0; + foreach (sort keys %wiosettings) { + print"$_ =3D $wiosettings{$_}
\n"; + $wiodebug++; + } + + &hrline(); + + my $netdebug =3D 0; + foreach (sort keys %netsettings) { + print"$_ =3D $netsettings{$_}
\n"; + $netdebug++; + } + &Header::closebox(); +} + +if ( $errormessage ) { + &Header::openbox('100%', 'left', $Lang::tr{'wio_error'}, 'error'); + print"
$errormessage<= /b>
"; + &Header::closebox(); +} + +if ( $infomessage ) { + &Header::openbox('100%', 'left', $Lang::tr{'wio_info'}, 'warning'); + print"
$infomessage
"; + &Header::closebox(); +} + +## wio configuration + +if ( $wiosettings{'ACTION'} eq $Lang::tr{'edit'}.'1' || $message =3D=3D 1 ||= $wiosettings{'ENABLE'} eq 'off' ) { + +&Header::openbox('100%', 'left', $Lang::tr{'wio settings'}); + +print" +
+ + + + + + + + + + + + + +"; + +print""; + +if ( $wiosettings{'ENABLE'} eq 'on' ) { + print""; +} +else { + print""; +} +print" + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +"; + +if ( $wiosettings{'SENDEMAIL'} eq 'on' ) { +print" + + + + + + + + + + + + +"; +} +if ( -e "$ovpnaddon" || ! -z "/var/ipfire/vpn/config" ) { +print" + + + + + + + + + + + + +"; +} +print" + + + + + +
 $Lang::tr{'wio_settings_msg'}  
 
$Lang::tr{'wio_settings_msg_hint'}
 
$Lang::tr{'wio enabled'} 
 
$Lang::tr{'wio_shutdown'} 
 
$Lang::tr{'wio cron'}  $Lang::tr{'wio min'}
 
$Lang::tr{'wio timeout'}  $Lang::tr{'wio sec'}
 
$Lang::tr{'wio_logging'} 
 
$Lang::tr{'wio_clientremark'} 
 
$Lang::tr{'wio_mail_style'}:  $Lang::tr{'wio_mail_smail'} &nbs= p;    $Lang::tr{'wio_mail_email'}
 
$Lang::tr{'wio_mailremark_enabled'} 
 
$Lang::tr{'wio_mail_ovpnrw'} 
 
$Lang::tr{'wio_ovpn_cron'}  $Lang::tr{'wio min'}
 
 
 " + .($wiosettings{'ENABLE'} ne 'off' ? "     " : "") + ."
+
+"; + +&Header::closebox(); +&Header::closebigbox(); +&Header::closepage(); +exit 0; +} + +## wio client status + +if ( $wiosettings{'ENABLE'} eq 'on') { + if ( !$errormessage && $wiosettings{'ACTION'} ne $Lang::tr{'edit'} || $mess= age =3D=3D 2 ) { + &Header::openbox('100%', 'left', $Lang::tr{'wio stat'}); + + foreach (@current) { + chomp; + + ($id,$timestamp,$ipadr,$host,$on,$remark,$dyndns,$sendemailon,$sendemailo= ff,$pingmethode,$online,$webinterface) =3D split (/\,/, $_); + + if ( defined($dyndns) && ( $dyndns =3D~ 'on' ) ) { + ($dyndnsip, $infomessage) =3D &WIO::getdyndnsip($ipadr, $host); + + if ( $dyndnsip ne $ipadr ) { + $ipadr =3D $dyndnsip; + $write =3D 'on'; + } + } + + push (@id,($id)); + + if ( $on eq 'on' ) { push (@dates,($timestamp)); } + else { push (@dates,('-')); } + + push (@ipaddresses,($ipadr)); + push (@names,($host)); + push (@activ,($on)); + push (@remark,($remark)); + push (@dyndns,($dyndns)); + push (@sendemailon,($sendemailon)); + push (@sendemailoff,($sendemailoff)); + push (@pingmethode,($pingmethode)); + push (@status,($online)); + push (@webinterface,($webinterface)); + + push (@write, "$id,$timestamp,$ipadr,$host,$on,$remark,$dyndns,$sendemail= on,$sendemailoff,$pingmethode,$online,$webinterface\n"); + + $nr++; + } + + if ( defined($write) ) { &writeips(); } + +## wan connection + +print" + + + + + + +
 $La= ng::tr{'wio_wan_con'} 
 
+ + + + + + + + + + + + + + + + + + + + + + +
$Lang::tr{'wio_id'}$Lang::tr{'wio ipadress'}$Lang::tr{'wio network'}$Lang::tr{'wio_lanname'}$Lang::tr{'wio_wanname'}$Lang::tr{'wio_dyndns_hosts'}$Lang::tr{'wio image'}$Lang::tr{'wio_wancheck'}
01$redip + =3D'$Lang::tr{'internet'}'".$mainsettings{'= HOSTNAME'}.".".$mainsettings{'DOMAINNAME'}."".( $redip ne '-' ?= (gethostbyaddr(pack("C4", split (/\./, $redip)), 2))[0] : '-' )." +"; + +if ( -s "$dyndnsconfig" ) { + +open(FILE, "< $dyndnsconfig"); +(a)ddns =3D ; +close (FILE); + +$ddns =3D @ddns; +$bgcolor =3D "blue"; + + foreach (@ddns) { + chomp; + + @temp =3D split (/\,/, $_); + + if ( $temp[7] eq "on" ) { $bgcolor =3D ( &General::DyndnsServiceSync (&Gen= eral::GetDyndnsRedIP,$temp[1],$temp[2]) ? "$Header::colourgreen" : "$Header::= colourred" ); } + + print"$temp[1].$temp[2]"; + + if ( $iddyndns++ ne ($ddns-1) ) { print", "; } + } +} +else { print" - "; } + +print" + + + + + +
".( -e $redactive ? $Lang:= :tr{'wio_wan_up'} : $Lang::tr{'wio_wan_down'} )."
+ 		".( -e "$redactive"= ? &General::age("$redactive") : '-' )."
+"; + +&hrline(); + +## vpn connection(s) + +if ( -e "$vpnpid" ) { + +(a)vpnstatus =3D `/usr/local/bin/ipsecctrl I`; + +print" + + + + + + +
 $La= ng::tr{'wio_vpn_con'} 
 
+ + + + + + + + + +"; + +foreach $key (sort SortByTunnelName (keys(%vpnconfighash))) { + +my $vpncheck =3D ''; + +if ( -e '/var/log/wio/.vpncache' ) { + $vpncheck =3D strftime("%d.%m.%Y - %H:%M:%S",localtime(((stat('/var/log/wio= /.vpncache'))[9]))); +} + +$status =3D "bgcolor=3D'${Header::colourred}'"; +$statustxt =3D "$Lang::tr{'capsclosed'}"; + + if ($vpnconfighash{$key}[0] eq 'off') { + $status =3D "bgcolor=3D'${Header::colourblue}'"; + $statustxt =3D "$Lang::tr{'capsclosed'}"; + } + + foreach (@vpnstatus) { + if ($_ =3D~ /$vpnconfighash{$key}[1]\{.*INSTALLED/) { + $status =3D "bgcolor=3D'${Header::colourgreen}'"; + $statustxt =3D "$Lang::tr{'capsopen'}"; + last; + } + } + + print""; + + my $vpnnr =3D $idvpn+1; + + printf ("", $vpnnr); + + print" + + + + + + +"; +=20 +if ($vpnconfighash{$key}[25] && $wiosettings{'CLIENTREMARK'} eq 'on') { + print""; +} + print""; + $idvpn++ +} + +print"
$Lang::tr{'wio_id'}$Lang::tr{'wio checked'}$Lang::tr{'name'}$Lang::tr{'type'}$Lang::tr{'wio_common_name'}$Lang::tr{'wio image'}$Lang::tr{'wio_ovpn_connected'} +
%02d$vpncheck$vpnconfighash{$key}[1]3D'$Lang::tr{'wio_rw'}'".($vpnconfighash{$key}[2] eq '%auth-dn' ? "$vpncon= fighash{$key}[9]" : ($vpnconfighash{$key}[4] eq 'cert' ? "$vpnconfighash{$key= }[2]" : ($vpnconfighash{$key}[8] ne '' ? "$vpnconfighash{$key}[10]" : " = ")))." + + + +
$statustxt +
+ 		 
 $vpnconfighash{$key}[25]
"; +&hrline(); +} + +## openvpn connection(s) + +if ( -e "$ovpnpid" ) { + +(a)ovpnstatus =3D `cat /var/run/ovpnserver.log`; + +print" + + + + + + +
 $La= ng::tr{'wio_ovpn_con'} 
 
+ + + + + + + + + +"; + + foreach $key (keys %ovpnconfighash) { + + my ( $ovpnclt, $ovpntime, $ovpnrwip, $ovpncheck ) =3D ''; + + if ( -e '/var/log/wio/.ovpncache' ) { + $ovpncheck =3D strftime("%d.%m.%Y - %H:%M:%S",localtime(((stat('/var/log/= wio/.ovpncache'))[9]))); + } + + print""; + + my $ovpnnr =3D $idovpn+1; + + printf ("", $ovpnnr); + + if ($ovpnconfighash{$key}[3] eq 'net') { + $image =3D "$imgstatic/ovpnn2n.png"; + $text =3D "$Lang::tr{'wio_n2n'}"; + } + else { + $image =3D "$imgstatic/ovpnrw.png"; + $text =3D "$Lang::tr{'wio_rw'}"; + } + + if ( $ovpnconfighash{$key}[0] eq 'off' ) { + $status =3D "${Header::colourblue}"; + $statustxt =3D "$Lang::tr{'capsclosed'}"; + } + else { + =09 + if ($ovpnconfighash{$key}[3] eq 'net') { + if (-e "/var/run/$ovpnconfighash{$key}[1]n2n.pid") { + my @output =3D ""; + my @tustate =3D ""; + my $tport =3D $ovpnconfighash{$key}[22]; + my $tnet =3D new Net::Telnet ( Timeout=3D>5, Errmode=3D>'return', Port= =3D>$tport);=20 + if ($tport ne '') { + $tnet->open('127.0.0.1'); + @output =3D $tnet->cmd(String =3D> 'state', Prompt =3D> '/(END.*\n|ERR= OR:.*\n)/'); + @tustate =3D split(/\,/, $output[1]); + $ovpntime =3D &WIO::contime(scalar localtime($tustate[0])); + =09 + if (($tustate[1] eq 'CONNECTED')) { + $status =3D "${Header::colourgreen}"; + $statustxt =3D "$Lang::tr{'capsopen'}"; + }else { + $status =3D "${Header::colourred}"; + $statustxt =3D "$tustate[1]"; + } + } + } + } + else { + foreach (@ovpnstatus) { + if ( $_ =3D~ /^(.+),(\d+\.\d+\.\d+\.\d+\:\d+),(\d+),(\d+),(.+)/ ) { + @match =3D split (m/^(.+),(\d+\.\d+\.\d+\.\d+\:\d+),(\d+),(\d+),(.+)/,= $_); + $match[1] =3D~ s/[_]/ /g; + } + + if ( $match[1] ne "Common Name" && ($match[1] eq $ovpnconfighash{$key}[= 2]) ) { + $ovpnclt =3D $match[1]; + $ovpntime =3D &WIO::contime($match[5]); + } + + if ( $_ =3D~ /^(\d+\.\d+\.\d+\.\d+),(.+),(\d+\.\d+\.\d+\.\d+\:\d+),(.+)= / ) { + @match =3D split(m/^(\d+\.\d+\.\d+\.\d+),(.+),(\d+\.\d+\.\d+\.\d+\:\d+= ),(.+)/, $_); + } + + if ( $match[1] ne "Virtual Address" && $match[2] eq $ovpnclt ) { + $ovpnrwip =3D $match[1]; + $ovpncheck =3D &WIO::statustime($match[4]); + } + + if ( $ovpnclt eq $ovpnconfighash{$key}[2] ) { + $status =3D "${Header::colourgreen}"; + $statustxt =3D "$Lang::tr{'capsopen'}"; + } + else { + $status =3D "${Header::colourred}"; + $statustxt =3D "$Lang::tr{'capsclosed'}"; + } + } + } +} + + print" + + + + + + + +"; + if ($ovpnconfighash{$key}[25] && $wiosettings{'CLIENTREMARK'} eq 'on') { + print""; + } + =09 + print""; + $idovpn++ + } + print"
$Lang::tr{'wio_id'}$Lang::tr{'wio checked'}$Lang::tr{'wio ipadress'}$Lang::tr{'type'}$Lang::tr{'common name'}$Lang::tr{'wio image'}$Lang::tr{'wio_ovpn_connected'} +
%02d$ovpncheck".( defined($ovpnrwip)? "$ovpnrwip" : " ")."3D'$text'".($ovpnconfighash{$key}[2] eq '%auth-dn' ? "$ovpnconf= ighash{$key}[9]" : ($ovpnconfighash{$key}[4] eq 'cert' ? "$ovpnconfighash{$ke= y}[2]": " "))."
$statustxt
".(defined($ovpntime)? "$ovpntime" : " ")."
 $ovpnconfighash{$key}[25]
"; + &hrline(); +} +#} + +## client status + +print" + + + + + + +
 $La= ng::tr{'wio_clients'} 
 
+ + + + + + + + + + + + + + + + + +"; + +for (my $a=3D0; $a<$nr; $a++) { + +my $gif =3D 'off.gif'; +my $gdesc =3D $Lang::tr{'wio_client_off'}; +my $dyndnsimg =3D 'on.gif'; +my $dyndnsimgtxt =3D $Lang::tr{'wio_dyndns_on'}; +my $mailonimg =3D 'wio/mailgreenon.png'; +my $mailonimgtxt =3D $Lang::tr{'wio_mail_online_on'}; +my $mailoffimg =3D 'wio/mailredon.png'; +my $mailoffimgtxt =3D $Lang::tr{'wio_mail_offline_on'}; +my $pingimg =3D ''; +my $pingtxt =3D ''; +my $webimg =3D ''; + +if ( $activ[$a] eq 'on' ) { + $gif =3D 'on.gif'; + $gdesc =3D $Lang::tr{'wio_client_on'}; +} + +if ( $dyndns[$a] ne 'on' ) { + $dyndnsimg =3D 'off.gif'; + $dyndnsimgtxt =3D $Lang::tr{'wio_dyndns_off'}; +} + +if ( $sendemailon[$a] ne 'on' ) { + $mailonimg =3D 'wio/mailgreenoff.png'; + $mailonimgtxt =3D $Lang::tr{'wio_mail_online_off'}; +} + +if ( $sendemailoff[$a] ne 'on' ) { + $mailoffimg =3D 'wio/mailredoff.png'; + $mailoffimgtxt =3D $Lang::tr{'wio_mail_offline_off'}; +} + +if ( $webinterface[$a] eq 'HTTP' ) { + $webimg =3D 'wio/http.png'; +} +elsif ( $webinterface[$a] eq 'HTTPS' ) { + $webimg =3D 'wio/https.png'; +} +else { + $webimg =3D 'wio/none.png'; +} + +$bgcolor =3D $status[$a] eq "on" ? "${Header::colourgreen}" : ($status[$a] e= q "off" && $dates[$a] eq "") ? "${Header::colourblue}" : "${Header::colourred= }"; +$statustxt =3D $status[$a] eq "on" ? "$Lang::tr{'wio up'}" : ($status[$a] eq= "off" && $dates[$a] eq "") ? "$Lang::tr{'wio_no_image'}" : "$Lang::tr{'wio d= own'}"; + +print""; +printf ("", $a+1); + +print""; + +if ( $pingmethode[$a] eq 'ip') { + print""; +} +else { + print""; +} + +print""; + +print""; +} +elsif ( $webinterface[$a] eq 'HTTPS' ) { + print""; +} +else { + print""; +} + +my $dotip =3D length($ipaddresses[$a]) - rindex($ipaddresses[$a],'.'); + SWITCH: { + foreach (@devs_color) { + my $in =3D 0; + $ic =3D "${_}"; + + foreach $interface (@devs_net) { + next if ( $netsettings{"$ic"."_DEV"} eq 'red0' && ($netsettings{"RED_TYPE= "} eq 'DHCP' || $netsettings{"RED_TYPE"} eq 'PPPOE')); + if ( $netsettings{"$ic"."_DEV"} eq $interface ) { + if ( &General::IpInSubnet($ipaddresses[$a], $netsettings{"$ic"."_NETADD= RESS"}, $netsettings{"$ic"."_NETMASK"}) ) { + print""; + last SWITCH; + } + } + $in++; + } + } + + if ($netsettings{"RED_TYPE"} eq 'DHCP' || $netsettings{"RED_TYPE"} eq 'PPP= OE') { + my $redipadr =3D qx'ip addr | grep red0 | grep inet | awk "{print \$2}"'; + my @rednet =3D split ("/", $redipadr); + chomp ($rednet[1]); + my $red_netmask =3D General::iporsubtodec($rednet[1]); + my $red_netaddress =3D Network::get_netaddress("$rednet[0]/$red_netmask"); + =09 + if ( &General::IpInSubnet($ipaddresses[$a], $red_netaddress, $red_netmask= ) ) { + print""; + last SWITCH; + } + else { + print""; + last SWITCH; + } + } + + if ( -e "$vpnpid" ) { + foreach $key (keys(%vpnconfighash)) { + next unless ($vpnconfighash{$key}[3] eq 'net'); + =09 + my $convertip =3D &General::ipcidr2msk($vpnconfighash{$key}[11]); + =09 + my @net =3D split ("/", $convertip); + + $vpnn2nip =3D $net[0]; + $vpnn2nmask =3D length($net[1]) - rindex($net[1],'.'); + + if (substr($ipaddresses[$a],0,length($ipaddresses[$a])-$dotip) eq subst= r($vpnn2nip,0,length($vpnn2nip)-$vpnn2nmask)) { + print""; + last SWITCH; + } + } + } + + if ( $ovpnsettings{'DOVPN_SUBNET'} ne '' ) { + @match =3D split ("/", $ovpnsettings{'DOVPN_SUBNET'}); + + if ( &General::IpInSubnet($ipaddresses[$a], $match[0], $match[1]) ) { + print"";=20 + last SWITCH;=20 + } + } + + if ( %ovpnccdconfhash ne '' ) { + foreach $key (keys(%ovpnccdconfhash)) { + =09 + my $convertip =3D &General::ipcidr2msk($ovpnccdconfhash{$key}[1]); + =09 + my @net =3D split ("/", $convertip); + + $vpnn2nip =3D $net[0]; + $vpnn2nmask =3D length($net[1]) - rindex($net[1],'.'); + + if (substr($ipaddresses[$a],0,length($ipaddresses[$a])-$dotip) eq substr= ($vpnn2nip,0,length($vpnn2nip)-$vpnn2nmask)) { + print""; + last SWITCH; + } + =09 + } + } + } + +if ( $webinterface[$a] eq 'HTTP' ) { + print""; +} +elsif ( $webinterface[$a] eq 'HTTPS' ) { + print""; +} +else { + print""; +} + +print" + + + + + "; + +if ( defined($dyndns[$a]) && ($dyndns[$a] eq 'on') ) { + print""; +} +else { + print""; +} + +if ( -e "/var/log/rrd/wio/$id[$a].rrd" ) { + print" + + "; +} +else { + print ""; +} + +if ( $wiosettings{'SENDEMAIL'} eq 'on') { + print" + "; +} +else { + print" + "; +} + +print" + + + +"; + +if ($remark[$a] && $wiosettings{'CLIENTREMARK'} eq 'on') { + print""; +} + print""; +} + +print"
$Lang::tr{'wio_id'}$Lang::tr{'wio_activ'}$Lang::tr{'wio_check'}$Lang::tr{'wio checked'}$Lang::tr{'wio_webinterface'}$Lang::tr{'wio ipadress'}$Lang::tr{'wio network'}= $Lang::tr{'wio name'}$Lang::tr{'wio image'}
$Lang::tr{'wio_dyndns'}<= /b>$Lang::tr{'action'}=
%02d
+ + +
+ + +
+ + +
$dates[$a]<= /td>"; + +if ( $webinterface[$a] eq 'HTTP' ) { + print"$ipaddresses[$a]= $ipaddresses[$a]$ipaddresses[$a]3D'$Lang::tr{$devs_alt[$in]}'3D'$Lang::tr{'wio_red_lan'}'3D'$Lang::tr{'wio_unknown_lan'}'3D'IPSec'3D'OpenV=3D'OpenVPN'$names[$a]$names[$a]$names[$a] + + + + +
$statustxt=
+
+ + +
+ + +
+ + +
-
+ +
3D'$Lang::tr{'wio_no_graphs'}'
+ + +
+ + +
--
+ + +
+ + +
 $= remark[$a]
"; + +&Header::closebox(); + +} + +## add / modify client + +$checked{'EN'}{'on'} =3D ($wiosettings{'EN'} eq '' ) ? '' : "checked=3D'chec= ked'"; + +$checked{'DYNDNS'}{'off'} =3D $checked{'DYNDNS'}{'on'} =3D ''; +$checked{'DYNDNS'}{$wiosettings{'DYNDNS'}} =3D "checked=3D'checked'"; + +$checked{'SENDEMAILON'}{'off'} =3D $checked{'SENDEMAILON'}{'on'} =3D ''; +$checked{'SENDEMAILON'}{$wiosettings{'SENDEMAILON'}} =3D "checked=3D'checked= '"; + +$checked{'SENDEMAILOFF'}{'off'} =3D $checked{'SENDEMAILOFF'}{'on'} =3D ''; +$checked{'SENDEMAILOFF'}{$wiosettings{'SENDEMAILOFF'}} =3D "checked=3D'check= ed'"; + +if (! defined($errormessage) && $wiosettings{'ACTION'} ne $Lang::tr{'edit'} = ) { + $wiosettings{'PINGMETHODE'} =3D 'ip'; +} + +$checked{'PINGMETHODE'}{'ip'} =3D $checked{'PINGMETHODE'}{'fqdn'} =3D ''; +$checked{'PINGMETHODE'}{$wiosettings{'PINGMETHODE'}} =3D "checked=3D'checked= '"; + +$selected{'WEBINTERFACE'}{'----'} =3D ''; +$selected{'WEBINTERFACE'}{'HTTP'} =3D ''; +$selected{'WEBINTERFACE'}{'HTTPS'} =3D ''; +$selected{'WEBINTERFACE'}{$wiosettings{'WEBINTERFACE'}} =3D "selected=3D'sel= ected'"; + +$buttontext =3D $Lang::tr{'wio_client_add'}; + +if ( $wiosettings{'ACTION'} eq $Lang::tr{'edit'} || defined($errormessage) = && ! defined($message) ) { + &Header::openbox('100%', 'left', $Lang::tr{'wio_edit_client'}); + $buttontext =3D $Lang::tr{'update'}; +} +else { + &Header::openbox('100%', 'left', $Lang::tr{'wio_edit_settings'}); +} + +if (! defined($errormessage) && $wiosettings{'ACTION'} ne $Lang::tr{'edit'} = ) { +print" + + + + + + + + +
 $Lang::tr{'wio_add'} 
 
+"; +} + +print" +
+ + + + +"; + +print" + + + + + + + + + + + + + + + + + + + +"; + +if ( $wiosettings{'SENDEMAIL'} eq 'on' ) { + print" + "; +} +else { + print""; +} + +print" + + + + + +
$Lang::tr{'wio_client_enable'} 
$Lang::tr{'wio ipadress'}:$Lang::tr{'wio name'}:$Lang::tr{'remark'}:
$Lang::tr{'wio_ping_send'}: IP      &= nbsp;       FQDN$Lang::tr{'wio_dyndns'}:$Lang::tr{'wio_sendemail'}: $Lang::tr{'wio_online'}      = ;$Lang::tr{'wio_offline'} 
$Lang::tr{'wio_ping_send'}: + +
+ + + +"; + +if ( $buttontext eq $Lang::tr{'update'} && ( defined($errormessage) || $wios= ettings{'ACTION'} eq $Lang::tr{'edit'}) && ! defined($message) ) { + print" + + + + + + "; +} + +print" + +
   "; +} +else { + print"   
+"; + +if ( $wiosettings{'ENABLE'} eq 'on' && !$errormessage && $wiosettings{'ACTIO= N'} ne $Lang::tr{'edit'} || $message =3D=3D 2 ) { + +&hrline(); + +## arp table entries + +print" + + + + + + +
 $Lang::tr{'wio_arp_table_entries'} 
 
+ + + + + + + + + +"; + +$output =3D `/sbin/ip neigh list`; +$output =3D &Header::cleanhtml($output,"y"); + +my $arpcnt =3D 0; + +foreach $line (split(/\n/, $output)) +{ + if ($line =3D~ m/^(.*) dev ([^ ]+) lladdr ([0-9a-f:]*) (.*)$/) { + my $arphost =3D gethostbyaddr(inet_aton($1), AF_INET); + if ( $arphost eq 'localhost' ) { $arphost =3D ''; } + push (@arpcache, "$3,$1,$arphost,$2\n"); + } + elsif ($line =3D~ m/^(.*) dev ([^ ]+) (.*)$/) { + my $arphost =3D gethostbyaddr(inet_aton($1), AF_INET); + if ( $arphost eq 'localhost' ) { $arphost =3D ''; } + push (@arpcache, ",$1,$arphost,$2\n"); + } + + $arpcnt++; +} + +&SortDataFile('arpcache',@arpcache); + +foreach (@arpcache) { + chomp; + + @line =3D split (/\,/, $_); + + print""; + printf ("", $idarp+1); + print" + "; + +SWITCH: { + + foreach (@devs_color) { + my $in =3D 0; + $ic =3D "${_}"; + + foreach $interface (@devs_net) { + next if ( $netsettings{"$ic"."_DEV"} eq 'red0' && ($netsettings{"RED_TYPE= "} eq 'DHCP' || $netsettings{"RED_TYPE"} eq 'PPPOE')); + + if ($netsettings{"$ic"."_DEV"} eq $interface) { + if ( &General::IpInSubnet($line[1], $netsettings{"$ic"."_NETADDRESS"}, $= netsettings{"$ic"."_NETMASK"}) ) { + print""; + last SWITCH; + } + } + + $in++; + } + } + + if ($netsettings{"RED_TYPE"} eq 'DHCP' || $netsettings{"RED_TYPE"} eq 'PP= POE') { + my $redipadr =3D qx'ip addr | grep red0 | grep inet | awk "{print \$2}"'; + my @rednet =3D split ("/", $redipadr); + chomp ($rednet[1]); + my $red_netmask =3D General::iporsubtodec($rednet[1]); + my $red_netaddress =3D Network::get_netaddress("$rednet[0]/$red_netmask"); + + if ( &General::IpInSubnet($line[1], $red_netaddress, $red_netmask) ) { + print""; + last SWITCH; + } + else { + print""; + last SWITCH; + } + } +} + + print" + "; + + unless (&WIO::checkinto($line[1], '', @current)) { + print""; + } + else { + print""; + } + +print""; +print""; +$idarp++ +} + +print" +
$Lang::tr{'wio_id'}<= /td> + $Lang::tr{'wio_hwaddres= s'}$Lang::tr{'wio ipadress= '}$Lang::tr{'wio network= '}$Lang::tr{'wio name'}$Lang::tr{'wio_iface'}<= /b>$Lang::tr{'action'}<= /td> +
%02d$line[0]$line[1]=3D'$Lang::tr{$devs_alt[$in]}'3D'$Lang::tr{'wio_red_lan'}'3D'$Lang::tr{'wio_unknown_lan'}'$line[2]".&WIO::color_devices($line[3])."
+ + +
3D'$Lang::tr{'wio_no_add'}'
+"; + +&hrline(); + +print" + + + + + + +
 $Lang::tr{'wio_import_file'} 
 
+ + + + + + + + + + + + + + + + + + + + + + + +
$Lang::tr{'wio_import_csv'} 
 
$Lang::tr{'wio_import_hosts'}  
 
$Lang::tr{'wio_import_fixleases'}  +  
+"; + +&hrline; + +print" + + + + + +
 $Lang::tr{'wio_net_scan'} 
+ + + + +"; + +foreach (keys(%ifacecolor)) { + if ( $_ eq 'GREEN' ) { $color =3D "$Header::colourgreen"; $net =3D $Lang::t= r{'wio_net_scan_green'}; } + elsif ( $_ eq 'BLUE' ) { $color =3D "$Header::colourblue"; $net =3D $Lang::= tr{'wio_net_scan_blue'}; } + else { $color =3D "$Header::colourorange"; $net =3D $Lang::tr{'wio_net_scan= _orange'}; } + + if ( $netsettings{"${_}_DEV"} eq 'disabled' || $netsettings{"${_}_DEV"} eq = '' || $netsettings{"${_}_ADDRESS"} eq '' ) { next; } + else { + print < + + + + + + + +END + } +} + +print" + +
 
$Lang::tr{'wio_net_scan_vl'} <= font color=3D'$color'>$net $Lang::tr{'wio_net_scan_l'} $netsettings{"${_}_DEV"} $Lang::tr{'wio_net_scan= _r'}
 -
 
+ +"; + +&Header::closebox(); +} + +if ( $wiosettings{'ENABLE'} eq 'on' && !$errormessage && $wiosettings{'ACTIO= N'} ne $Lang::tr{'edit'} || $message =3D=3D 2 ) { + +&Header::openbox('100%', 'left', $Lang::tr{'wio_service'}); + +print" + + + + + \n + +
+"; +} + +&Header::closebox(); +} + +&Header::closebigbox(); +&Header::closepage(); + +############################################################################= ################################################ + +sub SortDataFile { +my ($data,@checkfile) =3D @_; + my $idsort =3D 0; + our %entries =3D (); + + sub sortips { + my $qs =3D ''; + + if (rindex ($wiosettings{'SORT'},'Rev') !=3D -1) { + $qs =3D substr ($wiosettings{'SORT'},0,length($wiosettings{'SORT'})-3); + + if ($qs eq 'IPADR') { + my @a =3D split (/\./,$entries{$a}->{$qs}); + my @b =3D split (/\./,$entries{$b}->{$qs}); + ($b[0]<=3D>$a[0]) || + ($b[1]<=3D>$a[1]) || + ($b[2]<=3D>$a[2]) || + ($b[3]<=3D>$a[3]); + } + else { + $entries{$b}->{$qs} cmp $entries{$a}->{$qs}; + } + } + else { + $qs =3D $wiosettings{'SORT'}; + + if ($qs eq 'IPADR') { + my @a =3D split (/\./,$entries{$a}->{$qs}); + my @b =3D split (/\./,$entries{$b}->{$qs}); + ($a[0]<=3D>$b[0]) || + ($a[1]<=3D>$b[1]) || + ($a[2]<=3D>$b[2]) || + ($a[3]<=3D>$b[3]); + } + else { + $entries{$a}->{$qs} cmp $entries{$b}->{$qs}; + } + } + } + + if ($data eq 'arpcache') { + foreach (@checkfile) { + chomp; + @temp =3D split (',', $_); + + my @record =3D ('KEY',$idsort++,'MAC',$temp[0],'IPADR',$temp[1],'HOST',$t= emp[2],'REMARK',$temp[3],'IFACE',$temp[4]); + my $record =3D (); + %{$record} =3D @record;=20 + $entries{$record->{KEY}} =3D $record; + } + + open(FILE, "> $logdir/.arpcache"); + + foreach (sort sortips keys %entries) { + print FILE "$entries{$_}->{MAC},$entries{$_}->{IPADR},$entries{$_}->{HOST= },$entries{$_}->{REMARK},$entries{$_}->{IFACE},$entries{$_}->{HW}\n"; + } + + close(FILE); + + open (FILE, "$logdir/.arpcache"); + @arpcache =3D ; + close (FILE); + } + else { + foreach (@checkfile) { + chomp; + @temp =3D split (',', $_); + + my @record =3D ('KEY',$idsort++,'CLIENTID',$temp[0],'TIMESTAMP',$temp[1],= 'IPADR',$temp[2],'HOST',$temp[3],'EN',$temp[4],'REMARK',$temp[5],'DYNDNS',$te= mp[6],'SENDEMAILON',$temp[7],'SENDEMAILOFF',$temp[8],'PINGMETHODE',$temp[9],'= ONLINE',$temp[10],'WEBINTERFACE',$temp[11]); + my $record =3D (); + %{$record} =3D @record;=20 + $entries{$record->{KEY}} =3D $record; + } + + open(FILE, "> $ipadrfile"); + + foreach (sort sortips keys %entries) { + print FILE "$entries{$_}->{CLIENTID},$entries{$_}->{TIMESTAMP},$entries{$= _}->{IPADR},$entries{$_}->{HOST},$entries{$_}->{EN},$entries{$_}->{REMARK},$e= ntries{$_}->{DYNDNS},$entries{$_}->{SENDEMAILON},$entries{$_}->{SENDEMAILOFF}= ,$entries{$_}->{PINGMETHODE},$entries{$_}->{ONLINE},$entries{$_}->{WEBINTERFA= CE}\n"; + } + + close(FILE); + + &loadips(); + } +} + +############################################################################= ################################################ + +sub hrline {=20 + +print"
"; + +} + +############################################################################= ################################################ + +sub back { + +print"
3D'$Lang::tr{'wio_back'}' 
"; + +} + +############################################################################= ################################################ + +sub loadips { + +&General::readhasharray($ipadrfile, \%ipshash); + +open(FILE, "< $ipadrfile"); +(a)current =3D ; +close (FILE); + +} + +############################################################################= ################################################ + +sub writeips { + +open(FILE, "> $ipadrfile"); +if ( defined($write) ) { print FILE @write; } +else { print FILE @current; } +close(FILE); + +} + +############################################################################= ################################################ + +sub SortByTunnelName +{ + if ($vpnconfighash{$a}[1] lt $vpnconfighash{$b}[1]) { + return -1; + } + elsif ($vpnconfighash{$a}[1] gt $vpnconfighash{$b}[1]) { + return 1; + } + else { + return 0; + } +} + +############################################################################= ################################################ + +sub validSave +{ + if ( $wiosettings{'IPADR'} eq '' && $wiosettings{'PINGMETHODE'} eq 'ip' && = $wiosettings{'DYNDNS'} eq '' ) { + $errormessage =3D $Lang::tr{'wio_ip_empty'}; + } + + if ( $wiosettings{'IPADR'} ne '' && (! &General::validip($wiosettings{'IPAD= R'})) ) { + $errormessage =3D $Lang::tr{'wio_ip_error'}; + } + + if ( $wiosettings{'HOST'} eq '' && $wiosettings{'PINGMETHODE'} eq 'fqdn' ) { + $errormessage =3D $Lang::tr{'wio_host_empty'}; + } + + if ( $wiosettings{'HOST'} ne '' && (! &General::validdomainname($wiosetting= s{'HOST'})) ) { + $errormessage =3D $Lang::tr{'wio_host_error'}; + } + + if ( $wiosettings{'DYNDNS'} eq 'on' && (! defined($errormessage)) ) { + unless(&General::validfqdn($wiosettings{'HOST'})) { $errormessage =3D $Lan= g::tr{'wio_fqdn_error'}; } + ( $wiosettings{'IPADR'}, $infomessage ) =3D &WIO::getdyndnsip($wiosettings= {'IPADR'}, $wiosettings{'HOST'}); + $wiosettings{'PINGMETHODE'} =3D 'fqdn'; + } + + if ( $wiosettings{'ID'} eq '' && ! defined($errormessage) ) { $errormessage= =3D &WIO::checkinto($wiosettings{'IPADR'}, $wiosettings{'HOST'}, @current); } + + if ( $wiosettings{'REMARK'} ne '' ) { $wiosettings{'REMARK'} =3D~ s/,/,= /g; } +} diff --git a/src/wio/wiographs.cgi b/src/wio/wiographs.cgi new file mode 100644 index 0000000..234d287 --- /dev/null +++ b/src/wio/wiographs.cgi @@ -0,0 +1,73 @@ +#!/usr/bin/perl +# +############################################################################= ### +# = # +# IPFire.org - A linux based firewall = # +# Copyright (C) 2017 Stephan Feddersen = # +# 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 . = # +# = # +############################################################################= ### +# +# 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 =3D new CGI; +my $hostid =3D $cgi->param("HOSTID"); +my $hostname =3D $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 =3D split(/\?/,$ENV{'QUERY_STRING'}); + +$querry[0] =3D '' unless defined $querry[0]; # hostid +$querry[1] =3D '' unless defined $querry[1]; # period +$querry[2] =3D '' unless defined $querry[2]; # hostname + +if ($querry[0] =3D~ "$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"
3D'$Lang::tr{'wio_back'}'
"; + &Header::closebox(); + &Header::closebigbox(); + &Header::closepage(); +} + +1; diff --git a/src/wio/wioips b/src/wio/wioips new file mode 100644 index 0000000..e69de29 --=20 2.7.4 --===============1486638983931921398==--