[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