]>
git.ipfire.org Git - thirdparty/grsecurity-scrape.git/blob - scrape.pl
3b440657598688817851e8acbfb9cfb3a0d9c401
6 use LWP
::Simple
'get', 'getstore';
7 use File
::Basename
'dirname', 'basename';
10 my $script_dir = abs_path
(dirname
(__FILE__
));
12 my $feed_raw = get
("https://grsecurity.net/testing_rss.php");
14 my $feed = XMLin
($feed_raw, ForceArray
=> ['item']);
19 for(@
{$feed->{channel
}->{item
}}) {
21 $filename = basename
($link);
22 if ( ! -e
$script_dir . "/test/". $filename ) {
24 print("Downloading ", $filename, " ...\n");
25 getstore
($link . ".sig", $script_dir . "/test/" . $filename . ".sig");
26 getstore
($link, $script_dir . "/test/" . $filename);
30 print("Downloading changelog-test.txt ...\n");
31 getstore
("https://grsecurity.net/changelog-test.txt", $script_dir . "/test/changelog-test.txt");
33 system("git", "add", $script_dir . "/test/" . $filename, $script_dir . "/test/changelog-test.txt", $script_dir . "/test/" . $filename . ".sig");
34 system("git", "commit", "-a", "-m", "Auto commit, " . $new_patches . " new patch{es}.");
35 system("git", "push");