Changeset 456 for locker/deploy/bin/onserver.pm

Timestamp:

Oct 13, 2007, 4:25:50 AM (17 years ago)

Author:

quentin

Message:

mediawiki 1.11 installer + improvements to installer system

File:

• locker/deploy/bin/onserver.pm (modified) (3 diffs)

locker/deploy/bin/onserver.pm

@@ -2 +2 @@
 use strict;
 use Exporter;
+use Sys::Hostname;
+use File::Spec::Functions;
+use File::Basename;
+use Socket;
+use Cwd qw(abs_path);
+use POSIX qw(strftime);
 our @ISA = qw(Exporter);
 our @EXPORT = qw(setup totmp print_login_info press_enter $server $tmp $USER $HOME $sname $deploy $addrend $admin_username $requires_sql $addrlast $sqlhost $sqluser $sqlpass $sqldb $sqldbcurl $admin_password $scriptsdev $human);
@@ -20 +26 @@
   print "  username: $admin_username\n";
   print "  password: $admin_password\n";
+}
+
+sub getclienthostname {
+    if (my $sshclient = $ENV{"SSH_CLIENT"}) {
+        my ($clientip) = split(' ', $sshclient);
+        my $hostname = gethostbyaddr(inet_aton($clientip), AF_INET);
+        return $hostname || $clientip;
+    } else {
+        return hostname();
+    }
 }
 
@@ -71 +87 @@
   print "\nConfiguring $sname...\n";
   
-  `date > .scripts-version`;
-  `stat /mit/scripts/deploy$scriptsdev/$deploy.tar.gz >> .scripts-version`;
+  open(VERSION, ">.scripts-version") or die "Can't write scripts-version file: $!\n";
+  print VERSION strftime("%F %T %z\n", localtime);
+  print VERSION $ENV{'USER'}, '@', getclienthostname(), "\n";
+  my $tarball = abs_path("/mit/scripts/deploy$scriptsdev/$deploy.tar.gz");
+  print VERSION $tarball, "\n";
+  $tarball =~ s|/deploydev/|/deploy/|;
+  print VERSION dirname($tarball), "\n";
+  close(VERSION);
+  if (0) {
+      `date > .scripts-version`;
+      `stat /mit/scripts/deploy$scriptsdev/$deploy.tar.gz >> .scripts-version`;
+  }
 
   select STDOUT;