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