qbit/pr-status-pl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add loop to update fetched stuff and gc

Browse Source
This commit is contained in:
Aaron Bieber 2023-05-29 07:33:51 -06:00
parent f0290babe6
commit e24baf5c7a
No known key found for this signature in database
1 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
pr-status.pl
View File

@ -11,6 +11,7 @@ use Data::Dumper;
use Git; use Git;
use JSON qw( from_json ); use JSON qw( from_json );
use Mojolicious::Lite -signatures; use Mojolicious::Lite -signatures;
use Mojo::IOLoop;
use Time::HiRes qw( time ); use Time::HiRes qw( time );
my $VERSION = 'v0.0.1'; my $VERSION = 'v0.0.1';
@ -24,7 +25,25 @@ Git::command_noisy( 'clone', 'https://github.com/nixos/nixpkgs', $repo_dir )
if !-e $repo_dir; if !-e $repo_dir;
my $repo = Git->repository( Directory => $repo_dir ); my $repo = Git->repository( Directory => $repo_dir );
my $lock = 0; my $lock = 0;
my $refresh = 1 * 60 * 60;
my $gc_refresh = 24 * 60 * 60;
Mojo::IOLoop->recurring(
$refresh => sub ($loop) {
$lock = 1;
$repo->command('fetch');
$lock = 0;
}
);
Mojo::IOLoop->recurring(
$gc_refresh => sub ($loop) {
$lock = 1;
$repo->command('gc');
$lock = 0;
}
);
sub get_commit { sub get_commit {
my $pr = shift; my $pr = shift;