use frsobjsup;
    package main; 
    my ($__HashRef, $__k, $__v);
##                                              Processing file bigbchoff.mrs    Modify Time: Tue Apr  3 16:12:28 2001


##                                              use Time::Local;
use Time::Local;
##                                              printf "Configuration generated at %s\n\n", scalar localtime;
printf "Configuration generated at %s\n\n", scalar localtime;
##                                              $stage = "D:\\staging";   
$stage = "D:\\staging";   
##                                              $DC_OU_DN = "ou=domain controllers,dc=frs1221,dc=nttest,dc=microsoft,dc=com";
$DC_OU_DN = "ou=domain controllers,dc=frs1221,dc=nttest,dc=microsoft,dc=com";
##                                              HUB: FRS_SERVER  (/RP="E:\RSB"  /SP="$stage" /COMPUTER='frs1221\sudarctest1$'    
##                                              /DNS_NAME="sudarctest1.frs1221.nttest.microsoft.com" /MNAME="hub0")
    $__HashRef = FRS_SERVER->New( 
        RP=>"E:\\RSB", SP=>"$stage", COMPUTER=>'frs1221\\sudarctest1$', DNS_NAME=>"sudarctest1.frs1221.nttest.microsoft.com", MNAME=>"hub0" 
    ); 
    &FRSSUP::AddToSet("HUB", $__HashRef);

##                                              HUB: FRS_SERVER  (/RP="E:\RSB"  /SP="$stage" /COMPUTER='frs1221\sudarctest2$'
##                                              /DNS_NAME="sudarctest2.frs1221.nttest.microsoft.com" /MNAME="hub1")
    $__HashRef = FRS_SERVER->New( 
        RP=>"E:\\RSB", SP=>"$stage", COMPUTER=>'frs1221\\sudarctest2$', DNS_NAME=>"sudarctest2.frs1221.nttest.microsoft.com", MNAME=>"hub1" 
    ); 
    &FRSSUP::AddToSet("HUB", $__HashRef);

##                                              for $b (0 .. 200) {
for $b (0 .. 200) {
##                                                  $bchname = "Branch-$b";
    $bchname = "Branch-$b";
##                                                  $Nt4Acct = "frs1221\\$b\$";
    $Nt4Acct = "frs1221\\$b\$";
##                                                  BCH:  FRS_SERVER  (/RP="D:\RSB"  /SP="D:\staging"
##                                              /COMPUTER=$Nt4Acct
##                                              /id="-$b"
##                                              /DNS_NAME="$bchname.frs1221.nttest.microsoft.com" )
    $__HashRef = FRS_SERVER->New( 
        RP=>"D:\\RSB", SP=>"D:\\staging", COMPUTER=>$Nt4Acct, id=>"-$b", DNS_NAME=>"$bchname.frs1221.nttest.microsoft.com" 
    ); 
    &FRSSUP::AddToSet("BCH", $__HashRef);

##                                              }
}
##                                              PRIMARY_SCH: FRS_SCHEDULE  (/REPL_INTERVAL=4 /REPL_DURATION="1:30"
##                                              /TIME_ZONE="-5:00" /REPL_OFFSET=0 /STAGGER="0:15"
##                                              /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"
##                                              )
    $__HashRef = FRS_SCHEDULE->New( 
        REPL_INTERVAL=>4, REPL_DURATION=>"1:30", TIME_ZONE=>"-5:00", REPL_OFFSET=>0, STAGGER=>"0:15", 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" 
    ); 
    &FRSSUP::AddToSet("PRIMARY_SCH", $__HashRef);

##                                              FRS_SUB CREATE_HUB_SPOKE_CONN(/HUBSET=SET_REF_SET           
##                                              subname = 'CREATE_HUB_SPOKE_CONN',  func = 'FRS_SUB',  rest = '(/HUBSET=SET_REF_SET           '

