#!/usr/bin/perl print "Content-Type: Text/HTML\n\n"; use CGI ':standard'; use Vpanel 1.00; use Data::Dumper; require $header; require $accountinfo; $domainname = find_domain ($mainuser); #$spam_whitelist = "$whitelistdir$domainname"; $num_addresses = 0; # Define the tab which appears to the front $tab_section = $tabnum_mailwall; # Output the content associated with this tab print ""; # display tabs require $tabdisplay; print_header("Amending the spam whitelist for $domainname"); print "
"; $ret = php_request ("getWhiteList", "scope=domain:$domainname"); @whitelist_addresses = (); if (defined ($ret) && ref ($ret) eq "HASH") { # ADD GREP HERE %ret = %{$ret}; @whitelist_addresses = split /,/, $ret{'whitelist'}; } if ( scalar (@whitelist_addresses) > 0) { # ensure that the input is not an ipaddress and is also not 127.0.0.1 # if ( (is_ip_address_syntax_correct($_) eq "no") && (!($_ =~ "127.0.0.1")) ) # { # push @whitelist_addresses, $_; # } $num_whitelist_addresses = @whitelist_addresses; print qq! Below are a list of email addresses which you currently have whitelisted. If you wish to remove any of these email adresses from your whitelist please uncheck the relevant box.

!; for $_ (@whitelist_addresses) { print ""; } print "
$_

"; } print ""; print qq! If you wish to add an address to your whitelist please type the email address in the box below:

Email address: !; print_end_of_form(); require $footer;