#
# The following three paramters should come from an input file.
# They are the branch ID number, the branch timezone and the hub ID number to
# which the branch is assigned.
#

my $Usage = "

Specific Usage: perl $0  [cmd options]  \> output

   Process the erac.mrs configuration script.

   Command line options must be prefixed with a dash.

   The required input options to this script are:
      -DBchID=nnnnn   : to provide a value for the Bch ID parameter.
      -DHubID=nnnnn   : to provide a value for the Hub ID parameter.


";


FRSSUP::CheckForHelp(\%CMD_PARS, \$Usage);

#
# Check the input parameters.
#
FRSSUP::ShowHelp("ERROR - Required parameter BchID not found.", \$Usage)  if (!exists $CMD_VARS{"BchID"});
push @bchID, $CMD_VARS{"BchID"};

FRSSUP::ShowHelp("ERROR - Required parameter HubID not found.", \$Usage)  if (!exists $CMD_VARS{"HubID"});
push @hubID, $CMD_VARS{"HubID"};

push @bchTimeZone, 0;   # place holder for now.


# Restriction: script array variables must be prefixed with "@".

# for testing
#@hubID       = ("0000"   , "0000"   , "0000"   , "0000"   );
#@bchID       = ("1003002", "1000043", "1007692", "2000001");
#
# For the present all schedules will use central time. (GMT-6)
#@bchTimeZone = ("-6:00",   "-6:00"  , "-6:00"  , "-6:00"  );
#for ($i=0; $i<150; $i++ ) {push @bchID, 300000+$i; push @bchTimeZone, 0; push @hubID, "0000";}
#


# Restriction: script scalar variables must be prefixed with "$".

$domain = "na";

#
# define a "subroutine" to do the actual creation of the two  member
# replica set.  Each user defined calling parameter is
# associated with an argument type for use when the "subroutine" is called.
#
# Restriction: All "subroutines" must be defined before they are first called.
#
FRS_SUB  CREATE_WORK_RS(/HA=SET_ELEMENT           # Hub server
                        /B=VARCON                 # Branch server
                        /SC1=SCHEDULE             # schedule
                        /SETTINGSDN=SET_ELEMENT ) # The parent Settings object

    #
    # Define an FRS replica set object under the settingsdn object.
    # The object name for the FRS Replica Set object is based on the {rep_set_name}
    # parameter from the branch server object.
    #
    # Restriction: All subroutine argument refs are surrounded by "%".
    #              References to parameters in other objects use the
    #              notation "->{...}".
    #
    SET: FRS_REPLICASET  (/UNDER=%SETTINGSDN% /TYPE=DFS
                          /ONAME=%B%->{rep_set_name})

    #
    # Create the two FRS member objects underneath the SET object just created.
    # Parameters for the member object attributes come from the /SERVER argument
    # but they can also be replaced by paramters to the FRS_MEMBER command.
    # For example, the staging and root paths come from the /SERVER argument but the
    # root path could be changed by adding "/RP="newroot"" to the param list below.
    #
    # Restriction:  References to tags that name a set of objects are
    #               surrounded by angle brackets.  So "<SET>" below refers
    #               the FRS_REPLICASET object just defined above.
    #
    MHA: FRS_MEMBER  (/UNDER=<SET> /SERVER=%HA% /COMPUTER=%HA%->{COMPUTER} 
                      /ONAME="ComputerObjectGuid"  /MAKE_PRIMARY_MEMBER )

    MB:  FRS_MEMBER  (/UNDER=<SET> /SERVER=%B%  /COMPUTER=%B%->{COMPUTER}   
                      /ONAME="ComputerObjectGuid"  )


    #
    # Create the connection objects between the members defined above.
    # Note use of angle brackets.
    # To use the timezone supplied on the branch's FRS_SERVER object
    # add the following parameter to each FRS_CONNECTION object below.
    # /TIME_ZONE=%B%->{time_zone}
    #
    FRS_CONNECTION  (/TO=<MB> /FROM=<MHA> /SCHED=%SC1%
                     /ONAME="FROM-".%HA%->{ONAME}."-TO-".%B%->{ONAME} )

    FRS_CONNECTION  (/TO=<MHA> /FROM=<MB> /SCHED=%SC1%
                     /ONAME="FROM-".%B%->{ONAME}."-TO-".%HA%->{ONAME} )

