#!/usr/bin/perl print "Content-Type: Text/HTML\n\n"; use CGI ':standard'; use Vpanel 1.00; require $header; require $accountinfo; $domainname = find_domain ($mainuser); $postmasteraddress = "postmaster@".$domainname; $abuseaddress = "abuse@".$domainname; # Define the tab which appears to the front $tab_section = $tabnum_email; # Output the content associated with this tab print ""; # display tabs require $tabdisplay; print_header ("List of email forwarding for $domainname"); print< HEADER @forwarding_addresses = find_email_forwarding($domainname); $forwarding_number = @forwarding_addresses; if ( $forwarding_number > 0 ) { print "
"; print ""; for $forwarding_address (@forwarding_addresses) { ( $from_address, $to_address ) = split (/\s+/, $forwarding_address); print " "; if ( $from_address ne $postmasteraddress && $from_address ne $abuseaddress ) { print ""; } print ""; } } else { print "<< You have no forwarding set up at the moment. >>
"; } print qq!
Email AddressForwarded toOptions
"; ( $emailuser, $emaildomain ) = split ( /@/, $from_address ); if ( $emailuser eq "" ) { print "Your multidrop account"; } else { print "$from_address"; } print "$to_address"; print "delete forwarding


If you would like to add to your email forwarding please click here.

!; require $footer;