]> git.ipfire.org Git - people/mlorenz/ipfire-2.x.git/blame - src/wio/wio.cgi
projects / people / mlorenz / ipfire-2.x.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
WIO: minor changes
[people/mlorenz/ipfire-2.x.git] / src / wio / wio.cgi
CommitLineData
0d6cc79d
SF		 1#!/usr/bin/perl
2#
3###############################################################################
4# #
5# IPFire.org - A linux based firewall #
6# Copyright (C) 2017 Stephan Feddersen <addons@h-loit.de> #
7# All Rights Reserved. #
8# #
9# This program is free software: you can redistribute it and/or modify #
10# it under the terms of the GNU General Public License as published by #
11# the Free Software Foundation, either version 3 of the License, or #
12# (at your option) any later version. #
13# #
14# This program is distributed in the hope that it will be useful, #
15# but WITHOUT ANY WARRANTY; without even the implied warranty of #
16# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
17# GNU General Public License for more details. #
18# #
19# You should have received a copy of the GNU General Public License #
20# along with this program. If not, see <http://www.gnu.org/licenses/>. #
21# #
22###############################################################################
23#
24# id: wio.cgi, v1.3.1 2017/07/11 21:31:16 sfeddersen
25#
26# This wio.cgi is based on the Code from the IPCop WIO Addon
27# and is extremly adapted to work with IPFire.
28#
29# Autor: Stephan Feddersen
30# Co-Autor: Alexander Marx
31# Co-Autor: Frank Mainz
32#
33
34use strict;
35
36# enable only the following on debugging purpose
37#use warnings;
38#no warnings 'once';
39#use CGI::Carp 'fatalsToBrowser';
40
41my $debug = 0;
42
43use Socket;
44use POSIX qw(strftime);
45use File::Copy;
46use Fatal qw/ open /;
47use Net::Telnet;
48
49require '/var/ipfire/general-functions.pl';
50require '/var/ipfire/lang.pl';
51require '/var/ipfire/header.pl';
52require '/usr/lib/wio/wio-lib.pl';
53require '/usr/lib/wio/wio-graphs.pl';
54
55my $logdir = "/var/log/wio";
56
57my ( %mainsettings, %mailsettings, %wiosettings, %cgiparams, %netsettings, %ipshash,
58 %vpnconfighash, %ovpnconfighash, %ovpnccdconfhash, %ovpnsettings, %checked, %selected, %color ) = ();
59
60&General::readhash('/var/ipfire/main/settings', \%mainsettings);
61&General::readhash('/var/ipfire/ethernet/settings', \%netsettings);
62&General::readhash('/var/ipfire/dma/mail.conf', \%mailsettings);
63&General::readhash('/var/ipfire/wio/wio.conf', \%wiosettings);
64&General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
65&General::readhasharray('/var/ipfire/ovpn/ovpnconfig', \%ovpnconfighash);
66&General::readhash('/var/ipfire/ovpn/settings', \%ovpnsettings);
67&General::readhasharray('/var/ipfire/ovpn/ccd.conf', \%ovpnccdconfhash);
68&General::readhasharray('/var/ipfire/vpn/config', \%vpnconfighash);
69
70my $ipadrfile = "$logdir/wioips";
71my $onoffip = "$logdir/wioscip";
72my $wiosettings = "/var/ipfire/wio/wio.conf";
73my $dyndnsconfig = "/var/ipfire/ddns/config";
74my $importfile = "$logdir/importfile";
75my $wiofile = "$logdir/wiofile";
76my $editfile = "$logdir/editfile";
77my $hostfile = "/var/ipfire/main/hosts";
78my $dhcpfile = "/var/ipfire/dhcp/fixleases";
79my $imgstatic = "/images/wio";
80my $rrddir = "/var/log/rrd/wio";
81my $refreshbox = '<meta http-equiv="refresh" content="0;url=/cgi-bin/wio.cgi">';
82my $sortstring = '^IPADR|^HOST';
83my $ovpnaddon = "/var/ipfire/ovpn";
84my $ovpnpid = "/var/run/openvpn.pid";
85my $vpnpid = "/var/run/charon.pid";
86my $redactive = "/var/ipfire/red/active";
87my $redip = '-';
88my $now = strftime "%Y-%m-%d", localtime;
89
90if ( -e $redactive ) {
91 open(IPADDR, "/var/ipfire/red/local-ipaddress");
92 $redip = <IPADDR>;
93 close IPADDR;
94 chomp($redip);
95}
96
97my $i = 0;
98my $idarp = 0;
99my $iddyndns = 0;
100my $idvpn = 0;
101my $idovpn = 0;
102my $idsort = 0;
103my $nr = 0;
104my $count = 0;
105my $showcount = 0;
106
107my ( $infomessage, $errormessage, $importmessage, $message ) = '';
108
109my ( $buttontext, $host, $timestamp, $ipadr, $on, $remark, $dyndns, $dyndnsip, $sendemailon, $net, $dev, $iprange, $output, $write, $webinterface,
110 $sendemailoff, $pingmethode, $online, $color, $bgcolor, $exitcode, $id, $line, $interface, $counter, $vpnn2nip, $vpnn2nmask, $ddns, $edc,
111 $edd, $wmon, $wmoff, $ipfqdn, $http, $wioscan, $statustxt, $status, $key, $ic, $text, $image ) = ();
112
113my ( @temp, @dates, @ipaddresses, @names, @remark, @sendemailon, @sendemailoff, @current, @ddns, @match, @webinterface, @arpcache, @arpadd, @line,
114 @hosts, @vpnstatus, @ovpnstatus, @activ, @dyndns, @pingmethode, @status, @id, @write, @log );
115
116my @nosaved = ('ACTION','ID','CLIENTID','TIMESTAMP','IPADR','HOST','REMARK','DYNDNS','SENDEMAILON','SENDEMAILOFF','PINGMETHODE','ONLINE','WEBINTERFACE');
117
118my @devs_color = ('GREEN','BLUE','ORANGE','RED');
119my @devs_net = ('green0','blue0','orange0','red0');
120my @devs_img = ('green.png','blue.png','orange.png','red.png');
121my @devs_alt = ('green','blue','orange','red');
122
123my %ifacecolor = ( GREEN => 'wio_run_green', BLUE => 'wio_run_blue', ORANGE => 'wio_run_orange');
124
125&loadips();
126
127## some wio settings
128
129$wiosettings{'ACTION'} = '';
130$wiosettings{'COUNT'} = '';
131$wiosettings{'ID'} = '';
132$wiosettings{'CLIENTID'} = '';
133$wiosettings{'SORT'} = 'IPADR';
134$wiosettings{'HOST'} = '';
135$wiosettings{'IPADR'} = '';
136$wiosettings{'EN'} = 'on';
137$wiosettings{'REMARK'} = '';
138$wiosettings{'DYNDNS'} = '';
139$wiosettings{'CLIENTREMARK'} = '';
140$wiosettings{'SENDEMAILON'} = '';
141$wiosettings{'SENDEMAILOFF'} = '';
142$wiosettings{'PINGMETHODE'} = 'ip';
143$wiosettings{'WEBINTERFACE'} = '----';
144$wiosettings{'TIMEOUT'} = '1';
145$wiosettings{'TIMESTAMP'} = '';
146$wiosettings{'ONLINE'} = 'off';
147$wiosettings{'CRON'} = '15';
148$wiosettings{'OVPNCRON'} = '5';
149$wiosettings{'ENABLE'} = 'off';
150$wiosettings{'LOGGING'} = 'off';
151$wiosettings{'MAILREMARK'} = 'off';
152$wiosettings{'MAILSTYLE'} = 'email';
153$wiosettings{'OVPNRWMAIL'} = 'off';
154$wiosettings{'SHUTDOWN'} = 'off';
155
156&Header::getcgihash(\%wiosettings);
157&Header::getcgihash(\%mainsettings);
158&Header::getcgihash(\%mailsettings);
159&Header::getcgihash(\%netsettings);
160
161if ( $mailsettings{'USEMAIL'} eq 'on' ) { $wiosettings{'SENDEMAIL'} = 'on'; }
162else { $wiosettings{'SENDEMAIL'} = 'off'; }
163
164if ( -e $wiofile ) { goto WIOSCAN; }
165
166## get network ips
167foreach (@devs_color) {
168 if ( $netsettings{"${_}_DEV"} ne '' ) {
169
170 $wiosettings{"${_}_IPLOW"} = inet_ntoa pack q/N/, (unpack (q/N/, inet_aton ($netsettings{"${_}_NETADDRESS"}))+1);
171 my @addrarr = split(/\./,$netsettings{"${_}_ADDRESS"});
172 my $ipaddress = unpack( "N", pack( "C4",@addrarr ) );
173
174 my @maskarr = split(/\./,$netsettings{"${_}_NETMASK"});
175 my $netmask = unpack( "N", pack( "C4",@maskarr ) );
176
177 my $bcast = ( $ipaddress & $netmask ) + ( ~ $netmask );
178 my @bcastarr = inet_ntoa pack q/N/, (unpack (q/N/, inet_aton ($bcast))-1);
179
180 $wiosettings{"${_}_IPHIGH"} = join(".",@bcastarr);
181 }
182}
183
184## save wio settings
185
186if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_save'}.'1' ) {
187 unless ( `ps -A | grep wio.pl` ) {
188 $cgiparams{'SORT'} = $wiosettings{'SORT'};
189 $cgiparams{'CRON'} = $wiosettings{'CRON'};
190 $cgiparams{'OVPNCRON'} = $wiosettings{'OVPNCRON'};
191 $cgiparams{'ENABLE'} = $wiosettings{'ENABLE'};
192 $cgiparams{'LOGGING'} = $wiosettings{'LOGGING'};
193 $cgiparams{'TIMEOUT'} = $wiosettings{'TIMEOUT'};
194 $cgiparams{'ACTION'} = $wiosettings{'ACTION'};
195 $cgiparams{'CLIENTREMARK'} = $wiosettings{'CLIENTREMARK'};
196 $cgiparams{'MAILREMARK'} = $wiosettings{'MAILREMARK'};
197 $cgiparams{'MAILSTYLE'} = $wiosettings{'MAILSTYLE'};
198 $cgiparams{'OVPNRWMAIL'} = $wiosettings{'OVPNRWMAIL'};
199 $cgiparams{'SHUTDOWN'} = $wiosettings{'SHUTDOWN'};
200
201 &General::writehash($wiosettings, \%cgiparams);
202 &General::readhash($wiosettings, \%wiosettings);
203
204 if ( $wiosettings{'ENABLE'} eq 'off' ) {
205 &WIO::clearfile($ipadrfile);
206 unlink glob "$rrddir/*";
207 }
208 }
209 else {
210 $infomessage = "$Lang::tr{'wio_error_function'}";
211 }
212}
213
214## save imported clients
215
216if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_save'}.'2' ) {
217 unless ( `ps -A | grep wio.pl` ) {
218 while ( $count < $wiosettings{'COUNT'} ) {
219 if ( defined($wiosettings{"USE$count"}) && $wiosettings{"USE$count"} eq 'on' ) {
220 $wiosettings{'CLIENTID'} = $wiosettings{'CLIENTID$count'};
221 $wiosettings{'TIMESTAMP'} = $wiosettings{"TIMESTAMP$count"};
222 $wiosettings{'IPADR'} = $wiosettings{"IPADR$count"};
223 $wiosettings{'HOST'} = $wiosettings{"HOST$count"};
224 $wiosettings{'EN'} = $wiosettings{"EN$count"};
225 $wiosettings{'REMARK'} = $wiosettings{"REMARK$count"};
226 $wiosettings{'DYNDNS'} = $wiosettings{"DYNDNS$count"};
227 $wiosettings{'SENDEMAILON'} = $wiosettings{"SENDEMAILON$count"};
228 $wiosettings{'SENDEMAILOFF'} = $wiosettings{"SENDEMAILOFF$count"};
229 $wiosettings{'PINGMETHODE'} = $wiosettings{"PINGMETHODE$count"};
230 $wiosettings{'ONLINE'} = $wiosettings{"ONLINE$count"};
231 $wiosettings{'WEBINTERFACE'} = $wiosettings{"WEBINTERFACE$count"};
232
233 &validSave();
234
235 if ($errormessage) {
236 open(FILE, ">> $editfile");
237 print FILE "$wiosettings{'CLIENTID'},$wiosettings{'TIMESTAMP'},$wiosettings{'IPADR'},$wiosettings{'HOST'},$wiosettings{'EN'},$wiosettings{'REMARK'},$wiosettings{'DYNDNS'},$wiosettings{'SENDEMAILON'},$wiosettings{'SENDEMAILOFF'},$wiosettings{'PINGMETHODE'},$wiosettings{'ONLINE'},$wiosettings{'WEBINTERFACE'}\n";
238 close(FILE);
239 $importmessage = $errormessage;
240 }
241 else {
242 $wiosettings{'CLIENTID'} = &General::findhasharraykey (\%ipshash);
243 unshift (@current, "$wiosettings{'CLIENTID'},$wiosettings{'TIMESTAMP'},$wiosettings{'IPADR'},$wiosettings{'HOST'},$wiosettings{'EN'},$wiosettings{'REMARK'},$wiosettings{'DYNDNS'},$wiosettings{'SENDEMAILON'},$wiosettings{'SENDEMAILOFF'},$wiosettings{'PINGMETHODE'},$wiosettings{'ONLINE'},$wiosettings{'WEBINTERFACE'}\n");
244 &SortDataFile('',@current);
245 }
246 }
247 $count++;
248 }
249
250 map ($wiosettings{$_} = '' ,@nosaved);
251 unlink ($importfile);
252 if ( -e "$editfile" ) { goto EDIT; }
253 }
254 else {
255 $infomessage = "$Lang::tr{'wio_error_function'}";
256 }
257}
258
259## add or update client
260
261if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_client_add'} ) {
262 unless ( `ps -A | grep wio.pl` ) {
263 &validSave();
264
265 unless ($errormessage) {
266 if ( $wiosettings{'ID'} eq '' && $wiosettings{'ACTION'} ne $Lang::tr{'edit'} ) {
267 $wiosettings{'CLIENTID'} = &General::findhasharraykey (\%ipshash);
268 unshift (@current, "$wiosettings{'CLIENTID'},$wiosettings{'TIMESTAMP'},$wiosettings{'IPADR'},$wiosettings{'HOST'},$wiosettings{'EN'},$wiosettings{'REMARK'},$wiosettings{'DYNDNS'},$wiosettings{'SENDEMAILON'},$wiosettings{'SENDEMAILOFF'},$wiosettings{'PINGMETHODE'},$wiosettings{'ONLINE'},$wiosettings{'WEBINTERFACE'}\n");
269 }
270 else {
271 @current[$wiosettings{'ID'}] = "$wiosettings{'CLIENTID'},$wiosettings{'TIMESTAMP'},$wiosettings{'IPADR'},$wiosettings{'HOST'},$wiosettings{'EN'},$wiosettings{'REMARK'},$wiosettings{'DYNDNS'},$wiosettings{'SENDEMAILON'},$wiosettings{'SENDEMAILOFF'},$wiosettings{'PINGMETHODE'},$wiosettings{'ONLINE'},$wiosettings{'WEBINTERFACE'}\n";
272 }
273 }
274 else { goto ERROR; }
275
276 map ($wiosettings{$_} = '' ,@nosaved);
277 &SortDataFile('',@current);
278 }
279 else {
280 $infomessage = "$Lang::tr{'wio_error_function'}";
281 }
282}
283
284## add arp client
285
286if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_add'} ) {
287 unless ( `ps -A | grep wio.pl` ) {
288 open(FILE, "$logdir/.arpcache");
289 @arpadd = <FILE>;
290 close (FILE);
291
292 chomp(@arpadd[$wiosettings{'ID'}]);
293 @temp = split (/\,/, @arpadd[$wiosettings{'ID'}]);
294
295 $wiosettings{'CLIENTID'} = &General::findhasharraykey (\%ipshash);
296 $wiosettings{'IPADR'} = $temp[1];
297 $wiosettings{'HOST'} = $temp[2];
298 $wiosettings{'EN'} = 'on';
299
300 $wiosettings{'PINGMETHODE'} = 'ip';
301 $wiosettings{'ONLINE'} = 'off';
302
303 open(FILE, ">> $editfile");
304 print FILE "$wiosettings{'CLIENTID'},$wiosettings{'TIMESTAMP'},$wiosettings{'IPADR'},$wiosettings{'HOST'},$wiosettings{'EN'},$wiosettings{'REMARK'},$wiosettings{'DYNDNS'},$wiosettings{'SENDEMAILON'},$wiosettings{'SENDEMAILOFF'},$wiosettings{'PINGMETHODE'},$wiosettings{'ONLINE'},$wiosettings{'WEBINTERFACE'}\n";
305 close(FILE);
306
307 goto EDIT;
308 }
309 else {
310 undef($wiosettings{'ID'});
311 $infomessage = "$Lang::tr{'wio_error_function'}";
312 }
313}
314
315## enable / disabel client || enable / disable dyndns || enable / disable sendemailon || enable / disable sendemailoff || change ip / fqdn
316
317if ( $wiosettings{'ACTION'} eq $Lang::tr{'enable disable client'} ) { $edc = 'on'; }
318if ( $wiosettings{'ACTION'} eq $Lang::tr{'enable disable dyndns'} ) { $edd = 'on'; }
319if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_mail_online'} ) { $wmon = 'on'; }
320if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_mail_offline'} ) { $wmoff = 'on'; }
321if (( $wiosettings{'ACTION'} eq $Lang::tr{'wio_ip_on'} ) || ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_fqdn_on'} )) { $ipfqdn = 'on'; }
322
323if ( defined($edc) || defined($edd) || defined($wmon) || defined($wmoff) || defined($ipfqdn) ) {
324 unless ( `ps -A | grep wio.pl` ) {
325 chomp(@current[$wiosettings{'ID'}]);
326 @temp = split (/\,/, @current[$wiosettings{'ID'}]);
327
328 if ( $edc eq 'on' ) {
329 $temp[4] = $temp[4] ne '' ? '' : 'on';
330 $temp[10] = '';
331 $temp[11] = '';
332 $temp[1] = '';
333 unlink "$rrddir/$temp[0].rrd";
334 }
335 elsif ( $edd eq 'on' ) { $temp[6] = $temp[6] ne '' ? '' : 'on'; }
336 elsif ( $wmon eq 'on' ) { $temp[7] = $temp[7] ne '' ? '' : 'on'; }
337 elsif ( $wmoff eq 'on' ) { $temp[8] = $temp[8] ne '' ? '' : 'on'; }
338 elsif ( $ipfqdn eq 'on' ) { $temp[9] = $temp[9] eq 'fqdn' ? 'ip' : 'fqdn'; }
339
340 @current[$wiosettings{'ID'}] = join (',', @temp)."\n";
341 undef($wiosettings{'ID'});
342
343 &writeips();
344 }
345 else {
346 undef($wiosettings{'ID'});
347 $infomessage = "$Lang::tr{'wio_error_function'}";
348 }
349}
350
351## refresh wio status || refresh single client status
352
353if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_refresh'} || $wiosettings{'ACTION'} eq $Lang::tr{'wio_sc_refresh'} ) {
354
355 if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_sc_refresh'} ) {
356 open(FILE, "> $onoffip");
357 print FILE @current[$wiosettings{'ID'}];
358 close(FILE);
359
360 undef($wiosettings{'ID'});
361 }
362
363unless ( `ps -A | grep wio.pl` ) {
364
365&Header::showhttpheaders();
366&Header::openpage($Lang::tr{'wio'}, 1, $refreshbox);
367&Header::openbigbox('100%', 'left', '');
368&Header::openbox('100%', 'left', $Lang::tr{'wio_info'});
369
370print"
371<table align='center' width='100%'>
372 <tr><td align='center'>$Lang::tr{'wio_msg'}</td></tr>
373 <tr><td>&nbsp;</td></tr>
374 <tr><td align='center'><img align='middle' src='/images/indicator.gif' /></td></tr>
375</table>
376";
377
378&Header::closebox();
379&Header::closebigbox();
380&Header::closepage();
381
382while ( system("/usr/local/bin/wiohelper", "&") ) {}
383
384exit 0;
385}
386else {
387 $infomessage = "$Lang::tr{'wio_already_running'}";
388}
389
390}
391
392## refresh dyndns ip
393
394if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_dyndns_refresh'} ) {
395 unless ( `ps -A | grep wio.pl` ) {
396 chomp(@current[$wiosettings{'ID'}]);
397 @temp = split (/\,/, @current[$wiosettings{'ID'}]);
398
399 ($temp[2], $infomessage) = &WIO::getdyndnsip($temp[2], $temp[3]);
400
401 @current[$wiosettings{'ID'}] = join (',', @temp)."\n";
402
403 &writeips();
404
405 undef($wiosettings{'ID'});
406 }
407 else {
408 $infomessage = "$Lang::tr{'wio_error_function'}";
409 }
410}
411
412## edit client
413
414if ( $wiosettings{'ACTION'} eq $Lang::tr{'edit'} ) {
415 unless ( `ps -A | grep wio.pl` ) {
416 chomp(@current[$wiosettings{'ID'}]);
417 @temp = split (/\,/, @current[$wiosettings{'ID'}]);
418
419 $wiosettings{'CLIENTID'} = $temp[0];
420 $wiosettings{'TIMESTAMP'} = $temp[1];
421 $wiosettings{'IPADR'} = $temp[2];
422 $wiosettings{'HOST'} = $temp[3];
423 $wiosettings{'EN'} = $temp[4];
424 $wiosettings{'REMARK'} = $temp[5];
425 $wiosettings{'DYNDNS'} = $temp[6];
426 $wiosettings{'SENDEMAILON'} = $temp[7];
427 $wiosettings{'SENDEMAILOFF'} = $temp[8];
428 $wiosettings{'PINGMETHODE'} = $temp[9];
429 $wiosettings{'ONLINE'} = $temp[10];
430 $wiosettings{'WEBINTERFACE'} = $temp[11];
431 }
432 else {
433 undef($wiosettings{'ACTION'});
434 $infomessage = "$Lang::tr{'wio_error_function'}";
435 }
436}
437
438## remove client
439
440if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_remove_client'} ) {
441 unless ( `ps -A | grep wio.pl` ) {
442 chomp(@current[$wiosettings{'ID'}]);
443
444 @temp = split (/\,/, @current[$wiosettings{'ID'}]);
445
446 unlink "$rrddir/$temp[0].rrd";
447
448 splice (@current,$wiosettings{'ID'},1);
449
450 &writeips();
451
452 undef($wiosettings{'ID'});
453 }
454 else {
455 undef($wiosettings{'ID'});
456 $infomessage = "$Lang::tr{'wio_error_function'}";
457 }
458}
459
460## remove all clients
461
462if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_remove_all'} ) {
463 unless ( `ps -A | grep wio.pl` ) {
464 &WIO::clearfile($ipadrfile);
465 unlink glob "$rrddir/*";
466 undef(@current);
467 }
468 else {
469 $infomessage = "$Lang::tr{'wio_error_function'}";
470 }
471}
472
473## back function
474
475if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_back'} ) {
476 if ( -e "$importfile" ) { unlink ($importfile); }
477 map ($wiosettings{$_} = '' ,@nosaved);
478 undef($errormessage);
479}
480
481## import hosts, fixleases or csv file || scan networks (green/blue/orange)
482
483if ( $wiosettings{'ACTION'} eq 'wio_run_green' ||
484 $wiosettings{'ACTION'} eq 'wio_run_blue' ||
485 $wiosettings{'ACTION'} eq 'wio_run_orange') { $wioscan = 'on'; }
486
487if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_import'}.'1' ||
488 $wiosettings{'ACTION'} eq $Lang::tr{'wio_import'}.'2' ||
489 $wiosettings{'ACTION'} eq $Lang::tr{'wio_import'}.'3' ||
490 defined($wioscan) || defined($importmessage) ) {
491
492unless ( `ps -A | grep wio.pl` ) {
493 if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_import'}.'1' && $importmessage eq '' ) {
494
495 &Header::getcgihash(\%wiosettings, {'wantfile' => 1, 'filevar' => 'CSVFILE'});
496
497 if ( $wiosettings{'CSVFILE'} eq '' ) {
498 $errormessage = $Lang::tr{'wio_no_file_selected'};
499 $message = 2; goto ERROR;
500 }
501
502 if ( $wiosettings{'CSVFILE'} =~ /[^a-z0-9A-Z\ \.\-\_\:\\]+/ ) {
503 $errormessage = $Lang::tr{'wio_no_csv_error'};
504 $message = 2; goto ERROR;
505 }
506
507 if ( !($wiosettings{'CSVFILE'} =~ /.csv$/) ) {
508 $errormessage = $Lang::tr{'wio_no_csv'};
509 $message = 2; goto ERROR;
510 }
511
512 if (copy($wiosettings{'CSVFILE'}, "$logdir/importfile") != 1) {
513 $errormessage = $!;
514 $message = 2; goto ERROR;
515 }
516 }
517
518EDIT:
519
520&General::readhash($wiosettings, \%wiosettings);
521
522&Header::showhttpheaders();
523&Header::openpage($Lang::tr{'wio'}, 1, '');
524&Header::openbigbox('100%', 'left');
525
526if ($importmessage) {
527 &Header::openbox('100%', 'left', $Lang::tr{'wio_error'}, 'error');
528 print" <table width='100%'><tr><td><font class='base'>$importmessage</font></td></tr></table>";
529 &Header::closebox();
530}
531
532if ( -e "$editfile" ) {
533 open(FILE, "< $editfile" ); }
534elsif ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_import'}.'1' ) {
535 open(FILE, "< $importfile" ); }
536elsif ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_import'}.'2' ) {
537 open(FILE, "< $hostfile" ); }
538elsif ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_import'}.'3' ) {
539 open(FILE, "< $dhcpfile" ); }
540elsif ( $wioscan eq 'on' ) {
541
542 foreach (keys(%ifacecolor)) {
543 if ( $netsettings{"${_}_DEV"} eq $wiosettings{'ID'} ) {
544 $dev = $netsettings{"${_}_DEV"};
545 $iprange = $wiosettings{"${_}_IPLOW"} . "-" . $wiosettings{"${_}_IPHIGH"};
546
547 if ( $_ eq 'GREEN' ) { $color = "$Header::colourgreen"; $net = $Lang::tr{'wio_msg_green'}; }
548 elsif ( $_ eq 'BLUE' ) { $color = "$Header::colourblue"; $net = $Lang::tr{'wio_msg_blue'}; }
549 else { $color = "$Header::colourorange"; $net = $Lang::tr{'wio_msg_orange'}; }
550 }
551 }
552
553&Header::openbox('100%', 'left', $Lang::tr{'wio_info'});
554 print"<table width='100%'>
555 <tr><td align='center'><font class='base'>$Lang::tr{'wio_msg_left'} </font><font class='base' color='$color'><b>$net</b></font> $Lang::tr{'wio_msg_center'} <font class='base' color='$color'><b>$dev</b></font><font class='base'> $Lang::tr{'wio_msg_right'} $Lang::tr{'wio_msg_hint'}</font></td></tr>
556 <tr><td>&nbsp;</td></tr>
557 <tr><td align='center'><img align='middle' src='/images/indicator.gif' /></td></tr>
558 </table>";
559&Header::closebox();
560&Header::closebigbox();
561
562 open(FILE, "/usr/local/bin/wioscan -wsa $dev $iprange |" );
563
564}
565
566@hosts = <FILE>;
567close(FILE);
568
569if ( $wioscan ne 'on' && ! -e $wiofile ) { @hosts = sort @hosts; }
570else {
571 open(FILE, "> $wiofile");
572 print FILE @hosts;
573 close(FILE);
574
575 print"<meta http-equiv=\"refresh\" content=\"0; URL=$ENV{'SCRIPT_NAME'}\">";
576 exit 0;
577}
578
579WIOSCAN:
580
581if ( -e $wiofile ) {
582 open(FILE, "< $wiofile");
583 @hosts = <FILE>;
584 close (FILE);
585
586 &General::readhash($wiosettings, \%wiosettings);
587
588 &Header::showhttpheaders();
589 &Header::openpage($Lang::tr{'wio'}, 1, '');
590 &Header::openbigbox('100%', 'left');
591}
592
593foreach (@hosts) {
594 chomp;
595
596 @line = split (/\,/, $_);
597
598 if ( -e $editfile || -e $importfile ) {
599 $wiosettings{'CLIENTID$count'} = $line[0];
600 $wiosettings{'TIMESTAMP$count'} = $line[1];
601 $wiosettings{'IPADR$count'} = $line[2];
602 $wiosettings{'HOST$count'} = $line[3];
603 $wiosettings{'EN$count'} = $line[4];
604 $wiosettings{'REMARK$count'} = $line[5];
605 $wiosettings{'DYNDNS$count'} = $line[6];
606 $wiosettings{'SENDEMAILON$count'} = $line[7];
607 $wiosettings{'SENDEMAILOFF$count'} = $line[8];
608 $wiosettings{'PINGMETHODE$count'} = $line[9];
609 $wiosettings{'ONLINE$count'} = $line[10];
610 $wiosettings{'WEBINTERFACE$count'} = $line[11];
611 $wiosettings{'USE$count'} = 'on';
612 }
613 else {
614 $wiosettings{'IPADR$count'} = $line[1];
615 $wiosettings{'EN$count'} = 'on';
616 $wiosettings{'PINGMETHODE$count'} = 'ip';
617 $wiosettings{'USE$count'} = 'on';
618
619 if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_import'}.'2' ) {
620 $wiosettings{'HOST$count'} = $line[2];
621 $wiosettings{'DOM$count'} = $line[3];
622 $wiosettings{'REMARK$count'} = '';
623 }
624 elsif ( $wioscan eq 'on' || -e $wiofile ) {
625 $wiosettings{'HOST$count'} = gethostbyaddr(inet_aton($line[1]), AF_INET);
626 if ($wiosettings{'HOST$count'} eq '') { $wiosettings{'HOST$count'} = $line[1]; }
627 $wiosettings{'REMARK$count'} = '';
628 $wiosettings{'WEBINTERFACE$count'} = '';
629 }
630 else {
631 $wiosettings{'HOST$count'} = $line[7];
632 $wiosettings{'REMARK$count'} = $line[6];
633 }
634 }
635
636 $checked{'EN$count'}{'on'} = ($wiosettings{'EN$count'} eq '' ) ? '' : "checked='checked'";
637
638 $checked{'DYNDNS$count'}{'on'} = ($wiosettings{'DYNDNS$count'} eq '' ) ? '' : "checked='checked'";
639 $checked{'SENDEMAILON$count'}{'on'} = ($wiosettings{'SENDEMAILON$count'} eq '' ) ? '' : "checked='checked'";
640 $checked{'SENDEMAILOFF$count'}{'on'} = ($wiosettings{'SENDEMAILOFF$count'} eq '' ) ? '' : "checked='checked'";
641
642 $checked{'PINGMETHODE$count'}{'ip'} = $checked{'PINGMETHODE$count'}{'fqdn'} = '';
643 $checked{'PINGMETHODE$count'}{$wiosettings{'PINGMETHODE$count'}} = "checked='checked'";
644
645 $checked{'USE$count'}{'on'} = ($wiosettings{'USE$count'} eq '' ) ? '' : "checked='checked'";
646
647 $selected{'WEBINTERFACE$count'}{'----'} = '';
648 $selected{'WEBINTERFACE$count'}{'HTTP'} = '';
649 $selected{'WEBINTERFACE$count'}{'HTTPS'} = '';
650 $selected{'WEBINTERFACE$count'}{$wiosettings{'WEBINTERFACE$count'}} = "selected='selected'";
651
652if (! &WIO::checkinto($wiosettings{'IPADR$count'}, $wiosettings{'HOST$count'}, @current) ) {
653
654if ( $importmessage ) {
655 &Header::openbox('100%', 'left', "$Lang::tr{'wio_import_data'}'$wiosettings{'HOST$count'}'$Lang::tr{'wio_import_data1'}");
656}
657elsif ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_import'}.'1' || $wioscan eq 'on' || -e $wiofile || -e $editfile ) {
658 &Header::openbox('100%', 'left', "$Lang::tr{'wio_import_data'}'$wiosettings{'HOST$count'}'$Lang::tr{'wio_import_data2'}");
659}
660elsif ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_import'}.'2' ) {
661 &Header::openbox('100%', 'left', "$Lang::tr{'wio_import_data'}'$wiosettings{'HOST$count'}.$wiosettings{'DOM$count'}'$Lang::tr{'wio_import_data2'}");
662}
663else {
664 &Header::openbox('100%', 'left', $Lang::tr{'wio_import_leases'});
665}
666
667print"
668<form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>
669<input type='hidden' name='ONLINE$count' value='$wiosettings{'ONLINE$count'}' />
670
671<table width='100%'>
672<tr>
673 <td>$Lang::tr{'wio_use'}</td>
674 <td><input type='checkbox' name='USE$count' $checked{'USE$count'}{'on'} /></td>
675</tr>
676<tr>
677 <td>$Lang::tr{'wio_client_enable'}</td>
678 <td><input type='checkbox' name='EN$count' $checked{'EN$count'}{'on'} /></td>
679</tr>
680<tr>
681 <td>$Lang::tr{'host ip'}:</td>
682 <td><input type='text' name='IPADR$count' value='$wiosettings{'IPADR$count'}' size='18' /></td>
683 <td>$Lang::tr{'hostname'}:</td>
684";
685
686if ( $wiosettings{'ACTION'} eq $Lang::tr{'wio_import'}.'2' ) {
687 print"<td><input type='text' name='HOST$count' size='18' value='$wiosettings{'HOST$count'}.$wiosettings{'DOM$count'}' /></td>";
688}
689else {
690 print"<td><input type='text' name='HOST$count' size='18' value='$wiosettings{'HOST$count'}' /></td>";
691}
692
693print"
694 <td>$Lang::tr{'remark'}:</td>
695 <td><input type='text' name='REMARK$count' value='$wiosettings{'REMARK$count'}' size='18' /></td>
696</tr>
697<tr>
698 <td class='base'>$Lang::tr{'wio_ping_send'}:</td>
699 <td align='left'><input type='radio' name='PINGMETHODE$count' value='ip' $checked{'PINGMETHODE$count'}{'ip'} />&nbsp;IP&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type='radio' name='PINGMETHODE$count' value='fqdn' $checked{'PINGMETHODE$count'}{'fqdn'} />&nbsp;FQDN</td>
700 <td>$Lang::tr{'wio_dyndns'}:</td>
701 <td><input type='checkbox' name='DYNDNS$count' $checked{'DYNDNS$count'}{'on'} /></td>
702";
703
704if ( $wiosettings{'SENDEMAIL'} eq 'on' ) {
705 print"<td>$Lang::tr{'wio_sendemail'}:</td>
706 <td><input type='checkbox' name='SENDEMAILON$count' $checked{'SENDEMAILON$count'}{'on'} />&nbsp;$Lang::tr{'wio_online'}&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type='checkbox' name='SENDEMAILOFF$count' $checked{'SENDEMAILOFF$count'}{'on'} />&nbsp;$Lang::tr{'wio_offline'}</td>";
707}
708else {
709 print"<td colspan='2'>&nbsp;</td>";
710}
711
712print"
713</tr>
714<tr>
715 <td height='30'>$Lang::tr{'wio_ping_send'}:</td>
716 <td align='left' colspan='5'>
717 <select size='1' name='WEBINTERFACE$count' width='80' style='width: 80px'>
718 <option value='----' $selected{'WEBINTERFACE$count'}{'----'}>----</option>
719 <option value='HTTP' $selected{'WEBINTERFACE$count'}{'HTTP'}>HTTP</option>
720 <option value='HTTPS' $selected{'WEBINTERFACE$count'}{'HTTPS'}>HTTPS</option>
721 </select>
722 </td>
723</tr>
724</table>
725";
726
727&Header::closebox();
728$showcount++;
729}
730$count++;
731}
732
733if ( $showcount gt 0 ) {
734&Header::openbox('100%', 'left', $Lang::tr{'wio_import_infos'});
735
736print"
737<table width='100%'>
738<tr>
739";
740
741if ($importmessage) { print"<td>&nbsp;</td>"; }
742else { print"<td><font color='$color{'color11'}'>$Lang::tr{'wio_import_infos_csv'}</font></td>"; }
743
744print"
745</tr>
746<tr><td colspan='4'>&nbsp;</td></tr>
747</table>
748<table width='100%'>
749<tr>
750 <td width='25%'>&nbsp;</td>
751 <td width='25%'><input type='hidden' name='COUNT' value='$count' /><input type='hidden' name='ACTION' value='$Lang::tr{'wio_save'}2' /><input type='submit' name='SUBMIT' value='$Lang::tr{'wio_save'}' /></form></td>
752 <td width='25%'><form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'><input type='submit' name='ACTION' value='$Lang::tr{'wio_back'}' /></form></td>
753 <td width='25%'>&nbsp;</td>
754</tr>
755</table>
756";
757
758&Header::closebox();
759&Header::closebigbox();
760&Header::closepage();
761}
762else {
763 print"<meta http-equiv=\"refresh\" content=\"0; URL=$ENV{'SCRIPT_NAME'}?INFO\">";
764}
765
766if ( -e "$editfile" ) { unlink ($editfile); }
767if ( -e "$wiofile" ) { unlink($wiofile); }
768exit 0;
769}
770else {
771 $infomessage = "$Lang::tr{'wio_error_function'}";
772}
773}
774
775## skript function
776
777if ($ENV{'QUERY_STRING'} =~ /$sortstring/ ) {
778 my $string = $ENV{'QUERY_STRING'};
779
780 if ( $string eq 'INFO' ) {
781 $infomessage = $Lang::tr{'wio_import_info_csv'};
782 }
783 else {
784 &General::readhash($wiosettings, \%wiosettings);
785
786 my $actual = $wiosettings{'SORT'};
787
788 if ($actual =~ $string) {
789 my $Rev = '';
790 if ($actual !~ 'Rev') { $Rev = 'Rev'; }
791 $string.=$Rev;
792 }
793
794 system("/bin/sed -i 's#$wiosettings{'SORT'}#$string#g' $wiosettings");
795
796 $wiosettings{'SORT'} = $string;
797 map ($wiosettings{$_} = '' ,@nosaved);
798 &SortDataFile('',@current);
799 }
800}
801
802## main part
803
804ERROR:
805
806unless($message == 1) { &General::readhash($wiosettings, \%wiosettings); }
807
808for ($i=5; $i<=60; $i+=5) { $selected{'CRON'}{$i} = ''; }
809
810$selected{'CRON'}{$wiosettings{'CRON'}} = "selected='selected'";
811
812for ($i=1; $i<=15; $i++) {
813 $selected{'TIMEOUT'}{$i} = '';
814 $selected{'OVPNCRON'}{$i} = '';
815}
816
817$selected{'TIMEOUT'}{$wiosettings{'TIMEOUT'}} = "selected='selected'";
818$selected{'OVPNCRON'}{$wiosettings{'OVPNCRON'}} = "selected='selected'";
819
820$checked{'ENABLE'}{'off'} = $checked{'ENABLE'}{'on'} = '';
821$checked{'ENABLE'}{$wiosettings{'ENABLE'}} = "checked='checked'";
822
823$checked{'LOGGING'}{'off'} = $checked{'LOGGING'}{'on'} = '';
824$checked{'LOGGING'}{$wiosettings{'LOGGING'}} = "checked='checked'";
825
826$checked{'CLIENTREMARK'}{'off'} = $checked{'CLIENTREMARK'}{'on'} = '';
827$checked{'CLIENTREMARK'}{$wiosettings{'CLIENTREMARK'}} = "checked='checked'";
828
829$checked{'MAILREMARK'}{'off'} = $checked{'MAILREMARK'}{'on'} = '';
830$checked{'MAILREMARK'}{$wiosettings{'MAILREMARK'}} = "checked='checked'";
831
832$checked{'OVPNRWMAIL'}{'off'} = $checked{'OVPNRWMAIL'}{'on'} = '';
833$checked{'OVPNRWMAIL'}{$wiosettings{'OVPNRWMAIL'}} = "checked='checked'";
834
835$checked{'SHUTDOWN'}{'off'} = $checked{'SHUTDOWN'}{'on'} = '';
836$checked{'SHUTDOWN'}{$wiosettings{'SHUTDOWN'}} = "checked='checked'";
837
838$checked{'MAILSTYLE'}{'smail'} = $checked{'MAILSTYLE'}{'email'} = '';
839$checked{'MAILSTYLE'}{$wiosettings{'MAILSTYLE'}} = "checked='checked'";
840
841&Header::showhttpheaders();
842&Header::openpage($Lang::tr{'wio'}, 1, "<meta http-equiv='expires' content='-1'><meta http-equiv='cache-control' content='no-store, no-cache, must-revalidate'><meta http-equiv='pragma' content='no-cache'>");
843&Header::openbigbox('100%', 'left', '');
844
845## DEBUG / ERROR / INFO / UPDATE
846
847if ( $debug ) {
848 &Header::openbox('100%', 'left', 'DEBUG', 'warning');
849
850 print"errormessage: $errormessage<br />\n";
851 print"infomessage: $infomessage<br />\n";
852
853 &hrline();
854
855 my $wiodebug = 0;
856 foreach (sort keys %wiosettings) {
857 print"$_ = $wiosettings{$_}<br />\n";
858 $wiodebug++;
859 }
860
861 &hrline();
862
863 my $netdebug = 0;
864 foreach (sort keys %netsettings) {
865 print"$_ = $netsettings{$_}<br />\n";
866 $netdebug++;
867 }
868 &Header::closebox();
869}
870
871if ( $errormessage ) {
872 &Header::openbox('100%', 'left', $Lang::tr{'wio_error'}, 'error');
873 print"<table width='100%'><tr><td><font class='base'><b>$errormessage</b></font></td></tr></table>";
874 &Header::closebox();
875}
876
877if ( $infomessage ) {
878 &Header::openbox('100%', 'left', $Lang::tr{'wio_info'}, 'warning');
879 print"<table width='100%'><tr><td><font class='base'><b>$infomessage</b></font></td></tr></table>";
880 &Header::closebox();
881}
882
883## wio configuration
884
885if ( $wiosettings{'ACTION'} eq $Lang::tr{'edit'}.'1' || $message == 1 || $wiosettings{'ENABLE'} eq 'off' ) {
886
887&Header::openbox('100%', 'left', $Lang::tr{'wio settings'});
888
889print"
890<form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>
891<table width='100%'>
892<tr>
893 <td width='45%' bgcolor='$color{'color20'}' align='left' height='20'><b>&nbsp;$Lang::tr{'wio_settings_msg'}</b></td>
894 <td width='2%'>&nbsp;</td>
895 <td width='53%'>&nbsp;</td>
896</tr>
897<tr><td colspan='3'>&nbsp;</td></tr>
898<tr>
899 <td colspan='3'>$Lang::tr{'wio_settings_msg_hint'}</td>
900</tr>
901<tr><td colspan='3'>&nbsp;</td></tr>
902<tr>
903 <td align='right'>$Lang::tr{'wio enabled'}</td>
904";
905
906print"<td>&nbsp;</td>";
907
908if ( $wiosettings{'ENABLE'} eq 'on' ) {
909 print"<td align='left'><input type='checkbox' onClick=\"return confirm('$Lang::tr{'wio_disable_hint'}')\" name='ENABLE' $checked{'ENABLE'}{'on'} /></td>";
910}
911else {
912 print"<td align='left'><input type='checkbox' name='ENABLE' $checked{'ENABLE'}{'on'} /></td>";
913}
914print"
915</tr>
916<tr><td colspan='3'>&nbsp;</td></tr>
917<tr>
918 <td align='right'>$Lang::tr{'wio_shutdown'}</td>
919 <td>&nbsp;</td>
920 <td align='left'><input type='checkbox' name='SHUTDOWN' $checked{'SHUTDOWN'}{'on'} /></td>
921</tr>
922<tr><td colspan='3'>&nbsp;</td></tr>
923<tr>
924 <td align='right'>$Lang::tr{'wio cron'}</td>
925 <td>&nbsp;</td>
926 <td align='left'><select size='1' name='CRON' size='5'>
927";
928
929for ($i=5; $i<=60; $i+=5) { printf("<option %s>%02s</option>\n",$selected{'CRON'}{$i},$i); }
930
931print"
932 </select>&nbsp;$Lang::tr{'wio min'}</td>
933</tr>
934<tr><td colspan='3'>&nbsp;</td></tr>
935<tr>
936 <td align='right'>$Lang::tr{'wio timeout'}</td>
937 <td>&nbsp;</td>
938 <td align='left'><select size='1' name='TIMEOUT' size='5'>
939";
940
941for ($i=1; $i<=15; $i++) { printf("<option %s>%02s</option>\n",$selected{'TIMEOUT'}{$i},$i); }
942
943print"
944 </select>&nbsp;$Lang::tr{'wio sec'}</td>
945</tr>
946<tr><td colspan='3'>&nbsp;</td></tr>
947<tr>
948 <td align='right'>$Lang::tr{'wio_logging'}</td>
949 <td>&nbsp;</td>
950 <td align='left'><input type='checkbox' name='LOGGING' $checked{'LOGGING'}{'on'} /></td>
951</tr>
952<tr><td colspan='3'>&nbsp;</td></tr>
953<tr>
954 <td align='right'>$Lang::tr{'wio_clientremark'}</td>
955 <td>&nbsp;</td>
956 <td align='left'><input type='checkbox' name='CLIENTREMARK' $checked{'CLIENTREMARK'}{'on'} /></td>
957</tr>
958<tr><td colspan='3'>&nbsp;</td></tr>
959
960";
961
962if ( $wiosettings{'SENDEMAIL'} eq 'on' ) {
963print"
964<tr>
965 <td align='right'>$Lang::tr{'wio_mail_style'}:</td>
966 <td>&nbsp;</td>
967 <td align='left'><input type='radio' name='MAILSTYLE' value='smail' $checked{'MAILSTYLE'}{'smail'} />&nbsp;$Lang::tr{'wio_mail_smail'}&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type='radio' name='MAILSTYLE' value='email' $checked{'MAILSTYLE'}{'email'} />&nbsp;$Lang::tr{'wio_mail_email'}</td>
968</tr>
969<tr><td colspan='3'>&nbsp;</td></tr>
970<tr>
971 <td align='right'>$Lang::tr{'wio_mailremark_enabled'}</td>
972 <td>&nbsp;</td>
973 <td align='left'><input type='checkbox' name='MAILREMARK' $checked{'MAILREMARK'}{'on'}></td>
974</tr>
975<tr><td colspan='3'>&nbsp;</td></tr>
976";
977}
978if ( -e "$ovpnaddon" || ! -z "/var/ipfire/vpn/config" ) {
979print"
980<tr>
981 <td align='right'>$Lang::tr{'wio_mail_ovpnrw'}</td>
982 <td>&nbsp;</td>
983 <td align='left'><input type='checkbox' name='OVPNRWMAIL' $checked{'OVPNRWMAIL'}{'on'}></td>
984</tr>
985<tr><td colspan='3'>&nbsp;</td></tr>
986<tr>
987 <td align='right'>$Lang::tr{'wio_ovpn_cron'}</td>
988 <td>&nbsp;</td>
989 <td align='left'><select size='1' name='OVPNCRON' size='5'>
990";
991
992for ($i=1; $i<=15; $i++) { printf("<option %s>%02s</option>\n",$selected{'OVPNCRON'}{$i},$i); }
993
994print"
995 </select>&nbsp;$Lang::tr{'wio min'}</td>
996</tr>
997<tr><td colspan='3'>&nbsp;</td></tr>
998";
999}
1000print"
1001<tr><td colspan='3'>&nbsp;</td></tr>
1002<tr>
1003 <td colspan='2'>&nbsp;</td>
1004 <td align='left'><input type='hidden' name='ACTION' value='$Lang::tr{'wio_save'}1' /><input type='submit' name='submit' value='$Lang::tr{'wio_save'}' />"
1005 .($wiosettings{'ENABLE'} ne 'off' ? "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type='button' onClick='location.href=\"/cgi-bin/wio.cgi\"' value='$Lang::tr{'wio_back'}'>" : "")
1006 ."</td>
1007</tr>
1008</table>
1009</form>
1010";
1011
1012&Header::closebox();
1013&Header::closebigbox();
1014&Header::closepage();
1015exit 0;
1016}
1017
1018## wio client status
1019
1020if ( $wiosettings{'ENABLE'} eq 'on') {
1021 if ( !$errormessage && $wiosettings{'ACTION'} ne $Lang::tr{'edit'} || $message == 2 ) {
1022 &Header::openbox('100%', 'left', $Lang::tr{'wio stat'});
1023
1024 foreach (@current) {
1025 chomp;
1026
1027 ($id,$timestamp,$ipadr,$host,$on,$remark,$dyndns,$sendemailon,$sendemailoff,$pingmethode,$online,$webinterface) = split (/\,/, $_);
1028
1029 if ( defined($dyndns) && ( $dyndns =~ 'on' ) ) {
1030 ($dyndnsip, $infomessage) = &WIO::getdyndnsip($ipadr, $host);
1031
1032 if ( $dyndnsip ne $ipadr ) {
1033 $ipadr = $dyndnsip;
1034 $write = 'on';
1035 }
1036 }
1037
1038 push (@id,($id));
1039
1040 if ( $on eq 'on' ) { push (@dates,($timestamp)); }
1041 else { push (@dates,('-')); }
1042
1043 push (@ipaddresses,($ipadr));
1044 push (@names,($host));
1045 push (@activ,($on));
1046 push (@remark,($remark));
1047 push (@dyndns,($dyndns));
1048 push (@sendemailon,($sendemailon));
1049 push (@sendemailoff,($sendemailoff));
1050 push (@pingmethode,($pingmethode));
1051 push (@status,($online));
1052 push (@webinterface,($webinterface));
1053
1054 push (@write, "$id,$timestamp,$ipadr,$host,$on,$remark,$dyndns,$sendemailon,$sendemailoff,$pingmethode,$online,$webinterface\n");
1055
1056 $nr++;
1057 }
1058
1059 if ( defined($write) ) { &writeips(); }
1060
1061## wan connection
1062
1063print"
1064<table border='0' width='100%' bordercolor='$Header::bordercolour' cellspacing='0' cellpadding='0' style='border-collapse: collapse'>
1065<tr height='20'>
1066 <td width='28%' bgcolor='$color{'color20'}' align='left'><b>&nbsp;$Lang::tr{'wio_wan_con'}</b></td>
1067 <td width='72%' align='right'>&nbsp;</td>
1068</tr>
1069<tr><td colspan='2'>&nbsp;</td></tr>
1070</table>
1071
1072<table border='0' width='100%' bordercolor='$Header::bordercolour' cellspacing='0' cellpadding='0' style='border-collapse: collapse'>
1073<tr bgcolor='$color{'color20'}' height='20'>
1074 <td width='3%' align='center'><b>$Lang::tr{'wio_id'}</b></td>
1075 <td width='15%' align='center'><b>$Lang::tr{'wio ipadress'}</b></td>
1076 <td width='3%' align='center'><b>$Lang::tr{'wio network'}</b></td>
1077 <td width='15%' align='center'><b>$Lang::tr{'wio_lanname'}</b></td>
1078 <td width='15%' align='center'><b>$Lang::tr{'wio_wanname'}</b></td>
1079 <td width='24%' align='center'><b>$Lang::tr{'wio_dyndns_hosts'}</b></td>
1080 <td width='11%' align='center'><b>$Lang::tr{'wio image'}</b></td>
1081 <td width='14%' align='center'><b>$Lang::tr{'wio_wancheck'}</b></td>
1082</tr>
1083<tr bgcolor='$color{'color22'}' height='20'>
1084 <td align='center'>01</td>
1085 <td align='center'><font color='$Header::colourred'>$redip</b></font></td>
1086 <td align='center'><img align='middle' src='$imgstatic/red.png' alt='$Lang::tr{'internet'}' title='$Lang::tr{'internet'}' /></td>
1087 <td align='center'><font color='$Header::colourgreen'>".$mainsettings{'HOSTNAME'}.".".$mainsettings{'DOMAINNAME'}."</font></td>
1088 <td align='center'><font color='$Header::colourred'>".( $redip ne '-' ? (gethostbyaddr(pack("C4", split (/\./, $redip)), 2))[0] : '-' )."</font></td>
1089 <td align='center'>
1090";
1091
1092if ( -s "$dyndnsconfig" ) {
1093
1094open(FILE, "< $dyndnsconfig");
1095@ddns = <FILE>;
1096close (FILE);
1097
1098$ddns = @ddns;
1099$bgcolor = "blue";
1100
1101 foreach (@ddns) {
1102 chomp;
1103
1104 @temp = split (/\,/, $_);
1105
1106 if ( $temp[7] eq "on" ) { $bgcolor = ( &General::DyndnsServiceSync (&General::GetDyndnsRedIP,$temp[1],$temp[2]) ? "$Header::colourgreen" : "$Header::colourred" ); }
1107
1108 print"<font color='$bgcolor'>$temp[1].$temp[2]</font>";
1109
1110 if ( $iddyndns++ ne ($ddns-1) ) { print"<b>, </b>"; }
1111 }
1112}
1113else { print"<b> - </b>"; }
1114
1115print"
1116 </td>
1117 <td align='center'>
1118 <table bgcolor='".( -e $redactive ? "${Header::colourgreen}" : "${Header::colourred}" )."' cellpadding='2' cellspacing='0' width='100%'>
1119 <tr height='20'>
1120 <td align='center'><font color='white'><b>".( -e $redactive ? $Lang::tr{'wio_wan_up'} : $Lang::tr{'wio_wan_down'} )."</b></font></td>
1121 </tr>
1122 </table>
1123 </td>
1124 <td align='center'><font color='$Header::colourred'>".( -e "$redactive" ? &General::age("$redactive") : '-' )."</font></td>
1125</tr>
1126<tr height='1'><td colspan='9' bgcolor='#696565'></td></tr>
1127</table>
1128";
1129
1130&hrline();
1131
1132## vpn connection(s)
1133
1134if ( -e "$vpnpid" ) {
1135
1136@vpnstatus = `/usr/local/bin/ipsecctrl I`;
1137
1138print"
1139<table border='0' width='100%' bordercolor='$Header::bordercolour' cellspacing='0' cellpadding='0' style='border-collapse: collapse'>
1140<tr height='20'>
1141 <td width='28%' bgcolor='$color{'color20'}' align='left'><b>&nbsp;$Lang::tr{'wio_vpn_con'}</b></td>
1142 <td width='72%'>&nbsp;</td>
1143</tr>
1144<tr><td colspan='2'>&nbsp;</td></tr>
1145</table>
1146<table border='0' width='100%' bordercolor='$Header::bordercolour' cellspacing='0' cellpadding='0' style='border-collapse: collapse'>
1147<tr bgcolor='$color{'color20'}' height='20'>
1148 <td width='3%' align='center'><b>$Lang::tr{'wio_id'}</b></td>
1149 <td width='19%' align='center'><b>$Lang::tr{'wio checked'}</b></td>
1150 <td width='20%' align='center'><b>$Lang::tr{'name'}</b></td>
1151 <td width='8%' align='center'><b>$Lang::tr{'type'}</b></td>
1152 <td width='25%' align='center'><b>$Lang::tr{'wio_common_name'}</b></td>
1153 <td width='11%' align='center'><b>$Lang::tr{'wio image'}</b></td>
1154 <td width='14%' align='center'><b>$Lang::tr{'wio_ovpn_connected'}</b></td>
1155</tr>
1156";
1157
1158foreach $key (sort SortByTunnelName (keys(%vpnconfighash))) {
1159
1160my $vpncheck = '';
1161
1162if ( -e '/var/log/wio/.vpncache' ) {
1163 $vpncheck = strftime("%d.%m.%Y - %H:%M:%S",localtime(((stat('/var/log/wio/.vpncache'))[9])));
1164}
1165
1166$status = "bgcolor='${Header::colourred}'";
1167$statustxt = "$Lang::tr{'capsclosed'}";
1168
1169 if ($vpnconfighash{$key}[0] eq 'off') {
1170 $status = "bgcolor='${Header::colourblue}'";
1171 $statustxt = "$Lang::tr{'capsclosed'}";
1172 }
1173
1174 foreach (@vpnstatus) {
1175 if ($_ =~ /$vpnconfighash{$key}[1]\{.*INSTALLED/) {
1176 $status = "bgcolor='${Header::colourgreen}'";
1177 $statustxt = "$Lang::tr{'capsopen'}";
1178 last;
1179 }
1180 }
1181
1182 print"<tr".($idvpn % 2?" bgcolor='$color{'color20'}'":" bgcolor='$color{'color22'}'")." height='20'>";
1183
1184 my $vpnnr = $idvpn+1;
1185
1186 printf ("<td align='center'> %02d</td>", $vpnnr);
1187
1188 print"<td align='center'>$vpncheck</td>
1189 <td align='center'>$vpnconfighash{$key}[1]</td>
1190 <td align='center'><img align='middle' src='$imgstatic/".( $vpnconfighash{$key}[3] eq 'host' ? "vpnrw.png' alt='$Lang::tr{'wio_rw'}' title='$Lang::tr{'wio_rw'}'" : "vpnn2n.png' alt='$Lang::tr{'wio_n2n'}' title='$Lang::tr{'wio_n2n'}'")." /></td>
1191 <td align='center'>".($vpnconfighash{$key}[2] eq '%auth-dn' ? "$vpnconfighash{$key}[9]" : ($vpnconfighash{$key}[4] eq 'cert' ? "$vpnconfighash{$key}[2]" : ($vpnconfighash{$key}[8] ne '' ? "$vpnconfighash{$key}[10]" : "&nbsp;")))."</td>
1192 <td align='center'>
1193 <table $status cellpadding='2' cellspacing='0' width='100%'>
1194 <tr height='20'>
1195 <td align='center'><font color='white'><b>$statustxt</b></font></td>
1196 </tr>
1197 </table>
1198 </td>
1199 <td align='center' height='20'>&nbsp;</td>
1200 </tr>
1201";
1202
1203if ($vpnconfighash{$key}[25] && $wiosettings{'CLIENTREMARK'} eq 'on') {
1204 print"<tr".($idvpn % 2?" bgcolor='$color{'color20'}'":" bgcolor='$color{'color22'}'")." height='20'><td>&nbsp;</td><td colspan='16' align='left'>$vpnconfighash{$key}[25]</td></tr>";
1205}
1206 print"<tr height='1'><td colspan='7' bgcolor='#696565'></td></tr>";
1207 $idvpn++
1208}
1209
1210print"</table>";
1211&hrline();
1212}
1213
1214## openvpn connection(s)
1215
1216if ( -e "$ovpnpid" ) {
1217
1218@ovpnstatus = `cat /var/run/ovpnserver.log`;
1219
1220print"
1221<table border='0' width='100%' bordercolor='$Header::bordercolour' cellspacing='0' cellpadding='0' style='border-collapse: collapse'>
1222<tr height='20'>
1223 <td width='28%' bgcolor='$color{'color20'}' align='left'><b>&nbsp;$Lang::tr{'wio_ovpn_con'}</b></td>
1224 <td width='72%'>&nbsp;</td>
1225</tr>
1226<tr><td colspan='2'>&nbsp;</td></tr>
1227</table>
1228<table border='0' width='100%' bordercolor='$Header::bordercolour' cellspacing='0' cellpadding='0' style='border-collapse: collapse'>
1229<tr bgcolor='$color{'color20'}' height='20'>
1230 <td width='3%' align='center'><b>$Lang::tr{'wio_id'}</b></td>
1231 <td width='19%' align='center'><b>$Lang::tr{'wio checked'}</b></td>
1232 <td width='20%' align='center'><b>$Lang::tr{'wio ipadress'}</b></td>
1233 <td width='8%' align='center'><b>$Lang::tr{'type'}</b></td>
1234 <td width='25%' align='center'><b>$Lang::tr{'common name'}</b></td>
1235 <td width='11%' align='center'><b>$Lang::tr{'wio image'}</b></td>
1236 <td width='14%' align='center'><b>$Lang::tr{'wio_ovpn_connected'}</b></td>
1237</tr>
1238";
1239
1240 foreach $key (keys %ovpnconfighash) {
1241
1242 my ( $ovpnclt, $ovpntime, $ovpnrwip, $ovpncheck ) = '';
1243
1244 if ( -e '/var/log/wio/.ovpncache' ) {
1245 $ovpncheck = strftime("%d.%m.%Y - %H:%M:%S",localtime(((stat('/var/log/wio/.ovpncache'))[9])));
1246 }
1247
1248 print"<tr".($idovpn % 2?" bgcolor='$color{'color20'}'":" bgcolor='$color{'color22'}'")." height='20'>";
1249
1250 my $ovpnnr = $idovpn+1;
1251
1252 printf ("<td align='center' height='20'> %02d</td>", $ovpnnr);
1253
1254 if ($ovpnconfighash{$key}[3] eq 'net') {
1255 $image = "$imgstatic/ovpnn2n.png";
1256 $text = "$Lang::tr{'wio_n2n'}";
1257 }
1258 else {
1259 $image = "$imgstatic/ovpnrw.png";
1260 $text = "$Lang::tr{'wio_rw'}";
1261 }
1262
1263 if ( $ovpnconfighash{$key}[0] eq 'off' ) {
1264 $status = "${Header::colourblue}";
1265 $statustxt = "$Lang::tr{'capsclosed'}";
1266 }
1267 else {
1268
1269 if ($ovpnconfighash{$key}[3] eq 'net') {
1270 if (-e "/var/run/$ovpnconfighash{$key}[1]n2n.pid") {
1271 my @output = "";
1272 my @tustate = "";
1273 my $tport = $ovpnconfighash{$key}[22];
1274 my $tnet = new Net::Telnet ( Timeout=>5, Errmode=>'return', Port=>$tport);
1275 if ($tport ne '') {
1276 $tnet->open('127.0.0.1');
1277 @output = $tnet->cmd(String => 'state', Prompt => '/(END.*\n|ERROR:.*\n)/');
1278 @tustate = split(/\,/, $output[1]);
1279 $ovpntime = &WIO::contime(scalar localtime($tustate[0]));
1280
1281 if (($tustate[1] eq 'CONNECTED')) {
1282 $status = "${Header::colourgreen}";
1283 $statustxt = "$Lang::tr{'capsopen'}";
1284 }else {
1285 $status = "${Header::colourred}";
1286 $statustxt = "$tustate[1]";
1287 }
1288 }
1289 }
1290 }
1291 else {
1292 foreach (@ovpnstatus) {
1293 if ( $_ =~ /^(.+),(\d+\.\d+\.\d+\.\d+\:\d+),(\d+),(\d+),(.+)/ ) {
1294 @match = split (m/^(.+),(\d+\.\d+\.\d+\.\d+\:\d+),(\d+),(\d+),(.+)/, $_);
1295 $match[1] =~ s/[_]/ /g;
1296 }
1297
1298 if ( $match[1] ne "Common Name" && ($match[1] eq $ovpnconfighash{$key}[2]) ) {
1299 $ovpnclt = $match[1];
1300 $ovpntime = &WIO::contime($match[5]);
1301 }
1302
1303 if ( $_ =~ /^(\d+\.\d+\.\d+\.\d+),(.+),(\d+\.\d+\.\d+\.\d+\:\d+),(.+)/ ) {
1304 @match = split(m/^(\d+\.\d+\.\d+\.\d+),(.+),(\d+\.\d+\.\d+\.\d+\:\d+),(.+)/, $_);
1305 }
1306
1307 if ( $match[1] ne "Virtual Address" && $match[2] eq $ovpnclt ) {
1308 $ovpnrwip = $match[1];
1309 $ovpncheck = &WIO::statustime($match[4]);
1310 }
1311
1312 if ( $ovpnclt eq $ovpnconfighash{$key}[2] ) {
1313 $status = "${Header::colourgreen}";
1314 $statustxt = "$Lang::tr{'capsopen'}";
1315 }
1316 else {
1317 $status = "${Header::colourred}";
1318 $statustxt = "$Lang::tr{'capsclosed'}";
1319 }
1320 }
1321 }
1322}
1323
1324 print"
1325 <td align='center'>$ovpncheck</td>
1326 <td align='center'>".( defined($ovpnrwip)? "$ovpnrwip" : "&nbsp;")."</td>
1327 <td align='center'><img align='middle' src='$image' alt='$text' title='$text' /></td>
1328 <td align='center'>".($ovpnconfighash{$key}[2] eq '%auth-dn' ? "$ovpnconfighash{$key}[9]" : ($ovpnconfighash{$key}[4] eq 'cert' ? "$ovpnconfighash{$key}[2]": "&nbsp;"))."</td>
1329 <td align='center'><table bgcolor='$status' cellpadding='2' cellspacing='0' width='100%'><tr height='20'><td align='center'><font color='white'><b>$statustxt</b></font></td></tr></table></td>
1330 <td align='center'>".(defined($ovpntime)? "$ovpntime" : "&nbsp;")."</td>
1331</tr>
1332";
1333 if ($ovpnconfighash{$key}[25] && $wiosettings{'CLIENTREMARK'} eq 'on') {
1334 print"<tr".($idovpn % 2?" bgcolor='$color{'color20'}'":" bgcolor='$color{'color22'}'")." height='20'><td>&nbsp;</td><td colspan='16' align='left'>$ovpnconfighash{$key}[25]</td></tr>";
1335 }
1336
1337 print"<tr height='1'><td colspan='17' bgcolor='#696565'></td></tr>";
1338 $idovpn++
1339 }
1340 print"</table>";
1341 &hrline();
1342}
1343#}
1344
1345## client status
1346
1347print"
1348<table border='0' width='100%' bordercolor='$Header::bordercolour' cellspacing='0' cellpadding='0' style='border-collapse: collapse'>
1349<tr height='20'>
1350 <td width='28%' bgcolor='$color{'color20'}' align='left'><b>&nbsp;$Lang::tr{'wio_clients'}</b></td>
1351 <td width='72%'>&nbsp;</td>
1352</tr>
1353<tr><td colspan='2'>&nbsp;</td></tr>
1354</table>
1355
1356<table border='0' width='100%' bordercolor='$Header::bordercolour' cellspacing='0' cellpadding='0' style='border-collapse: collapse'>
1357<tr bgcolor='$color{'color20'}' height='20'>
1358 <td width='3%' align='center'><b>$Lang::tr{'wio_id'}</b></td>
1359 <td width='4%' align='center'><b>$Lang::tr{'wio_activ'}</b></td>
1360 <td width='5%' align='center'><b>$Lang::tr{'wio_check'}</b></td>
1361 <td width='15%' align='center'><b>$Lang::tr{'wio checked'}</b></td>
1362 <td width='4%' align='center'><b>$Lang::tr{'wio_webinterface'}</b></td>
1363 <td width='11%' align='center'><a href='$ENV{'SCRIPT_NAME'}?IPADR'><b>$Lang::tr{'wio ipadress'}</b></a></td>
1364 <td width='5%' align='center'><b>$Lang::tr{'wio network'}</b></td>
1365 <td width='20%' align='center'><a href='$ENV{'SCRIPT_NAME'}?HOST'><b>$Lang::tr{'wio name'}</b></a></td>
1366 <td width='11%' align='center'><b>$Lang::tr{'wio image'}</b></td>
1367 <td width='4%' align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'><input type='hidden' name='ACTION' value='$Lang::tr{'wio_refresh'}' /><input type='image' name='$Lang::tr{'wio_refresh'}' src='$imgstatic/refresh.png' align='middle' alt='$Lang::tr{'wio_refresh'}' title='$Lang::tr{'wio_refresh'}' /></form></td>
1368 <td width='4%' colspan='2' align='center'><b>$Lang::tr{'wio_dyndns'}</b></td>
1369 <td width='12%' colspan='4' align='center'><b>$Lang::tr{'action'}</b></td>
1370 <td width='3%' align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'><input type='hidden' name='ACTION' value='$Lang::tr{'wio_remove_all'}' /><input type='image' name='$Lang::tr{'wio_remove_all'}' src='/images/delete.gif' align='middle' alt='$Lang::tr{'wio_remove_all'}' title='$Lang::tr{'wio_remove_all'}' onClick=\"return confirm('$Lang::tr{'wio_remove_all_hint'}')\"/></form></td>
1371</tr>
1372";
1373
1374for (my $a=0; $a<$nr; $a++) {
1375
1376my $gif = 'off.gif';
1377my $gdesc = $Lang::tr{'wio_client_off'};
1378my $dyndnsimg = 'on.gif';
1379my $dyndnsimgtxt = $Lang::tr{'wio_dyndns_on'};
1380my $mailonimg = 'wio/mailgreenon.png';
1381my $mailonimgtxt = $Lang::tr{'wio_mail_online_on'};
1382my $mailoffimg = 'wio/mailredon.png';
1383my $mailoffimgtxt = $Lang::tr{'wio_mail_offline_on'};
1384my $pingimg = '';
1385my $pingtxt = '';
1386my $webimg = '';
1387
1388if ( $activ[$a] eq 'on' ) {
1389 $gif = 'on.gif';
1390 $gdesc = $Lang::tr{'wio_client_on'};
1391}
1392
1393if ( $dyndns[$a] ne 'on' ) {
1394 $dyndnsimg = 'off.gif';
1395 $dyndnsimgtxt = $Lang::tr{'wio_dyndns_off'};
1396}
1397
1398if ( $sendemailon[$a] ne 'on' ) {
1399 $mailonimg = 'wio/mailgreenoff.png';
1400 $mailonimgtxt = $Lang::tr{'wio_mail_online_off'};
1401}
1402
1403if ( $sendemailoff[$a] ne 'on' ) {
1404 $mailoffimg = 'wio/mailredoff.png';
1405 $mailoffimgtxt = $Lang::tr{'wio_mail_offline_off'};
1406}
1407
1408if ( $webinterface[$a] eq 'HTTP' ) {
1409 $webimg = 'wio/http.png';
1410}
1411elsif ( $webinterface[$a] eq 'HTTPS' ) {
1412 $webimg = 'wio/https.png';
1413}
1414else {
1415 $webimg = 'wio/none.png';
1416}
1417
1418$bgcolor = $status[$a] eq "on" ? "${Header::colourgreen}" : ($status[$a] eq "off" && $dates[$a] eq "") ? "${Header::colourblue}" : "${Header::colourred}";
1419$statustxt = $status[$a] eq "on" ? "$Lang::tr{'wio up'}" : ($status[$a] eq "off" && $dates[$a] eq "") ? "$Lang::tr{'wio_no_image'}" : "$Lang::tr{'wio down'}";
1420
1421print"<tr".($a % 2?" bgcolor='$color{'color20'}'":" bgcolor='$color{'color22'}'")." height='20'>";
1422printf ("<td align='center'> %02d</td>", $a+1);
1423
1424print"<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>
1425 <input type='hidden' name='ACTION' value='$Lang::tr{'enable disable client'}' />
1426 <input type='image' name='$Lang::tr{'enable disable client'}' src='/images/$gif' align='middle' alt='$gdesc' title='$gdesc' />
1427 <input type='hidden' name='ID' value='$a' /></form></td>";
1428
1429if ( $pingmethode[$a] eq 'ip') {
1430 print"<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>
1431 <input type='hidden' name='ACTION' value='$Lang::tr{'wio_ip_on'}' />
1432 <input type='image' name='$Lang::tr{'wio_ip_on'}' src='/images/wio/ip.png' align='middle' alt='$Lang::tr{'wio_ip_on'}' title='$Lang::tr{'wio_ip_on'}' />
1433 <input type='hidden' name='ID' value='$a' /></form></td>";
1434}
1435else {
1436 print"<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>
1437 <input type='hidden' name='ACTION' value='$Lang::tr{'wio_fqdn_on'}' />
1438 <input type='image' name='$Lang::tr{'wio_fqdn_on'}' src='/images/wio/fqdn.png' align='middle' alt='$Lang::tr{'wio_fqdn_on'}' title='$Lang::tr{'wio_fqdn_on'}' />
1439 <input type='hidden' name='ID' value='$a' /></form></td>";
1440}
1441
1442print"<td align='center'>$dates[$a]</td>";
1443
1444print"<td align='center'><img align='middle' src='/images/$webimg' /></td>";
1445
1446if ( $webinterface[$a] eq 'HTTP' ) {
1447 print"<td align='center'><a title=\"$Lang::tr{'wio_webinterface_link'}\" href=\"http://$ipaddresses[$a]\" target=\"_blank\">$ipaddresses[$a]</a></td>";
1448}
1449elsif ( $webinterface[$a] eq 'HTTPS' ) {
1450 print"<td align='center'><a title=\"$Lang::tr{'wio_webinterface_link'}\" href=\"https://$ipaddresses[$a]\" target=\"_blank\">$ipaddresses[$a]</a></td>";
1451}
1452else {
1453 print"<td align='center'>$ipaddresses[$a]</td>";
1454}
1455
1456my $dotip = length($ipaddresses[$a]) - rindex($ipaddresses[$a],'.');
1457 SWITCH: {
1458 foreach (@devs_color) {
1459 my $in = 0;
1460 $ic = "${_}";
1461
1462 foreach $interface (@devs_net) {
1463 next if ( $netsettings{"$ic"."_DEV"} eq 'red0' && ($netsettings{"RED_TYPE"} eq 'DHCP' || $netsettings{"RED_TYPE"} eq 'PPPOE'));
1464 if ( $netsettings{"$ic"."_DEV"} eq $interface ) {
1465 if ( &General::IpInSubnet($ipaddresses[$a], $netsettings{"$ic"."_NETADDRESS"}, $netsettings{"$ic"."_NETMASK"}) ) {
1466 print"<td align='center' height='20'><img src='$imgstatic/$devs_img[$in]' alt='$Lang::tr{$devs_alt[$in]}' title='$Lang::tr{$devs_alt[$in]}' /></td>";
1467 last SWITCH;
1468 }
1469 }
1470 $in++;
1471 }
1472 }
1473
1474 if ($netsettings{"RED_TYPE"} eq 'DHCP' || $netsettings{"RED_TYPE"} eq 'PPPOE') {
1475 my $redipadr = qx'ip addr | grep red0 | grep inet | awk "{print \$2}"';
1476 my @rednet = split ("/", $redipadr);
1477 chomp ($rednet[1]);
1478 my $red_netmask = General::iporsubtodec($rednet[1]);
1479 my $red_netaddress = Network::get_netaddress("$rednet[0]/$red_netmask");
1480
1481 if ( &General::IpInSubnet($ipaddresses[$a], $red_netaddress, $red_netmask) ) {
1482 print"<td align='center' height='20'><img src='$imgstatic/red.png' alt='$Lang::tr{'wio_red_lan'}' title='$Lang::tr{'wio_red_lan'}' /></td>";
1483 last SWITCH;
1484 }
1485 else {
1486 print"<td align='center'><img align='middle' src='$imgstatic/white.png' alt='$Lang::tr{'wio_unknown_lan'}' title='$Lang::tr{'wio_unknown_lan'}' /></td>";
1487 last SWITCH;
1488 }
1489 }
1490
1491 if ( -e "$vpnpid" ) {
1492 foreach $key (keys(%vpnconfighash)) {
1493 next unless ($vpnconfighash{$key}[3] eq 'net');
1494
1495 my $convertip = &General::ipcidr2msk($vpnconfighash{$key}[11]);
1496
1497 my @net = split ("/", $convertip);
1498
1499 $vpnn2nip = $net[0];
1500 $vpnn2nmask = length($net[1]) - rindex($net[1],'.');
1501
1502 if (substr($ipaddresses[$a],0,length($ipaddresses[$a])-$dotip) eq substr($vpnn2nip,0,length($vpnn2nip)-$vpnn2nmask)) {
1503 print"<td align='center'><img align='middle' src='$imgstatic/vpn.png' alt='IPSec' title='IPSec' /></td>";
1504 last SWITCH;
1505 }
1506 }
1507 }
1508
1509 if ( $ovpnsettings{'DOVPN_SUBNET'} ne '' ) {
1510 @match = split ("/", $ovpnsettings{'DOVPN_SUBNET'});
1511
1512 if ( &General::IpInSubnet($ipaddresses[$a], $match[0], $match[1]) ) {
1513 print"<td align='center'><img src='$imgstatic/ovpn.png' alt='OpenVPN' title='OpenVPN' /></td>";
1514 last SWITCH;
1515 }
1516 }
1517
1518 if ( %ovpnccdconfhash ne '' ) {
1519 foreach $key (keys(%ovpnccdconfhash)) {
1520
1521 my $convertip = &General::ipcidr2msk($ovpnccdconfhash{$key}[1]);
1522
1523 my @net = split ("/", $convertip);
1524
1525 $vpnn2nip = $net[0];
1526 $vpnn2nmask = length($net[1]) - rindex($net[1],'.');
1527
1528 if (substr($ipaddresses[$a],0,length($ipaddresses[$a])-$dotip) eq substr($vpnn2nip,0,length($vpnn2nip)-$vpnn2nmask)) {
1529 print"<td align='center'><img align='middle' src='$imgstatic/ovpn.png' alt='OpenVPN' title='OpenVPN' /></td>";
1530 last SWITCH;
1531 }
1532
1533 }
1534 }
1535 }
1536
1537if ( $webinterface[$a] eq 'HTTP' ) {
1538 print"<td align='center'><a title=\"$Lang::tr{'wio_webinterface_link'}\" href=\"http://$names[$a]\" target=\"_blank\">$names[$a]</a></td>";
1539}
1540elsif ( $webinterface[$a] eq 'HTTPS' ) {
1541 print"<td align='center'><a title=\"$Lang::tr{'wio_webinterface_link'}\" href=\"https://$names[$a]\" target=\"_blank\">$names[$a]</a></td>";
1542}
1543else {
1544 print"<td align='center'>$names[$a]</td>";
1545}
1546
1547print"
1548 <td>
1549 <table bgcolor='$bgcolor' cellpadding='2' cellspacing='0' width='100%'>
1550 <tr height='20'>
1551 <td align='center'><font color='$color{'color21'}'><b>$statustxt</b></font></td>
1552 </tr>
1553 </table>
1554 </td>
1555
1556 <td width='3%' align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>
1557 <input type='hidden' name='ACTION' value='$Lang::tr{'wio_sc_refresh'}' />
1558 <input type='image' name='$Lang::tr{'wio_sc_refresh'}' src='$imgstatic/refresh.png' align='middle' alt='$Lang::tr{'wio_sc_refresh'}' title='$Lang::tr{'wio_sc_refresh'}' />
1559 <input type='hidden' name='ID' value='$a' /></form></td>
1560
1561 <td width='3%' align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>
1562 <input type='hidden' name='ACTION' value='$Lang::tr{'enable disable dyndns'}' />
1563 <input type='image' name='$Lang::tr{'enable disable dyndns'}' src='/images/$dyndnsimg' align='middle' alt='$dyndnsimgtxt' title='$dyndnsimgtxt' />
1564 <input type='hidden' name='ID' value='$a' /></form></td>";
1565
1566if ( defined($dyndns[$a]) && ($dyndns[$a] eq 'on') ) {
1567 print"<td width='3%' align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>
1568 <input type='hidden' name='ACTION' value='$Lang::tr{'wio_dyndns_refresh'}' />
1569 <input type='image' name='$Lang::tr{'wio_dyndns_refresh'}' src='/images/reload.gif' align='middle' alt='$Lang::tr{'wio_dyndns_refresh'}' title='$Lang::tr{'wio_dyndns_refresh'}' />
1570 <input type='hidden' name='ID' value='$a' /></form></td>";
1571}
1572else {
1573 print"<td width='3%' align='center'>-</td>";
1574}
1575
1576if ( -e "/var/log/rrd/wio/$id[$a].rrd" ) {
1577 print"
1578 <td width='3%' align='center'><form method='post' action='/cgi-bin/wiographs.cgi' enctype='multipart/form-data'>
1579 <input type='image' name='$Lang::tr{'wio_graphs'}' src='$imgstatic/graph.png' align='middle' alt='$Lang::tr{'wio_graphs'}' title='$Lang::tr{'wio_graphs'}' />
1580 <input type='hidden' name='HOSTID' value='$id[$a]' /><input type='hidden' name='HOSTNAME' value='$names[$a]' /></form></td>
1581 ";
1582}
1583else {
1584 print "<td width='3%' align='center'><img src='$imgstatic/no_graph.png' align='middle' alt='$Lang::tr{'wio_no_graphs'}' title='$Lang::tr{'wio_no_graphs'}' /></td>";
1585}
1586
1587if ( $wiosettings{'SENDEMAIL'} eq 'on') {
1588 print"<td width='3%' align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>
1589 <input type='hidden' name='ACTION' value='$Lang::tr{'wio_mail_online'}' />
1590 <input type='image' name='$Lang::tr{'wio_mail_online'}' src='/images/$mailonimg' align='middle' alt='$mailonimgtxt' title='$mailonimgtxt' />
1591 <input type='hidden' name='ID' value='$a' /></form></td>
1592 <td width='3%' align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>
1593 <input type='hidden' name='ACTION' value='$Lang::tr{'wio_mail_offline'}' />
1594 <input type='image' name='$Lang::tr{'wio_mail_offline'}' src='/images/$mailoffimg' align='middle' alt='$mailoffimgtxt' title='$mailoffimgtxt' />
1595 <input type='hidden' name='ID' value='$a' /></form></td>";
1596}
1597else {
1598 print"<td width='3%' align='center'>-</td>
1599 <td width='3%' align='center'>-</td>";
1600}
1601
1602print"
1603 <td width='3%' align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>
1604 <input type='hidden' name='ACTION' value='$Lang::tr{'edit'}' />
1605 <input type='image' name='$Lang::tr{'edit'}' src='/images/edit.gif' align='middle' alt='$Lang::tr{'edit'}' title='$Lang::tr{'edit'}' />
1606 <input type='hidden' name='ID' value='$a' /></form></td>
1607
1608 <td width='3%' align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>
1609 <input type='hidden' name='ACTION' value='$Lang::tr{'wio_remove_client'}' />
1610 <input type='image' name='$Lang::tr{'wio_remove_client'}' src='/images/delete.gif' align='middle' alt='$Lang::tr{'wio_remove_client'}' title='$Lang::tr{'wio_remove_client'}' onClick=\"return confirm('$Lang::tr{'wio_remove_client_hint'}')\" />
1611 <input type='hidden' name='ID' value='$a' /></form></td></tr>
1612";
1613
1614if ($remark[$a] && $wiosettings{'CLIENTREMARK'} eq 'on') {
1615 print"<tr".($a % 2?" bgcolor='$color{'color20'}'":" bgcolor='$color{'color22'}'")." height='20'><td>&nbsp;</td><td colspan='16' align='left'>$remark[$a]</td></tr>";
1616}
1617 print"<tr height='1'><td colspan='17' bgcolor='#696565'></td></tr>";
1618}
1619
1620print"</table>";
1621
1622&Header::closebox();
1623
1624}
1625
1626## add / modify client
1627
1628$checked{'EN'}{'on'} = ($wiosettings{'EN'} eq '' ) ? '' : "checked='checked'";
1629
1630$checked{'DYNDNS'}{'off'} = $checked{'DYNDNS'}{'on'} = '';
1631$checked{'DYNDNS'}{$wiosettings{'DYNDNS'}} = "checked='checked'";
1632
1633$checked{'SENDEMAILON'}{'off'} = $checked{'SENDEMAILON'}{'on'} = '';
1634$checked{'SENDEMAILON'}{$wiosettings{'SENDEMAILON'}} = "checked='checked'";
1635
1636$checked{'SENDEMAILOFF'}{'off'} = $checked{'SENDEMAILOFF'}{'on'} = '';
1637$checked{'SENDEMAILOFF'}{$wiosettings{'SENDEMAILOFF'}} = "checked='checked'";
1638
1639if (! defined($errormessage) && $wiosettings{'ACTION'} ne $Lang::tr{'edit'} ) {
1640 $wiosettings{'PINGMETHODE'} = 'ip';
1641}
1642
1643$checked{'PINGMETHODE'}{'ip'} = $checked{'PINGMETHODE'}{'fqdn'} = '';
1644$checked{'PINGMETHODE'}{$wiosettings{'PINGMETHODE'}} = "checked='checked'";
1645
1646$selected{'WEBINTERFACE'}{'----'} = '';
1647$selected{'WEBINTERFACE'}{'HTTP'} = '';
1648$selected{'WEBINTERFACE'}{'HTTPS'} = '';
1649$selected{'WEBINTERFACE'}{$wiosettings{'WEBINTERFACE'}} = "selected='selected'";
1650
1651$buttontext = $Lang::tr{'wio_client_add'};
1652
1653if ( $wiosettings{'ACTION'} eq $Lang::tr{'edit'} || defined($errormessage) && ! defined($message) ) {
1654 &Header::openbox('100%', 'left', $Lang::tr{'wio_edit_client'});
1655 $buttontext = $Lang::tr{'update'};
1656}
1657else {
1658 &Header::openbox('100%', 'left', $Lang::tr{'wio_edit_settings'});
1659}
1660
1661if (! defined($errormessage) && $wiosettings{'ACTION'} ne $Lang::tr{'edit'} ) {
1662print"
1663<table width='100%' border='0' bordercolor='$Header::bordercolour' cellspacing='0' cellpadding='0' style='border-collapse: collapse'>
1664<tr>
1665 <td width='28%' bgcolor='$color{'color20'}' align='left' height='20'><b>&nbsp;$Lang::tr{'wio_add'}</b></td>
1666 <td width='72%' align='right'>&nbsp;</td>
1667</tr>
1668<tr>
1669 <td>&nbsp;</td>
1670</tr>
1671</table>
1672";
1673}
1674
1675print"
1676<form method='post' action='$ENV{'SCRIPT_NAME'}'>
1677<input type='hidden' name='ID' value='$wiosettings{'ID'}' />
1678<input type='hidden' name='CLIENTID' value='$wiosettings{'CLIENTID'}' />
1679<input type='hidden' name='ONLINE' value='$wiosettings{'ONLINE'}' />
1680<input type='hidden' name='TIMESTAMP' value='$wiosettings{'TIMESTAMP'}' />
1681";
1682
1683print"
1684<table width='100%' border='0' bordercolor='$Header::bordercolour' cellspacing='0' cellpadding='0' style='border-collapse: collapse'>
1685<tr>
1686 <td height='30'>$Lang::tr{'wio_client_enable'}</td>
1687 <td align='left'><input type='checkbox' name='EN' $checked{'EN'}{'on'} /></td>
1688 <td colspan='4'>&nbsp;</td>
1689</tr>
1690<tr>
1691 <td height='30'>$Lang::tr{'wio ipadress'}:</td>
1692 <td align='left'><input type='text' name='IPADR' value='$wiosettings{'IPADR'}' size='25' /></td>
1693 <td>$Lang::tr{'wio name'}:</td>
1694 <td align='left'><input type='text' name='HOST' value='$wiosettings{'HOST'}' size='25' /></td>
1695 <td>$Lang::tr{'remark'}:</td>
1696 <td align='left'><input type='text' name='REMARK' value='$wiosettings{'REMARK'}' size='30'></td>
1697</tr>
1698<tr>
1699 <td height='30'>$Lang::tr{'wio_ping_send'}:</td>
1700 <td align='left'><input type='radio' name='PINGMETHODE' value='ip' $checked{'PINGMETHODE'}{'ip'} />&nbsp;IP&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type='radio' name='PINGMETHODE' value='fqdn' $checked{'PINGMETHODE'}{'fqdn'} />&nbsp;FQDN</td>
1701 <td>$Lang::tr{'wio_dyndns'}:</td>
1702 <td align='left'><input type='checkbox' name='DYNDNS' $checked{'DYNDNS'}{'on'} /></td>
1703";
1704
1705if ( $wiosettings{'SENDEMAIL'} eq 'on' ) {
1706 print"<td>$Lang::tr{'wio_sendemail'}:</td>
1707 <td><input type='checkbox' name='SENDEMAILON' $checked{'SENDEMAILON'}{'on'} />&nbsp;$Lang::tr{'wio_online'}&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type='checkbox' name='SENDEMAILOFF' $checked{'SENDEMAILOFF'}{'on'} />&nbsp;$Lang::tr{'wio_offline'}</td>";
1708}
1709else {
1710 print"<td colspan='2'>&nbsp;</td>";
1711}
1712
1713print"
1714</tr>
1715<tr>
1716 <td height='30'>$Lang::tr{'wio_ping_send'}:</td>
1717 <td align='left' colspan='5'>
1718 <select size='1' name='WEBINTERFACE' width='80' style='width: 80px'>
1719 <option value='----' $selected{'WEBINTERFACE'}{'----'}>----</option>
1720 <option value='HTTP' $selected{'WEBINTERFACE'}{'HTTP'}>HTTP</option>
1721 <option value='HTTPS' $selected{'WEBINTERFACE'}{'HTTPS'}>HTTPS</option>
1722 </select>
1723 </td>
1724</tr>
1725</table>
1726<table width='100%' cellspacing='0' cellpadding='0' style='border-collapse: collapse'>
1727<tr>
1728 <td width='20%' align='center'>&nbsp;</td>
1729";
1730
1731if ( $buttontext eq $Lang::tr{'update'} && ( defined($errormessage) || $wiosettings{'ACTION'} eq $Lang::tr{'edit'}) && ! defined($message) ) {
1732 print"<td width='20%' align='center'>&nbsp;</td>
1733 <td width='20%' align='center'>&nbsp;</td>
1734 <td width='20%' align='center'><input type='hidden' name='ACTION' value='$Lang::tr{'wio_client_add'}' /><input type='submit' name='SUBMIT' value='$buttontext' /></td>
1735 <td width='20%' align='center'><input type='button' onClick='location.href=\"/cgi-bin/wio.cgi\"' value='$Lang::tr{'wio_back'}'></form></td>";
1736}
1737else {
1738 print"<td width='20%' align='center'>&nbsp;</td>
1739 <td width='20%' align='center'>&nbsp;</td>
1740 <td width='20%' align='center'>&nbsp;</td>
1741 <td width='20%' align='right'><input type='hidden' name='ACTION' value='$Lang::tr{'wio_client_add'}' /><input type='submit' name='SUBMIT' value='$buttontext' /></form></td>";
1742}
1743
1744print"
1745</tr>
1746</table>
1747";
1748
1749if ( $wiosettings{'ENABLE'} eq 'on' && !$errormessage && $wiosettings{'ACTION'} ne $Lang::tr{'edit'} || $message == 2 ) {
1750
1751&hrline();
1752
1753## arp table entries
1754
1755print"
1756<table border='0' width='100%' bordercolor='$Header::bordercolour' cellspacing='0' cellpadding='0' style='border-collapse: collapse'>
1757<tr>
1758 <td width='28%' bgcolor='$color{'color20'}' align='left' height='20'><b>&nbsp;$Lang::tr{'wio_arp_table_entries'}</b></td>
1759 <td width='72%'>&nbsp;</td>
1760</tr>
1761<tr><td colspan='2'>&nbsp;</td></tr>
1762</table>
1763
1764<table border='0' width='100%' bordercolor='$Header::bordercolour' cellspacing='0' cellpadding='0' style='border-collapse: collapse'>
1765<tr bgcolor='$color{'color20'}'>
1766 <td width='5%' align='center' height='20'><b>$Lang::tr{'wio_id'}</b></td>
1767 <td width='20%' align='center' height='20'><b>$Lang::tr{'wio_hwaddress'}</b></td>
1768 <td width='20%' align='center' height='20'><b>$Lang::tr{'wio ipadress'}</b></td>
1769 <td width='15%' align='center' height='20'><b>$Lang::tr{'wio network'}</b></td>
1770 <td width='20%' align='center' height='20'><b>$Lang::tr{'wio name'}</b></td>
1771 <td width='15%' align='center' height='20'><b>$Lang::tr{'wio_iface'}</b></td>
1772 <td width='5%' align='center' height='20'><b>$Lang::tr{'action'}</b></td>
1773</tr>
1774";
1775
1776$output = `/sbin/ip neigh list`;
1777$output = &Header::cleanhtml($output,"y");
1778
1779my $arpcnt = 0;
1780
1781foreach $line (split(/\n/, $output))
1782{
1783 if ($line =~ m/^(.*) dev ([^ ]+) lladdr ([0-9a-f:]*) (.*)$/) {
1784 my $arphost = gethostbyaddr(inet_aton($1), AF_INET);
1785 if ( $arphost eq 'localhost' ) { $arphost = ''; }
1786 push (@arpcache, "$3,$1,$arphost,$2\n");
1787 }
1788 elsif ($line =~ m/^(.*) dev ([^ ]+) (.*)$/) {
1789 my $arphost = gethostbyaddr(inet_aton($1), AF_INET);
1790 if ( $arphost eq 'localhost' ) { $arphost = ''; }
1791 push (@arpcache, ",$1,$arphost,$2\n");
1792 }
1793
1794 $arpcnt++;
1795}
1796
1797&SortDataFile('arpcache',@arpcache);
1798
1799foreach (@arpcache) {
1800 chomp;
1801
1802 @line = split (/\,/, $_);
1803
1804 print"<tr".($idarp % 2?" bgcolor='$color{'color20'}'":" bgcolor='$color{'color22'}'")." height='20'>";
1805 printf ("<td align='center'> %02d</td>", $idarp+1);
1806 print"<td align='center'>$line[0]</td>
1807 <td align='center'>$line[1]</td>";
1808
1809SWITCH: {
1810
1811 foreach (@devs_color) {
1812 my $in = 0;
1813 $ic = "${_}";
1814
1815 foreach $interface (@devs_net) {
1816 next if ( $netsettings{"$ic"."_DEV"} eq 'red0' && ($netsettings{"RED_TYPE"} eq 'DHCP' || $netsettings{"RED_TYPE"} eq 'PPPOE'));
1817
1818 if ($netsettings{"$ic"."_DEV"} eq $interface) {
1819 if ( &General::IpInSubnet($line[1], $netsettings{"$ic"."_NETADDRESS"}, $netsettings{"$ic"."_NETMASK"}) ) {
1820 print"<td align='center'><img src='$imgstatic/$devs_img[$in]' alt='$Lang::tr{$devs_alt[$in]}' title='$Lang::tr{$devs_alt[$in]}' /></td>";
1821 last SWITCH;
1822 }
1823 }
1824
1825 $in++;
1826 }
1827 }
1828
1829 if ($netsettings{"RED_TYPE"} eq 'DHCP' || $netsettings{"RED_TYPE"} eq 'PPPOE') {
1830 my $redipadr = qx'ip addr | grep red0 | grep inet | awk "{print \$2}"';
1831 my @rednet = split ("/", $redipadr);
1832 chomp ($rednet[1]);
1833 my $red_netmask = General::iporsubtodec($rednet[1]);
1834 my $red_netaddress = Network::get_netaddress("$rednet[0]/$red_netmask");
1835
1836 if ( &General::IpInSubnet($line[1], $red_netaddress, $red_netmask) ) {
1837 print"<td align='center' height='20'><img src='$imgstatic/red.png' alt='$Lang::tr{'wio_red_lan'}' title='$Lang::tr{'wio_red_lan'}' /></td>";
1838 last SWITCH;
1839 }
1840 else {
1841 print"<td align='center'><img align='middle' src='$imgstatic/white.png' alt='$Lang::tr{'wio_unknown_lan'}' title='$Lang::tr{'wio_unknown_lan'}' /></td>";
1842 last SWITCH;
1843 }
1844 }
1845}
1846
1847 print"<td align='center'>$line[2]</td>
1848 <td align='center'>".&WIO::color_devices($line[3])."</td>";
1849
1850 unless (&WIO::checkinto($line[1], '', @current)) {
1851 print"<td align='center'><form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>
1852 <input type='hidden' name='ACTION' value='$Lang::tr{'wio_add'}' />
1853 <input type='image' name='$Lang::tr{'wio_add'}' src='/images/add.gif' align='middle' alt='$Lang::tr{'wio_add'}' title='$Lang::tr{'wio_add'}' />
1854 <input type='hidden' name='ID' value='$idarp' /></form></td>";
1855 }
1856 else {
1857 print"<td align='center'><img src='$imgstatic/add.png' align='middle' alt='$Lang::tr{'wio_no_add'}' title='$Lang::tr{'wio_no_add'}' /></td>";
1858 }
1859
1860print"</tr>";
1861print"<tr height='1'><td colspan='17' bgcolor='#696565'></td></tr>";
1862$idarp++
1863}
1864
1865print"
1866</table>
1867";
1868
1869&hrline();
1870
1871print"
1872<table border='0' width='100%' bordercolor='$Header::bordercolour' cellspacing='0' cellpadding='0' style='border-collapse: collapse'>
1873<tr>
1874 <td width='28%' bgcolor='$color{'color20'}' align='left' height='20'><b>&nbsp;$Lang::tr{'wio_import_file'}</b></td>
1875 <td width='72%'>&nbsp;</td>
1876</tr>
1877<tr><td colspan='2'>&nbsp;</td></tr>
1878</table>
1879<table width='100%' cellspacing='0' cellpadding='0' style='border-collapse: collapse'>
1880<tr bgcolor='$color{'color22'}'>
1881 <form method='post' action='/cgi-bin/wio.cgi' enctype='multipart/form-data'>
1882 <td width='35%' align='right'>$Lang::tr{'wio_import_csv'}&nbsp;</td>
1883 <td width='40%' align='center'><input type='file' name='CSVFILE' size='30' /></td>
1884 <td width='25%' align='right'><input type='hidden' name='ACTION' value='$Lang::tr{'wio_import'}1' /><input type='submit' name='SUBMIT' value='$Lang::tr{'wio_import'}' /></td>
1885 </form>
1886</tr>
1887<tr><td colspan='3'>&nbsp;</td></tr>
1888<tr bgcolor='$color{'color22'}'>
1889 <form method='post' action='/cgi-bin/wio.cgi' enctype='multipart/form-data'>
1890 <td width='35%' align='right'>$Lang::tr{'wio_import_hosts'}&nbsp;</td>
1891 <td width='40%' align='center'>&nbsp;</td>
1892 <td width='25%' align='right'><input type='hidden' name='ACTION' value='$Lang::tr{'wio_import'}2' /><input type='submit' name='SUBMIT' value='$Lang::tr{'wio_import'}' /></td>
1893 </form>
1894</tr>
1895<tr><td colspan='3'>&nbsp;</td></tr>
1896<tr bgcolor='$color{'color22'}'>
1897 <form method='post' action='/cgi-bin/wio.cgi' enctype='multipart/form-data'>
1898 <td width='35%' align='right'>$Lang::tr{'wio_import_fixleases'}&nbsp;</td>
1899 <td width='40%' align='center'>&nbsp;</td>
1900 <td width='25%' align='right'><input type='hidden' name='ACTION' value='$Lang::tr{'wio_import'}3' /><input type='submit' name='SUBMIT' value='$Lang::tr{'wio_import'}' /></td>
1901 </form>
1902</tr>
1903</table>
1904";
1905
1906&hrline;
1907
1908print"
1909<table border='0' width='100%' bordercolor='$Header::bordercolour' cellspacing='0' cellpadding='0' style='border-collapse: collapse'>
1910<tr>
1911 <td width='28%' bgcolor='$color{'color20'}' align='left' height='20'><b>&nbsp;$Lang::tr{'wio_net_scan'}</b></td>
1912 <td width='72%'>&nbsp;</td>
1913</tr>
1914</table>
1915<table width='100%' cellspacing='0' cellpadding='0' style='border-collapse: collapse'>
1916<tr>
1917 <td colspan='3'>&nbsp;</td>
1918</tr>
1919";
1920
1921foreach (keys(%ifacecolor)) {
1922 if ( $_ eq 'GREEN' ) { $color = "$Header::colourgreen"; $net = $Lang::tr{'wio_net_scan_green'}; }
1923 elsif ( $_ eq 'BLUE' ) { $color = "$Header::colourblue"; $net = $Lang::tr{'wio_net_scan_blue'}; }
1924 else { $color = "$Header::colourorange"; $net = $Lang::tr{'wio_net_scan_orange'}; }
1925
1926 if ( $netsettings{"${_}_DEV"} eq 'disabled' || $netsettings{"${_}_DEV"} eq '' || $netsettings{"${_}_ADDRESS"} eq '' ) { next; }
1927 else {
1928 print <<END;
1929
1930 <tr bgcolor='$color{'color22'}'>
1931 <td width='35%' align='right'><form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'>$Lang::tr{'wio_net_scan_vl'} <font color='$color'><b>$net</b></font> $Lang::tr{'wio_net_scan_l'}<font color='$color'><b> $netsettings{"${_}_DEV"} </b></font>$Lang::tr{'wio_net_scan_r'}</td>
1932 <td width='40%' align='center'><input type='text' name='${_}_IPLOW' value='$wiosettings{"${_}_IPLOW"}' size='14' STYLE='background-color:$color; text-align: center; color:white' /> - <input type='text' name='${_}_IPHIGH' value='$wiosettings{"${_}_IPHIGH"}' size='14' STYLE='background-color:$color; text-align: center; color:white' /></td>
1933 <td width='25%' align='right'><input type='hidden' name='ACTION' value='$ifacecolor{$_}' /><input type='hidden' name='ID' value='$netsettings{"${_}_DEV"}' /><input type='submit' name='SUBMIT' value='$Lang::tr{'wio_net_scan_run'}'></form></td>
1934 </tr>
1935 <tr>
1936 <td colspan='3'>&nbsp;</td>
1937 </tr>
1938END
1939 }
1940}
1941
1942print"
1943</tr>
1944</table>
1945</form>
1946";
1947
1948&Header::closebox();
1949}
1950
1951if ( $wiosettings{'ENABLE'} eq 'on' && !$errormessage && $wiosettings{'ACTION'} ne $Lang::tr{'edit'} || $message == 2 ) {
1952
1953&Header::openbox('100%', 'left', $Lang::tr{'wio_service'});
1954
1955print"
1956<table border='0' width='100%' bordercolor='$Header::bordercolour' cellspacing='0' cellpadding='0' style='border-collapse: collapse'>
1957<tr bgcolor='$color{'color22'}'>
f539ff6d
SF		 1958 <td colspan='2' align='right'></td>
1959 <td width='10%' align='right'><form method='post' action='/cgi-bin/logs.cgi/log.dat' enctype='multipart/form-data'><input type='hidden' name='SECTION' value='wio' /><input type='submit' name='SUBMIT' value='$Lang::tr{'system logs'}' /></form></td>
1960 <td width='10%' align='right'><form method='post' action='$ENV{'SCRIPT_NAME'}' enctype='multipart/form-data'><input type='hidden' name='ACTION' value='$Lang::tr{'edit'}1' /><input type='submit' name='SUBMIT' value='$Lang::tr{'wio_edit_set'}' /></form></td>
0d6cc79d
SF		 1961</tr>
1962</table>
1963";
1964}
1965
1966&Header::closebox();
1967}
1968
1969&Header::closebigbox();
1970&Header::closepage();
1971
1972############################################################################################################################
1973
1974sub SortDataFile {
1975my ($data,@checkfile) = @_;
1976 my $idsort = 0;
1977 our %entries = ();
1978
1979 sub sortips {
1980 my $qs = '';
1981
1982 if (rindex ($wiosettings{'SORT'},'Rev') != -1) {
1983 $qs = substr ($wiosettings{'SORT'},0,length($wiosettings{'SORT'})-3);
1984
1985 if ($qs eq 'IPADR') {
1986 my @a = split (/\./,$entries{$a}->{$qs});
1987 my @b = split (/\./,$entries{$b}->{$qs});
1988 ($b[0]<=>$a[0]) ||
1989 ($b[1]<=>$a[1]) ||
1990 ($b[2]<=>$a[2]) ||
1991 ($b[3]<=>$a[3]);
1992 }
1993 else {
1994 $entries{$b}->{$qs} cmp $entries{$a}->{$qs};
1995 }
1996 }
1997 else {
1998 $qs = $wiosettings{'SORT'};
1999
2000 if ($qs eq 'IPADR') {
2001 my @a = split (/\./,$entries{$a}->{$qs});
2002 my @b = split (/\./,$entries{$b}->{$qs});
2003 ($a[0]<=>$b[0]) ||
2004 ($a[1]<=>$b[1]) ||
2005 ($a[2]<=>$b[2]) ||
2006 ($a[3]<=>$b[3]);
2007 }
2008 else {
2009 $entries{$a}->{$qs} cmp $entries{$b}->{$qs};
2010 }
2011 }
2012 }
2013
2014 if ($data eq 'arpcache') {
2015 foreach (@checkfile) {
2016 chomp;
2017 @temp = split (',', $_);
2018
2019 my @record = ('KEY',$idsort++,'MAC',$temp[0],'IPADR',$temp[1],'HOST',$temp[2],'REMARK',$temp[3],'IFACE',$temp[4]);
2020 my $record = ();
2021 %{$record} = @record;
2022 $entries{$record->{KEY}} = $record;
2023 }
2024
2025 open(FILE, "> $logdir/.arpcache");
2026
2027 foreach (sort sortips keys %entries) {
2028 print FILE "$entries{$_}->{MAC},$entries{$_}->{IPADR},$entries{$_}->{HOST},$entries{$_}->{REMARK},$entries{$_}->{IFACE},$entries{$_}->{HW}\n";
2029 }
2030
2031 close(FILE);
2032
2033 open (FILE, "$logdir/.arpcache");
2034 @arpcache = <FILE>;
2035 close (FILE);
2036 }
2037 else {
2038 foreach (@checkfile) {
2039 chomp;
2040 @temp = split (',', $_);
2041
2042 my @record = ('KEY',$idsort++,'CLIENTID',$temp[0],'TIMESTAMP',$temp[1],'IPADR',$temp[2],'HOST',$temp[3],'EN',$temp[4],'REMARK',$temp[5],'DYNDNS',$temp[6],'SENDEMAILON',$temp[7],'SENDEMAILOFF',$temp[8],'PINGMETHODE',$temp[9],'ONLINE',$temp[10],'WEBINTERFACE',$temp[11]);
2043 my $record = ();
2044 %{$record} = @record;
2045 $entries{$record->{KEY}} = $record;
2046 }
2047
2048 open(FILE, "> $ipadrfile");
2049
2050 foreach (sort sortips keys %entries) {
2051 print FILE "$entries{$_}->{CLIENTID},$entries{$_}->{TIMESTAMP},$entries{$_}->{IPADR},$entries{$_}->{HOST},$entries{$_}->{EN},$entries{$_}->{REMARK},$entries{$_}->{DYNDNS},$entries{$_}->{SENDEMAILON},$entries{$_}->{SENDEMAILOFF},$entries{$_}->{PINGMETHODE},$entries{$_}->{ONLINE},$entries{$_}->{WEBINTERFACE}\n";
2052 }
2053
2054 close(FILE);
2055
2056 &loadips();
2057 }
2058}
2059
2060############################################################################################################################
2061
2062sub hrline {
2063
2064print"<table width='100%'><tr><td colspan='2' height='35'><hr></td></tr></table>";
2065
2066}
2067
2068############################################################################################################################
2069
2070sub back {
2071
2072print"<table width='100%'><tr><td width='10%'><a href='/cgi-bin/wio.cgi'><img src='/images/wio/back.png' alt='$Lang::tr{'wio_back'}' title='$Lang::tr{'wio_back'}' /></a></td><td>&nbsp;</td></tr></table>";
2073
2074}
2075
2076############################################################################################################################
2077
2078sub loadips {
2079
2080&General::readhasharray($ipadrfile, \%ipshash);
2081
2082open(FILE, "< $ipadrfile");
2083@current = <FILE>;
2084close (FILE);
2085
2086}
2087
2088############################################################################################################################
2089
2090sub writeips {
2091
2092open(FILE, "> $ipadrfile");
2093if ( defined($write) ) { print FILE @write; }
2094else { print FILE @current; }
2095close(FILE);
2096
2097}
2098
2099############################################################################################################################
2100
2101sub SortByTunnelName
2102{
2103 if ($vpnconfighash{$a}[1] lt $vpnconfighash{$b}[1]) {
2104 return -1;
2105 }
2106 elsif ($vpnconfighash{$a}[1] gt $vpnconfighash{$b}[1]) {
2107 return 1;
2108 }
2109 else {
2110 return 0;
2111 }
2112}
2113
2114############################################################################################################################
2115
2116sub validSave
2117{
2118 if ( $wiosettings{'IPADR'} eq '' && $wiosettings{'PINGMETHODE'} eq 'ip' && $wiosettings{'DYNDNS'} eq '' ) {
2119 $errormessage = $Lang::tr{'wio_ip_empty'};
2120 }
2121
2122 if ( $wiosettings{'IPADR'} ne '' && (! &General::validip($wiosettings{'IPADR'})) ) {
2123 $errormessage = $Lang::tr{'wio_ip_error'};
2124 }
2125
2126 if ( $wiosettings{'HOST'} eq '' && $wiosettings{'PINGMETHODE'} eq 'fqdn' ) {
2127 $errormessage = $Lang::tr{'wio_host_empty'};
2128 }
2129
2130 if ( $wiosettings{'HOST'} ne '' && (! &General::validdomainname($wiosettings{'HOST'})) ) {
2131 $errormessage = $Lang::tr{'wio_host_error'};
2132 }
2133
2134 if ( $wiosettings{'DYNDNS'} eq 'on' && (! defined($errormessage)) ) {
2135 unless(&General::validfqdn($wiosettings{'HOST'})) { $errormessage = $Lang::tr{'wio_fqdn_error'}; }
2136 ( $wiosettings{'IPADR'}, $infomessage ) = &WIO::getdyndnsip($wiosettings{'IPADR'}, $wiosettings{'HOST'});
2137 $wiosettings{'PINGMETHODE'} = 'fqdn';
2138 }
2139
2140 if ( $wiosettings{'ID'} eq '' && ! defined($errormessage) ) { $errormessage = &WIO::checkinto($wiosettings{'IPADR'}, $wiosettings{'HOST'}, @current); }
2141
2142 if ( $wiosettings{'REMARK'} ne '' ) { $wiosettings{'REMARK'} =~ s/,/&#44;/g; }
2143}
Marcel's tree of IPFire 2.x