[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lustre-cvs
Subject:    [lustre-cvs] b_devel: lustre/scripts version_tag.pl
From:       Eric Barton <eeb () moraine ! clusterfs ! com>
Date:       2003-09-30 9:26:15
[Download RAW message or body]

Update of /cvsroot/lustre/lustre/scripts
In directory moraine.clusterfs.com:/tmp/cvs-serv28387/scripts

Modified Files:
      Tag: b_devel
	version_tag.pl 
Log Message:
*  Merged HEAD diffs


Index: version_tag.pl
===================================================================
RCS file: /cvsroot/lustre/lustre/scripts/version_tag.pl,v
retrieving revision 1.4.8.2
retrieving revision 1.4.8.3
diff -u -w -b -B -p -r1.4.8.2 -r1.4.8.3
--- version_tag.pl	26 May 2003 08:18:01 -0000	1.4.8.2
+++ version_tag.pl	30 Sep 2003 09:26:12 -0000	1.4.8.3
@@ -9,13 +9,27 @@ use Time::Local;
 my $pristine = 1;
 my $kernver;
 
+# Use the CVS tag first otherwise use the portals version
 sub get_tag()
 {
     my $tag;
+    my $line;
 
     my $tagfile = new IO::File;
     if (!$tagfile->open("CVS/Tag")) {
-        return "HEAD";
+        my $verfile = new IO::File;
+        if (!$verfile->open("portals/include/config.h")) {
+          return "UNKNOWN";
+        }
+        while(defined($line = <$verfile>)) {
+            $line =~ /\#define VERSION "(.*)"/;
+            if ($1) {
+                $tag = $1;
+                last;
+            }
+        }
+        $verfile->close();
+        return $tag
     } else {
         my $tmp = <$tagfile>;
         $tagfile->close();

_______________________________________________
Lustre-cvs mailing list
Lustre-cvs@lists.clusterfs.com
https://lists.clusterfs.com/mailman/listinfo/lustre-cvs
[prev in list] [next in list] [prev in thread] [next in thread]