Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Moar cleanup

  • Loading branch information...
commit ad2a341cd14ab17085a0540172b0d7a27aebe3b0 1 parent 2f0c910
@holdenk authored
Showing with 7 additions and 4 deletions.
  1. +6 −2 fix_pandas.pl
  2. +1 −2  targets.pl
View
8 fix_pandas.pl
@@ -33,6 +33,9 @@
my $ua = new LWP::UserAgent;
print "Hello!\n";
print "Connecting to github!\n";
+my $u = Pithub::Users->new( token => $token );
+my $result = $u->get;
+print Dumper($result);
print "Reading input\n";
while (my $l = <>) {
if ($l =~ /github\.com\/(.*?)\s*$/) {
@@ -78,7 +81,7 @@ sub handle_url {
print "using master branch: $master_branch\n";
if (!$clone_url) {
print "Error, no clone url\n";
- print Dump($result);
+ print Dumper($result);
next;
}
#Oh hey lets merge the latest business to eh (just in case we have an old fork)
@@ -95,6 +98,7 @@ sub handle_url {
#Now we iterate through each of the processors so the git commit messages are grouped logically
print "handling the files\n";
my @changes = handle_files(@all_files);
+ `cd foo && cd * && git push`;
#Did we change anything?
if ($#changes > 0) {
#Yes!
@@ -102,7 +106,7 @@ sub handle_url {
my $twitter_msg = generate_twitter_msg(@changes);
#Make pull
my $pu = Pithub::PullRequests->new(user => $user ,token => $token);
- my $result = $pu->create(user => $user,
+ my $result = $pu->create(user => $ruser,
repo => $repo,
data => {
title => "Pull request to a fix things",
View
3  targets.pl
@@ -13,8 +13,6 @@
my $user = $settings->{"bing.user"};
my $appid = $settings->{"bing.appid"};
-print "using token:$token user:$user appid:$appid\n";
-
my $inc = 10;
my $offset = 0;
my $max = 100;
@@ -24,6 +22,7 @@
"readme.pod site:raw.github.com",
"hmac php site:raw.github.com");
foreach my $query (@queries) {
+
while ($offset < $max) {
my $search = Bing::Search->new();
$search->AppId($appid);
Please sign in to comment.
Something went wrong with that request. Please try again.