[gentoo-commits] proj/hardened-patchset:rsbac commit in: scripts/

[Anthony G. Basile]

commit:     e2d85b736a62ecb4dd822ea13ea861d871d9bf89
Author:     Anthony G. Basile <blueness <AT> gentoo <DOT> org>
AuthorDate: Wed Dec 21 20:47:47 2011 +0000
Commit:     Anthony G. Basile <blueness <AT> gentoo <DOT> org>
CommitDate: Wed Dec 21 20:47:47 2011 +0000
URL:        http://git.overlays.gentoo.org/gitweb/?p=proj/hardened-patchset.git;a=commit;h=e2d85b73

Renamed rsbac pathset

---
 scripts/fetch_grsecurity_test.pl |  209 --------------------------------------
 scripts/mk.rsbac.patch.sh        |    2 +-
 2 files changed, 1 insertions(+), 210 deletions(-)

diff --git a/scripts/fetch_grsecurity_test.pl b/scripts/fetch_grsecurity_test.pl
deleted file mode 100755
index 2211b63..0000000
--- a/scripts/fetch_grsecurity_test.pl
+++ /dev/null
@@ -1,209 +0,0 @@
-#!/usr/bin/perl -w
-
-# Fetches new released patches, tarballs, etc that have been
-# announced on a web page and stores them locally.
-#
-# Copyright (C) 2010, Anthony G. Basile <blueness@g.o>
-# Released under the GPLv2
-
-use strict ;
-use LWP::Simple ; ;
-use HTML::LinkExtor ;
-
-############################################################
-### Edit these to suit your needs ##########################
-############################################################
-
-my $storage_dir		= "/home/basile/storage/grsecurity-test" ;
-my $upstream_url	= "http://grsecurity.net/test.php" ;
-my @allowed_suffixes	= ( ".patch", ".patch.sig", ".tar.gz", ".tar.gz.sig", ".asc" ) ;
-
-############################################################
-
-my $send_email = 1 ;	# do you want to send email alerts
-
-my $sendmail	= "/usr/sbin/sendmail -t" ;
-
-my $from	= "From: " .		"root\@opensource.dyc.edu\n" ;
-my $subject	= "Subject: " .		"New release from $upstream_url\n" ;
-my $reply_to	= "Reply-to: " .	"devnull\@localhost.invalid\n" ;
-my $send_to	= "To: " .		"basile\@opensource.dyc.edu\n" ;
-
-############################################################
-
-my %already_retrieved	= () ;	#set of already retreived files
-my %currently_available	= () ;	#set of currently available files
-
-
-sub sane
-{
-	my ( $name ) = @_ ;
-
-	return 0 if $name eq "" ;					# no empty names
-	return 0 if $name =~ / / ;					# no blanks in names
-
-	my $got_suffix = 0 ;						# file must have legitimate suffix
-	foreach my $suffix ( @allowed_suffixes )
-	{
-		$got_suffix = 1 if $name =~ /$suffix$/ ;
-	}
-
-	return $got_suffix ;
-}
-
-
-sub get_already_retrieved
-{
-	if ( -d $storage_dir )						# check if storage_dir exists
-	{
-		my @file_names = `ls $storage_dir` ;			# and get list of files
-		foreach my $file_name ( @file_names )
-		{
-			chomp( $file_name ) ;
-			$already_retrieved{ $file_name } = 1 if sane( $file_name )  ;
-		}
-	}
-	else								# else create a new storage_dir
-	{
-		mkdir $storage_dir || die "Sorry I can't make $storage_dir\n" ;
-		print "\n\nCreated storage dir: $storage_dir\n\n" ;
-	}
-
-}
-
-
-sub print_already_retrieved
-{
-	print "\n\nAlready retrieved files from upstream:\n\n" ;
-	foreach my $file_name ( sort keys %already_retrieved )		# go through hash of already_retrieved files
-	{
-		print "\t$file_name\n" ;				# and print
-	}
-	print "\n\n" ;
-}
-
-
-sub get_currently_available
-{
-	my $parser ;
-	my @links  ;
-
-	$parser = HTML::LinkExtor->new( undef, $upstream_url ) ;	# grab upstream web page
-	$parser->parse( get( $upstream_url ) )->eof ;
-
-	@links = $parser->links ;					# grab the links out of it
-
-	foreach my $ref ( @links )
-	{
-		my $file_url	= ${$ref}[2] ;				# get just the url part
-		my $file_name	= $file_url ;
-		$file_name	=~ s/^.*\/(.*)$/$1/ ;			# parse out the file name from the url
-
-		next unless sane( $file_name ) ;			# if it fits the sane file names
-
-		$currently_available{ $file_name } = $file_url ;	# insert it and its url as key=>value in currently_available
-	}
-}
-
-
-sub print_currently_available
-{
-	print "\n\nCurrently available files from upstream:\n\n" ;
-	foreach my $file_name ( sort keys %currently_available )	# go through hash of currently_available files
-	{
-		my $file_url = $currently_available{$file_name} ;
-		print "\t$file_name\n" ;				# and print
-		#print "\t$file_name @ $file_url\n" ;
-	}
-	print "\n\n" ;
-}
-
-
-sub download_newly_available
-{
-	my $downloads = "" ;
-
-	chdir( $storage_dir ) ;
-	foreach my $file_name ( sort keys %currently_available )	# go through each of the currently_available files
-	{
-		next if $already_retrieved{ $file_name } ;		# and if its not in the already_retrieved
-		print "\tDownloading $file_name ... " ;
-		my $file_url = $currently_available{ $file_name } ;
-		if ( getstore( $file_url, $file_name ) )		# download it and report success/failure
-		{
-			print "OK\n" ;
-			$downloads .= "\t$file_name\n" ;
-		}
-		else
-		{
-			print "FAIL\n" ;
-		}
-	}
-	
-	return $downloads ;
-}
-
-
-sub print_successful_downloads
-{
-	my ( $downloads ) = @_ ;
-
-	if( $downloads ne "" )
-	{
-		print "\n\nSuccessfully downloaded files from upstream:\n\n" ;
-		print $downloads ;
-		print "\n\n" ;
-	}
-	else
-	{
-		print "\n\nNo files downloaded from upstream --- nothing to report.\n\n" ;
-		print "\n\n" ;
-	}
-}
-
-
-sub email_successful_downloads
-{
-	my ( $downloads ) = @_ ;
-
-	if( $send_email == 1 && $downloads ne "" )
-	{
-		print "\n\nEmailing notification of successfully downloaded files $send_to.\n\n" ;
-
-		my $content = "\n\nSuccessfully downloaded files from upstream:\n\n" ;
-		$content .= $downloads ;
-		$content .= "\n\n" ;
-
-		open (SENDMAIL, "|$sendmail") or die "Cannot open $sendmail: $!";
-		print SENDMAIL $from ;
-		print SENDMAIL $subject ;
-		print SENDMAIL $reply_to ;
-		print SENDMAIL $send_to;
-		print SENDMAIL "Content-type: text/plain\n\n";
-		print SENDMAIL $content;
-		close(SENDMAIL); 
-	}
-	else
-	{
-		print "\n\nNo files downloaded from upstream --- nothing to email.\n\n" ;
-		print "\n\n" ;
-	}
-}
-
-
-sub main
-{
-	get_already_retrieved() ;
-	print_already_retrieved() ;
-
-	get_currently_available() ;
-	print_currently_available() ;
-
-	my $downloads = download_newly_available() ;
-
-	print_successful_downloads( $downloads ) ;
-	email_successful_downloads( $downloads ) ;
-}
-
-main() ;
-

diff --git a/scripts/mk.rsbac.patch.sh b/scripts/mk.rsbac.patch.sh
index 485f179..c929387 100755
--- a/scripts/mk.rsbac.patch.sh
+++ b/scripts/mk.rsbac.patch.sh
@@ -25,7 +25,7 @@ sanity() {
 sanity
 
 HGPV="${KERNEL_VER}-${HGPV_PATCH}"
-HGPV_TARBALL="hardened-rsbac-patches-${HGPV}.extras.tar.bz2"
+HGPV_TARBALL="rsbac-patches-${HGPV}.extras.tar.bz2"
 
 $TAR jcvf ${HGPV_TARBALL} ${KERNEL_VER}