#
# The tags defined above (i.e. SET, MHA, and MB) are local to the
# subroutine.  They are undefined when the subroutine completes.
#
FRS_END_SUB


#
# Create the parameters for the FRS_SERVER objects for each branch.
#
for ($ib=0; $ib<scalar(@bchID); $ib++) {

    # The branch name ($bchName) is a concatenation (use of ".") of the rootpath
    # branch id parameter and a constant suffix.
    # The hub root path uses the branch name (no "." since inside dbl-quotes)
    # so it is unique for each replica set serviced by this hub.
    # In FRS, no two replica sets on the same server can have overlapping root paths.

    $bchName = $bchID[$ib] . "-I01";
    $bchNt4Acct = "$domain\\$bchName\$";  # need to define outside of params due to trailing $

    $hubName = "STL-FSNA-I" . $hubID[$ib];
    $hubRootPath = "C:\\BRANCHES\\$bchName";   # need double slashes outside params
    $hubNt4Acct = "$domain\\$hubName\$";  # need to define outside of params due to trailing $

    HUB: FRS_SERVER  (/RP=$hubRootPath
                      /SP="C:\FRS-STAGING"     # can use single slashes inside params
                      /COMPUTER=$hubNt4Acct
                      /ONAME=$hubName
                      /DNS_NAME="$hubName.$domain.erac.com"
                      )

    BCH: FRS_SERVER  (/RP="D:\USERS"
                      /SP="C:\FRS-STAGING"
                      /COMPUTER=$bchNt4Acct
                      /ONAME=$bchName
                      /time_zone=$bchTimeZone[$ib]          # carry the timezone thru the server data.
                      /DNS_NAME="$bchName.$domain.erac.com"
                      /rep_set_name="dfsroot|$bchName"  )


}
#
# Restriction: Any time with a ":" must be enclosed in quotes.  See /REPL_DURATION,
#              /TIME_ZONE and /DISABLE below.
#
# Restriction: The current schedule generator does not make efficient use of
#              daily variations in the blackout periods.  Make the blackout
#              periods the same for each day of the week.
#
PRIMARY_SCH: FRS_SCHEDULE  (/REPL_INTERVAL=24      # Once per day
                            /REPL_DURATION="2:00"  # 2 hour window
                            /TIME_ZONE="-6:00"     # Central time.
                            /REPL_OFFSET="18:00"   # starting offset
                            /STAGGER="0:15"        # successive members start at 15min deltas
                            /METHOD=1              # repeating schedule
                            /NAME='Primary Sched'
/DISABLE="su:05:00-su:18:00,mo:05:00-mo:18:00,tu:05:00-tu:18:00,we:05:00-we:18:00,th:05:00-th:18:00,fr:05:00-fr:18:00,sa:05:00-sa:18:00"
 )

ON_SCHED: FRS_SCHEDULE (/OVERRIDE="su:00-sa:23:45"  /METHOD=2)


#
# Define the FRS Settings Object.
#
SETTINGS: FRS_SETTINGS  (
  /DN="cn=dfs volumes,cn=file replication service,cn=system,dc=na,dc=erac,dc=com"
  /ONAME="cn=dfsroot"
  )

#
# Iterate through all branch servers in the "BCH" set.
#
for ($ib=0; $ib<scalar(@bchID); $ib++) {
    #
    # Call the subroutine defined above to create a replica set for this branch.
    # The notation <HUB>[$ib] is like an array reference in that it selects
    # a single item from the "HUB" server set defined above.  The index value
    # can be an expression. Also note that set tags declared outside a
    # subroutine are global.
    #
    CREATE_WORK_RS ( /HA=<HUB>[$ib]
                     /B=<BCH>[$ib]
                     /SC1=<ON_SCHED>
                     /SETTINGSDN=<SETTINGS>)

    #
    # offset the schedule by the next stagger amount for the next branch.
    #
    FRS_STAGGER (/SCHED=<PRIMARY_SCH>)
}