source: fedkit/convert_testbeds_file.pl @ fd07c48

axis_examplecompt_changesinfo-opsversion-3.01version-3.02
Last change on this file since fd07c48 was 4e794c9f, checked in by Ted Faber <faber@…>, 17 years ago

convert illegible testbeds files to something more readable

  • Property mode set to 100644
File size: 703 bytes
Line 
1#!/usr/bin/perl
2
3use IO::File;
4
5# Read a hash of per-testbed parameters from the local configurations.
6$conf = new IO::File(shift) || 
7    die "can't read testbed configutions from $tb_config: $!\n";
8while (<$conf>) {
9    next if /^#/;
10    chomp;
11    ($tb, $h, $d, $u, $p, $es, $gs, $mes, $mgs, $t, $i, $fs, $boss, $tun) = 
12        split(":", $_);
13
14    # Make sure the domain starts with a period
15    $d = ".$d" unless $d =~ /^\./;
16
17    print <<END;
18[$tb]
19OpsNode: $h
20User: $u
21Domain: $d
22Project: $p
23ConnectorType: $t
24ConnectorImage: $i
25SlaveNodeStartCmd: $es
26SlaveConnectorStartCmd: $gs
27MasterNodeStartCmd: $mes
28MasterConnectorStartCmd: $mgs
29FileServer: $fs
30Boss: $boss
31TunnelCfg: $tun
32
33END
34}
35$conf->close();
Note: See TracBrowser for help on using the repository browser.