diff --git a/html/cgi-bin/ddns.cgi b/html/cgi-bin/ddns.cgi index db208da24..ada92c052 100644 --- a/html/cgi-bin/ddns.cgi +++ b/html/cgi-bin/ddns.cgi @@ -480,9 +480,20 @@ END ## # Third section, display all created ddns hosts. +# Re-open file to get changes. +open(FILE, $datafile) or die "Unable to open $datafile."; +@current = ; +close(FILE); -&Header::openbox('100%', 'left', $Lang::tr{'current hosts'}); -print < $Lang::tr{'service'} @@ -490,55 +501,43 @@ print <$Lang::tr{'action'} END -; -# Re-open file to get changes. -open(FILE, $datafile) or die "Unable to open $datafile."; -@current = ; -close(FILE); + foreach my $line (@current) { + # Remove newlines. + chomp(@current); + my @temp = split(/\,/,$line); -# Get IP address of the red interface. -my $ip = &General::GetDyndnsRedIP; -my $id = 0; -my $toggle_enabled; + # Generate value for enable/disable checkbox. + my $sync = ""; + my $gif = ''; + my $gdesc = ''; -foreach my $line (@current) { + if ($temp[7] eq "on") { + $gif = 'on.gif'; + $gdesc = $Lang::tr{'click to disable'}; + $sync = (&General::DyndnsServiceSync ($ip,$temp[1], $temp[2]) ? "": "") ; + $toggle_enabled = 'off'; + } else { + $gif = 'off.gif'; + $gdesc = $Lang::tr{'click to enable'}; + $toggle_enabled = 'on'; + } - # Remove newlines. - chomp(@current); - my @temp = split(/\,/,$line); + # Background color. + my $col=""; - # Generate value for enable/disable checkbox. - my $sync = ""; - my $gif = ''; - my $gdesc = ''; + if ($settings{'ID'} eq $id) { + $col="bgcolor='${Header::colouryellow}'"; + } elsif (!($temp[0] ~~ @providers)) { + $col="bgcolor='#FF4D4D'"; + } elsif ($id % 2) { + $col="bgcolor='$color{'color20'}'"; + } else { + $col="bgcolor='$color{'color22'}'"; + } - if ($temp[7] eq "on") { - $gif = 'on.gif'; - $gdesc = $Lang::tr{'click to disable'}; - $sync = (&General::DyndnsServiceSync ($ip,$temp[1], $temp[2]) ? "": "") ; - $toggle_enabled = 'off'; - } else { - $gif = 'off.gif'; - $gdesc = $Lang::tr{'click to enable'}; - $toggle_enabled = 'on'; - } - - # Background color. - my $col=""; - - if ($settings{'ID'} eq $id) { - $col="bgcolor='${Header::colouryellow}'"; - } elsif (!&General::is_part_of("$temp[0]", @providers)) { - $col="bgcolor='#FF4D4D'"; - } elsif ($id % 2) { - $col="bgcolor='$color{'color20'}'"; - } else { - $col="bgcolor='$color{'color22'}'"; - } - -# The following HTML Code still is part of the loop. -print < $temp[0] $sync$temp[1].$sync$temp[2] @@ -563,14 +562,11 @@ print < END -; - $id++; -} -print ""; + $id++; + } -# If table contains entries, print 'Key to action icons' -if ($id) { -print < @@ -591,10 +587,10 @@ print <
 $Lang::tr{'legend'}: 
END -; + + &Header::closebox(); } -&Header::closebox(); &Header::closebigbox(); &Header::closepage();