From 75e3e77a76b6f01d6ec0233229a87df4f9a44454 Mon Sep 17 00:00:00 2001
From: Alexander Wirt <formorer@debian.org>
Date: Sat, 15 Dec 2012 09:35:41 +0100
Subject: [PATCH] Add Net::GitHub Example for mass creating of webhooks

---
 tools/github | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100755 tools/github

diff --git a/tools/github b/tools/github
new file mode 100755
index 0000000..781c766
--- /dev/null
+++ b/tools/github
@@ -0,0 +1,44 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use v5.10;
+use File::HomeDir;
+use File::Slurp qw ( slurp );
+use Data::Dumper;
+use Net::GitHub;
+
+
+my $token = slurp(File::HomeDir->my_home . "/.github-token");
+
+my $gh = Net::GitHub->new(  # Net::GitHub::V3
+    access_token => $token
+);
+
+my @repos = $gh->repos->list_org('grml');
+
+foreach my $repo (@repos) {
+    say $repo->{name};
+    say "-" x length($repo->{name});
+    my @hooks = $gh->repos->hooks('grml', $repo->{name});
+    my $found = 0;
+    foreach my $hook (@hooks) {
+        #warn Dumper($hook);
+        next unless $hook->{name} eq 'web';
+        next unless $hook->{config}->{url} eq "http://git.grml.org/github";
+        $found = 1;
+    }
+    if ($found) {
+        say "git.grml.org hook already configured";
+    } else {
+        my $rc = $gh->repos->create_hook('grml', $repo->{name}, {
+                name => 'web',
+                active => 1,
+                config => {
+                    'content_type' => 'form',
+                    'url' => 'http://git.grml.org/github'
+                }
+            });
+        say "Hook created" if $rc->{config}->{url} eq "http://git.grml.org/github";
+    }
+}
-- 
2.1.4