#!/usr/bin/perl
# Copyright Jerzy Wachowiak
use strict;
use warnings;
use Text::CSV_XS;
use xdSRA;
my $filepath = shift;
defined( $filepath ) or usage();
my $result = xdSRA::create_sra_from( $filepath );
my @sender = @{ $result->{sender} };
my @receiver = @{ $result->{receiver} };
my @archivist = @{ $result->{archivist} };
print "\n---Start creating configuration files---\n";
my $jclientpath;
for my $si (0..$#sender) {
$jclientpath = "$sender[$si]{username}\@$sender[$si]{hostname}_$sender[$si]{resource}";
xdSRA::create_directory( $jclientpath );
print "File sender.xml for $sender[$si]{username}\@$sender[$si]{hostname}/$sender[$si]{resource} created in the directory ./$jclientpath.\n";
open(CONFIG, ">> $jclientpath".'/sender.xml');
print CONFIG '',"\n";
print CONFIG "\n";
print CONFIG " \n";
print CONFIG " sender\n";
print CONFIG " $sender[$si]{hostname}\n";
print CONFIG " $sender[$si]{port}\n";
print CONFIG " $sender[$si]{username}\n";
print CONFIG " $sender[$si]{password}\n";
print CONFIG " $sender[$si]{resource}\n";
print CONFIG " $sender[$si]{comments}\n";
print CONFIG " \n";
print CONFIG " \n";
print CONFIG " archivist\n";
print CONFIG " $archivist[0]{hostname}\n";
print CONFIG " $archivist[0]{username}\n";
print CONFIG " $archivist[0]{resource}\n";
print CONFIG " $archivist[0]{comments}\n";
print CONFIG " \n";
print CONFIG "\n";
close( CONFIG);
};
for my $ri (0..$#receiver) {
$jclientpath = "$receiver[$ri]{username}\@$receiver[$ri]{hostname}_$receiver[$ri]{resource}";
xdSRA::create_directory( $jclientpath );
print "File receiver.xml for $receiver[$ri]{username}\@$receiver[$ri]{hostname}/$receiver[$ri]{resource} created in the directory ./$jclientpath.\n";
open(CONFIG, ">> $jclientpath".'/receiver.xml');
print CONFIG '',"\n";
print CONFIG "\n";
print CONFIG " \n";
print CONFIG " receiver\n";
print CONFIG " $receiver[$ri]{hostname}\n";
print CONFIG " $receiver[$ri]{port}\n";
print CONFIG " $receiver[$ri]{username}\n";
print CONFIG " $receiver[$ri]{password}\n";
print CONFIG " $receiver[$ri]{resource}\n";
print CONFIG " $receiver[$ri]{comments}\n";
print CONFIG " \n";
print CONFIG " \n";
print CONFIG " archivist\n";
print CONFIG " $archivist[0]{hostname}\n";
print CONFIG " $archivist[0]{username}\n";
print CONFIG " $archivist[0]{resource}\n";
print CONFIG " $archivist[0]{comments}\n";
print CONFIG " \n";
print CONFIG "\n";
close( CONFIG);
};
for my $ai (0..0) {
$jclientpath = "$archivist[$ai]{username}\@$archivist[$ai]{hostname}_$archivist[$ai]{resource}";
xdSRA::create_directory( $jclientpath );
print "File archivist.xml for $archivist[$ai]{username}\@$archivist[$ai]{hostname}/$archivist[$ai]{resource} created in the directory ./$jclientpath.\n";
open(CONFIG, ">> $jclientpath".'/archivist.xml');
print CONFIG '',"\n";
print CONFIG "\n";
print CONFIG " \n";
print CONFIG " archivist\n";
print CONFIG " $archivist[$ai]{hostname}\n";
print CONFIG " $archivist[$ai]{port}\n";
print CONFIG " $archivist[$ai]{username}\n";
print CONFIG " $archivist[$ai]{password}\n";
print CONFIG " $archivist[$ai]{resource}\n";
print CONFIG " $archivist[$ai]{comments}\n";
print CONFIG " \n";
print CONFIG "\n";
close( CONFIG);
};
print "---End creating configuration files---\n";
exit;
sub usage {
print <