use Time::Local;

printf "Configuration generated at %s\n\n", scalar localtime;

$stage = "D:\\staging";   ## NOTE: double slash needed when variable is used.
$DC_OU_DN = "ou=domain controllers,dc=frs1221,dc=nttest,dc=microsoft,dc=com";

#
# The server table
#
HUB: FRS_SERVER  (/RP="E:\RSB"  /SP="$stage" /COMPUTER='frs1221\sudarctest1$'    ## note use of single quote because of $
                  /DNS_NAME="sudarctest1.frs1221.nttest.microsoft.com" /MNAME="hub0")

HUB: FRS_SERVER  (/RP="E:\RSB"  /SP="$stage" /COMPUTER='frs1221\sudarctest2$'
                  /DNS_NAME="sudarctest2.frs1221.nttest.microsoft.com" /MNAME="hub1")
#
#HUB: FRS_SERVER  (/RP="E:\RSB"  /SP="$stage" /COMPUTER='frs1221\sudarctest3$'
#                  /DNS_NAME="sudarctest3.frs1221.nttest.microsoft.com" /MNAME="hub2")
#
#HUB: FRS_SERVER  (/RP="E:\RSB"  /SP="$stage" /COMPUTER='frs1221\sudarctest1$'
#                  /DNS_NAME="sudarctest1.frs1221.nttest.microsoft.com" /MNAME="hub3")
#
#HUB: FRS_SERVER  (/RP="E:\RSB"  /SP="$stage" /COMPUTER='frs1221\sudarctest1$'
#                  /DNS_NAME="sudarctest1.frs1221.nttest.microsoft.com" /MNAME="hub4")
#

foreach $b ("sudarctest4", "DREWSAM-SRV", "sudarctest3", "DREWSAM-SRV"  ) {

    $Nt4Acct = "frs1221\\$b\$";

    BCH:  FRS_SERVER  (/RP="D:\RSB"  /SP="D:\staging"
                       /COMPUTER=$Nt4Acct
                       /id="-$b"
                       /DNS_NAME="$b.frs1221.nttest.microsoft.com"
                      )
}


#
#
#for $b (0 .. 20) {
#
#    $bchname = "Branch-$b";
#
#    BCH:  FRS_SERVER  (/RP="D:\RSB"  /SP="D:\staging"
#                       /COMPUTER="$bchname/hubsite/servers/"  /id="-$b"
#                       /NAME="$bchname.hubsite.ajax.com" )
#}


# The FRS_SCHEDULE command does not actually create any FRS objects in the DS,
# rather it defines the parameters to use when creating a schedule.
#
# Restriction: Any time with a ":" must be enclosed in quotes.  See /REPL_DURATION,
#              /TIME_ZONE and /DISABLE below.
#
PRIMARY_SCH: FRS_SCHEDULE  (/REPL_INTERVAL=4 /REPL_DURATION="1:30"
                            /TIME_ZONE="+1" /REPL_OFFSET=0 /STAGGER=2
                            /METHOD=1   /NAME='Primary Sched'
 /DISABLE="mo:07:30-mo:18:00,tu:07:30-tu:18:00,we:07:30-we:18:00,th:07:30-th:18:00,fr:07:30-fr:18:00"
 )





#
# The following function creates the connection objects for a hub spoke topology.
#

FRS_SUB CREATE_HUB_SPOKE_CONN(/HUBSET=SET_REF_SET           # Hubs
                              /BCHSET=SET_REF_SET           # Branches
                              /SC1=SCHEDULE )

    $Hx = 0;
    $NHub = FRS_COUNT_SET(/SET=%HUBSET%);
    print " NHUB = $NHub\n\n";

    #
    # RESTRICTION: don't PUT FRS FUNCTION REFS INSIDE A QUOTED STRING.
    #
    print " NBCH FRS _COUNT_SET( /SET= % BCHSET % ) ", FRS_COUNT_SET(/SET= %BCHSET% ), "\n" ;

    #
    # Create the topology
    #
    foreach $bch  (FRS_ARRAY(/SET=%BCHSET%)) {
        print "working on branch: $bch->{ONAME}\n";

        $hubsrv = %HUBSET%[$Hx];

        #
        # RESTRICTION: need braces around ONAME and MNAME.
        #
        FRS_CONNECTION  (/TO=$bch /FROM=%HUBSET%[$Hx] /SCHED=%SC1%
                         /ONAME="FROM-".$hubsrv->{MNAME}."-TO-".$bch->{ONAME} )

        FRS_CONNECTION  (/TO=%HUBSET%[$Hx] /FROM=$bch /SCHED=%SC1%
                         /ONAME="FROM-".$bch->{ONAME}."-TO-".$hubsrv->{MNAME} )

        $Hx=($Hx+1) % $NHub;

        if ($Hx == 0) {
            FRS_STAGGER (/SCHED=%SC1%)
        }
    }

