sub set_site {

#  RSD: Remote Software Deployment: Determine site name.

#  Contact:  N. West,  Oxford.

#  Parameters:-
#  ==========

#  None


#  Specification:-
#  =============

#  o Use hostname to determine $SYS::SITE_NAME.

  use strict;

  $SYS::SITE_NAME = "unknown";

  $SYS::SITE_NAME = "ral_tier1"   if $SYS::HOST =~ /.*\.rl\.ac\.uk/;
  $SYS::SITE_NAME = "ral_tier2"   if $SYS::HOST =~ /.*\.pp\.rl\.ac\.uk/;
  $SYS::SITE_NAME = "ral_ui"      if $SYS::HOST =~ /lcgui.*\.rl\.ac\.uk/;
  $SYS::SITE_NAME = "oxford"      if $SYS::HOST =~ /physics\.ox\.ac\.uk/;
  $SYS::SITE_NAME = "umn"         if $SYS::HOST =~ /.*\.spa\.umn\.edu/;
  $SYS::SITE_NAME = "laptop_nick" if $SYS::HOST eq "OXSNOLAP09";

  return;

}
1; #   Return O.K. from module loading.