view release on metacpan or  search on metacpan

example/ars_SetServerInfo.pl  view on Meta::CPAN

#!/usr/local/bin/perl
#
# $Header: /cvsroot/arsperl/ARSperl/example/ars_SetServerInfo.pl,v 1.1 2000/08/31 05:18:41 jcmurphy Exp $
#
# NAME
#   ars_SetServerInfo.pl
#
# USAGE
#   ars_SetServerInfo.pl [server] [username] [password] [emailAdd]
#
# DESCRIPTION
#   sets the "email from" address for the server. 
#

use ARS;

my $c = ars_Login(shift, shift, shift);
die "ars_Login: $ars_errstr\n" unless defined($c);

print "Fetching current EMAIL_FROM setting..\n";
my %il = ars_GetServerInfo($c,
			   &ARS::AR_SERVER_INFO_EMAIL_FROM);
print "\tEMAIL_FROM = $il{'EMAIL_FROM'}\n\n";
my $orig = $il{'EMAIL_FROM'};


print "Setting EMAIL_FROM to foo\@bar.com .. \n";
ars_SetServerInfo($c, 
		  &ARS::AR_SERVER_INFO_EMAIL_FROM,
		  "foo\@bar.com") ||
  die "ars_SetServerInfo: $ars_errstr\n";

print "\nFetching newly set EMAIL_FROM setting..\n";
my %il = ars_GetServerInfo($c,
			   &ARS::AR_SERVER_INFO_EMAIL_FROM);
print "\tEMAIL_FROM = $il{'EMAIL_FROM'}\n\n";


print "Setting EMAIL_FROM to original setting..\n";
ars_SetServerInfo($c, 
		  &ARS::AR_SERVER_INFO_EMAIL_FROM,
		  $orig) ||
  die "ars_SetServerInfo: $ars_errstr\n";

print "\nDone.\n";

exit 0;