X-Git-Url: http://git.ipfire.org/?a=blobdiff_plain;f=html%2Fcgi-bin%2Fddns.cgi;h=69b9838e68e37574b6ba98005812fb44b1a8fd06;hb=ac1cfefab236b73ed52909e14f43eaffc8d6914e;hp=6785a8968cacb89783b3fdf3d46e7b0fb947645e;hpb=7ac38dc92777a4a9f3b0d6151befe8f446e2a031;p=people%2Fteissler%2Fipfire-2.x.git diff --git a/html/cgi-bin/ddns.cgi b/html/cgi-bin/ddns.cgi index 6785a8968..69b9838e6 100644 --- a/html/cgi-bin/ddns.cgi +++ b/html/cgi-bin/ddns.cgi @@ -1,537 +1,537 @@ -#!/usr/bin/perl -# -# SmoothWall CGIs -# -# This code is distributed under the terms of the GPL -# -# (c) The SmoothWall Team -# -# $Id: ddns.cgi,v 1.7.2.41 2006/02/07 01:29:47 franck78 Exp $ -# - -use strict; - -# enable only the following on debugging purpose -#use warnings; -#use CGI::Carp 'fatalsToBrowser'; - -require 'CONFIG_ROOT/general-functions.pl'; -require "${General::swroot}/lang.pl"; -require "${General::swroot}/header.pl"; - -#workaround to suppress a warning when a variable is used only once -my @dummy = ( ${Header::table2colour}, ${Header::colouryellow} ); -undef (@dummy); - -my $ddnsprefix = $Lang::tr{'ddns noip prefix'}; -$ddnsprefix =~ s/%/$General::noipprefix/; - -# Files used -my $setting = "${General::swroot}/ddns/settings"; -our $datafile = "${General::swroot}/ddns/config"; - -my %settings=(); -#Settings1 -$settings{'BEHINDROUTER'} = 'RED_IP'; -$settings{'MINIMIZEUPDATES'} = ''; - -#Settings2 for editing the multi-line list -#Must not be saved ! -$settings{'HOSTNAME'} = ''; -$settings{'DOMAIN'} = ''; -$settings{'LOGIN'} = ''; -$settings{'PASSWORD'} = ''; -$settings{'PASSWORD2'} = ''; -$settings{'ENABLED'} = ''; -$settings{'PROXY'} = ''; -$settings{'WILDCARDS'} = ''; -$settings{'SERVICE'} = ''; - -my @nosaved=('HOSTNAME','DOMAIN','LOGIN','PASSWORD','PASSWORD2', - 'ENABLED','PROXY','WILDCARDS','SERVICE'); # List here ALL setting2 fields. Mandatory - -$settings{'ACTION'} = ''; # add/edit/remove -$settings{'KEY1'} = ''; # point record for ACTION -$settings{'KEY2'} = ''; # point record for ACTION - -my $errormessage = ''; -my $warnmessage = ''; - -&Header::showhttpheaders(); - -#Get GUI values -&Header::getcgihash(\%settings); - -# Load multiline data -our @current = (); -if (open(FILE, "$datafile")) { - @current = ; - close (FILE); -} - -# -# Check Settings1 first because they are needed before working on @current -# -if ($settings{'ACTION'} eq $Lang::tr{'save'}) { - # No user input to check. ! - #unless ($errormessage) { # Everything is ok, save settings - $settings{'BEHINDROUTERWAITLOOP'} = '-1'; # init & will update on next setddns.pl call - map (delete ($settings{$_}) ,(@nosaved,'ACTION','KEY1','KEY2'));# Must never be saved - &General::writehash($setting, \%settings); # Save good settings - $settings{'ACTION'} = $Lang::tr{'save'}; # Recreate 'ACTION' - map ($settings{$_}= '',(@nosaved,'KEY1','KEY2')); # and reinit var to empty - #} -} else { - &General::readhash($setting, \%settings); # Get saved settings and reset to good if needed -} - -# -# Now manipulate the multi-line list with Settings2 -# -# Toggle enable/disable field. Field is in second position -if ($settings{'ACTION'} eq $Lang::tr{'toggle enable disable'}) { - #move out new line - chomp(@current[$settings{'KEY1'}]); - my @temp = split(/\,/,@current[$settings{'KEY1'}]); - my $K2=$settings{'KEY2'}; - $temp[ $K2 ] = ( $temp[ $K2 ] eq 'on') ? '' : 'on'; # Toggle the field - @current[$settings{'KEY1'}] = join (',',@temp)."\n"; - $settings{'KEY1'} = ''; # End edit mode - &General::log($Lang::tr{'ddns hostname modified'}); - - # Write changes to config file. - &WriteDataFile; # sort newly added/modified entry -} - -if ($settings{'ACTION'} eq $Lang::tr{'add'}) { - # Validate inputs - - unless ($settings{'LOGIN'} ne '') { - $errormessage = $Lang::tr{'username not set'}; - } - - # list box returns 'service optional synonyms' - # keep only first name - $settings{'SERVICE'} =~ s/ .*$//; - - # for freedns.afraid.org, only 'connect string' is mandatory - if ($settings{'SERVICE'} ne 'freedns.afraid.org') { - unless ($settings{'SERVICE'} eq 'regfish.com' || $settings{'PASSWORD'} ne '') { - $errormessage = $Lang::tr{'password not set'}; - } - unless ($settings{'PASSWORD'} eq $settings{'PASSWORD2'}) { - $errormessage = $Lang::tr{'passwords do not match'}; - } - - # Permit an empty HOSTNAME for the nsupdate, regfish, dyndns, enom, ovh, zoneedit, no-ip, easydns - unless ($settings{'SERVICE'} eq 'zoneedit.com' || $settings{'SERVICE'} eq 'nsupdate' || - $settings{'SERVICE'} eq 'dyndns-custom'|| $settings{'SERVICE'} eq 'regfish.com' || - $settings{'SERVICE'} eq 'enom.com' || $settings{'SERVICE'} eq 'dnspark.com' || - $settings{'SERVICE'} eq 'ovh.com' || $settings{'HOSTNAME'} ne '' || - $settings{'SERVICE'} eq 'no-ip.com' || $settings{'SERVICE'} eq 'easydns.com' ) { - $errormessage = $Lang::tr{'hostname not set'}; - } - unless ($settings{'HOSTNAME'} eq '' || $settings{'HOSTNAME'} =~ /^[a-zA-Z_0-9-]+$/) { - $errormessage = $Lang::tr{'invalid hostname'}; - } - unless ($settings{'DOMAIN'} ne '') { - $errormessage = $Lang::tr{'domain not set'}; - } - unless ($settings{'DOMAIN'} =~ /^[a-zA-Z_0-9.-]+$/) { - $errormessage = $Lang::tr{'invalid domain name'}; - } - unless ($settings{'DOMAIN'} =~ /[.]/) { - $errormessage = $Lang::tr{'invalid domain name'}; - } - } - - # recheck service wich don't need too much fields - if ($settings{'SERVICE'} eq 'cjb.net') { - $errormessage = ''; # clear previous error - unless ($settings{'LOGIN'} ne '') { - $errormessage = $Lang::tr{'username not set'}; - } - unless ($settings{'PASSWORD'} ne '') { - $errormessage = $Lang::tr{'password not set'}; - } - unless ($settings{'PASSWORD'} eq $settings{'PASSWORD2'}) { - $errormessage = $Lang::tr{'passwords do not match'}; - } - } - - unless ($errormessage) { - if ($settings{'KEY1'} eq '') { #add or edit ? - unshift (@current, "$settings{'SERVICE'},$settings{'HOSTNAME'},$settings{'DOMAIN'},$settings{'PROXY'},$settings{'WILDCARDS'},$settings{'LOGIN'},$settings{'PASSWORD'},$settings{'ENABLED'}\n"); - &General::log($Lang::tr{'ddns hostname added'}); - } else { - @current[$settings{'KEY1'}] = "$settings{'SERVICE'},$settings{'HOSTNAME'},$settings{'DOMAIN'},$settings{'PROXY'},$settings{'WILDCARDS'},$settings{'LOGIN'},$settings{'PASSWORD'},$settings{'ENABLED'}\n"; - $settings{'KEY1'} = ''; # End edit mode - &General::log($Lang::tr{'ddns hostname modified'}); - } - map ($settings{$_}='' ,@nosaved); # Clear fields - # Write changes to config file. - &WriteDataFile; # sort newly added/modified entry - } -} - -if ($settings{'ACTION'} eq $Lang::tr{'edit'}) { - #move out new line - my $line = @current[$settings{'KEY1'}]; # KEY1 is the index in current - chomp($line); - my @temp = split(/\,/, $line); - $settings{'SERVICE'} = $temp[0]; - $settings{'HOSTNAME'} = $temp[1]; - $settings{'DOMAIN'} = $temp[2]; - $settings{'PROXY'} = $temp[3]; - $settings{'WILDCARDS'} = $temp[4]; - $settings{'LOGIN'} = $temp[5]; - $settings{'PASSWORD'} = $settings{'PASSWORD2'} = $temp[6]; - $settings{'ENABLED'} = $temp[7]; -} - -if ($settings{'ACTION'} eq $Lang::tr{'remove'}) { - splice (@current,$settings{'KEY1'},1); # Delete line - open(FILE, ">$datafile") or die 'ddns datafile error'; - print FILE @current; - close(FILE); - $settings{'KEY1'} = ''; # End remove mode - &General::log($Lang::tr{'ddns hostname removed'}); - # Write changes to config file. - &WriteDataFile; -} - -if ($settings{'ACTION'} eq $Lang::tr{'instant update'}) { - system('/usr/local/bin/setddns.pl', '-f'); -} - - -if ($settings{'ACTION'} eq '') -{ - $settings{'SERVICE'} = 'dyndns.org'; - $settings{'ENABLED'} = 'on'; -} - -&Header::openpage($Lang::tr{'dynamic dns'}, 1, ''); -&Header::openbigbox('100%', 'left', '', $errormessage); - -my %checked =(); # Checkbox manipulations -$checked{'SERVICE'}{'cjb.net'} = ''; -$checked{'SERVICE'}{'dhs.org'} = ''; -$checked{'SERVICE'}{'dnspark.com'} = ''; -$checked{'SERVICE'}{'dtdns.com'} = ''; -$checked{'SERVICE'}{'dyndns.org'} = ''; -$checked{'SERVICE'}{'dyndns-custom'} = ''; -$checked{'SERVICE'}{'dyndns-static'} = ''; -$checked{'SERVICE'}{'dyns.cx'} = ''; -$checked{'SERVICE'}{'dynu.ca'} = ''; -$checked{'SERVICE'}{'easydns.com'} = ''; -$checked{'SERVICE'}{'enom.com'} = ''; -$checked{'SERVICE'}{'freedns.afraid.org'} = ''; -$checked{'SERVICE'}{'hn.org'} = ''; -$checked{'SERVICE'}{'no-ip.com'} = ''; -$checked{'SERVICE'}{'nsupdate'} = ''; -$checked{'SERVICE'}{'ovh.com'} = ''; -$checked{'SERVICE'}{'regfish.com'} = ''; -$checked{'SERVICE'}{'selfhost.de'} = ''; -$checked{'SERVICE'}{'tzo.com'} = ''; -$checked{'SERVICE'}{'zoneedit.com'} = ''; -$checked{'SERVICE'}{$settings{'SERVICE'}} = "selected='selected'"; - -$checked{'BEHINDROUTER'}{'RED_IP'} = ''; -$checked{'BEHINDROUTER'}{'FETCH_IP'} = ''; -$checked{'BEHINDROUTER'}{$settings{'BEHINDROUTER'}} = "checked='checked'"; -$checked{'MINIMIZEUPDATES'} = ($settings{'MINIMIZEUPDATES'} eq '' ) ? '' : "checked='checked'"; - -$checked{'PROXY'}{'on'} = ($settings{'PROXY'} eq '') ? '' : "checked='checked'"; -$checked{'WILDCARDS'}{'on'} = ($settings{'WILDCARDS'} eq '') ? '' : "checked='checked'"; -$checked{'ENABLED'}{'on'} = ($settings{'ENABLED'} eq '' ) ? '' : "checked='checked'"; - -if ($errormessage) { - &Header::openbox('100%', 'left', $Lang::tr{'error messages'}); - print "$errormessage "; - &Header::closebox(); -} - -if ($warnmessage) { - $warnmessage = "$Lang::tr{'capswarning'}: $warnmessage"; -} -&Header::openbox('100%', 'left', $Lang::tr{'settings'}); -print "
"; -print < - - $Lang::tr{'dyn dns source choice'} - - - $Lang::tr{'use ipcop red ip'} - - - $Lang::tr{'fetch ip from'} * - - - - $Lang::tr{'ddns minimize updates'} - - -
-END -; - -print < - - * - $Lang::tr{'avoid dod'} - - - - -END -; -&Header::closebox(); # end of Settings1 - - -my $buttontext = $Lang::tr{'add'}; -if ($settings{'KEY1'} ne '') { - $buttontext = $Lang::tr{'update'}; - &Header::openbox('100%', 'left', $Lang::tr{'edit an existing host'}); -} else { - &Header::openbox('100%', 'left', $Lang::tr{'add a host'}); -} - -#Edited line number (KEY1) passed until cleared by 'save' or 'remove' -print < - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
$Lang::tr{'service'}:$Lang::tr{'hostname'}: *
$Lang::tr{'behind a proxy'}$Lang::tr{'domain'}:
$Lang::tr{'enable wildcards'}$Lang::tr{'username'}
$Lang::tr{'password'}
$Lang::tr{'enabled'}$Lang::tr{'again'}
-
- - - - - - - -
*$ddnsprefix - -
- -END -; -&Header::closebox(); - -# -# Third box shows the list, in columns -# -&Header::openbox('100%', 'left', $Lang::tr{'current hosts'}); -print < - - $Lang::tr{'service'} - $Lang::tr{'hostname'} - $Lang::tr{'domain'} - $Lang::tr{'proxy'} - $Lang::tr{'wildcards'} - $Lang::tr{'action'} - -END -; -my $ip = &General::GetDyndnsRedIP; -my $key = 0; -foreach my $line (@current) { - chomp($line); # remove newline - my @temp = split(/\,/,$line); - - if ($temp[0] eq 'no-ip.com') { - $temp[1] =~ s!$General::noipprefix(.*)!group:$1 !; - } - - #Choose icon for checkbox - - my $gifproxy=''; - my $descproxy=''; - if ($temp[3] eq "on") { - $gifproxy = 'on.gif'; - $descproxy = $Lang::tr{'click to disable'}; - } else { - $gifproxy = 'off.gif'; - $descproxy = $Lang::tr{'click to enable'}; - } - - my $gifwildcard=''; - my $descwildcard=''; - if ($temp[4] eq "on") { - $gifwildcard = 'on.gif'; - $descwildcard = $Lang::tr{'click to disable'}; - } else { - $gifwildcard = 'off.gif'; - $descwildcard = $Lang::tr{'click to enable'}; - } - - my $sync = ""; - my $gif = ''; - my $gdesc = ''; - if ($temp[7] eq "on") { - $gif = 'on.gif'; - $gdesc = $Lang::tr{'click to disable'}; - $sync = (&General::DyndnsServiceSync ($ip,$temp[1], $temp[2]) ? "": "") ; - } else { - $gif = 'off.gif'; - $gdesc = $Lang::tr{'click to enable'}; - } - - #Colorize each line - if ($settings{'KEY1'} eq $key) { - print ""; - } elsif ($key % 2) { - print ""; - } else { - print ""; - } - - #if a field is empty, replace it with a '---' to see colorized info! - $temp[1] = '---' if (!$temp[1]); - $temp[2] = '---' if (!$temp[2]); - - print <$temp[0] -$sync$temp[1] -$sync$temp[2] - - -
- - - - -
- - - -
- - - - -
- - - -
- - - - -
- - - -
- - - -
- - - -
- - - -
- - -END -; - $key++; -} -print ""; - -# If table contains entries, print 'Key to action icons' -if ($key) { -print < - -  $Lang::tr{'legend'}:  - $Lang::tr{ - $Lang::tr{'click to disable'} -    - $Lang::tr{ - $Lang::tr{'click to enable'} -    - $Lang::tr{ - $Lang::tr{'edit'} -    - $Lang::tr{ - $Lang::tr{'remove'} -
- -
- - -END -; -} - -&Header::closebox(); -&Header::closebigbox(); -&Header::closepage(); - -## Ouf it's the end ! - - -# write the "current" array -sub WriteDataFile { - #Save current - open(FILE, ">$datafile") or die 'ddns datafile error'; - print FILE @current; - close (FILE); -} +#!/usr/bin/perl +# +# SmoothWall CGIs +# +# This code is distributed under the terms of the GPL +# +# (c) The SmoothWall Team +# +# $Id: ddns.cgi,v 1.7.2.41 2006/02/07 01:29:47 franck78 Exp $ +# + +use strict; + +# enable only the following on debugging purpose +#use warnings; +#use CGI::Carp 'fatalsToBrowser'; + +require 'CONFIG_ROOT/general-functions.pl'; +require "${General::swroot}/lang.pl"; +require "${General::swroot}/header.pl"; + +#workaround to suppress a warning when a variable is used only once +my @dummy = ( ${Header::table2colour}, ${Header::colouryellow} ); +undef (@dummy); + +my $ddnsprefix = $Lang::tr{'ddns noip prefix'}; +$ddnsprefix =~ s/%/$General::noipprefix/; + +# Files used +my $setting = "${General::swroot}/ddns/settings"; +our $datafile = "${General::swroot}/ddns/config"; + +my %settings=(); +#Settings1 +$settings{'BEHINDROUTER'} = 'RED_IP'; +$settings{'MINIMIZEUPDATES'} = ''; + +#Settings2 for editing the multi-line list +#Must not be saved ! +$settings{'HOSTNAME'} = ''; +$settings{'DOMAIN'} = ''; +$settings{'LOGIN'} = ''; +$settings{'PASSWORD'} = ''; +$settings{'PASSWORD2'} = ''; +$settings{'ENABLED'} = ''; +$settings{'PROXY'} = ''; +$settings{'WILDCARDS'} = ''; +$settings{'SERVICE'} = ''; + +my @nosaved=('HOSTNAME','DOMAIN','LOGIN','PASSWORD','PASSWORD2', + 'ENABLED','PROXY','WILDCARDS','SERVICE'); # List here ALL setting2 fields. Mandatory + +$settings{'ACTION'} = ''; # add/edit/remove +$settings{'KEY1'} = ''; # point record for ACTION +$settings{'KEY2'} = ''; # point record for ACTION + +my $errormessage = ''; +my $warnmessage = ''; + +&Header::showhttpheaders(); + +#Get GUI values +&Header::getcgihash(\%settings); + +# Load multiline data +our @current = (); +if (open(FILE, "$datafile")) { + @current = ; + close (FILE); +} + +# +# Check Settings1 first because they are needed before working on @current +# +if ($settings{'ACTION'} eq $Lang::tr{'save'}) { + # No user input to check. ! + #unless ($errormessage) { # Everything is ok, save settings + $settings{'BEHINDROUTERWAITLOOP'} = '-1'; # init & will update on next setddns.pl call + map (delete ($settings{$_}) ,(@nosaved,'ACTION','KEY1','KEY2'));# Must never be saved + &General::writehash($setting, \%settings); # Save good settings + $settings{'ACTION'} = $Lang::tr{'save'}; # Recreate 'ACTION' + map ($settings{$_}= '',(@nosaved,'KEY1','KEY2')); # and reinit var to empty + #} +} else { + &General::readhash($setting, \%settings); # Get saved settings and reset to good if needed +} + +# +# Now manipulate the multi-line list with Settings2 +# +# Toggle enable/disable field. Field is in second position +if ($settings{'ACTION'} eq $Lang::tr{'toggle enable disable'}) { + #move out new line + chomp(@current[$settings{'KEY1'}]); + my @temp = split(/\,/,@current[$settings{'KEY1'}]); + my $K2=$settings{'KEY2'}; + $temp[ $K2 ] = ( $temp[ $K2 ] eq 'on') ? '' : 'on'; # Toggle the field + @current[$settings{'KEY1'}] = join (',',@temp)."\n"; + $settings{'KEY1'} = ''; # End edit mode + &General::log($Lang::tr{'ddns hostname modified'}); + + # Write changes to config file. + &WriteDataFile; # sort newly added/modified entry +} + +if ($settings{'ACTION'} eq $Lang::tr{'add'}) { + # Validate inputs + + unless ($settings{'LOGIN'} ne '') { + $errormessage = $Lang::tr{'username not set'}; + } + + # list box returns 'service optional synonyms' + # keep only first name + $settings{'SERVICE'} =~ s/ .*$//; + + # for freedns.afraid.org, only 'connect string' is mandatory + if ($settings{'SERVICE'} ne 'freedns.afraid.org') { + unless ($settings{'SERVICE'} eq 'regfish.com' || $settings{'PASSWORD'} ne '') { + $errormessage = $Lang::tr{'password not set'}; + } + unless ($settings{'PASSWORD'} eq $settings{'PASSWORD2'}) { + $errormessage = $Lang::tr{'passwords do not match'}; + } + + # Permit an empty HOSTNAME for the nsupdate, regfish, dyndns, enom, ovh, zoneedit, no-ip, easydns + unless ($settings{'SERVICE'} eq 'zoneedit.com' || $settings{'SERVICE'} eq 'nsupdate' || + $settings{'SERVICE'} eq 'dyndns-custom'|| $settings{'SERVICE'} eq 'regfish.com' || + $settings{'SERVICE'} eq 'enom.com' || $settings{'SERVICE'} eq 'dnspark.com' || + $settings{'SERVICE'} eq 'ovh.com' || $settings{'HOSTNAME'} ne '' || + $settings{'SERVICE'} eq 'no-ip.com' || $settings{'SERVICE'} eq 'easydns.com' ) { + $errormessage = $Lang::tr{'hostname not set'}; + } + unless ($settings{'HOSTNAME'} eq '' || $settings{'HOSTNAME'} =~ /^[a-zA-Z_0-9-]+$/) { + $errormessage = $Lang::tr{'invalid hostname'}; + } + unless ($settings{'DOMAIN'} ne '') { + $errormessage = $Lang::tr{'domain not set'}; + } + unless ($settings{'DOMAIN'} =~ /^[a-zA-Z_0-9.-]+$/) { + $errormessage = $Lang::tr{'invalid domain name'}; + } + unless ($settings{'DOMAIN'} =~ /[.]/) { + $errormessage = $Lang::tr{'invalid domain name'}; + } + } + + # recheck service wich don't need too much fields + if ($settings{'SERVICE'} eq 'cjb.net') { + $errormessage = ''; # clear previous error + unless ($settings{'LOGIN'} ne '') { + $errormessage = $Lang::tr{'username not set'}; + } + unless ($settings{'PASSWORD'} ne '') { + $errormessage = $Lang::tr{'password not set'}; + } + unless ($settings{'PASSWORD'} eq $settings{'PASSWORD2'}) { + $errormessage = $Lang::tr{'passwords do not match'}; + } + } + + unless ($errormessage) { + if ($settings{'KEY1'} eq '') { #add or edit ? + unshift (@current, "$settings{'SERVICE'},$settings{'HOSTNAME'},$settings{'DOMAIN'},$settings{'PROXY'},$settings{'WILDCARDS'},$settings{'LOGIN'},$settings{'PASSWORD'},$settings{'ENABLED'}\n"); + &General::log($Lang::tr{'ddns hostname added'}); + } else { + @current[$settings{'KEY1'}] = "$settings{'SERVICE'},$settings{'HOSTNAME'},$settings{'DOMAIN'},$settings{'PROXY'},$settings{'WILDCARDS'},$settings{'LOGIN'},$settings{'PASSWORD'},$settings{'ENABLED'}\n"; + $settings{'KEY1'} = ''; # End edit mode + &General::log($Lang::tr{'ddns hostname modified'}); + } + map ($settings{$_}='' ,@nosaved); # Clear fields + # Write changes to config file. + &WriteDataFile; # sort newly added/modified entry + } +} + +if ($settings{'ACTION'} eq $Lang::tr{'edit'}) { + #move out new line + my $line = @current[$settings{'KEY1'}]; # KEY1 is the index in current + chomp($line); + my @temp = split(/\,/, $line); + $settings{'SERVICE'} = $temp[0]; + $settings{'HOSTNAME'} = $temp[1]; + $settings{'DOMAIN'} = $temp[2]; + $settings{'PROXY'} = $temp[3]; + $settings{'WILDCARDS'} = $temp[4]; + $settings{'LOGIN'} = $temp[5]; + $settings{'PASSWORD'} = $settings{'PASSWORD2'} = $temp[6]; + $settings{'ENABLED'} = $temp[7]; +} + +if ($settings{'ACTION'} eq $Lang::tr{'remove'}) { + splice (@current,$settings{'KEY1'},1); # Delete line + open(FILE, ">$datafile") or die 'ddns datafile error'; + print FILE @current; + close(FILE); + $settings{'KEY1'} = ''; # End remove mode + &General::log($Lang::tr{'ddns hostname removed'}); + # Write changes to config file. + &WriteDataFile; +} + +if ($settings{'ACTION'} eq $Lang::tr{'instant update'}) { + system('/usr/local/bin/setddns.pl', '-f'); +} + + +if ($settings{'ACTION'} eq '') +{ + $settings{'SERVICE'} = 'dyndns.org'; + $settings{'ENABLED'} = 'on'; +} + +&Header::openpage($Lang::tr{'dynamic dns'}, 1, ''); +&Header::openbigbox('100%', 'left', '', $errormessage); + +my %checked =(); # Checkbox manipulations +$checked{'SERVICE'}{'cjb.net'} = ''; +$checked{'SERVICE'}{'dhs.org'} = ''; +$checked{'SERVICE'}{'dnspark.com'} = ''; +$checked{'SERVICE'}{'dtdns.com'} = ''; +$checked{'SERVICE'}{'dyndns.org'} = ''; +$checked{'SERVICE'}{'dyndns-custom'} = ''; +$checked{'SERVICE'}{'dyndns-static'} = ''; +$checked{'SERVICE'}{'dyns.cx'} = ''; +$checked{'SERVICE'}{'dynu.ca'} = ''; +$checked{'SERVICE'}{'easydns.com'} = ''; +$checked{'SERVICE'}{'enom.com'} = ''; +$checked{'SERVICE'}{'freedns.afraid.org'} = ''; +$checked{'SERVICE'}{'hn.org'} = ''; +$checked{'SERVICE'}{'no-ip.com'} = ''; +$checked{'SERVICE'}{'nsupdate'} = ''; +$checked{'SERVICE'}{'ovh.com'} = ''; +$checked{'SERVICE'}{'regfish.com'} = ''; +$checked{'SERVICE'}{'selfhost.de'} = ''; +$checked{'SERVICE'}{'tzo.com'} = ''; +$checked{'SERVICE'}{'zoneedit.com'} = ''; +$checked{'SERVICE'}{$settings{'SERVICE'}} = "selected='selected'"; + +$checked{'BEHINDROUTER'}{'RED_IP'} = ''; +$checked{'BEHINDROUTER'}{'FETCH_IP'} = ''; +$checked{'BEHINDROUTER'}{$settings{'BEHINDROUTER'}} = "checked='checked'"; +$checked{'MINIMIZEUPDATES'} = ($settings{'MINIMIZEUPDATES'} eq '' ) ? '' : "checked='checked'"; + +$checked{'PROXY'}{'on'} = ($settings{'PROXY'} eq '') ? '' : "checked='checked'"; +$checked{'WILDCARDS'}{'on'} = ($settings{'WILDCARDS'} eq '') ? '' : "checked='checked'"; +$checked{'ENABLED'}{'on'} = ($settings{'ENABLED'} eq '' ) ? '' : "checked='checked'"; + +if ($errormessage) { + &Header::openbox('100%', 'left', $Lang::tr{'error messages'}); + print "$errormessage "; + &Header::closebox(); +} + +if ($warnmessage) { + $warnmessage = "$Lang::tr{'capswarning'}: $warnmessage"; +} +&Header::openbox('100%', 'left', $Lang::tr{'settings'}); +print "
"; +print < + + $Lang::tr{'dyn dns source choice'} + + + $Lang::tr{'use ipcop red ip'} + + + $Lang::tr{'fetch ip from'} * + + + + $Lang::tr{'ddns minimize updates'} + + +
+END +; + +print < + + * + $Lang::tr{'avoid dod'} + + + + +END +; +&Header::closebox(); # end of Settings1 + + +my $buttontext = $Lang::tr{'add'}; +if ($settings{'KEY1'} ne '') { + $buttontext = $Lang::tr{'update'}; + &Header::openbox('100%', 'left', $Lang::tr{'edit an existing host'}); +} else { + &Header::openbox('100%', 'left', $Lang::tr{'add a host'}); +} + +#Edited line number (KEY1) passed until cleared by 'save' or 'remove' +print < + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
$Lang::tr{'service'}:$Lang::tr{'hostname'}: *
$Lang::tr{'behind a proxy'}$Lang::tr{'domain'}:
$Lang::tr{'enable wildcards'}$Lang::tr{'username'}
$Lang::tr{'password'}
$Lang::tr{'enabled'}$Lang::tr{'again'}
+
+ + + + + + + +
*$ddnsprefix + +
+ +END +; +&Header::closebox(); + +# +# Third box shows the list, in columns +# +&Header::openbox('100%', 'left', $Lang::tr{'current hosts'}); +print < + + $Lang::tr{'service'} + $Lang::tr{'hostname'} + $Lang::tr{'domain'} + $Lang::tr{'proxy'} + $Lang::tr{'wildcards'} + $Lang::tr{'action'} + +END +; +my $ip = &General::GetDyndnsRedIP; +my $key = 0; +foreach my $line (@current) { + chomp($line); # remove newline + my @temp = split(/\,/,$line); + + if ($temp[0] eq 'no-ip.com') { + $temp[1] =~ s!$General::noipprefix(.*)!group:$1 !; + } + + #Choose icon for checkbox + + my $gifproxy=''; + my $descproxy=''; + if ($temp[3] eq "on") { + $gifproxy = 'on.gif'; + $descproxy = $Lang::tr{'click to disable'}; + } else { + $gifproxy = 'off.gif'; + $descproxy = $Lang::tr{'click to enable'}; + } + + my $gifwildcard=''; + my $descwildcard=''; + if ($temp[4] eq "on") { + $gifwildcard = 'on.gif'; + $descwildcard = $Lang::tr{'click to disable'}; + } else { + $gifwildcard = 'off.gif'; + $descwildcard = $Lang::tr{'click to enable'}; + } + + my $sync = ""; + my $gif = ''; + my $gdesc = ''; + if ($temp[7] eq "on") { + $gif = 'on.gif'; + $gdesc = $Lang::tr{'click to disable'}; + $sync = (&General::DyndnsServiceSync ($ip,$temp[1], $temp[2]) ? "": "") ; + } else { + $gif = 'off.gif'; + $gdesc = $Lang::tr{'click to enable'}; + } + + #Colorize each line + if ($settings{'KEY1'} eq $key) { + print ""; + } elsif ($key % 2) { + print ""; + } else { + print ""; + } + + #if a field is empty, replace it with a '---' to see colorized info! + $temp[1] = '---' if (!$temp[1]); + $temp[2] = '---' if (!$temp[2]); + + print <$temp[0] +$sync$temp[1] +$sync$temp[2] + + +
+ + + + +
+ + + +
+ + + + +
+ + + +
+ + + + +
+ + + +
+ + + +
+ + + +
+ + + +
+ + +END +; + $key++; +} +print ""; + +# If table contains entries, print 'Key to action icons' +if ($key) { +print < + +  $Lang::tr{'legend'}:  + $Lang::tr{ + $Lang::tr{'click to disable'} +    + $Lang::tr{ + $Lang::tr{'click to enable'} +    + $Lang::tr{ + $Lang::tr{'edit'} +    + $Lang::tr{ + $Lang::tr{'remove'} +
+ +
+ + +END +; +} + +&Header::closebox(); +&Header::closebigbox(); +&Header::closepage(); + +## Ouf it's the end ! + + +# write the "current" array +sub WriteDataFile { + #Save current + open(FILE, ">$datafile") or die 'ddns datafile error'; + print FILE @current; + close (FILE); +}