From dee37a84ae65ba8bd1e0dab6132955bbc195fa57 Mon Sep 17 00:00:00 2001
From: Paul Buetow <paul@buetow.org>
Date: Sun, 21 Nov 2010 16:22:46 +0000
Subject:

---
 scripts/setglobvals.pl | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100755 scripts/setglobvals.pl

(limited to 'scripts/setglobvals.pl')

diff --git a/scripts/setglobvals.pl b/scripts/setglobvals.pl
new file mode 100755
index 0000000..13288a5
--- /dev/null
+++ b/scripts/setglobvals.pl
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+
+# The yChat Project (2003)
+#
+# This script sets up some variables in src/glob.h 
+
+use strict;
+
+use scripts::modules::file;
+
+my $file = 'src/glob.h';
+my $gmake = `which gmake`;
+my @glob = fopen($file);
+chomp($gmake);
+
+print "-> Setting values in $file\n";
+
+my $modified = 0;
+foreach (@glob)
+{
+ if (/^(#define GMAKE) "(.*)"/)
+ {
+  if ($2 ne "$gmake \\0")
+  {
+   s/^$1 "$2"/#define GMAKE "$gmake \\0"/;
+   print " -> Set $gmake\n";
+   fwrite($file,@glob);  
+   last;  
+  }
+ }
+}
+
-- 
cgit v1.2.3