[north@stanley:syssvn/snippets]$ svn diff -r 184:185 rb3.pl                                                                      (17/10 19:58)
Index: rb3.pl
===================================================================
--- rb3.pl      (revision 184)
+++ rb3.pl      (revision 185)
@@ -2,7 +2,7 @@
 #
 # rb3 - reposutory builder script
 #
-# $Id: rb3.pl 167 2006-04-06 10:03:35Z ray $
+# $Id$
 #
 # Author: Ray Miller <ray@sysdev.oucs.ox.ac.uk>
 #
@@ -384,6 +384,7 @@
 foreach my $dir (@ARGV) {
   $dir =~ s{/$}{};
   (my $system = $dir) =~ s{^.*/}{};
+  (my $shorthostname = $system ) =~ s{\..*}{};
   # Seed the RNG for this system (avoids unnecessary noise in templates
   # that include shuffled or random data)
   {
@@ -400,7 +401,7 @@
   }
   print STDERR "Processing $dir\n";
   my %files = map {$_ => CT_DEFAULT} find_files("$dir/root");
-  my %params = (hostname => $system);
+  my %params = (hostname => $system, short_hostname => $shorthostname);
   parse_rb3($rb3, \%files, \%params, 0);
   print YAML::Dump(\%params) if $options{'dump-params'};
   while (my ($dest, $filespec) = each %files) {

Property changes on: rb3.pl
___________________________________________________________________
Name: svn:keywords
   + Id

[north@stanley:syssvn/snippets]$ svn log -r 185                                                                                  (17/10 19:58)
------------------------------------------------------------------------
r185 | michael | 2007-09-14 12:51:49 +0100 (Fri, 14 Sep 2007) | 1 line

rb3 - changed shorthostname to short_hostname
------------------------------------------------------------------------