[interchange-cvs] interchange - jon modified code/UI_Tag/version.coretag

[interchange-core@interchange.redhat.com]

User:      jon
Date:      2002-02-07 02:33:45 GMT
Modified:  code/UI_Tag version.coretag
Log:
Put back code to return hostname, which got lost in the Great Tag Breakout.

Revision  Changes    Path
1.2       +9 -0      interchange/code/UI_Tag/version.coretag


rev 1.2, prev_rev 1.1
Index: version.coretag
===================================================================
RCS file: /var/cvs/interchange/code/UI_Tag/version.coretag,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -u -r1.1 -r1.2
--- version.coretag	29 Jan 2002 05:52:40 -0000	1.1
+++ version.coretag	7 Feb 2002 02:33:45 -0000	1.2
@@ -86,6 +86,13 @@
 		$done_something = 1;
 	}
 
+	if($opt->{hostname}) {
+		require Sys::Hostname;
+		push @out, Sys::Hostname::hostname()
+			|| errmsg("unable to determine hostname");
+		$done_something = 1;
+	}
+
 	if(not $opt->{db} || $opt->{modules} || $done_something) {
 		$opt->{db} = 1;
 		push @out, "Interchange Version $::VERSION";
@@ -114,6 +121,7 @@
 			push @out, "<BLOCKQUOTE>$avail</BLOCKQUOTE>";
 		}
 	}
+
 	if($opt->{modules}) {
 		my %wanted = ( qw/
 					Safe::Hole       Safe::Hole
@@ -149,6 +157,7 @@
 			}
 		}
 	}
+
 	return join $joiner, @out;
 }
 EOR