r58336 - in /trunk/libwww-cnic-perl: debian/changelog lib/WWW/CNic.pm lib/WWW/CNic/Cookbook.pm lib/WWW/CNic/Response/LockDomain.pm lib/WWW/CNic/Response/UnlockDomain.pm

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Sun May 23 15:58:24 UTC 2010


Author: gregoa
Date: Sun May 23 15:58:16 2010
New Revision: 58336

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=58336
Log:
New upstream release.

Added:
    trunk/libwww-cnic-perl/lib/WWW/CNic/Response/LockDomain.pm
      - copied unchanged from r58335, branches/upstream/libwww-cnic-perl/current/lib/WWW/CNic/Response/LockDomain.pm
    trunk/libwww-cnic-perl/lib/WWW/CNic/Response/UnlockDomain.pm
      - copied unchanged from r58335, branches/upstream/libwww-cnic-perl/current/lib/WWW/CNic/Response/UnlockDomain.pm
Modified:
    trunk/libwww-cnic-perl/debian/changelog
    trunk/libwww-cnic-perl/lib/WWW/CNic.pm
    trunk/libwww-cnic-perl/lib/WWW/CNic/Cookbook.pm

Modified: trunk/libwww-cnic-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-cnic-perl/debian/changelog?rev=58336&op=diff
==============================================================================
--- trunk/libwww-cnic-perl/debian/changelog (original)
+++ trunk/libwww-cnic-perl/debian/changelog Sun May 23 15:58:16 2010
@@ -1,3 +1,9 @@
+libwww-cnic-perl (0.32-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org>  Sun, 23 May 2010 17:57:05 +0200
+
 libwww-cnic-perl (0.31-1) unstable; urgency=low
 
   * New upstream release

Modified: trunk/libwww-cnic-perl/lib/WWW/CNic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-cnic-perl/lib/WWW/CNic.pm?rev=58336&op=diff
==============================================================================
--- trunk/libwww-cnic-perl/lib/WWW/CNic.pm (original)
+++ trunk/libwww-cnic-perl/lib/WWW/CNic.pm Sun May 23 15:58:16 2010
@@ -1,7 +1,7 @@
 # Copyright (c) 2010 CentralNic Ltd. All rights reserved. This program is
 # free software; you can redistribute it and/or modify it under the same
 # terms as Perl itself.
-# $Id: CNic.pm,v 1.61 2010/03/31 11:58:30 gavin Exp $
+# $Id: CNic.pm,v 1.62 2010/05/21 16:36:47 gavin Exp $
 package WWW::CNic;
 use LWP;
 use LWP::ConnCache;
@@ -11,7 +11,7 @@
 use vars qw($VERSION $CONNECTION_CACHE);
 use strict;
 
-our $VERSION = '0.31';
+our $VERSION = '0.32';
 
 =pod
 
@@ -227,7 +227,9 @@
 		$self->{_command} eq 'reject_transfer'		&& return $self->_reject_transfer();
 		$self->{_command} eq 'list_outstanding_domains'	&& return $self->_list_outstanding_domains();
 		$self->{_command} eq 'submit_payment_batch'	&& return $self->_submit_payment_batch();
-		$self->{_command} eq 'registrant_transfer' && return $self->_registrant_transfer();
+		$self->{_command} eq 'registrant_transfer'	&& return $self->_registrant_transfer();
+		$self->{_command} eq 'lock_domain'		&& return $self->_lock_domain();
+		$self->{_command} eq 'unlock_domain'		&& return $self->_unlock_domain();
 		die("Invalid command '$self->{_command}'");
 	}
 }
@@ -912,6 +914,44 @@
 	return WWW::CNic::Response::SubmitPaymentBatch->new($self->{_response}->{_raw});
 }
 
+sub _lock_domain {
+	my $self = shift;
+	$self->{_base} =~ s/^http:/https:/g;	# Requires SSL
+	die("Missing username") if $self->{_username} eq '';
+	die("Missing password") if $self->{_password} eq '';
+	die("Missing domain")	if $self->{_domain}   eq '';
+	my %params = (
+				user		=> $self->{_username},
+				password	=> $self->_crypt_md5($self->{_password}),
+				test		=> $self->{_test},
+				domain		=> $self->{_domain},
+	);
+	my $url = "$self->{_base}/lock_domain";
+	my $req = POST($url, \%params);
+	$self->{_response}->{_raw} = $self->_get($req);
+	use WWW::CNic::Response::LockDomain;
+	return WWW::CNic::Response::LockDomain->new($self->{_response}->{_raw});
+}
+
+sub _unlock_domain {
+	my $self = shift;
+	$self->{_base} =~ s/^http:/https:/g;	# Requires SSL
+	die("Missing username") if $self->{_username} eq '';
+	die("Missing password") if $self->{_password} eq '';
+	die("Missing domain")	if $self->{_domain}   eq '';
+	my %params = (
+				user		=> $self->{_username},
+				password	=> $self->_crypt_md5($self->{_password}),
+				test		=> $self->{_test},
+				domain		=> $self->{_domain},
+	);
+	my $url = "$self->{_base}/unlock_domain";
+	my $req = POST($url, \%params);
+	$self->{_response}->{_raw} = $self->_get($req);
+	use WWW::CNic::Response::UnlockDomain;
+	return WWW::CNic::Response::UnlockDomain->new($self->{_response}->{_raw});
+}
+
 sub _get {
 	my ($self, $request) = @_;
 	my $response = $self->{_agent}->request($request);

Modified: trunk/libwww-cnic-perl/lib/WWW/CNic/Cookbook.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libwww-cnic-perl/lib/WWW/CNic/Cookbook.pm?rev=58336&op=diff
==============================================================================
--- trunk/libwww-cnic-perl/lib/WWW/CNic/Cookbook.pm (original)
+++ trunk/libwww-cnic-perl/lib/WWW/CNic/Cookbook.pm Sun May 23 15:58:16 2010
@@ -1,7 +1,7 @@
 # Copyright (c) 2010 CentralNic Ltd. All rights reserved. This program is
 # free software; you can redistribute it and/or modify it under the same
 # terms as Perl itself.
-# $Id: Cookbook.pm,v 1.51 2010/03/31 11:58:30 gavin Exp $
+# $Id: Cookbook.pm,v 1.52 2010/04/26 13:35:23 gavin Exp $
 
 package WWW::CNic::Cookbook;
 use vars qw($VERSION);
@@ -603,6 +603,8 @@
 
 =item the "gaining" registrar has not opted-out of the "push" system
 
+=item there are no unpaid registration or renewal fees against it
+
 =back
 
 	my $query = WWW::CNic->new(
@@ -624,8 +626,7 @@
 	}
 
 If the transaction is successful, the domain name will be immediately removed
-from your account. Any outstanding invoices will be credited to you and
-re-issued to the gaining account.
+from your account.
 
 If you are also listed as Technical Contact for the domain name, then this
 handle will also be changed to the gaining registrar account.




More information about the Pkg-perl-cvs-commits mailing list