FRS_END_SUB




#
# The following function creates the connection objects for a ring topology.
#
FRS_SUB CREATE_RING_CONN(/HUBSET=SET_REF_SET )


    FRS_SHOW(/SET=%HUBSET%)

    $Ringx = 0;
    $RingCount = FRS_COUNT_SET(/SET=%HUBSET%);
    print " RingCount = $RingCount\n\n";

    #
    # Create the topology
    #
    for ($Ringx=0; $Ringx < $RingCount-1; $Ringx++) {

        $RM1 = %HUBSET%[$Ringx];
        $RM2 = %HUBSET%[($Ringx+1) % $RingCount];

        #
        # RESTRICTION: need braces around ONAME and MNAME.
        #
        FRS_CONNECTION  (/TO=$RM1 /FROM=$RM2 /SCHED=ON
                         /ONAME="FROM-".$RM2->{MNAME}."-TO-".$RM1->{MNAME} )

        FRS_CONNECTION  (/TO=$RM2 /FROM=$RM1 /SCHED=ON
                         /ONAME="FROM-".$RM1->{MNAME}."-TO-".$RM2->{MNAME} )
    }

FRS_END_SUB



#
# The following function builds the member objects for a hub spoke topology
# and creates the connection objects.
#

FRS_SUB CREATE_HUB_SPOKE(/HUBSET=SET_REF_SET           # Hubs
                         /BCHSET=SET_REF_SET           # branches
                         /SC1=SCHEDULE
                         /REPSETDN=SET_ELEMENT)

    FRSSUP::PrintHash(\%__args);

    FRS_SHOW(/SET=%HUBSET%)

    #
    # Create the hub member objects
    #

    # Restriction: All subroutine argument refs are surrounded by "%".
    #              References to parameters in other objects use the
    #              notation "->{...}".  e.g.  COMPUTER, MNAME, id
    #
    foreach $hub  (FRS_ARRAY(/SET=%HUBSET%)) {
        MOBJHUB: FRS_MEMBER  (/UNDER=%REPSETDN%
                              /SERVER=$hub
                              /COMPUTER=$hub->{COMPUTER}
                              /ONAME=$hub->{MNAME} )
    }

    #
    # create the branch member objects.
    #
    foreach $bch  (FRS_SET(/SET=%BCHSET%)) {
        MOBJBCH: FRS_MEMBER  (/UNDER=%REPSETDN%
                              /SERVER=$bch
                              /COMPUTER=$bch->{COMPUTER}
                              /ONAME="B".$bch->{id} )
    }


    CREATE_RING_CONN(/HUBSET=<MOBJHUB> )

    CREATE_HUB_SPOKE_CONN(/HUBSET=<MOBJHUB>       # Hubs
                          /BCHSET=<MOBJBCH>       # Branches
                          /SC1=%SC1%     )


FRS_END_SUB




#
# Create the replica set under the FRS Settings object.
#

SETTINGS: FRS_SETTINGS  (/DN="cn=services,cn=configuration,dc=frs1221,dc=nttest,dc=microsoft,dc=com"
                         /ONAME="cn=ntfrs test settings")

SET: FRS_REPLICASET  (/UNDER=<SETTINGS> /TYPE=DFS /ONAME="HubSpokeRepSet")

CREATE_HUB_SPOKE(/HUBSET=<HUB>           # Hubs
                 /BCHSET=<BCH>           # backup hub
                 /SC1=<PRIMARY_SCH>
                 /REPSETDN=<SET>)