|
| 1 | +use Net::GitHub::V3; |
| 2 | +use DateTime; |
| 3 | +use Net::SSLeay; |
| 4 | +use Data::Dumper; |
| 5 | +use File::Slurp; |
| 6 | + |
| 7 | +package Net::GitHub::V3::GitData; |
| 8 | +__build_methods(__PACKAGE__, |
| 9 | + delete_ref => { url => "/repos/%s/%s/git/refs/%s", method => 'DELETE', args => 1, check_status => 204} |
| 10 | +); |
| 11 | +package main; |
| 12 | + |
| 13 | +die unless $ENV{GITHUB_ACCESS_TOKEN}; |
| 14 | + |
| 15 | +my $tok = $ |
| 16 | +my $gh = Net::GitHub::V3->new( |
| 17 | +access_token => $ENV{GITHUB_ACCESS_TOKEN}, |
| 18 | +); |
| 19 | +my $repos = $gh->repos; |
| 20 | +$repos->RaiseError(0); |
| 21 | + |
| 22 | +# set :user/:repo for simple calls |
| 23 | +my $dt = DateTime->now(); |
| 24 | +my $tag = $dt->month_abbr().'_'.$dt->day().'_'.$dt->year(); |
| 25 | +$repos->set_default_user_repo('bulk88', 'tinymta'); |
| 26 | +my @releases = $repos->releases(); |
| 27 | +#delete same day tags from repushes/etc |
| 28 | +foreach(@releases) { |
| 29 | + if($_->{name} eq $tag){ |
| 30 | + my $r = $repos->delete_release($_->{id}); |
| 31 | + } |
| 32 | +} |
| 33 | +my $git_data = $gh->git_data; |
| 34 | +$git_data->set_default_user_repo('bulk88', 'tinymta'); |
| 35 | +my $response = $git_data->delete_ref('tags/'.$tag); #$response is integer 1 |
| 36 | +my $release = $repos->create_release({ |
| 37 | + "tag_name" => $tag, |
| 38 | + "target_commitish" => "master", |
| 39 | + "name" => $tag, |
| 40 | + "body" => "Tinymta offline release", |
| 41 | +}); |
| 42 | +if($release->{errors}) { |
| 43 | + print Dumper($release); |
| 44 | +} else { |
| 45 | + my $text = read_file("full.zip", { binmode => ':raw' }); |
| 46 | + my $asset = $repos->upload_asset($release->{id}, "full.zip", 'application/zip', $text); |
| 47 | + if($asset->{errors}) { |
| 48 | + print Dumper($asset); |
| 49 | + } |
| 50 | + $text = read_file("light.zip", { binmode => ':raw' }); |
| 51 | + $asset = $repos->upload_asset($release->{id}, "light.zip", 'application/zip', $text); |
| 52 | + if($asset->{errors}) { |
| 53 | + print Dumper($asset); |
| 54 | + } |
| 55 | +} |
| 56 | +print "Done Uploading Release Zips to GH\n"; |
0 commit comments