## ------------------ Here we keep global settings package xmailini; use strict; my $xmail_admin = "user"; my $xmail_pass = "password"; my $xmail_port = "6017";#port my $xmail_host = "10.10.10.1";#host IP my $domain = "domain.com";#domain #----------------------------------------------------------------- sub xmail_admin { # # return Xmail admin username # my $self=shift; return $xmail_admin; } #----------------------------------------------------------------- sub xmail_pass{ # # return Xmail admin password # my $self=shift; return $xmail_pass; } #----------------------------------------------------------------- sub xmail_port{ # # return Xmail admin port # my $self=shift; return $xmail_port; } #----------------------------------------------------------------- sub xmail_host { # # return Xmail server host # my $self=shift; return $xmail_host; } #----------------------------------------------------------------- sub domain { # # return default domain my $self=shift; return $domain; } #----------------------------------------------------------------- 1;