From d491ac3a2199cb1f3cdcd4f2f6b3d877b3a65a65 Mon Sep 17 00:00:00 2001
From: Yaakov Nemoy <loupgaroublond@gmail.com>
Date: Sun, 28 Sep 2008 10:29:00 -0400
Subject: Make the shell functions a bit more modular for scripting

---
 rebuild-scripts/check_release | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100755 rebuild-scripts/check_release

(limited to 'rebuild-scripts/check_release')

diff --git a/rebuild-scripts/check_release b/rebuild-scripts/check_release
new file mode 100755
index 0000000..74b9999
--- /dev/null
+++ b/rebuild-scripts/check_release
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+# $Id: check_release,v 1.1.1.1 2006/10/06 22:22:02 c4chris Exp $
+use strict;
+while ( <> ) {
+  s/\s+$//;
+  my @F = split;
+  my ($r) = $F[6] =~ /-([^-]+)$/;
+  $r =~ s/\.fc6//;
+  next if $r =~ /^\d+$/;
+  print "$_\n";
+}
+exit 0;
-- 
cgit