[Bps-public-commit] BPS git mailer tools branch, master, updated. 402c570b44f99101bf64e73ffe6a8aa184e94ba1
Ruslan Zakirov
ruz at bestpractical.com
Wed Oct 21 18:29:57 EDT 2009
The branch, master has been updated
via 402c570b44f99101bf64e73ffe6a8aa184e94ba1 (commit)
from ca3689ea804760938ef7ead2ac7853e2a8af8ef8 (commit)
Summary of changes:
create-github-repo | 8 +++++++-
1 files changed, 7 insertions(+), 1 deletions(-)
- Log -----------------------------------------------------------------
commit 402c570b44f99101bf64e73ffe6a8aa184e94ba1
Author: Ruslan Zakirov <ruz at bestpractical.com>
Date: Thu Oct 22 02:28:59 2009 +0400
update create-github-repo
* more debug
* use form_id instead of form_number, page layout was changed
diff --git a/create-github-repo b/create-github-repo
index 0f9c1af..4cee7f6 100755
--- a/create-github-repo
+++ b/create-github-repo
@@ -6,13 +6,19 @@ my $lcdist = lc $dist;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$mech->get('https://github.com/login');
+die "Couldn't open github: ". $mech->status
+ unless $mech->success;
$mech->submit_form(
form_number => 2,
fields => { login => 'bestpractical', password => '$vk43v3r' },
);
+die "Couldn't not login: ". $mech->status
+ unless $mech->success;
$mech->get('https://github.com/repositories/new');
+die "Couldn't not open new repo page: ". $mech->status
+ unless $mech->success;
$mech->submit_form(
- form_number => 3,
+ form_id => 'new_repository',
fields => {
'repository[name]' => $lcdist,
'repository[homepage]' => 'http://search.cpan.org/dist/' . $dist
-----------------------------------------------------------------------
More information about the Bps-public-commit
mailing list