--execute option

1 files changed, 11 insertions, 0 deletions

diff --git a/rpmbuildupdate b/rpmbuildupdate
index 3eeee86..e0af0fe 100755
--- a/rpmbuildupdate
+++ b/rpmbuildupdate
@@ -235,6 +235,8 @@ sub build {
 		s/Version:\s+$version/Version: $newversion/g;
 		s/Release\s*:\s*$release/Release: $newrelease/;
 		s/\%define(\s+)release(\s+)(.*)/\%define release $newrelease/;
+
+		eval $config{execute} if $config{execute};
 		
 		$spec .= $_;
 		push(@url, $2) if /(Source[0-9]*)\s*:\s+((?:ftp|svns?|https?):\S+)/i;
@@ -259,6 +261,7 @@ sub build {
 			$spec .= "* " . `LC_TIME=C date '+%a %b %d %Y'|tr -d '\n'` . " $email $newversion-$newrelease\n";
 			$spec .= "$message\n\n";
 		}
+
 	}
 	close($SPECFILE);
 
@@ -505,6 +508,12 @@ sub parse_argv {
 									DEFAULT => "",
 									ARGCOUNT => AppConfig::ARGCOUNT_ONE 	}
 								);	
+
+	$conf->define("execute",
+								{	ARGS => "=s",
+									DEFAULT => "",
+									ARGCOUNT => AppConfig::ARGCOUNT_ONE	}
+								);
 	
 	foreach my $f ('/etc/rpmbuildupdate.conf', "$ENV{HOME}/.rpmbuildupdaterc")
 	{	
@@ -525,6 +534,7 @@ sub parse_argv {
 	$config{message} = $conf->get("changelog");
 	$config{rpmoption} = $conf->get("rpmoption");
 	$config{log} = $conf->get("log");
+	$config{execute} = $conf->get("execute");
 
 }
 
@@ -548,6 +558,7 @@ sub usage {
 	print " --noupdate: do not touch to the spec file\n";
 	print " --top <dir>: specify rpm top dir (default: `rpm --eval \%_topdir`)\n";
 	print " --nobuild|-c: do not build the package. Only download files.\n";
+	print " --execute <command>: execute an arbitrary perl command for each line of the spec file\n";
 	exit 0;
 }