##                                              /BCHSET=SET_REF_SET
##                                              /SC1=SCHEDULE )
sub CREATE_HUB_SPOKE_CONN {
    my %__args = (@_);
    my ($__HashRef, $__k, $__v);
    while ( ($__k, $__v) = each %__args ) { print "\t$__k => '$__v'\n"; }



##                                                  $Hx = 0;
    $Hx = 0;
##                                                  $NHub = FRS_COUNT_SET(/SET=%HUBSET%);
    $NHub =   scalar @{  
$__args{HUBSET} } 

;
##                                                  print " NHUB = $NHub\n\n";
    print " NHUB = $NHub\n\n";
##                                                  print " NBCH FRS _COUNT_SET( /SET= % BCHSET % ) ", FRS_COUNT_SET(/SET= %BCHSET% ), "\n" ;
    print " NBCH FRS _COUNT_SET( /SET= % BCHSET % ) ",   scalar @{  
$__args{BCHSET} } 

, "\n" ;
##                                                  foreach $bch  (FRS_ARRAY(/SET=%BCHSET%)) {
    foreach $bch  (  @{  
$__args{BCHSET} } 

) {
##                                                      print "working on branch: $bch->{ONAME}\n";
        print "working on branch: $bch->{ONAME}\n";
##                                                      $hubsrv = %HUBSET%[$Hx];
        $hubsrv = $__args{HUBSET}[$Hx];
##                                                      FRS_CONNECTION  (/TO=$bch /FROM=%HUBSET%[$Hx] /SCHED=%SC1%
##                                              /ONAME="FROM-".$hubsrv->{MNAME}."-TO-".$bch->{ONAME} )
    FRS_CONNECTION->New( 
        TO=>$bch, FROM=>$__args{HUBSET}[$Hx], SCHED=>$__args{SC1}, ONAME=>"FROM-".$hubsrv->{MNAME}."-TO-".$bch->{ONAME} 
    ); 

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

##                                                      $Hx=($Hx+1) % $NHub;
        $Hx=($Hx+1) % $NHub;
##                                                      if ($Hx == 0) {
        if ($Hx == 0) {
##                                                          FRS_STAGGER (/SCHED=%SC1%)
              FRS_SCHEDULE::FRS_STAGGER( 
SCHED=>$__args{SC1} ); 


##                                                      }
        }
##                                                  }
    }
##                                              FRS_END_SUB
}   # FRS_END_SUB


##                                              FRS_SUB CREATE_RING_CONN(/HUBSET=SET_REF_SET )
##                                              subname = 'CREATE_RING_CONN',  func = 'FRS_SUB',  rest = '(/HUBSET=SET_REF_SET )'

