tape-config-generate

#!/usr/bin/perl -w
#######################################################################
#
# This script will generate /etc/cta/TPCONFIG file with the data from
# TOMS (Tape Operations Management System) URL:
#
# https://apex.cern.ch/pls/htmldb_castorns/f?p=toms_prod:250:163672298908022::NO::P250_TAPESERVER:HOSTNAME
#
# Vladimir Bahyl - 05/2019
#
#######################################################################

use strict;
use XML::DOM;
use Sys::Hostname;
use LWP::UserAgent;
use LC::Check qw(file);

#use Data::Dumper;

my $today = localtime;

my %TPCONFIG = ();
my $hostname = '';

my $tpconfigfile = '/etc/castor/TPCONFIG';
my $tpconfig = "#######################################################################
#
# CTA Tape Server Configuration file
#
# This tape server is not configured.
#
#######################################################################
#
# Generated on $today by $0
";

my $changes = 0;

($hostname = hostname()) =~ s/\.cern\.ch$//io;

my $configUrl = 'https://apex.cern.ch/pls/htmldb_castorns/f?p=toms_prod:250:163672298908022::NO::P250_TAPESERVER:HOSTNAME';
die ("$0: missing configuration URL") unless ($configUrl);
$configUrl =~ s/HOSTNAME/$hostname/o;

#
# Fetch the data
#
print("$0: Fetching the data over HTTP from the Oracle APEX database ... please be patient ...\n");
%TPCONFIG = &GetData($configUrl);

#
# Prepare the TPCONFIG file
#
my $i = 0;
while (%TPCONFIG and defined($TPCONFIG{$i}{'tapeserver'}) and (lc($TPCONFIG{$i}{'tapeserver'}) eq lc($hostname))) {
  $tpconfig = "#######################################################################
#
# CTA Tape Server Configuration file
#
# unit      device    system                control
# name      group     device                method

" if ($i == 0);

  $tpconfig .= "$TPCONFIG{$i}{'tapedrive'}    $TPCONFIG{$i}{'devicegroup'}    $TPCONFIG{$i}{'unixdevice'}    $TPCONFIG{$i}{'controlmethod'}

# Tape Drive Comment: $TPCONFIG{$i}{'tapedrivecomment'}
# Tape Service Comment: $TPCONFIG{$i}{'tapeservicecomment'}
# Modified by: $TPCONFIG{$i}{'modifuser'}