archive
/
windows-server-2003
mirror of https://github.com/selfrender/Windows-Server-2003
2
0
Fork 0
Code Issues Projects Releases Wiki Activity
Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
4 Commits
1 Branch
0 Tags
4.9 GiB
Tree: 5c6fe3db62
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '5c6fe3db62'
${ noResults }
windows-server-2003/ds/netapi/svcimgs/ntrepl/frsconfig/primary.prl

501 lines
40 KiB
Raw Normal View History

commiting as it is
4 years ago
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
​
  1. ## Command line defined variables.
  2. ## Command line defined parameters.
  3. ## verbose => 'all'
  4. use frsobjsup;
  5. package main;
  6. my ($__HashRef, $__k, $__v);
  7. my (%CMD_VARS, %CMD_PARS);
  9. &FRSSUP::ProcessCmdLine(\%CMD_VARS, \%CMD_PARS);
  11. my $Usage = "
  12. Specific Usage: perl $0 [cmd options] \> output
  13. Process the erac.mrs configuration script.
  14. Command line options must be prefixed with a dash.
  15. The required input options to this script are:
  16. -DBchID=nnnnn : to provide a value for the Bch ID parameter.
  17. -DHubID=nnnnn : to provide a value for the Hub ID parameter.
  18. ";
  19. FRSSUP::CheckForHelp(\%CMD_PARS, \$Usage);
  20. FRSSUP::ShowHelp("ERROR - Required parameter BchID not found.", \$Usage) if (!exists $CMD_VARS{"BchID"});
  21. push @bchID, $CMD_VARS{"BchID"};
  22. FRSSUP::ShowHelp("ERROR - Required parameter HubID not found.", \$Usage) if (!exists $CMD_VARS{"HubID"});
  23. push @hubID, $CMD_VARS{"HubID"};
  24. ## pre:'' match:'push @bchTimeZone, 0; ' post:' place holder for now.' lastparen:'push @bchTimeZone, 0; '
  25. push @bchTimeZone, 0;
  26. $domain = "na";
  27. ## pre:'' match:'FRS_SUB CREATE_WORK_RS(/HA=SET_ELEMENT ' post:'# Hub server' lastparen:'FRS_SUB CREATE_WORK_RS(/HA=SET_ELEMENT '
  28. ## (1) paren match:'('
  29. ## (2) paren match:'/HA=SET_ELEMENT ('
  30. ## (1) paren match:'*)'
  31. ## 1, Found: (/HA=SET_ELEMENT Rest:
  32. ## pre:'' match:' /B=VARCON ' post:'# Branch server' lastparen:' /B=VARCON '
  33. ## (1) paren match:'('
  34. ## (2) paren match:'/HA=SET_ELEMENT /B=VARCON('
  35. ## (1) paren match:'*)'
  36. ## 1, Found: (/HA=SET_ELEMENT /B=VARCON Rest:
  37. ## pre:'' match:' /SC1=SCHEDULE ' post:'# schedule' lastparen:' /SC1=SCHEDULE '
  38. ## (1) paren match:'('
  39. ## (2) paren match:'/HA=SET_ELEMENT /B=VARCON /SC1=SCHEDULE('
  40. ## (1) paren match:'*)'
  41. ## 1, Found: (/HA=SET_ELEMENT /B=VARCON /SC1=SCHEDULE Rest:
  42. ## pre:'' match:' /SETTINGSDN=SET_ELEMENT ) ' post:'# The parent Settings object' lastparen:' /SETTINGSDN=SET_ELEMENT ) '
  43. ## (1) paren match:'('
  44. ## (0) paren match:'/HA=SET_ELEMENT /B=VARCON /SC1=SCHEDULE /SETTINGSDN=SET_ELEMENT )'
  45. ## 0, Found: (/HA=SET_ELEMENT /B=VARCON /SC1=SCHEDULE /SETTINGSDN=SET_ELEMENT ) Rest:
  46. sub CREATE_WORK_RS {
  47. my %__args = (@_);
  48. my ($__HashRef, $__k, $__v);
  49. print "##\n";
  50. print "## Entering sub CREATE_WORK_RS\n";
  51. while ( ($__k, $__v) = each %__args ) { print "## \t$__k => '$__v'\n"; }
  54. ## pre:'' match:'HA=SET_ELEMENT ' post:'B=VARCON /SC1=SCHEDULE /SETTINGSDN=SET_ELEMENT' lastparen:'HA=SET_ELEMENT '
  55. ## pre:'HA=SET_ELEMENT /' match:'B=VARCON ' post:'SC1=SCHEDULE /SETTINGSDN=SET_ELEMENT' lastparen:'B=VARCON '
  56. ## pre:'HA=SET_ELEMENT /B=VARCON /' match:'SC1=SCHEDULE ' post:'SETTINGSDN=SET_ELEMENT' lastparen:'SC1=SCHEDULE '
  57. ## pre:'HA=SET_ELEMENT /B=VARCON /SC1=SCHEDULE /' match:'SETTINGSDN=SET_ELEMENT' post:'' lastparen:'SETTINGSDN=SET_ELEMENT'
  58. ## pre:'HA=SET_ELEMENT /B=VARCON /SC1=SCHEDULE /SETTINGSDN=SET_ELEMENT' match:'' post:'' lastparen:''
  60. ## pre:'' match:' ' post:'' lastparen:' '
  61. ## pre:'' match:' ' post:' Define an FRS replica set object under the settingsdn object.' lastparen:' '
  62. ## pre:'' match:' ' post:' The object name for the FRS Replica Set object is based on the {rep_set_name}' lastparen:' '
  63. ## pre:'' match:' ' post:' parameter from the branch server object.' lastparen:' '
  64. ## pre:'' match:' ' post:'' lastparen:' '
  65. ## pre:'' match:' # Restriction: All subroutine argument refs are surrounded by "%"' post:'.' lastparen:' # Restriction: All subroutine argument refs are surrounded by "%"'
  66. # Restriction: All subroutine argument refs are surrounded by "%"
  67. ## pre:'' match:' ' post:' References to parameters in other objects use the' lastparen:' '
  68. ## pre:'' match:' # notation "->{...}"' post:'.' lastparen:' # notation "->{...}"'
  69. # notation "->{...}"
  70. ## pre:'' match:' ' post:'' lastparen:' '
  71. ## ExpandArgStr: SET: FRS_REPLICASET (/UNDER=$__args{SETTINGSDN} /TYPE=DFS /ONAME=$__args{B}->{rep_set_name})
  72. ## (1) paren match:'('
  73. ## (0) paren match:'/UNDER=$__args{SETTINGSDN} /TYPE=DFS /ONAME=$__args{B}->{rep_set_name})'
  74. ## 0, Found: (/UNDER=$__args{SETTINGSDN} /TYPE=DFS /ONAME=$__args{B}->{rep_set_name}) Rest:
  75. ## 'UNDER=$__args{SETTINGSDN} /TYPE=DFS /ONAME=$__args{B}->{rep_set_name}'
  76. $__HashRef = FRS_REPLICASET->New(
  77. ## pre:'' match:'UNDER=$__args{SETTINGSDN} ' post:'TYPE=DFS /ONAME=$__args{B}->{rep_set_name}' lastparen:'UNDER=$__args{SETTINGSDN} '
  78. ## pre:'UNDER=$__args{SETTINGSDN} /' match:'TYPE=DFS ' post:'ONAME=$__args{B}->{rep_set_name}' lastparen:'TYPE=DFS '
  79. ## pre:'UNDER=$__args{SETTINGSDN} /TYPE=DFS /' match:'ONAME=$__args{B}->{rep_set_name}' post:'' lastparen:'ONAME=$__args{B}->{rep_set_name}'
  80. ## pre:'UNDER=$__args{SETTINGSDN} /TYPE=DFS /ONAME=$__args{B}->{rep_set_name}' match:'' post:'' lastparen:''
  83. ## UNDER=$__args{SETTINGSDN}:TYPE=DFS:ONAME=$__args{B}->{rep_set_name}
  85. UNDER=>$__args{SETTINGSDN}, TYPE=>DFS, ONAME=>$__args{B}->{rep_set_name}
  86. );
  87. &FRSSUP::AddToSet("SET", $__HashRef);
  89. ## pre:'' match:' ' post:'' lastparen:' '
  90. ## pre:'' match:' ' post:' Create the two FRS member objects underneath the SET object just created.' lastparen:' '
  91. ## pre:'' match:' ' post:' Parameters for the member object attributes come from the /SERVER argument' lastparen:' '
  92. ## pre:'' match:' ' post:' but they can also be replaced by paramters to the FRS_MEMBER command.' lastparen:' '
  93. ## pre:'' match:' ' post:' For example, the staging and root paths come from the /SERVER argument but the' lastparen:' '
  94. ## pre:'' match:' # root path could be changed by adding "/RP="newroot""' post:' to the param list below.' lastparen:' # root path could be changed by adding "/RP="newroot""'
  95. # root path could be changed by adding "/RP="newroot""
  96. ## pre:'' match:' ' post:'' lastparen:' '
  97. ## pre:'' match:' ' post:' Restriction: References to tags that name a set of objects are' lastparen:' '
  98. ## pre:'' match:' # surrounded by angle brackets. So "<SET>"' post:' below refers' lastparen:' # surrounded by angle brackets. So "<SET>"'
  99. ## ExpandSetRef: # surrounded by angle brackets. So "&FRSSUP::SelectSet(SET)"
  100. # surrounded by angle brackets. So "&FRSSUP::SelectSet(SET)"
  101. ## pre:'' match:' ' post:' the FRS_REPLICASET object just defined above.' lastparen:' '
  102. ## pre:'' match:' ' post:'' lastparen:' '
  103. ## ExpandArgStr: MHA: FRS_MEMBER (/UNDER=<SET> /SERVER=$__args{HA} /COMPUTER=$__args{HA}->{COMPUTER} )
  104. ## ExpandSetRef: MHA: FRS_MEMBER (/UNDER=&FRSSUP::SelectSet(SET) /SERVER=$__args{HA} /COMPUTER=$__args{HA}->{COMPUTER} )
  105. ## (1) paren match:'('
  106. ## (2) paren match:'/UNDER=&FRSSUP::SelectSet('
  107. ## (1) paren match:'SET)'
  108. ## (0) paren match:' /SERVER=$__args{HA} /COMPUTER=$__args{HA}->{COMPUTER} )'
  109. ## 0, Found: (/UNDER=&FRSSUP::SelectSet(SET) /SERVER=$__args{HA} /COMPUTER=$__args{HA}->{COMPUTER} ) Rest:
  110. ## 'UNDER=&FRSSUP::SelectSet(SET) /SERVER=$__args{HA} /COMPUTER=$__args{HA}->{COMPUTER}'
  111. $__HashRef = FRS_MEMBER->New(
  112. ## pre:'' match:'UNDER=&FRSSUP::SelectSet(SET) ' post:'SERVER=$__args{HA} /COMPUTER=$__args{HA}->{COMPUTER}' lastparen:'UNDER=&FRSSUP::SelectSet(SET) '
  113. ## pre:'UNDER=&FRSSUP::SelectSet(SET) /' match:'SERVER=$__args{HA} ' post:'COMPUTER=$__args{HA}->{COMPUTER}' lastparen:'SERVER=$__args{HA} '
  114. ## pre:'UNDER=&FRSSUP::SelectSet(SET) /SERVER=$__args{HA} /' match:'COMPUTER=$__args{HA}->{COMPUTER}' post:'' lastparen:'COMPUTER=$__args{HA}->{COMPUTER}'
  115. ## pre:'UNDER=&FRSSUP::SelectSet(SET) /SERVER=$__args{HA} /COMPUTER=$__args{HA}->{COMPUTER}' match:'' post:'' lastparen:''
  118. ## UNDER=&FRSSUP::SelectSet(SET):SERVER=$__args{HA}:COMPUTER=$__args{HA}->{COMPUTER}
  120. UNDER=>&FRSSUP::SelectSet(SET)->[0], SERVER=>$__args{HA}, COMPUTER=>$__args{HA}->{COMPUTER}
  121. );
  122. &FRSSUP::AddToSet("MHA", $__HashRef);
  124. ## ExpandArgStr: MB: FRS_MEMBER (/UNDER=<SET> /SERVER=$__args{B} /COMPUTER=$__args{B}->{COMPUTER} )
  125. ## ExpandSetRef: MB: FRS_MEMBER (/UNDER=&FRSSUP::SelectSet(SET) /SERVER=$__args{B} /COMPUTER=$__args{B}->{COMPUTER} )
  126. ## (1) paren match:'('
  127. ## (2) paren match:'/UNDER=&FRSSUP::SelectSet('
  128. ## (1) paren match:'SET)'
  129. ## (0) paren match:' /SERVER=$__args{B} /COMPUTER=$__args{B}->{COMPUTER} )'
  130. ## 0, Found: (/UNDER=&FRSSUP::SelectSet(SET) /SERVER=$__args{B} /COMPUTER=$__args{B}->{COMPUTER} ) Rest:
  131. ## 'UNDER=&FRSSUP::SelectSet(SET) /SERVER=$__args{B} /COMPUTER=$__args{B}->{COMPUTER}'
  132. $__HashRef = FRS_MEMBER->New(
  133. ## pre:'' match:'UNDER=&FRSSUP::SelectSet(SET) ' post:'SERVER=$__args{B} /COMPUTER=$__args{B}->{COMPUTER}' lastparen:'UNDER=&FRSSUP::SelectSet(SET) '
  134. ## pre:'UNDER=&FRSSUP::SelectSet(SET) /' match:'SERVER=$__args{B} ' post:'COMPUTER=$__args{B}->{COMPUTER}' lastparen:'SERVER=$__args{B} '
  135. ## pre:'UNDER=&FRSSUP::SelectSet(SET) /SERVER=$__args{B} /' match:'COMPUTER=$__args{B}->{COMPUTER}' post:'' lastparen:'COMPUTER=$__args{B}->{COMPUTER}'
  136. ## pre:'UNDER=&FRSSUP::SelectSet(SET) /SERVER=$__args{B} /COMPUTER=$__args{B}->{COMPUTER}' match:'' post:'' lastparen:''
  139. ## UNDER=&FRSSUP::SelectSet(SET):SERVER=$__args{B}:COMPUTER=$__args{B}->{COMPUTER}
  141. UNDER=>&FRSSUP::SelectSet(SET)->[0], SERVER=>$__args{B}, COMPUTER=>$__args{B}->{COMPUTER}
  142. );
  143. &FRSSUP::AddToSet("MB", $__HashRef);
  145. ## pre:'' match:' ' post:'' lastparen:' '
  146. ## pre:'' match:' ' post:' Create the connection objects between the members defined above.' lastparen:' '
  147. ## pre:'' match:' ' post:' Note use of angle brackets.' lastparen:' '
  148. ## pre:'' match:' ' post:' To use the timezone supplied on the branch's FRS_SERVER object' lastparen:' '
  149. ## pre:'' match:' ' post:' add the following parameter to each FRS_CONNECTION object below.' lastparen:' '
  150. ## pre:'' match:' ' post:' /TIME_ZONE=%B%->{time_zone}' lastparen:' '
  151. ## pre:'' match:' ' post:'' lastparen:' '
  152. ## ExpandArgStr: FRS_CONNECTION (/TO=<MB> /FROM=<MHA> /SCHED=$__args{SC1}
  153. ## ExpandSetRef: FRS_CONNECTION (/TO=&FRSSUP::SelectSet(MB) /FROM=&FRSSUP::SelectSet(MHA) /SCHED=$__args{SC1}
  154. ## (1) paren match:'('
  155. ## (2) paren match:'/TO=&FRSSUP::SelectSet('
  156. ## (1) paren match:'MB)'
  157. ## (2) paren match:' /FROM=&FRSSUP::SelectSet('
  158. ## (1) paren match:'MHA)'
  159. ## (2) paren match:' /SCHED=$__args{SC1}('
  160. ## (1) paren match:'*)'
  161. ## 1, Found: (/TO=&FRSSUP::SelectSet(MB) /FROM=&FRSSUP::SelectSet(MHA) /SCHED=$__args{SC1} Rest:
  162. ## ExpandArgStr: /ONAME="FROM-".$__args{HA}->{ONAME}."-TO-".$__args{B}->{ONAME} )
  163. ## (1) paren match:'('
  164. ## (2) paren match:'/TO=&FRSSUP::SelectSet('
  165. ## (1) paren match:'MB)'
  166. ## (2) paren match:' /FROM=&FRSSUP::SelectSet('
  167. ## (1) paren match:'MHA)'
  168. ## (0) paren match:' /SCHED=$__args{SC1} /ONAME="FROM-".$__args{HA}->{ONAME}."-TO-".$__args{B}->{ONAME} )'
  169. ## 0, Found: (/TO=&FRSSUP::SelectSet(MB) /FROM=&FRSSUP::SelectSet(MHA) /SCHED=$__args{SC1} /ONAME="FROM-".$__args{HA}->{ONAME}."-TO-".$__args{B}->{ONAME} ) Rest:
  170. ## 'TO=&FRSSUP::SelectSet(MB) /FROM=&FRSSUP::SelectSet(MHA) /SCHED=$__args{SC1} /ONAME="FROM-".$__args{HA}->{ONAME}."-TO-".$__args{B}->{ONAME}'
  171. FRS_CONNECTION->New(
  172. ## pre:'' match:'TO=&FRSSUP::SelectSet(MB) ' post:'FROM=&FRSSUP::SelectSet(MHA) /SCHED=$__args{SC1} /ONAME="FROM-".$__args{HA}->{ONAME}."-TO-".$__args{B}->{ONAME}' lastparen:'TO=&FRSSUP::SelectSet(MB) '
  173. ## pre:'TO=&FRSSUP::SelectSet(MB) /' match:'FROM=&FRSSUP::SelectSet(MHA) ' post:'SCHED=$__args{SC1} /ONAME="FROM-".$__args{HA}->{ONAME}."-TO-".$__args{B}->{ONAME}' lastparen:'FROM=&FRSSUP::SelectSet(MHA) '
  174. ## pre:'TO=&FRSSUP::SelectSet(MB) /FROM=&FRSSUP::SelectSet(MHA) /' match:'SCHED=$__args{SC1} ' post:'ONAME="FROM-".$__args{HA}->{ONAME}."-TO-".$__args{B}->{ONAME}' lastparen:'SCHED=$__args{SC1} '
  175. ## pre:'TO=&FRSSUP::SelectSet(MB) /FROM=&FRSSUP::SelectSet(MHA) /SCHED=$__args{SC1} /' match:'ONAME="FROM-".$__args{HA}->{ONAME}."-TO-".$__args{B}->{ONAME}' post:'' lastparen:'ONAME="FROM-".$__args{HA}->{ONAME}."-TO-".$__args{B}->{ONAME}'
  176. ## pre:'TO=&FRSSUP::SelectSet(MB) /FROM=&FRSSUP::SelectSet(MHA) /SCHED=$__args{SC1} /ONAME="FROM-".$__args{HA}->{ONAME}."-TO-".$__args{B}->{ONAME}' match:'' post:'' lastparen:''
  179. ## TO=&FRSSUP::SelectSet(MB):FROM=&FRSSUP::SelectSet(MHA):SCHED=$__args{SC1}:ONAME="FROM-".$__args{HA}->{ONAME}."-TO-".$__args{B}->{ONAME}
  181. TO=>&FRSSUP::SelectSet(MB)->[0], FROM=>&FRSSUP::SelectSet(MHA)->[0], SCHED=>$__args{SC1}, ONAME=>"FROM-".$__args{HA}->{ONAME}."-TO-".$__args{B}->{ONAME}
  182. );
  184. ## ExpandArgStr: FRS_CONNECTION (/TO=<MHA> /FROM=<MB> /SCHED=$__args{SC1}
  185. ## ExpandSetRef: FRS_CONNECTION (/TO=&FRSSUP::SelectSet(MHA) /FROM=&FRSSUP::SelectSet(MB) /SCHED=$__args{SC1}
  186. ## (1) paren match:'('
  187. ## (2) paren match:'/TO=&FRSSUP::SelectSet('
  188. ## (1) paren match:'MHA)'
  189. ## (2) paren match:' /FROM=&FRSSUP::SelectSet('
  190. ## (1) paren match:'MB)'
  191. ## (2) paren match:' /SCHED=$__args{SC1}('
  192. ## (1) paren match:'*)'
  193. ## 1, Found: (/TO=&FRSSUP::SelectSet(MHA) /FROM=&FRSSUP::SelectSet(MB) /SCHED=$__args{SC1} Rest:
  194. ## ExpandArgStr: /ONAME="FROM-".$__args{B}->{ONAME}."-TO-".$__args{HA}->{ONAME} )
  195. ## (1) paren match:'('
  196. ## (2) paren match:'/TO=&FRSSUP::SelectSet('
  197. ## (1) paren match:'MHA)'
  198. ## (2) paren match:' /FROM=&FRSSUP::SelectSet('
  199. ## (1) paren match:'MB)'
  200. ## (0) paren match:' /SCHED=$__args{SC1} /ONAME="FROM-".$__args{B}->{ONAME}."-TO-".$__args{HA}->{ONAME} )'
  201. ## 0, Found: (/TO=&FRSSUP::SelectSet(MHA) /FROM=&FRSSUP::SelectSet(MB) /SCHED=$__args{SC1} /ONAME="FROM-".$__args{B}->{ONAME}."-TO-".$__args{HA}->{ONAME} ) Rest:
  202. ## 'TO=&FRSSUP::SelectSet(MHA) /FROM=&FRSSUP::SelectSet(MB) /SCHED=$__args{SC1} /ONAME="FROM-".$__args{B}->{ONAME}."-TO-".$__args{HA}->{ONAME}'
  203. FRS_CONNECTION->New(
  204. ## pre:'' match:'TO=&FRSSUP::SelectSet(MHA) ' post:'FROM=&FRSSUP::SelectSet(MB) /SCHED=$__args{SC1} /ONAME="FROM-".$__args{B}->{ONAME}."-TO-".$__args{HA}->{ONAME}' lastparen:'TO=&FRSSUP::SelectSet(MHA) '
  205. ## pre:'TO=&FRSSUP::SelectSet(MHA) /' match:'FROM=&FRSSUP::SelectSet(MB) ' post:'SCHED=$__args{SC1} /ONAME="FROM-".$__args{B}->{ONAME}."-TO-".$__args{HA}->{ONAME}' lastparen:'FROM=&FRSSUP::SelectSet(MB) '
  206. ## pre:'TO=&FRSSUP::SelectSet(MHA) /FROM=&FRSSUP::SelectSet(MB) /' match:'SCHED=$__args{SC1} ' post:'ONAME="FROM-".$__args{B}->{ONAME}."-TO-".$__args{HA}->{ONAME}' lastparen:'SCHED=$__args{SC1} '
  207. ## pre:'TO=&FRSSUP::SelectSet(MHA) /FROM=&FRSSUP::SelectSet(MB) /SCHED=$__args{SC1} /' match:'ONAME="FROM-".$__args{B}->{ONAME}."-TO-".$__args{HA}->{ONAME}' post:'' lastparen:'ONAME="FROM-".$__args{B}->{ONAME}."-TO-".$__args{HA}->{ONAME}'
  208. ## pre:'TO=&FRSSUP::SelectSet(MHA) /FROM=&FRSSUP::SelectSet(MB) /SCHED=$__args{SC1} /ONAME="FROM-".$__args{B}->{ONAME}."-TO-".$__args{HA}->{ONAME}' match:'' post:'' lastparen:''
  211. ## TO=&FRSSUP::SelectSet(MHA):FROM=&FRSSUP::SelectSet(MB):SCHED=$__args{SC1}:ONAME="FROM-".$__args{B}->{ONAME}."-TO-".$__args{HA}->{ONAME}
  213. TO=>&FRSSUP::SelectSet(MHA)->[0], FROM=>&FRSSUP::SelectSet(MB)->[0], SCHED=>$__args{SC1}, ONAME=>"FROM-".$__args{B}->{ONAME}."-TO-".$__args{HA}->{ONAME}
  214. );
  216. &FRSSUP::DeleteSet("SET");
  217. &FRSSUP::DeleteSet("MHA");
  218. &FRSSUP::DeleteSet("MB");
  219. } # FRS_END_SUB
  222. for ($ib=0; $ib<scalar(@bchID); $ib++) {
  223. ## pre:'' match:' # The branch name ($bchName) is a concatenation (use of "."' post:') of the rootpath' lastparen:' # The branch name ($bchName) is a concatenation (use of "."'
  224. # The branch name ($bchName) is a concatenation (use of "."
  225. ## pre:'' match:' ' post:' branch id parameter and a constant suffix.' lastparen:' '
  226. ## pre:'' match:' # The hub root path uses the branch name (no "."' post:' since inside dbl-quotes)' lastparen:' # The hub root path uses the branch name (no "."'
  227. # The hub root path uses the branch name (no "."
  228. ## pre:'' match:' ' post:' so it is unique for each replica set serviced by this hub.' lastparen:' '
  229. ## pre:'' match:' ' post:' In FRS, no two replica sets on the same server can have overlapping root paths.' lastparen:' '
  230. $bchName = $bchID[$ib] . "-I01";
  231. ## pre:'' match:' $bchNt4Acct = "$domain\\$bchName\$"; ' post:'# need to define outside of params due to trailing $' lastparen:' $bchNt4Acct = "$domain\\$bchName\$"; '
  232. $bchNt4Acct = "$domain\\$bchName\$";
  233. $hubName = "STL-FSNA-I" . $hubID[$ib];
  234. ## pre:'' match:' $hubRootPath = "C:\\BRANCHES\\$bchName"; ' post:'# need double slashes outside params' lastparen:' $hubRootPath = "C:\\BRANCHES\\$bchName"; '
  235. $hubRootPath = "C:\\BRANCHES\\$bchName";
  236. ## pre:'' match:' $hubNt4Acct = "$domain\\$hubName\$"; ' post:'# need to define outside of params due to trailing $' lastparen:' $hubNt4Acct = "$domain\\$hubName\$"; '
  237. $hubNt4Acct = "$domain\\$hubName\$";
  238. ## (1) paren match:'('
  239. ## (2) paren match:'/RP=$hubRootPath('
  240. ## (1) paren match:'*)'
  241. ## 1, Found: (/RP=$hubRootPath Rest:
  242. ## pre:'' match:' /SP="C:\FRS-STAGING" ' post:'# can use single slashes inside params' lastparen:' /SP="C:\FRS-STAGING" '
  243. ## (1) paren match:'('
  244. ## (2) paren match:'/RP=$hubRootPath /SP="C:\FRS-STAGING"('
  245. ## (1) paren match:'*)'
  246. ## 1, Found: (/RP=$hubRootPath /SP="C:\FRS-STAGING" Rest:
  247. ## (1) paren match:'('
  248. ## (2) paren match:'/RP=$hubRootPath /SP="C:\FRS-STAGING" /COMPUTER=$hubNt4Acct('
  249. ## (1) paren match:'*)'
  250. ## 1, Found: (/RP=$hubRootPath /SP="C:\FRS-STAGING" /COMPUTER=$hubNt4Acct Rest:
  251. ## (1) paren match:'('
  252. ## (2) paren match:'/RP=$hubRootPath /SP="C:\FRS-STAGING" /COMPUTER=$hubNt4Acct /ONAME=$hubName('
  253. ## (1) paren match:'*)'
  254. ## 1, Found: (/RP=$hubRootPath /SP="C:\FRS-STAGING" /COMPUTER=$hubNt4Acct /ONAME=$hubName Rest:
  255. ## (1) paren match:'('
  256. ## (0) paren match:'/RP=$hubRootPath /SP="C:\FRS-STAGING" /COMPUTER=$hubNt4Acct /ONAME=$hubName /DNS_NAME="$hubName.$domain.erac.com" )'
  257. ## 0, Found: (/RP=$hubRootPath /SP="C:\FRS-STAGING" /COMPUTER=$hubNt4Acct /ONAME=$hubName /DNS_NAME="$hubName.$domain.erac.com" ) Rest:
  258. ## 'RP=$hubRootPath /SP="C:\FRS-STAGING" /COMPUTER=$hubNt4Acct /ONAME=$hubName /DNS_NAME="$hubName.$domain.erac.com"'
  259. $__HashRef = FRS_SERVER->New(
  260. ## pre:'' match:'RP=$hubRootPath ' post:'SP="C:\FRS-STAGING" /COMPUTER=$hubNt4Acct /ONAME=$hubName /DNS_NAME="$hubName.$domain.erac.com"' lastparen:'RP=$hubRootPath '
  261. ## pre:'RP=$hubRootPath /' match:'SP="C:\FRS-STAGING" ' post:'COMPUTER=$hubNt4Acct /ONAME=$hubName /DNS_NAME="$hubName.$domain.erac.com"' lastparen:'SP="C:\FRS-STAGING" '
  262. ## pre:'RP=$hubRootPath /SP="C:\FRS-STAGING" /' match:'COMPUTER=$hubNt4Acct ' post:'ONAME=$hubName /DNS_NAME="$hubName.$domain.erac.com"' lastparen:'COMPUTER=$hubNt4Acct '
  263. ## pre:'RP=$hubRootPath /SP="C:\FRS-STAGING" /COMPUTER=$hubNt4Acct /' match:'ONAME=$hubName ' post:'DNS_NAME="$hubName.$domain.erac.com"' lastparen:'ONAME=$hubName '
  264. ## pre:'RP=$hubRootPath /SP="C:\FRS-STAGING" /COMPUTER=$hubNt4Acct /ONAME=$hubName /' match:'DNS_NAME="$hubName.$domain.erac.com"' post:'' lastparen:'DNS_NAME="$hubName.$domain.erac.com"'
  265. ## pre:'RP=$hubRootPath /SP="C:\FRS-STAGING" /COMPUTER=$hubNt4Acct /ONAME=$hubName /DNS_NAME="$hubName.$domain.erac.com"' match:'' post:'' lastparen:''
  268. ## RP=$hubRootPath:SP="C:\FRS-STAGING":COMPUTER=$hubNt4Acct:ONAME=$hubName:DNS_NAME="$hubName.$domain.erac.com"
  270. RP=>$hubRootPath, SP=>"C:\\FRS-STAGING", COMPUTER=>$hubNt4Acct, ONAME=>$hubName, DNS_NAME=>"$hubName.$domain.erac.com"
  271. );
  272. &FRSSUP::AddToSet("HUB", $__HashRef);
  274. ## (1) paren match:'('
  275. ## (2) paren match:'/RP="D:\USERS"('
  276. ## (1) paren match:'*)'
  277. ## 1, Found: (/RP="D:\USERS" Rest:
  278. ## (1) paren match:'('
  279. ## (2) paren match:'/RP="D:\USERS" /SP="C:\FRS-STAGING"('
  280. ## (1) paren match:'*)'
  281. ## 1, Found: (/RP="D:\USERS" /SP="C:\FRS-STAGING" Rest:
  282. ## (1) paren match:'('
  283. ## (2) paren match:'/RP="D:\USERS" /SP="C:\FRS-STAGING" /COMPUTER=$bchNt4Acct('
  284. ## (1) paren match:'*)'
  285. ## 1, Found: (/RP="D:\USERS" /SP="C:\FRS-STAGING" /COMPUTER=$bchNt4Acct Rest:
  286. ## (1) paren match:'('
  287. ## (2) paren match:'/RP="D:\USERS" /SP="C:\FRS-STAGING" /COMPUTER=$bchNt4Acct /ONAME=$bchName('
  288. ## (1) paren match:'*)'
  289. ## 1, Found: (/RP="D:\USERS" /SP="C:\FRS-STAGING" /COMPUTER=$bchNt4Acct /ONAME=$bchName Rest:
  290. ## pre:'' match:' /time_zone=$bchTimeZone[$ib] ' post:'# carry the timezone thru the server data.' lastparen:' /time_zone=$bchTimeZone[$ib] '
  291. ## (1) paren match:'('
  292. ## (2) paren match:'/RP="D:\USERS" /SP="C:\FRS-STAGING" /COMPUTER=$bchNt4Acct /ONAME=$bchName /time_zone=$bchTimeZone[$ib]('
  293. ## (1) paren match:'*)'
  294. ## 1, Found: (/RP="D:\USERS" /SP="C:\FRS-STAGING" /COMPUTER=$bchNt4Acct /ONAME=$bchName /time_zone=$bchTimeZone[$ib] Rest:
  295. ## (1) paren match:'('
  296. ## (2) paren match:'/RP="D:\USERS" /SP="C:\FRS-STAGING" /COMPUTER=$bchNt4Acct /ONAME=$bchName /time_zone=$bchTimeZone[$ib] /DNS_NAME="$bchName.$domain.erac.com"('
  297. ## (1) paren match:'*)'
  298. ## 1, Found: (/RP="D:\USERS" /SP="C:\FRS-STAGING" /COMPUTER=$bchNt4Acct /ONAME=$bchName /time_zone=$bchTimeZone[$ib] /DNS_NAME="$bchName.$domain.erac.com" Rest:
  299. ## (1) paren match:'('
  300. ## (0) paren match:'/RP="D:\USERS" /SP="C:\FRS-STAGING" /COMPUTER=$bchNt4Acct /ONAME=$bchName /time_zone=$bchTimeZone[$ib] /DNS_NAME="$bchName.$domain.erac.com" /rep_set_name="WD-$bchName" )'
  301. ## 0, Found: (/RP="D:\USERS" /SP="C:\FRS-STAGING" /COMPUTER=$bchNt4Acct /ONAME=$bchName /time_zone=$bchTimeZone[$ib] /DNS_NAME="$bchName.$domain.erac.com" /rep_set_name="WD-$bchName" ) Rest:
  302. ## 'RP="D:\USERS" /SP="C:\FRS-STAGING" /COMPUTER=$bchNt4Acct /ONAME=$bchName /time_zone=$bchTimeZone[$ib] /DNS_NAME="$bchName.$domain.erac.com" /rep_set_name="WD-$bchName"'
  303. $__HashRef = FRS_SERVER->New(
  304. ## pre:'' match:'RP="D:\USERS" ' post:'SP="C:\FRS-STAGING" /COMPUTER=$bchNt4Acct /ONAME=$bchName /time_zone=$bchTimeZone[$ib] /DNS_NAME="$bchName.$domain.erac.com" /rep_set_name="WD-$bchName"' lastparen:'RP="D:\USERS" '
  305. ## pre:'RP="D:\USERS" /' match:'SP="C:\FRS-STAGING" ' post:'COMPUTER=$bchNt4Acct /ONAME=$bchName /time_zone=$bchTimeZone[$ib] /DNS_NAME="$bchName.$domain.erac.com" /rep_set_name="WD-$bchName"' lastparen:'SP="C:\FRS-STAGING" '
  306. ## pre:'RP="D:\USERS" /SP="C:\FRS-STAGING" /' match:'COMPUTER=$bchNt4Acct ' post:'ONAME=$bchName /time_zone=$bchTimeZone[$ib] /DNS_NAME="$bchName.$domain.erac.com" /rep_set_name="WD-$bchName"' lastparen:'COMPUTER=$bchNt4Acct '
  307. ## pre:'RP="D:\USERS" /SP="C:\FRS-STAGING" /COMPUTER=$bchNt4Acct /' match:'ONAME=$bchName ' post:'time_zone=$bchTimeZone[$ib] /DNS_NAME="$bchName.$domain.erac.com" /rep_set_name="WD-$bchName"' lastparen:'ONAME=$bchName '
  308. ## pre:'RP="D:\USERS" /SP="C:\FRS-STAGING" /COMPUTER=$bchNt4Acct /ONAME=$bchName /' match:'time_zone=$bchTimeZone[$ib] ' post:'DNS_NAME="$bchName.$domain.erac.com" /rep_set_name="WD-$bchName"' lastparen:'time_zone=$bchTimeZone[$ib] '
  309. ## pre:'RP="D:\USERS" /SP="C:\FRS-STAGING" /COMPUTER=$bchNt4Acct /ONAME=$bchName /time_zone=$bchTimeZone[$ib] /' match:'DNS_NAME="$bchName.$domain.erac.com" ' post:'rep_set_name="WD-$bchName"' lastparen:'DNS_NAME="$bchName.$domain.erac.com" '
  310. ## pre:'RP="D:\USERS" /SP="C:\FRS-STAGING" /COMPUTER=$bchNt4Acct /ONAME=$bchName /time_zone=$bchTimeZone[$ib] /DNS_NAME="$bchName.$domain.erac.com" /' match:'rep_set_name="WD-$bchName"' post:'' lastparen:'rep_set_name="WD-$bchName"'
  311. ## pre:'RP="D:\USERS" /SP="C:\FRS-STAGING" /COMPUTER=$bchNt4Acct /ONAME=$bchName /time_zone=$bchTimeZone[$ib] /DNS_NAME="$bchName.$domain.erac.com" /rep_set_name="WD-$bchName"' match:'' post:'' lastparen:''
  314. ## RP="D:\USERS":SP="C:\FRS-STAGING":COMPUTER=$bchNt4Acct:ONAME=$bchName:time_zone=$bchTimeZone[$ib]:DNS_NAME="$bchName.$domain.erac.com":rep_set_name="WD-$bchName"
  316. RP=>"D:\\USERS", SP=>"C:\\FRS-STAGING", COMPUTER=>$bchNt4Acct, ONAME=>$bchName, time_zone=>$bchTimeZone[$ib], DNS_NAME=>"$bchName.$domain.erac.com", rep_set_name=>"WD-$bchName"
  317. );
  318. &FRSSUP::AddToSet("BCH", $__HashRef);
  320. }
  321. ## pre:'' match:'PRIMARY_SCH: FRS_SCHEDULE (/REPL_INTERVAL=24 ' post:'# Once per day' lastparen:'PRIMARY_SCH: FRS_SCHEDULE (/REPL_INTERVAL=24 '
  322. ## (1) paren match:'('
  323. ## (2) paren match:'/REPL_INTERVAL=24 ('
  324. ## (1) paren match:'*)'
  325. ## 1, Found: (/REPL_INTERVAL=24 Rest:
  326. ## pre:'' match:' /REPL_DURATION="2:00" ' post:'# 2 hour window' lastparen:' /REPL_DURATION="2:00" '
  327. ## (1) paren match:'('
  328. ## (2) paren match:'/REPL_INTERVAL=24 /REPL_DURATION="2:00"('
  329. ## (1) paren match:'*)'
  330. ## 1, Found: (/REPL_INTERVAL=24 /REPL_DURATION="2:00" Rest:
  331. ## pre:'' match:' /TIME_ZONE="-6:00" ' post:'# Central time.' lastparen:' /TIME_ZONE="-6:00" '
  332. ## (1) paren match:'('
  333. ## (2) paren match:'/REPL_INTERVAL=24 /REPL_DURATION="2:00" /TIME_ZONE="-6:00"('
  334. ## (1) paren match:'*)'
  335. ## 1, Found: (/REPL_INTERVAL=24 /REPL_DURATION="2:00" /TIME_ZONE="-6:00" Rest:
  336. ## pre:'' match:' /REPL_OFFSET="18:00" ' post:'# starting offset' lastparen:' /REPL_OFFSET="18:00" '
  337. ## (1) paren match:'('
  338. ## (2) paren match:'/REPL_INTERVAL=24 /REPL_DURATION="2:00" /TIME_ZONE="-6:00" /REPL_OFFSET="18:00"('
  339. ## (1) paren match:'*)'
  340. ## 1, Found: (/REPL_INTERVAL=24 /REPL_DURATION="2:00" /TIME_ZONE="-6:00" /REPL_OFFSET="18:00" Rest:
  341. ## pre:'' match:' /STAGGER="0:15" ' post:'# successive members start at 15min deltas' lastparen:' /STAGGER="0:15" '
  342. ## (1) paren match:'('
  343. ## (2) paren match:'/REPL_INTERVAL=24 /REPL_DURATION="2:00" /TIME_ZONE="-6:00" /REPL_OFFSET="18:00" /STAGGER="0:15"('
  344. ## (1) paren match:'*)'
  345. ## 1, Found: (/REPL_INTERVAL=24 /REPL_DURATION="2:00" /TIME_ZONE="-6:00" /REPL_OFFSET="18:00" /STAGGER="0:15" Rest:
  346. ## pre:'' match:' /METHOD=1 ' post:'# repeating schedule' lastparen:' /METHOD=1 '
  347. ## (1) paren match:'('
  348. ## (2) paren match:'/REPL_INTERVAL=24 /REPL_DURATION="2:00" /TIME_ZONE="-6:00" /REPL_OFFSET="18:00" /STAGGER="0:15" /METHOD=1('
  349. ## (1) paren match:'*)'
  350. ## 1, Found: (/REPL_INTERVAL=24 /REPL_DURATION="2:00" /TIME_ZONE="-6:00" /REPL_OFFSET="18:00" /STAGGER="0:15" /METHOD=1 Rest:
  351. ## (1) paren match:'('
  352. ## (2) paren match:'/REPL_INTERVAL=24 /REPL_DURATION="2:00" /TIME_ZONE="-6:00" /REPL_OFFSET="18:00" /STAGGER="0:15" /METHOD=1 /NAME='Primary Sched'('
  353. ## (1) paren match:'*)'
  354. ## 1, Found: (/REPL_INTERVAL=24 /REPL_DURATION="2:00" /TIME_ZONE="-6:00" /REPL_OFFSET="18:00" /STAGGER="0:15" /METHOD=1 /NAME='Primary Sched' Rest:
  355. ## (1) paren match:'('
  356. ## (2) paren match:'/REPL_INTERVAL=24 /REPL_DURATION="2:00" /TIME_ZONE="-6:00" /REPL_OFFSET="18:00" /STAGGER="0:15" /METHOD=1 /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"('
  357. ## (1) paren match:'*)'
  358. ## 1, Found: (/REPL_INTERVAL=24 /REPL_DURATION="2:00" /TIME_ZONE="-6:00" /REPL_OFFSET="18:00" /STAGGER="0:15" /METHOD=1 /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" Rest:
  359. ## (1) paren match:'('
  360. ## (0) paren match:'/REPL_INTERVAL=24 /REPL_DURATION="2:00" /TIME_ZONE="-6:00" /REPL_OFFSET="18:00" /STAGGER="0:15" /METHOD=1 /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" )'
  361. ## 0, Found: (/REPL_INTERVAL=24 /REPL_DURATION="2:00" /TIME_ZONE="-6:00" /REPL_OFFSET="18:00" /STAGGER="0:15" /METHOD=1 /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" ) Rest:
  362. ## 'REPL_INTERVAL=24 /REPL_DURATION="2:00" /TIME_ZONE="-6:00" /REPL_OFFSET="18:00" /STAGGER="0:15" /METHOD=1 /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"'
  363. $__HashRef = FRS_SCHEDULE->New(
  364. ## pre:'' match:'REPL_INTERVAL=24 ' post:'REPL_DURATION="2:00" /TIME_ZONE="-6:00" /REPL_OFFSET="18:00" /STAGGER="0:15" /METHOD=1 /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"' lastparen:'REPL_INTERVAL=24 '
  365. ## pre:'REPL_INTERVAL=24 /' match:'REPL_DURATION="2:00" ' post:'TIME_ZONE="-6:00" /REPL_OFFSET="18:00" /STAGGER="0:15" /METHOD=1 /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"' lastparen:'REPL_DURATION="2:00" '
  366. ## pre:'REPL_INTERVAL=24 /REPL_DURATION="2:00" /' match:'TIME_ZONE="-6:00" ' post:'REPL_OFFSET="18:00" /STAGGER="0:15" /METHOD=1 /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"' lastparen:'TIME_ZONE="-6:00" '
  367. ## pre:'REPL_INTERVAL=24 /REPL_DURATION="2:00" /TIME_ZONE="-6:00" /' match:'REPL_OFFSET="18:00" ' post:'STAGGER="0:15" /METHOD=1 /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"' lastparen:'REPL_OFFSET="18:00" '
  368. ## pre:'REPL_INTERVAL=24 /REPL_DURATION="2:00" /TIME_ZONE="-6:00" /REPL_OFFSET="18:00" /' match:'STAGGER="0:15" ' post:'METHOD=1 /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"' lastparen:'STAGGER="0:15" '
  369. ## pre:'REPL_INTERVAL=24 /REPL_DURATION="2:00" /TIME_ZONE="-6:00" /REPL_OFFSET="18:00" /STAGGER="0:15" /' match:'METHOD=1 ' post:'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"' lastparen:'METHOD=1 '
  370. ## pre:'REPL_INTERVAL=24 /REPL_DURATION="2:00" /TIME_ZONE="-6:00" /REPL_OFFSET="18:00" /STAGGER="0:15" /METHOD=1 /' match:'NAME='Primary Sched' ' post:'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"' lastparen:'NAME='Primary Sched' '
  371. ## pre:'REPL_INTERVAL=24 /REPL_DURATION="2:00" /TIME_ZONE="-6:00" /REPL_OFFSET="18:00" /STAGGER="0:15" /METHOD=1 /NAME='Primary Sched' /' match:'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"' post:'' lastparen:'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"'
  372. ## pre:'REPL_INTERVAL=24 /REPL_DURATION="2:00" /TIME_ZONE="-6:00" /REPL_OFFSET="18:00" /STAGGER="0:15" /METHOD=1 /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"' match:'' post:'' lastparen:''
  375. ## REPL_INTERVAL=24:REPL_DURATION="2:00":TIME_ZONE="-6:00":REPL_OFFSET="18:00":STAGGER="0:15":METHOD=1: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"
  377. REPL_INTERVAL=>24, REPL_DURATION=>"2:00", TIME_ZONE=>"-6:00", REPL_OFFSET=>"18:00", STAGGER=>"0:15", METHOD=>1, 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"
  378. );
  379. &FRSSUP::AddToSet("PRIMARY_SCH", $__HashRef);
  381. ## (1) paren match:'('
  382. ## (0) paren match:'/OVERRIDE="su:00-sa:23:45" /METHOD=2)'
  383. ## 0, Found: (/OVERRIDE="su:00-sa:23:45" /METHOD=2) Rest:
  384. ## 'OVERRIDE="su:00-sa:23:45" /METHOD=2'
  385. $__HashRef = FRS_SCHEDULE->New(
  386. ## pre:'' match:'OVERRIDE="su:00-sa:23:45" ' post:'METHOD=2' lastparen:'OVERRIDE="su:00-sa:23:45" '
  387. ## pre:'OVERRIDE="su:00-sa:23:45" /' match:'METHOD=2' post:'' lastparen:'METHOD=2'
  388. ## pre:'OVERRIDE="su:00-sa:23:45" /METHOD=2' match:'' post:'' lastparen:''
  391. ## OVERRIDE="su:00-sa:23:45":METHOD=2
  393. OVERRIDE=>"su:00-sa:23:45", METHOD=>2
  394. );
  395. &FRSSUP::AddToSet("ON_SCHED", $__HashRef);
  397. ## (1) paren match:'('
  398. ## (2) paren match:'('
  399. ## (1) paren match:'*)'
  400. ## 1, Found: ( Rest:
  401. ## (1) paren match:'('
  402. ## (2) paren match:' /DN="cn=dfs volumes,cn=file replication service,cn=system,dc=na,dc=erac,dc=com"('
  403. ## (1) paren match:'*)'
  404. ## 1, Found: ( /DN="cn=dfs volumes,cn=file replication service,cn=system,dc=na,dc=erac,dc=com" Rest:
  405. ## (1) paren match:'('
  406. ## (0) paren match:' /DN="cn=dfs volumes,cn=file replication service,cn=system,dc=na,dc=erac,dc=com" /ONAME="cn=dfs root")'
  407. ## 0, Found: ( /DN="cn=dfs volumes,cn=file replication service,cn=system,dc=na,dc=erac,dc=com" /ONAME="cn=dfs root") Rest:
  408. ## 'DN="cn=dfs volumes,cn=file replication service,cn=system,dc=na,dc=erac,dc=com" /ONAME="cn=dfs root"'
  409. $__HashRef = FRS_SETTINGS->New(
  410. ## pre:'' match:'DN="cn=dfs volumes,cn=file replication service,cn=system,dc=na,dc=erac,dc=com" ' post:'ONAME="cn=dfs root"' lastparen:'DN="cn=dfs volumes,cn=file replication service,cn=system,dc=na,dc=erac,dc=com" '
  411. ## pre:'DN="cn=dfs volumes,cn=file replication service,cn=system,dc=na,dc=erac,dc=com" /' match:'ONAME="cn=dfs root"' post:'' lastparen:'ONAME="cn=dfs root"'
  412. ## pre:'DN="cn=dfs volumes,cn=file replication service,cn=system,dc=na,dc=erac,dc=com" /ONAME="cn=dfs root"' match:'' post:'' lastparen:''
  415. ## DN="cn=dfs volumes,cn=file replication service,cn=system,dc=na,dc=erac,dc=com":ONAME="cn=dfs root"
  417. DN=>"cn=dfs volumes,cn=file replication service,cn=system,dc=na,dc=erac,dc=com", ONAME=>"cn=dfs root"
  418. );
  419. &FRSSUP::AddToSet("SETTINGS", $__HashRef);
  421. for ($ib=0; $ib<scalar(@bchID); $ib++) {
  422. ## pre:'' match:' ' post:'' lastparen:' '
  423. ## pre:'' match:' ' post:' Call the subroutine defined above to create a replica set for this branch.' lastparen:' '
  424. ## pre:'' match:' ' post:' The notation <HUB>[$ib] is like an array reference in that it selects' lastparen:' '
  425. ## pre:'' match:' # a single item from the "HUB"' post:' server set defined above. The index value' lastparen:' # a single item from the "HUB"'
  426. # a single item from the "HUB"
  427. ## pre:'' match:' ' post:' can be an expression. Also note that set tags declared outside a' lastparen:' '
  428. ## pre:'' match:' ' post:' subroutine are global.' lastparen:' '
  429. ## pre:'' match:' ' post:'' lastparen:' '
  430. ## ExpandSetRefIndex: CREATE_WORK_RS ( /HA=<HUB>->[$ib]
  431. ## ExpandSetRef: CREATE_WORK_RS ( /HA=&FRSSUP::SelectSet(HUB)->[$ib]
  432. ## (1) paren match:'('
  433. ## (2) paren match:' /HA=&FRSSUP::SelectSet('
  434. ## (1) paren match:'HUB)'
  435. ## (2) paren match:'->[$ib]('
  436. ## (1) paren match:'*)'
  437. ## 1, Found: ( /HA=&FRSSUP::SelectSet(HUB)->[$ib] Rest:
  438. ## ExpandSetRefIndex: /B=<BCH>->[$ib]
  439. ## ExpandSetRef: /B=&FRSSUP::SelectSet(BCH)->[$ib]
  440. ## (1) paren match:'('
  441. ## (2) paren match:' /HA=&FRSSUP::SelectSet('
  442. ## (1) paren match:'HUB)'
  443. ## (2) paren match:'->[$ib] /B=&FRSSUP::SelectSet('
  444. ## (1) paren match:'BCH)'
  445. ## (2) paren match:'->[$ib]('
  446. ## (1) paren match:'*)'
  447. ## 1, Found: ( /HA=&FRSSUP::SelectSet(HUB)->[$ib] /B=&FRSSUP::SelectSet(BCH)->[$ib] Rest:
  448. ## pre:'' match:' /SC1=ON ' post:'# <ON_SCHED>' lastparen:' /SC1=ON '
  449. ## (1) paren match:'('
  450. ## (2) paren match:' /HA=&FRSSUP::SelectSet('
  451. ## (1) paren match:'HUB)'
  452. ## (2) paren match:'->[$ib] /B=&FRSSUP::SelectSet('
  453. ## (1) paren match:'BCH)'
  454. ## (2) paren match:'->[$ib] /SC1=ON('
  455. ## (1) paren match:'*)'
  456. ## 1, Found: ( /HA=&FRSSUP::SelectSet(HUB)->[$ib] /B=&FRSSUP::SelectSet(BCH)->[$ib] /SC1=ON Rest:
  457. ## ExpandSetRef: /SETTINGSDN=&FRSSUP::SelectSet(SETTINGS))
  458. ## (1) paren match:'('
  459. ## (2) paren match:' /HA=&FRSSUP::SelectSet('
  460. ## (1) paren match:'HUB)'
  461. ## (2) paren match:'->[$ib] /B=&FRSSUP::SelectSet('
  462. ## (1) paren match:'BCH)'
  463. ## (2) paren match:'->[$ib] /SC1=ON /SETTINGSDN=&FRSSUP::SelectSet('
  464. ## (1) paren match:'SETTINGS)'
  465. ## (0) paren match:')'
  466. ## 0, Found: ( /HA=&FRSSUP::SelectSet(HUB)->[$ib] /B=&FRSSUP::SelectSet(BCH)->[$ib] /SC1=ON /SETTINGSDN=&FRSSUP::SelectSet(SETTINGS)) Rest:
  467. ## 'HA=&FRSSUP::SelectSet(HUB)->[$ib] /B=&FRSSUP::SelectSet(BCH)->[$ib] /SC1=ON /SETTINGSDN=&FRSSUP::SelectSet(SETTINGS)'
  468. &CREATE_WORK_RS (
  469. ## pre:'' match:'HA=&FRSSUP::SelectSet(HUB)->[$ib] ' post:'B=&FRSSUP::SelectSet(BCH)->[$ib] /SC1=ON /SETTINGSDN=&FRSSUP::SelectSet(SETTINGS)' lastparen:'HA=&FRSSUP::SelectSet(HUB)->[$ib] '
  470. ## pre:'HA=&FRSSUP::SelectSet(HUB)->[$ib] /' match:'B=&FRSSUP::SelectSet(BCH)->[$ib] ' post:'SC1=ON /SETTINGSDN=&FRSSUP::SelectSet(SETTINGS)' lastparen:'B=&FRSSUP::SelectSet(BCH)->[$ib] '
  471. ## pre:'HA=&FRSSUP::SelectSet(HUB)->[$ib] /B=&FRSSUP::SelectSet(BCH)->[$ib] /' match:'SC1=ON ' post:'SETTINGSDN=&FRSSUP::SelectSet(SETTINGS)' lastparen:'SC1=ON '
  472. ## pre:'HA=&FRSSUP::SelectSet(HUB)->[$ib] /B=&FRSSUP::SelectSet(BCH)->[$ib] /SC1=ON /' match:'SETTINGSDN=&FRSSUP::SelectSet(SETTINGS)' post:'' lastparen:'SETTINGSDN=&FRSSUP::SelectSet(SETTINGS)'
  473. ## pre:'HA=&FRSSUP::SelectSet(HUB)->[$ib] /B=&FRSSUP::SelectSet(BCH)->[$ib] /SC1=ON /SETTINGSDN=&FRSSUP::SelectSet(SETTINGS)' match:'' post:'' lastparen:''
  476. ## HA=&FRSSUP::SelectSet(HUB)->[$ib]:B=&FRSSUP::SelectSet(BCH)->[$ib]:SC1=ON:SETTINGSDN=&FRSSUP::SelectSet(SETTINGS)
  478. HA=>&FRSSUP::SelectSet(HUB)->[$ib], B=>&FRSSUP::SelectSet(BCH)->[$ib], SC1=>ON, SETTINGSDN=>&FRSSUP::SelectSet(SETTINGS)->[0] );
  480. ## pre:'' match:' ' post:'' lastparen:' '
  481. ## pre:'' match:' ' post:' offset the schedule by the next stagger amount for the next branch.' lastparen:' '
  482. ## pre:'' match:' ' post:'' lastparen:' '
  483. ## ExpandSetRef: FRS_STAGGER (/SCHED=&FRSSUP::SelectSet(PRIMARY_SCH))
  484. ## (1) paren match:'('
  485. ## (2) paren match:'/SCHED=&FRSSUP::SelectSet('
  486. ## (1) paren match:'PRIMARY_SCH)'
  487. ## (0) paren match:')'
  488. ## 0, Found: (/SCHED=&FRSSUP::SelectSet(PRIMARY_SCH)) Rest:
  489. ## 'SCHED=&FRSSUP::SelectSet(PRIMARY_SCH)'
  490. FRS_SCHEDULE::FRS_STAGGER(
  491. ## pre:'' match:'SCHED=&FRSSUP::SelectSet(PRIMARY_SCH)' post:'' lastparen:'SCHED=&FRSSUP::SelectSet(PRIMARY_SCH)'
  492. ## pre:'SCHED=&FRSSUP::SelectSet(PRIMARY_SCH)' match:'' post:'' lastparen:''
  495. ## SCHED=&FRSSUP::SelectSet(PRIMARY_SCH)
  497. SCHED=>&FRSSUP::SelectSet(PRIMARY_SCH)->[0] );
  500. }
  501. __END__