sub CREATE_RING_CONN {
    my %__args = (@_);
    my ($__HashRef, $__k, $__v);
    while ( ($__k, $__v) = each %__args ) { print "\t$__k => '$__v'\n"; }



##                                                  FRS_SHOW(/SET=%HUBSET%)
      FRSSUP::FRS_SHOW( 
SET=>$__args{HUBSET} ); 


##                                                  $Ringx = 0;
    $Ringx = 0;
##                                                  $RingCount = FRS_COUNT_SET(/SET=%HUBSET%);
    $RingCount =   scalar @{  
$__args{HUBSET} } 

;
##                                                  print " RingCount = $RingCount\n\n";
    print " RingCount = $RingCount\n\n";
##                                                  for ($Ringx=0; $Ringx < $RingCount-1; $Ringx++) {
    for ($Ringx=0; $Ringx < $RingCount-1; $Ringx++) {
##                                                      $RM1 = %HUBSET%[$Ringx];
        $RM1 = $__args{HUBSET}[$Ringx];
##                                                      $RM2 = %HUBSET%[($Ringx+1) % $RingCount];
        $RM2 = $__args{HUBSET}[($Ringx+1) % $RingCount];
##                                                      FRS_CONNECTION  (/TO=$RM1 /FROM=$RM2 /SCHED=ON
##                                              /ONAME="FROM-".$RM2->{MNAME}."-TO-".$RM1->{MNAME} )
    FRS_CONNECTION->New( 
        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_CONNECTION->New( 
        TO=>$RM2, FROM=>$RM1, SCHED=>ON, ONAME=>"FROM-".$RM1->{MNAME}."-TO-".$RM2->{MNAME} 
    ); 

##                                                  }
    }
##                                              FRS_END_SUB
}   # FRS_END_SUB


##                                              FRS_SUB CREATE_HUB_SPOKE(/HUBSET=SET_REF_SET           
##                                              subname = 'CREATE_HUB_SPOKE',  func = 'FRS_SUB',  rest = '(/HUBSET=SET_REF_SET           '

##                                              /BCHSET=SET_REF_SET
##                                              /SC1=SCHEDULE
##                                              /REPSETDN=SET_ELEMENT)
sub CREATE_HUB_SPOKE {
    my %__args = (@_);
    my ($__HashRef, $__k, $__v);
    while ( ($__k, $__v) = each %__args ) { print "\t$__k => '$__v'\n"; }



##                                                  FRSSUP::PrintHash(\%__args);
    FRSSUP::PrintHash(\%__args);
##                                                  FRS_SHOW(/SET=%HUBSET%)
      FRSSUP::FRS_SHOW( 
SET=>$__args{HUBSET} ); 


##                                                  # Restriction: All subroutine argument refs are surrounded by "%"
    # Restriction: All subroutine argument refs are surrounded by "%"
##                                                  #              notation "->{...}"
    #              notation "->{...}"
##                                                  foreach $hub  (FRS_ARRAY(/SET=%HUBSET%)) {
    foreach $hub  (  @{  
$__args{HUBSET} } 

) {
##                                                      MOBJHUB: FRS_MEMBER  (/UNDER=%REPSETDN%
##                                              /SERVER=$hub
##                                              /COMPUTER=$hub->{COMPUTER}
##                                              /ONAME=$hub->{MNAME} )
    $__HashRef = FRS_MEMBER->New( 
        UNDER=>$__args{REPSETDN}, SERVER=>$hub, COMPUTER=>$hub->{COMPUTER}, ONAME=>$hub->{MNAME} 
    ); 
    &FRSSUP::AddToSet("MOBJHUB", $__HashRef);

##                                                  }
    }
##                                                  foreach $bch  (FRS_SET(/SET=%BCHSET%)) {
    foreach $bch  (  @{ FRSSUP::FRS_SET( 
SET=>$__args{BCHSET} ) } 

) {
##                                                      MOBJBCH: FRS_MEMBER  (/UNDER=%REPSETDN%
##                                              /SERVER=$bch
##                                              /COMPUTER=$bch->{COMPUTER}
##                                              /ONAME="B".$bch->{id} )
    $__HashRef = FRS_MEMBER->New( 
        UNDER=>$__args{REPSETDN}, SERVER=>$bch, COMPUTER=>$bch->{COMPUTER}, ONAME=>"B".$bch->{id} 
    ); 
    &FRSSUP::AddToSet("MOBJBCH", $__HashRef);

##                                                  }
    }
##                                                  CREATE_RING_CONN(/HUBSET=<MOBJHUB> )
      &CREATE_RING_CONN ( 
HUBSET=>&FRSSUP::SelectSet(MOBJHUB) ); 

##                                                  CREATE_HUB_SPOKE_CONN(/HUBSET=<MOBJHUB>       
##                                              /BCHSET=<MOBJBCH>
##                                              /SC1=%SC1%     )
      &CREATE_HUB_SPOKE_CONN ( 
HUBSET=>&FRSSUP::SelectSet(MOBJHUB), BCHSET=>&FRSSUP::SelectSet(MOBJBCH), SC1=>$__args{SC1} ); 

##                                              FRS_END_SUB
    &FRSSUP::DeleteSet("MOBJHUB");
    &FRSSUP::DeleteSet("MOBJBCH");
}   # FRS_END_SUB


##                                              SETTINGS: FRS_SETTINGS  (/DN="cn=services,cn=configuration,dc=frs1221,dc=nttest,dc=microsoft,dc=com"
##                                              /ONAME="cn=ntfrs test settings")
    $__HashRef = FRS_SETTINGS->New( 
        DN=>"cn=services,cn=configuration,dc=frs1221,dc=nttest,dc=microsoft,dc=com", ONAME=>"cn=ntfrs test settings" 
    ); 
    &FRSSUP::AddToSet("SETTINGS", $__HashRef);

##                                              SET: FRS_REPLICASET  (/UNDER=<SETTINGS> /TYPE=DFS /ONAME="HubSpokeRepSet")
    $__HashRef = FRS_REPLICASET->New( 
        UNDER=>&FRSSUP::SelectSet(SETTINGS)->[0], TYPE=>DFS, ONAME=>"HubSpokeRepSet" 
    ); 
    &FRSSUP::AddToSet("SET", $__HashRef);

##                                              CREATE_HUB_SPOKE(/HUBSET=<HUB>           
##                                              /BCHSET=<BCH>
##                                              /SC1=<PRIMARY_SCH>
##                                              /REPSETDN=<SET>)
  &CREATE_HUB_SPOKE ( 
HUBSET=>&FRSSUP::SelectSet(HUB), BCHSET=>&FRSSUP::SelectSet(BCH), SC1=>&FRSSUP::SelectSet(PRIMARY_SCH)->[0], REPSETDN=>&FRSSUP::SelectSet(SET)->[0] ); 

__END__