update_files.pl 398 Bytes
Edit Raw Blame History



1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20


use CoprStatus;
use YAML::XS 'LoadFile';

my $config = LoadFile('config.yaml');

sub update_files {
  while(1) {
    my $user = $config->{User};
    my $repo_index = 0;
    foreach my $branch (@{$config->{Branches}}) {
      CoprStatus::download_specs($branch, $user, ${$config->{Repositories}}[$repo_index]);
      $repo_index += 1;
    }

    sleep $config->{UpdateRate};
  }
}

update_files();