home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April A / Pcwk4a98.iso / Lotus / Domino46 / LOTUS026.DSK / SAMPLE / SIREGW46.NSF (.txt) < prev    next >
Lotus Notes Database  |  1997-09-10  |  344KB  |  2,863 lines

  1. Domino 4.6 Samples: Registration
  2. StateP
  3. domino
  4. }*2p{
  5. PURSAF
  6. Internotes
  7. PURSAF
  8. H1'ez
  9. )&&_}
  10. P-RcfH
  11. $TITLE
  12. $AssistType
  13. $AssistLastRun
  14. $AssistDocCount
  15. $AssistFlags
  16. $MachineName
  17. $AssistInfo
  18. $AssistQuery
  19. $AssistAction
  20. $AssistAction_Ex
  21. $UpdatedBy
  22. $Flags
  23. CN=Lotus Notes Template Development/O=Lotus Notes
  24. \QZ'F
  25. CN=Richard Schwartz/OU=CAM/O=LotusCN=Sample Development/O=Lotus Domino Web Server TeamCN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes9
  26. ##########
  27. $Modified
  28.     1S2S3S
  29. $TITLE$FormPrivs$FormUsers$Body$Flags$Class$Modified$Comment$AssistTrigger$AssistType$AssistFlags$UpdatedBy$$FormScript_O
  30. $Flags
  31.     0SL1S4S5S3724
  32. $TITLE
  33. CN=server/O=RHSTEST/C=US#######################
  34. [UserManager][Web Users]Users\by Name|Registered UsersL
  35. FullName$Conflict
  36. Person
  37.     L1S2S3S1
  38. FullName
  39. FullNameName&
  40. CN=Richard Schwartz/OU=CAM/O=LotusCN=Sample Development/O=Lotus Domino Web Server TeamCN=Lotus Notes Template Development/O=Lotus Notes############################
  41. ITEAM2c:\notes\data\dominoregis2.ntfpcDomino 4.6 Samples: Registration
  42. CN=Richard Schwartz/O=Iris
  43. qSYw{Y
  44. ###################################################
  45. MPerson
  46. [UserManager]H
  47. AuthorsReadersHTTPPasswordFullNameEmailOfficePhoneNumberCompanyLastNameMiddleInitialFirstName
  48. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes##################################
  49. Change PasswordChPw
  50. [UserManager]
  51. [UserManager][Web Users]
  52. AgentRunDataCGI VariablesH
  53. SERVER_URLHTTP_REFERERHTTP_USER_AGENTREMOTE_USERREMOTE_ADDRREMOTE_HOSTReaders$$ReturnAgentStatusWhenHandledStateNewPasswordOldPasswordFullName
  54. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###############################################
  55. NewPassword
  56. NewPassword
  57. b.br.bl.c.cr.cl.d.dr.f.fr.fl.g.gr.gl.h.j.k.kl.kr.l.m.n.p.pl.pr.qu.r.s.st.sl.t.tr.v.w.y.z
  58.     1S2S6S
  59.     0R1S2S
  60. a.e.i.o.u.y
  61.     0R1S2S6S
  62.     0R1S2S
  63. =.=.=.=.=.b.d.f.g.k.l.m.n.p.r.s.t.v.x.z
  64.     0R1S2S6S
  65.     0R1S2S
  66. nini$
  67. nmid$
  68. nfin$
  69. nini$
  70. nmid$
  71. nfin$
  72.     0R2RS5E8S11S12S18S21S22RS5E28S31S32S38S41S42RS5E48S51S52S58S61S62RS5E68S71S72S78S81S82RS5E88S91S92S98S101S102RS5E108S111S112S118S121S122RS5E127S128S132R134S
  73. nchars
  74.     1S2S
  75. NPProblem
  76. NewPassword
  77. nchars
  78. Your password must be at least 
  79. ncharsV
  80.  characters long. Please go back to the form and correct your password.
  81.     0R1S2S3S5RS49E12S13S15RS49E16S17S21S22S24RS49E
  82. NPProblem
  83. NewPassword
  84. NewPassword
  85.     0RR3S4S6S14S
  86. NPProblem
  87. NPProblem
  88.     3S4S6S8S
  89. NewPassword
  90. CN=Richard Schwartz/OU=CAM/O=LotusCN=Sample Development/O=Lotus Domino Web Server TeamCN=Lotus Notes Template Development/O=Lotus Notes
  91. ##########################################################
  92. AgentRunDataCUA3
  93. AgentStatusWhenHandledState
  94. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes########
  95. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################################
  96. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###################################################
  97. CN=John Walsh/OU=CAM/O=LotusITEAM2CN=Eileen Driscoll/OU=CAM/O=LotusITEAM2CN=John Walsh/OU=CAM/O=LotusITEAM2CN=Ned Batchelder/OU=CAM/O=LotusCN=John Walsh/OU=CAM/O=LotusITEAM2CN=John Walsh/OU=CAM/O=Lotus2
  98. 30719
  99. ###############################
  100. ITEAM2
  101. CN=John Walsh/OU=CAM/O=LotusITEAM2CN=Eileen Driscoll/OU=CAM/O=LotusITEAM2CN=John Walsh/OU=CAM/O=LotusITEAM2CN=Ned Batchelder/OU=CAM/O=LotusCN=John Walsh/OU=CAM/O=LotusITEAM2CN=John Walsh/OU=CAM/O=Lotus2
  102. ###########################
  103. Set Command to Pending
  104. EPdomino4
  105. dominofV3
  106. ##########################
  107. Set Groups to Alpha Users
  108. EPdomino4
  109. dominofV3
  110. #######################
  111. CN=John Walsh/OU=CAM/O=Lotus
  112. CN=John Walsh/OU=CAM/O=LotusITEAM2CN=Eileen Driscoll/OU=CAM/O=LotusITEAM2CN=John Walsh/OU=CAM/O=LotusITEAM2CN=Ned Batchelder/OU=CAM/O=LotusCN=John Walsh/OU=CAM/O=LotusITEAM2CN=John Walsh/OU=CAM/O=Lotus2
  113. 30719
  114. Pretend Mail Was Sent
  115. EPCN=domino/OU=Public/O=InterNotes/C=US4
  116. CN=domino/OU=Public/O=InterNotes/C=USfV3
  117. #############################
  118.     GroupsToJoin
  119. GroupsToJoin
  120. Enter a list of PAB Groups that the registered users are to be entered into.
  121. Note:  the code takes care of splitting groups to avoid size restrictions.
  122.     0R1S
  123. <Put the name of your group here>
  124. GroupsToJoin
  125. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes###########
  126. Archive Old Successful Requests
  127. ITEAM21Sf3
  128. CN=Richard Schwartz/OU=CAM/O=LotusCN=Sample Development/O=Lotus Domino Web Server TeamCN=Lotus Notes Template Development/O=Lotus Notes
  129. ############
  130. Archive Old Unsuccessful Requests
  131. ITEAM21Sf3
  132. ITEAM2CN=Sample Development/O=Lotus Domino Web Server TeamCN=Lotus Notes Template Development/O=Lotus Notes
  133. ######################################
  134. New AccountNewAcc
  135. [UserManager]
  136. AgentRunDataCGI VariablesC
  137. AgentStatusWhenHandledStateSERVER_URLHTTP_REFERERHTTP_USER_AGENTREMOTE_USERREMOTE_ADDRREMOTE_HOST$$ReturnGroupsToJoinFullNameNewPasswordEmailOfficePhoneNumberCompanyLastNameMiddleInitialFirstName
  138. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes################################################
  139. CGI VariablesCUA3
  140. SERVER_URLHTTP_REFERERHTTP_USER_AGENTREMOTE_USERREMOTE_ADDRREMOTE_HOST
  141. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  142. ##########################################################
  143. CN=Ned Batchelder/OU=CAM/O=LotusCN=Richard Schwartz/OU=CAM/O=LotusCN=Sample Development/O=Lotus Domino Web Server TeamCN=Lotus Notes Template Development/O=Lotus NotesCN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesModifiable Constantss34Q1###########################
  144. CN=Ned Batchelder/OU=CAM/O=LotusCN=Richard Schwartz/OU=CAM/O=LotusCN=Sample Development/O=Lotus Domino Web Server TeamCN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesCN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus NotesRequest Utilitiess34Q1###################################################
  145. &(Handle Change Password Request)
  146. This agent is invoked by the Change Password form.H4fL3
  147. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes############################
  148. )(Handle New Account Request)
  149. This agent is invoked by the New Account form to process the new account request.EH4fL3
  150. CN=Richard Schwartz/O=IrisCN=Lotus Notes Template Development/O=Lotus Notes
  151. [UserManager]Requests\By Day/P=24
  152.     0S0E
  153. $5$3FullNameEmail$Conflict
  154. NewAcc
  155.     L1S2S3S1
  156.     0S0E
  157. FullNameNameEmailEmail&
  158. CN=Richard Schwartz/OU=CAM/O=LotusCN=Sample Development/O=Lotus Domino Web Server TeamCN=Lotus Notes Template Development/O=Lotus NotesCN=Richard Schwartz/O=Iris#################################
  159. \QZ'F
  160. [UserManager]Requests\By Name/P=24X
  161. FullNameFormEmail$Conflict
  162. Person
  163.     L1S2S3S1
  164. FullName
  165. FullNameNameFormRequestEmailEmail&
  166. CN=Richard Schwartz/OU=CAM/O=LotusCN=Sample Development/O=Lotus Domino Web Server TeamCN=Lotus Notes Template Development/O=Lotus NotesCN=Richard Schwartz/O=Iris#########################
  167. [UserManager]Requests\By Problem/P=168
  168. $5AgentStatusFullNameFormEmail$Conflict
  169. Person
  170. AgentStatus
  171. Successful
  172.     L1S2S3S4S5S6S7S1'
  173. AgentStatusFullName
  174. 10000
  175. AgentStatusStatusFullNameNameFormRequestEmailEmail&
  176. CN=Richard Schwartz/OU=CAM/O=LotusCN=Sample Development/O=Lotus Domino Web Server TeamCN=Lotus Notes Template Development/O=Lotus NotesCN=Richard Schwartz/O=Iris#####################
  177. [UserManager]Requests\Emails To Be Sent/P=24
  178. $5AgentStatusFullNameFormEmail$Conflict
  179. Person
  180. AgentStatus
  181. Successful
  182. SendMailTo
  183. MailSent
  184.     L1S2S3S4S5S6S7S8S9S10S11S12S13S14S15S1'
  185. AgentStatusFullName
  186. 10000
  187. AgentStatusStatusFullNameNameFormRequestEmailEmail&
  188. CN=Richard Schwartz/OU=CAM/O=LotusCN=Sample Development/O=Lotus Domino Web Server TeamCN=Lotus Notes Template Development/O=Lotus NotesCN=Richard Schwartz/O=Iris#############
  189. [UserManager]Users\by Domain/P=24
  190. Email
  191. $1$2FullName$Conflict
  192. Person
  193.     L1S2S3S1
  194. Email
  195. FullNameName&
  196. CN=Richard Schwartz/OU=CAM/O=LotusCN=Sample Development/O=Lotus Domino Web Server TeamCN=Lotus Notes Template Development/O=Lotus NotesCN=Richard Schwartz/O=Iris##########################################
  197. [UserManager]Users\by Email/P=24j
  198. $1EmailFullName$Conflict
  199. Person
  200.     L1S2S3S1
  201. Email
  202. EmailFullNameName&
  203. CN=Richard Schwartz/OU=CAM/O=LotusCN=Sample Development/O=Lotus Domino Web Server TeamCN=Lotus Notes Template Development/O=Lotus NotesCN=Richard Schwartz/O=Iris#################################################
  204. ##########################################################
  205. ##########################################################
  206. ##########################################################
  207. ##########################################################
  208. ##########################################################
  209. ##########################################################
  210. ##########################################################
  211. ##########################################################
  212. ##########################################################
  213. ##########################################################
  214. ##########################################################
  215. ##########################################################
  216. ##########################################################
  217. ##########################################################
  218. ##########################################################
  219. ##########################################################
  220. ##########################################################
  221. ##########################################################
  222. ##########################################################
  223. ##########################################################
  224. ##########################################################
  225. ##########################################################
  226. ##########################################################
  227. ##########################################################
  228. ##########################################################
  229. ##########################################################
  230. ##########################################################
  231. ##########################################################
  232. ##########################################################
  233. ##########################################################
  234. ##########################################################
  235. ##########################################################
  236. ##########################################################
  237. ##########################################################
  238. ##########################################################
  239. ##########################################################
  240. ##########################################################
  241. ##########################################################
  242. ##########################################################
  243. ##########################################################
  244. ##########################################################
  245. ##########################################################
  246. ##########################################################
  247. ##########################################################
  248. ##########################################################
  249. ##########################################################
  250. ##########################################################
  251. ##########################################################
  252. ##########################################################
  253. ##########################################################
  254. ##########################################################
  255. ##########################################################
  256. ##########################################################
  257. ##########################################################
  258. ##########################################################
  259. ##########################################################
  260. ##########################################################
  261. ##########################################################
  262. ##########################################################
  263. ##########################################################
  264. ##########################################################
  265. ##########################################################
  266. ##########################################################
  267. ##########################################################
  268. ##########################################################
  269. ##########################################################
  270. ##########################################################
  271. ##########################################################
  272. ##########################################################
  273. ##########################################################
  274. ##########################################################
  275. ##########################################################
  276. ##########################################################
  277. ##########################################################
  278. ##########################################################
  279. ##########################################################
  280. ##########################################################
  281. ##########################################################
  282. ##########################################################
  283. ##########################################################
  284. ##########################################################
  285. ##########################################################
  286. ##########################################################
  287. ##########################################################
  288. ##########################################################
  289. ##########################################################
  290. ##########################################################
  291. ##########################################################
  292. ##########################################################
  293. ##########################################################
  294. ##########################################################
  295. ##########################################################
  296. ##########################################################
  297. ##########################################################
  298. ##########################################################
  299. ##########################################################
  300. ##########################################################
  301. ##########################################################
  302. ##########################################################
  303. ##########################################################
  304. ##########################################################
  305. ##########################################################
  306. ##########################################################
  307. ##########################################################
  308. ##########################################################
  309. ##########################################################
  310. ##########################################################
  311. ##########################################################
  312. ##########################################################
  313. ##########################################################
  314. ##########################################################
  315. ##########################################################
  316. ##########################################################
  317. ##########################################################
  318. ##########################################################
  319. ##########################################################
  320. ##########################################################
  321. ##########################################################
  322. ##########################################################
  323. ##########################################################
  324. ##########################################################
  325. ##########################################################
  326. ##########################################################
  327. ##########################################################
  328. ##########################################################
  329. ##########################################################
  330. ##########################################################
  331. ##########################################################
  332. ##########################################################
  333. ##########################################################
  334. ##########################################################
  335. ##########################################################
  336. ##########################################################
  337. ##########################################################
  338. ##########################################################
  339. ##########################################################
  340. ##########################################################
  341. ##########################################################
  342. ##########################################################
  343. ##########################################################
  344. ##########################################################
  345. ##########################################################
  346. ##########################################################
  347. ##########################################################
  348. ##########################################################
  349. ##########################################################
  350. ##########################################################
  351. ##########################################################
  352. ##########################################################
  353. ##########################################################
  354. ##########################################################
  355. ##########################################################
  356. ##########################################################
  357. ##########################################################
  358. ##########################################################
  359. ##########################################################
  360. ##########################################################
  361. ##########################################################
  362. ##########################################################
  363. ##########################################################
  364. ##########################################################
  365. ##########################################################
  366. ##########################################################
  367. ##########################################################
  368. ##########################################################
  369. ##########################################################
  370. ##########################################################
  371. ##########################################################
  372. ##########################################################
  373. ##########################################################
  374. ##########################################################
  375. ##########################################################
  376. ##########################################################
  377. ##########################################################
  378. ##########################################################
  379. ##########################################################
  380. ##########################################################
  381. ##########################################################
  382. ##########################################################
  383. ##########################################################
  384. ##########################################################
  385. ##########################################################
  386. ##########################################################
  387. ##########################################################
  388. ##########################################################
  389. ##########################################################
  390. ##########################################################
  391. ##########################################################
  392. ##########################################################
  393. ##########################################################
  394. ##########################################################
  395. ##########################################################
  396. ##########################################################
  397. ##########################################################
  398. ##########################################################
  399. ##########################################################
  400. ##########################################################
  401. ##########################################################
  402. ##########################################################
  403. ##########################################################
  404. ##########################################################
  405. ##########################################################
  406. ##########################################################
  407. ##########################################################
  408. ##########################################################
  409. ##########################################################
  410. ##########################################################
  411. ##########################################################
  412. ##########################################################
  413. ##########################################################
  414. ##########################################################
  415. ##########################################################
  416. ##########################################################
  417. ##########################################################
  418. ##########################################################
  419. ##########################################################
  420. ##########################################################
  421. ##########################################################
  422. ##########################################################
  423. ##########################################################
  424. ##########################################################
  425. ##########################################################
  426. ##########################################################
  427. ##########################################################
  428. ##########################################################
  429. ##########################################################
  430. ##########################################################
  431. ##########################################################
  432. ##########################################################
  433. ##########################################################
  434. ##########################################################
  435. ##########################################################
  436. ##########################################################
  437. ##########################################################
  438. ##########################################################
  439. ##########################################################
  440. ##########################################################
  441. ##########################################################
  442. ##########################################################
  443. ##########################################################
  444. ##########################################################
  445. ##########################################################
  446. ##########################################################
  447. ##########################################################
  448. ##########################################################
  449. ##########################################################
  450. ##########################################################
  451. ##########################################################
  452. ##########################################################
  453. ##########################################################
  454. ##########################################################
  455. ##########################################################
  456. ##########################################################
  457. ##########################################################
  458. ##########################################################
  459. ##########################################################
  460. ##########################################################
  461. ##########################################################
  462. ##########################################################
  463. ##########################################################
  464. ##########################################################
  465. ##########################################################
  466. ##########################################################
  467. ##########################################################
  468. ##########################################################
  469. ##########################################################
  470. ##########################################################
  471. ##########################################################
  472. ##########################################################
  473. ##########################################################
  474. ##########################################################
  475. ##########################################################
  476. ##########################################################
  477. ##########################################################
  478. ##########################################################
  479. ##########################################################
  480. ##########################################################
  481. ##########################################################
  482. ##########################################################
  483. ##########################################################
  484. ##########################################################
  485. ##########################################################
  486. ##########################################################
  487. ##########################################################
  488. ##########################################################
  489. ##########################################################
  490. ##########################################################
  491. ##########################################################
  492. ##########################################################
  493. ##########################################################
  494. ##########################################################
  495. ##########################################################
  496. ##########################################################
  497. ##########################################################
  498. ##########################################################
  499. ##########################################################
  500. ##########################################################
  501. ##########################################################
  502. ##########################################################
  503. ##########################################################
  504. ##########################################################
  505. ##########################################################
  506. ##########################################################
  507. ##########################################################
  508. ##########################################################
  509. ##########################################################
  510. ##########################################################
  511. ##########################################################
  512. ##########################################################
  513. ##########################################################
  514. ##########################################################
  515. ##########################################################
  516. ##########################################################
  517. ##########################################################
  518. ##########################################################
  519. ##########################################################
  520. ##########################################################
  521. ##########################################################
  522. ##########################################################
  523. ##########################################################
  524. ##########################################################
  525. ##########################################################
  526. ##########################################################
  527. ##########################################################
  528. ##########################################################
  529. ##########################################################
  530. ##########################################################
  531. ##########################################################
  532. ##########################################################
  533. ##########################################################
  534. ##########################################################
  535. ##########################################################
  536. ##########################################################
  537. ##########################################################
  538. ##########################################################
  539. ##########################################################
  540. ##########################################################
  541. ##########################################################
  542. ##########################################################
  543. ##########################################################
  544. ##########################################################
  545. ##########################################################
  546. ##########################################################
  547. ##########################################################
  548. ##########################################################
  549. ##########################################################
  550. ##########################################################
  551. ##########################################################
  552. ##########################################################
  553. ##########################################################
  554. ##########################################################
  555. ##########################################################
  556. ##########################################################
  557. ##########################################################
  558. ##########################################################
  559. ##########################################################
  560. ##########################################################
  561. ##########################################################
  562. ##########################################################
  563. ##########################################################
  564. ##########################################################
  565. ##########################################################
  566. ##########################################################
  567. ##########################################################
  568. ##########################################################
  569. ##########################################################
  570. ##########################################################
  571. ##########################################################
  572. ##########################################################
  573. ##########################################################
  574. ##########################################################
  575. ##########################################################
  576. ##########################################################
  577. ##########################################################
  578. ##########################################################
  579. ##########################################################
  580. ##########################################################
  581. ##########################################################
  582. ##########################################################
  583. ##########################################################
  584. ##########################################################
  585. ##########################################################
  586. ##########################################################
  587. ##########################################################
  588. ##########################################################
  589. ##########################################################
  590. ##########################################################
  591. ##########################################################
  592. ##########################################################
  593. ##########################################################
  594. ##########################################################
  595. ##########################################################
  596. ##########################################################
  597. ##########################################################
  598. ##########################################################
  599. ##########################################################
  600. ##########################################################
  601. ##########################################################
  602. ##########################################################
  603. ##########################################################
  604. ##########################################################
  605. ##########################################################
  606. ##########################################################
  607. ##########################################################
  608. ##########################################################
  609. ##########################################################
  610. ##########################################################
  611. ##########################################################
  612. ##########################################################
  613. ##########################################################
  614. ##########################################################
  615. ##########################################################
  616. ##########################################################
  617. ##########################################################
  618. ##########################################################
  619. ##########################################################
  620. ##########################################################
  621. ##########################################################
  622. ##########################################################
  623. ##########################################################
  624. ##########################################################
  625. ##########################################################
  626. ##########################################################
  627. ##########################################################
  628. ##########################################################
  629. ##########################################################
  630. ##########################################################
  631. ##########################################################
  632. ##########################################################
  633. ##########################################################
  634. ##########################################################
  635. ##########################################################
  636. ##########################################################
  637. ##########################################################
  638. ##########################################################
  639. ##########################################################
  640. ##########################################################
  641. ##########################################################
  642. ##########################################################
  643. ##########################################################
  644. ##########################################################
  645. ##########################################################
  646. ##########################################################
  647. ##########################################################
  648. ##########################################################
  649. ##########################################################
  650. ##########################################################
  651. ##########################################################
  652. ##########################################################
  653. ##########################################################
  654. ##########################################################
  655. ##########################################################
  656. ##########################################################
  657. ##########################################################
  658. ##########################################################
  659. ##########################################################
  660. ##########################################################
  661. ##########################################################
  662. ##########################################################
  663. ##########################################################
  664. ##########################################################
  665. ##########################################################
  666. ##########################################################
  667. ##########################################################
  668. ##########################################################
  669. ##########################################################
  670. ##########################################################
  671. ##########################################################
  672. ##########################################################
  673. ##########################################################
  674. ##########################################################
  675. ##########################################################
  676. ##########################################################
  677. ##########################################################
  678. ##########################################################
  679. ##########################################################
  680. ##########################################################
  681. ##########################################################
  682. ##########################################################
  683. ##########################################################
  684. ##########################################################
  685. ##########################################################
  686. ##########################################################
  687. ##########################################################
  688. ##########################################################
  689. ##########################################################
  690. ##########################################################
  691. ##########################################################
  692. ##########################################################
  693. ##########################################################
  694. ##########################################################
  695. ##########################################################
  696. ##########################################################
  697. ##########################################################
  698. ##########################################################
  699. ##########################################################
  700. ##########################################################
  701. ##########################################################
  702. ##########################################################
  703. ##########################################################
  704. ##########################################################
  705. ##########################################################
  706. ##########################################################
  707. ##########################################################
  708. ##########################################################
  709. ##########################################################
  710. ##########################################################
  711. ##########################################################
  712. ##########################################################
  713. ##########################################################
  714. ##########################################################
  715. ##########################################################
  716. ##########################################################
  717. ##########################################################
  718. ##########################################################
  719. ##########################################################
  720. ##########################################################
  721. ##########################################################
  722. ##########################################################
  723. ##########################################################
  724. ##########################################################
  725. ##########################################################
  726. ##########################################################
  727. ##########################################################
  728. ##########################################################
  729. ##########################################################
  730. ##########################################################
  731. ##########################################################
  732. ##########################################################
  733. ##########################################################
  734. ##########################################################
  735. ##########################################################
  736. ##########################################################
  737. ##########################################################
  738. ##########################################################
  739. ##########################################################
  740. ##########################################################
  741. ##########################################################
  742. ##########################################################
  743. ##########################################################
  744. ##########################################################
  745. ##########################################################
  746. ##########################################################
  747. ##########################################################
  748. ##########################################################
  749. ##########################################################
  750. ##########################################################
  751. ##########################################################
  752. ##########################################################
  753. ##########################################################
  754. ##########################################################
  755. ##########################################################
  756. ##########################################################
  757. ##########################################################
  758. ##########################################################
  759. ##########################################################
  760. ##########################################################
  761. ##########################################################
  762. ##########################################################
  763. ##########################################################
  764. ##########################################################
  765. ##########################################################
  766. ##########################################################
  767. ##########################################################
  768. ##########################################################
  769. ##########################################################
  770. ##########################################################
  771. ##########################################################
  772. ##########################################################
  773. ##########################################################
  774. ##########################################################
  775. ##########################################################
  776. ##########################################################
  777. ##########################################################
  778. ##########################################################
  779. ##########################################################
  780. ##########################################################
  781. ##########################################################
  782. ##########################################################
  783. ##########################################################
  784. ##########################################################
  785. ##########################################################
  786. ##########################################################
  787. ##########################################################
  788. ##########################################################
  789. ##########################################################
  790. ##########################################################
  791. ##########################################################
  792. ##########################################################
  793. ##########################################################
  794. ##########################################################
  795. ##########################################################
  796. ##########################################################
  797. ##########################################################
  798. ##########################################################
  799. ##########################################################
  800. ##########################################################
  801. ##########################################################
  802. ##########################################################
  803. ##########################################################
  804. ##########################################################
  805. ##########################################################
  806. ##########################################################
  807. ##########################################################
  808. ##########################################################
  809. ##########################################################
  810. ##########################################################
  811. ##########################################################
  812. ##########################################################
  813. ##########################################################
  814. ##########################################################
  815. ##########################################################
  816. ##########################################################
  817. ##########################################################
  818. ##########################################################
  819. ##########################################################
  820. ##########################################################
  821. ##########################################################
  822. ##########################################################
  823. ##########################################################
  824. ##########################################################
  825. ##########################################################
  826. ##########################################################
  827. ##########################################################
  828. ##########################################################
  829. ##########################################################
  830. ##########################################################
  831. ##########################################################
  832. ##########################################################
  833. ##########################################################
  834. ##########################################################
  835. ##########################################################
  836. ##########################################################
  837. ##########################################################
  838. ##########################################################
  839. ##########################################################
  840. ##########################################################
  841. ##########################################################
  842. ##########################################################
  843. ##########################################################
  844. ##########################################################
  845. ##########################################################
  846. ##########################################################
  847. ##########################################################
  848. ##########################################################
  849. ##########################################################
  850. ##########################################################
  851. ##########################################################
  852. ##########################################################
  853. ##########################################################
  854. ##########################################################
  855. ##########################################################
  856. ##########################################################
  857. ##########################################################
  858. ##########################################################
  859. ##########################################################
  860. ##########################################################
  861. ##########################################################
  862. ##########################################################
  863. ##########################################################
  864. ##########################################################
  865. ##########################################################
  866. ##########################################################
  867. ##########################################################
  868. ##########################################################
  869. ##########################################################
  870. ##########################################################
  871. ##########################################################
  872. ##########################################################
  873. ##########################################################
  874. ##########################################################
  875. ##########################################################
  876. ##########################################################
  877. ##########################################################
  878. ##########################################################
  879. ##########################################################
  880. ##########################################################
  881. ##########################################################
  882. ##########################################################
  883. ##########################################################
  884. ##########################################################
  885. ##########################################################
  886. ##########################################################
  887. ##########################################################
  888. ##########################################################
  889. ##########################################################
  890. ##########################################################
  891. ##########################################################
  892. ##########################################################
  893. O=Lotus Notes
  894. O=Lotus Notes
  895. PURSAFO
  896. |.:#U
  897. O=Lotus Notes
  898. CN=Lotus Notes Template Development/O=Lotus Notes
  899. PURSAFO
  900. Fde!f^^
  901. $ACLDigest
  902. O=Lotus Notes
  903. O=Lotus Notes
  904. PURSAFO
  905. |.:#U
  906. O=Lotus Notes
  907. CN=Lotus Notes Template Development/O=Lotus Notes
  908. PURSAFO
  909. Fde!f^^
  910. $Readers
  911. $TITLE
  912. $Index
  913. $Formula
  914. $FormulaClass
  915. $ViewFormat
  916. $Comment
  917. New Person
  918. FullName
  919.     4S6S
  920. Times New Roman
  921. Person
  922. fffff3f3
  923. 33f3333
  924. ''''''''
  925. ########
  926. !"!"!"!"
  927.                                 
  928. User Registration Information
  929. FullName
  930.     0S0E
  931. DisplayName
  932. First name(s) and nicknames - e.g. John; Johnny
  933. First name:
  934. FirstName
  935. FirstNameFirst name(s) and nicknames - e.g. John; Johnny
  936. Middle Initial with a trailing period (optional).
  937. Middle initial:
  938. MiddleInitial
  939. MiddleInitialMiddle Initial with a trailing period (optional).
  940. Last name - e.g. Smith.
  941. Last name:
  942. LastName^
  943. LastName
  944. Last Name is required
  945. LastNameLast name - e.g. Smith.
  946. Company:
  947. Company
  948. Phone Number:
  949. OfficePhoneNumberOffice phone number.
  950. E-mail:
  951. Email
  952. Distinguished Notes user name and any other user names - e.g., Jon Smith/Sales/Acme; Jonathan M. Smith.
  953. User name:
  954. FullName^
  955.     0S0E
  956. FullNameDistinguished name and aliases - e.g. Jon Smith/Sales/Acme; Jonathan M. Smith.
  957. Password:
  958. HTTPPassword^
  959.     0S0E
  960. HTTPPassword
  961. Choose what you want to do:
  962. Change Password
  963. Change Password
  964. FullName
  965. [UserManager]
  966.     1S2S
  967. Readers
  968. the named person plus role [UserManager] 
  969. FullName
  970. [UserManager]
  971.     1S2S
  972. Authors
  973. the named person plus role [UserManager]
  974. O=Lotus Notes
  975. O=Lotus Notes
  976. PURSAFO
  977. |.:#U
  978. O=Lotus Notes
  979. CN=Lotus Notes Template Development/O=Lotus Notes
  980. PURSAFO
  981. Fde!f^^
  982. $TITLE
  983. $Readers
  984. $Info
  985. $WindowTitle
  986. $$Script_O
  987. $$ScriptName
  988. $Body
  989. Handle Change Password Request
  990.  ChPw
  991. fffff3f3
  992. 33f3333
  993. ''''''''
  994. ########
  995. !"!"!"!"
  996.                                 
  997. Password Change Request
  998. Name:
  999. FullName
  1000. Old Password:
  1001. OldPassword
  1002.     0S0E
  1003. OldPassword
  1004. New Password:
  1005. NewPassword
  1006. (This is a suggested new password. Feel free to change it.)
  1007. Submit Request
  1008. Hidden
  1009. AgentRunData
  1010. // Agent run data:  Everything here is hidden
  1011. State
  1012. Pending | PDone | D
  1013. P = processing; D = done
  1014. WhenHandled
  1015. Date/Time agent processed
  1016. Not run yet
  1017. AgentStatus
  1018. "Successful"; "Agent Running" or error message
  1019. Comment
  1020. CGI Variables
  1021. REMOTE_HOST
  1022. REMOTE_HOST
  1023. CGI Variable: remote host name
  1024. REMOTE_ADDR
  1025. REMOTE_ADDR
  1026. CGI Variable: remote host address
  1027. REMOTE_USER
  1028. REMOTE_USER
  1029. CGI Variable: remote user name
  1030. HTTP_USER_AGENT
  1031. HTTP_USER_AGENT
  1032. CGI Variable: browser type
  1033. HTTP_REFERER
  1034. HTTP_REFERER
  1035. CGI Variable: page that linked here
  1036. SERVER_URL
  1037. SERVER_URL
  1038. CGI Variable: server url
  1039. <body><p>There seems to have been a problem processing your request. Please send mail to <a href="domino_server@crd.lotus.com">our webmaster</a>.
  1040. $$Return
  1041. Returned to browser if agent produces no output
  1042. Readers
  1043. Readers
  1044. Users authorized to read this document
  1045. O=Lotus Notes
  1046. O=Lotus Notes
  1047. PURSAFO
  1048. |.:#U
  1049. O=Lotus Notes
  1050. CN=Lotus Notes Template Development/O=Lotus Notes
  1051. PURSAFO
  1052. Fde!f^^
  1053. $TITLE
  1054. $Readers
  1055. $FormUsers
  1056. $Info
  1057. $SubForms
  1058. $WEBQuerySave
  1059. $$Script_O
  1060. $$ScriptName
  1061. $Body
  1062. O=Lotus Notes
  1063. O=Lotus Notes
  1064. PURSAFO
  1065. |.:#U
  1066. O=Lotus Notes
  1067. CN=Lotus Notes Template Development/O=Lotus Notes
  1068. PURSAFO
  1069. Fde!f^^
  1070. BpTD|
  1071. $TITLE
  1072. $Info
  1073. $Body
  1074. AgentRunData
  1075. Hidden
  1076. // Agent run data:  Everything here is hidden
  1077. State
  1078. Pending | PDone | D
  1079. P = processing; D = done
  1080. WhenHandled
  1081. Date/Time agent processed
  1082. Not run yet
  1083. AgentStatus
  1084. "Successful"; "Agent Running" or error message
  1085. O=Lotus Notes
  1086. O=Lotus Notes
  1087. PURSAFO
  1088. |.:#U
  1089. O=Lotus Notes
  1090. CN=Lotus Notes Template Development/O=Lotus Notes
  1091. PURSAFO
  1092. Fde!f^^
  1093. QN*L@&
  1094. $TITLE
  1095. $Info
  1096. $$Script_O
  1097. $$ScriptName
  1098. $Body
  1099. Comment
  1100. Richard Schwartz-
  1101.   The Domino Web Site User Registration Database
  1102.   (C) Copyright 1997, Lotus Development Corporation, Cambridge, MA
  1103.   This sample Domino application is distributed for demonstration and information purposes only
  1104.   =========================================================================
  1105.   See  the "Using" document (in design mode) for this database for information on customizing 
  1106.   for your site.  Note:  this sample requires a Domino 4.5 server.
  1107. fffff3f3
  1108. 33f3333
  1109. ''''''''
  1110. ########
  1111. !"!"!"!"
  1112.                                 
  1113.  ( ( (
  1114. 0 ( ( 
  1115. 0    808( (0(0
  1116.  ( 0(
  1117. 0 0( 
  1118. ( ( (
  1119. 8(0(08@
  1120. 0( 0( (0(0
  1121. (0(80808
  1122. 8    0@8(8@(08
  1123. 8(0(0(
  1124. 0H@8(0
  1125.  0(0(
  1126. 8@808
  1127. (8(0( 
  1128. 0( 0(0(
  1129. 0(08@
  1130. @0(0(
  1131.     HX`XP0@XP
  1132. 8(8@8
  1133. H@P@ P
  1134. HXH@8
  1135. 0@80@
  1136. 8(80@8@
  1137. @80(@
  1138. PH8@80
  1139. @H@8@8H
  1140. phXPH
  1141. @    08080H@H(
  1142. phPH@8@8
  1143. `PH0@
  1144. X`PHPX
  1145. H@HPH@
  1146. XPHPH
  1147. X    HPH@08H
  1148. xp`h`H`XPX
  1149. PHP`HPHP
  1150. X@0(8HX
  1151. H    @808HP@(8
  1152. `P80H
  1153. X    PX@HP`hPH
  1154. X8(0X`XHPHX@
  1155. H@P8@8H
  1156. 80(0Ph
  1157. 8X`@8X
  1158. 8@HhP80P`P
  1159. ph@8(8P`
  1160. HXH@80HhPXHPH8H0
  1161. `PHP@PH@(0@XP`XH
  1162. X`XPHPH
  1163. HXP80X
  1164. 8(@X@8
  1165. 0`PhPHPX
  1166. 8HPH@H
  1167. XH0(8H
  1168. HP@P@
  1169. pXhHPH
  1170. @H@P(
  1171. PHPHX 
  1172. Hph`@
  1173. hPXH@H0
  1174. @`X`0
  1175. XPX`H
  1176. H0 0Xxh
  1177. @H@H 
  1178. hxph`p
  1179. XhPX@HXH
  1180. (xpPXP`
  1181. xp`Xh(
  1182. xphXH8@0
  1183. P`hH`
  1184. xpX@8@ 
  1185. @`XH@80
  1186. `XPH 
  1187. PphH`HP8
  1188. Xxh`PHPX
  1189. PphP8@0
  1190. 0x`XPX
  1191. 8xhp`X
  1192. @hX`XHP`P
  1193. pxh`PH`
  1194. 808@80(@
  1195. Xx`HX
  1196. `XP@P
  1197. PX`pxP
  1198. 08Xh`
  1199. h8`p(`
  1200. Hx`XHP 
  1201. 8P`@`H@P(PpxX
  1202. P@h`XP
  1203. `8`p@
  1204. xhXP808@8
  1205. 8(080
  1206.  pxpH
  1207. PXP@XHPH
  1208. @hXP@
  1209. @phXhX
  1210. (hp`@
  1211. 0ph`P
  1212. (x`pX 
  1213. XhXhHPX
  1214.  hp`X0
  1215. 8xh`P
  1216.      (8H@HXPX
  1217. H@HPX`X
  1218. X`h`X`h
  1219. Xp`p`PH@808@8H8PH
  1220. @PH@X
  1221. Phxpxhp`
  1222. Xphph
  1223. X8HP8@
  1224. X    HP@XP`HP`
  1225. @xh`ph`p
  1226. hXHXp
  1227. hXPX`PHh
  1228. h`X`h
  1229. 80(80
  1230. H@8@X
  1231. Xh`Xh
  1232. Ph`X`
  1233. P`Pph
  1234. PXHP08
  1235. HXHPXH@P
  1236. hPX`X(Xp
  1237. XPXPXPHXHPHPXPX`P
  1238. XH@08
  1239. 8@08H8H8
  1240. PH@8@
  1241. PXPXP`XP
  1242. HPHP@XP
  1243. 0hp`@
  1244. XPH@PHP
  1245. @H@P@
  1246. 8@8@8
  1247. 80808
  1248. H@HPH0
  1249. PpPXH
  1250. @8@8@08@80
  1251. HPH@08H@8@808
  1252. 808080
  1253. (    08080( 0 
  1254. ( (0(8
  1255.  (80(0(80@
  1256. 0@080
  1257. 8    @8@H@H@H@
  1258. @8@H@P
  1259. @0@0@8H
  1260. Hh`XH@
  1261. H080808@
  1262. 0 8 0
  1263. ( 0( 
  1264. 8080@
  1265. (8@0@8(@
  1266. (@(0@8
  1267. (0@80(08
  1268. 8 (08(0@HP
  1269. @H8@8@8
  1270. ( ( (
  1271.  0 0 (0( ( 0( ( 
  1272.  (08@H
  1273. 8@8@(
  1274. 0(8(08(0
  1275. 0( @8
  1276.  0(0(08 
  1277. 0(08(0 
  1278.  ( ( ( 
  1279. (80( 
  1280. ( ( ( (
  1281. ~~~}}}|||{{{zzzyyyxxxwwwvvvuuutttsssrrrqqqpppooonnnmmmlllkkkjjjiiihhhgggfffbbb
  1282. [<h2>]
  1283. Domino User Registration
  1284. [</h2>]
  1285. This site has several protected areas that require you to enter a username and password.  If you have not yet registered, you need to request a new account below.
  1286. [<h3>]
  1287. Choose what you want to do
  1288. :[</h3>]
  1289. !!!)))111999BBBJJJRRRZZZccckkksss
  1290. ssc11
  1291. B9{1)
  1292. cR1skZ
  1293. {sc11)
  1294. {sBsk9cZ!
  1295. 11)ccR
  1296. kskZcZ
  1297. !1k)B
  1298. 99RZZ
  1299. 91kB1
  1300. RJsB9k
  1301. New Account
  1302. Request a new account
  1303. Anonymous
  1304.     1S2S
  1305. !!!)))111999BBBJJJRRRZZZccckkksss
  1306. ssc11
  1307. B9{1)
  1308. cR1skZ
  1309. {sc11)
  1310. {sBsk9cZ!
  1311. 11)ccR
  1312. kskZcZ
  1313. !1k)B
  1314. 99RZZ
  1315. 91kB1
  1316. RJsB9k
  1317. Registered Users
  1318.     4S6S
  1319. Examine or update your existing account
  1320.  - This is only visible if you have already authenticated
  1321. Anonymous
  1322.     1S2S
  1323. !!!)))111999BBBJJJRRRZZZccckkksss
  1324. ssc11
  1325. B9{1)
  1326. cR1skZ
  1327. {sc11)
  1328. {sBsk9cZ!
  1329. 11)ccR
  1330. kskZcZ
  1331. !1k)B
  1332. 99RZZ
  1333. 91kB1
  1334. RJsB9k
  1335. ?OpenDatabase&Login=1
  1336.     3S4S8S11S12S
  1337. Login to update your existing account
  1338. Note: 
  1339. If you've already been prompted for a username and password, and entered something that didn't work, you can clear the bad username by erasing the name from the authentication dialog box the next time you come across it.
  1340. O=Lotus Notes
  1341. O=Lotus Notes
  1342. PURSAFO
  1343. |.:#U
  1344. O=Lotus Notes
  1345. CN=Lotus Notes Template Development/O=Lotus Notes
  1346. PURSAFO
  1347. Fde!f^^
  1348. MBHGHx[
  1349. 9j78)
  1350. $Info
  1351. $Body
  1352. fffff3f3
  1353. 33f3333
  1354. ''''''''
  1355. ########
  1356. !"!"!"!"
  1357.                                 
  1358.  ( ( (
  1359. 0 ( ( 
  1360. 0    808( (0(0
  1361.  ( 0(
  1362. 0 0( 
  1363. ( ( (
  1364. 8(0(08@
  1365. 0( 0( (0(0
  1366. (0(80808
  1367. 8    0@8(8@(08
  1368. 8(0(0(
  1369. 0H@8(0
  1370.  0(0(
  1371. 8@808
  1372. (8(0( 
  1373. 0( 0(0(
  1374. 0(08@
  1375. @0(0(
  1376.     HX`XP0@XP
  1377. 8(8@8
  1378. H@P@ P
  1379. HXH@8
  1380. 0@80@
  1381. 8(80@8@
  1382. @80(@
  1383. PH8@80
  1384. @H@8@8H
  1385. phXPH
  1386. @    08080H@H(
  1387. phPH@8@8
  1388. `PH0@
  1389. X`PHPX
  1390. H@HPH@
  1391. XPHPH
  1392. X    HPH@08H
  1393. xp`h`H`XPX
  1394. PHP`HPHP
  1395. X@0(8HX
  1396. H    @808HP@(8
  1397. `P80H
  1398. X    PX@HP`hPH
  1399. X8(0X`XHPHX@
  1400. H@P8@8H
  1401. 80(0Ph
  1402. 8X`@8X
  1403. 8@HhP80P`P
  1404. ph@8(8P`
  1405. HXH@80HhPXHPH8H0
  1406. `PHP@PH@(0@XP`XH
  1407. X`XPHPH
  1408. HXP80X
  1409. 8(@X@8
  1410. 0`PhPHPX
  1411. 8HPH@H
  1412. XH0(8H
  1413. HP@P@
  1414. pXhHPH
  1415. @H@P(
  1416. PHPHX 
  1417. Hph`@
  1418. hPXH@H0
  1419. @`X`0
  1420. XPX`H
  1421. H0 0Xxh
  1422. @H@H 
  1423. hxph`p
  1424. XhPX@HXH
  1425. (xpPXP`
  1426. xp`Xh(
  1427. xphXH8@0
  1428. P`hH`
  1429. xpX@8@ 
  1430. @`XH@80
  1431. `XPH 
  1432. PphH`HP8
  1433. Xxh`PHPX
  1434. PphP8@0
  1435. 0x`XPX
  1436. 8xhp`X
  1437. @hX`XHP`P
  1438. pxh`PH`
  1439. 808@80(@
  1440. Xx`HX
  1441. `XP@P
  1442. PX`pxP
  1443. 08Xh`
  1444. h8`p(`
  1445. Hx`XHP 
  1446. 8P`@`H@P(PpxX
  1447. P@h`XP
  1448. `8`p@
  1449. xhXP808@8
  1450. 8(080
  1451.  pxpH
  1452. PXP@XHPH
  1453. @hXP@
  1454. @phXhX
  1455. (hp`@
  1456. 0ph`P
  1457. (x`pX 
  1458. XhXhHPX
  1459.  hp`X0
  1460. 8xh`P
  1461.      (8H@HXPX
  1462. H@HPX`X
  1463. X`h`X`h
  1464. Xp`p`PH@808@8H8PH
  1465. @PH@X
  1466. Phxpxhp`
  1467. Xphph
  1468. X8HP8@
  1469. X    HP@XP`HP`
  1470. @xh`ph`p
  1471. hXHXp
  1472. hXPX`PHh
  1473. h`X`h
  1474. 80(80
  1475. H@8@X
  1476. Xh`Xh
  1477. Ph`X`
  1478. P`Pph
  1479. PXHP08
  1480. HXHPXH@P
  1481. hPX`X(Xp
  1482. XPXPXPHXHPHPXPX`P
  1483. XH@08
  1484. 8@08H8H8
  1485. PH@8@
  1486. PXPXP`XP
  1487. HPHP@XP
  1488. 0hp`@
  1489. XPH@PHP
  1490. @H@P@
  1491. 8@8@8
  1492. 80808
  1493. H@HPH0
  1494. PpPXH
  1495. @8@8@08@80
  1496. HPH@08H@8@808
  1497. 808080
  1498. (    08080( 0 
  1499. ( (0(8
  1500.  (80(0(80@
  1501. 0@080
  1502. 8    @8@H@H@H@
  1503. @8@H@P
  1504. @0@0@8H
  1505. Hh`XH@
  1506. H080808@
  1507. 0 8 0
  1508. ( 0( 
  1509. 8080@
  1510. (8@0@8(@
  1511. (@(0@8
  1512. (0@80(08
  1513. 8 (08(0@HP
  1514. @H8@8@8
  1515. ( ( (
  1516.  0 0 (0( ( 0( ( 
  1517.  (08@H
  1518. 8@8@(
  1519. 0(8(08(0
  1520. 0( @8
  1521.  0(0(08 
  1522. 0(08(0 
  1523.  ( ( ( 
  1524. (80( 
  1525. ( ( ( (
  1526. ~~~}}}|||{{{zzzyyyxxxwwwvvvuuutttsssrrrqqqpppooonnnmmmlllkkkjjjiiihhhgggfffbbb
  1527. !!!)))111999BBBJJJRRRZZZccckkksss
  1528. ssc11
  1529. B9{1)
  1530. cR1skZ
  1531. {sc11)
  1532. {sBsk9cZ!
  1533. 11)ccR
  1534. kskZcZ
  1535. !1k)B
  1536. 99RZZ
  1537. 91kB1
  1538. RJsB9k
  1539. _IWKSE
  1540. _IPIC
  1541.   The Domino Web Site User Registration Database
  1542. Copyright 1997  Lotus Development Corporation
  1543.   This sample Domino application is distributed for demonstration and information purposes only.
  1544.   See below for important security issues related to this sample.   
  1545.   Important features of this sample:
  1546.     1.  WebQuerySave events on Change Password and New Account forms execute when form is submitted
  1547.     2.  Handle Change Password Request agent Initialize event calls HandleChangePassword subroutine
  1548.     3.  
  1549. Handle New Account Request agent Initialize event calls HandleNewAccount subroutine
  1550.     4.  Request Utilities script library subroutines (a new design feature in 4.5, so this version of the registration
  1551.          application will only run on a 4.5 server or above) are called by HandleChangePassword and 
  1552.                      HandleNewAccount
  1553.   Steps for customization
  1554.     1.  Add yourself and your server to the ACL as Manager and member of the role "User Manager".  If
  1555.          you need to replicate the database to multiple servers, be sure that all servers are members of the
  1556.          User Manager role.  If other administrators will assist in management of the registration process, be
  1557.          sure that they are members of the User Manager role.
  1558. 2.   Modify the shared field "GroupsToJoin" to reflect the name of a group in your PAB
  1559.           that you want to use for registered users.  
  1560. Do not use slash ("/") characters in the name of this 
  1561.                       group.
  1562.     3.   Add the group you chose in step 2 to the ACL as Author with the "Create documents" permission 
  1563.           checked, and add it to the role "Web Users."
  1564.     4.   Note: Do not add the group you have chosen to the PAB.  It will be added automatically when
  1565.           the first user registers.
  1566.     5.   Modify the declarations in the "Modifiable Constants" script library to point to the appropriate
  1567.           Public Address Book database(s).  NOTE:  Groups must be created in the domain's primary
  1568.           address book, otherwise the Notes/Domino 4.x server will not recognize them when interpreting
  1569.           access control.  The option of re-directing them by modifying nabGroupsPath$ is provided for 
  1570.           test purposes only.  Person documents, on the other hand, may be in any address book configured
  1571.           on the server.  Also, the server will not authenticate users who are registered in a secondary 
  1572.           Public Address Book unless it has been properly configured using the cascading technique or
  1573.           using a Master Address Book.  Please see the Notes Administrator Help for more information
  1574.           about this.
  1575.     6.   Edit the Agent Manager section of the Server document in the PAB to make sure that you have 
  1576.           permission to run restricted LotusScript agents on your server.  If giving yourself access requires
  1577.           actually changing one or more fields in the Server document, you will need to stop and restart
  1578.           the Domino server for the change to take effect.  If you merely have to add yourself to a group
  1579.           that is already listed in the Server document, you should not have to reboot the server.
  1580.          
  1581. NOTE: if you follow the directions for altering the EnsureUserInNAB routine (see below), you
  1582.           must also give yourself permission to run 
  1583. restricted LotusScript agents on your server.
  1584.     7.   Edit the ACL on your PABs to make sure that you have permission to create and edit person 
  1585.           and group documents.  (Be sure to select the correct Creator and Modifier roles if you have
  1586.           implemented this feature in your PABs).
  1587.     8.   Make cosmetic changes to forms.
  1588.     9.   Open the Handle Change Password Request agent, position your cursor to a blank line in the script,
  1589.           type a single space and then select File - Save to force it to be re-compiled and signed with your user ID.  
  1590.           Do the same with the Handle New Account Request agent.  (Recompilation is required to incorporate 
  1591.           the changes in the Modifiable Constants and Request Utilities libraries.  Signature is required to grant 
  1592.           access rights for your server).
  1593.     10. Raise the Anonymous ACL entry to Author, and check the "Create documents" permission.  Then 
  1594.           go to the Advanced panel in the Access Control List dialog and raise the "Maximum Internet name
  1595.           and password" setting to Author.
  1596.     11.  See below for additional information about running this application...
  1597. Notes:
  1598. You must repeat both steps 5 
  1599.  9 if you want to change the name of the PAB used for storing Person
  1600. or Group documents at any point after completing the above customization instructions.
  1601. If you experience delays between the time that a user registers and the time that the user can successfully
  1602. authenticate with the server, there are changes that you can make to the routine EnsureUserInNAB and 
  1603. accompanying Declarations in the Request Utilities script library.  Comments in the LotusScript code for this 
  1604. routine explain these changes.
  1605. Domino Registration sample application
  1606. If you want to protect certain areas of your site, and require that Web users enter a user name and password before they access the protected information, you'll need to create an account for users.  To do this, you register users in the Public Address Book on the Domino server.  
  1607. This application is a sample showing how to register Web users for Domino-based applications. Users can create accounts for themselves with no manual intervention.
  1608. Security Warning:  
  1609. This sample is designed to allow anyone with Web connectivity to your server to create a user name and password for themselves on your server.  This will not allow them to use Notes to access your data, but it will allow them to use their Web browser through Domino to access and possibly change data.  Be very careful in deploying this application or modified versions of it.  This application modifies your Public Address Book.
  1610. By running this application, you acknowledge that this software may modify your Notes Public Address Book, which could, in certain circumstances, compromise security.
  1611. About the Domino sample registration application
  1612. The sample registration application asks users for a name, company name, phone number and e-mail address. The form contains a randomly generated password, which users can change when they register, or they can change their password at a later date.  When the user submits the form, the password is encrypted, and a person document is created and the user name is added to a Group in the Public Address Book on the Domino server.  
  1613. The registration process is very simple; however, it does have some built-in error checks.  For example, it uses an input validation formula to verify that the user's e-mail address has a  valid structure when the form is submitted.  Also, if the user name already exists in the Domino server's Public Address Book, it asks the user to pick another user name.
  1614. Making sure your site is ready to register users 
  1615. In order to see how the sample registration application works, you need to have at least one database that has a default access of No Access.  This forces Domino to authenticate users, which means they'll have to register.  (If your databases all have a default access of Reader, Domino will never be required to authenticate users, which means they would never be required to register.)  To do this:
  1616. Change the databases(s) default access to No Access in the ACL. 
  1617. Add the group  you chose in customization step 3 (above) to the database ACL.
  1618. Assign this group an appropriate access level, (for example, Author).
  1619. Use a browser to connect to your server and attempt to open this database.  Your browser will display a login prompt, indicating that it will only give registered users access to the database.
  1620. Now open up the Registration application from a browser and use it to create an account, then return to the database you were attempting to access.  Enter the name and password information for the account you just created into your browser's login dialog.  If you have followed these instructions, you should now gain access to the database.
  1621. O=Lotus Notes
  1622. O=Lotus Notes
  1623. PURSAFO
  1624. |.:#U
  1625. O=Lotus Notes
  1626. CN=Lotus Notes Template Development/O=Lotus Notes
  1627. PURSAFO
  1628. Fde!f^^
  1629. $Info
  1630. $Body
  1631. ed$UpdatedBy$ACLDigest$Signature$DesignVersion$Version$Formula$FormulaClass$Collation$Readers$TITLE$Index$ViewFormat$Comment$Flags$FlagsNoRefresh$TemplateModTime$TemplateServerName$TemplateFileName$LSECFlagsIconBitmap$Info$WindowTitle$Fonts$$Script_O$$ScriptNameFirstNameMiddleInitialLastNameCompanyOfficePhoneNumberEmailFullNameHTTPPASSWORDReadersAuthors$Fields$Body$FormUsers$SubForms$WEBQuerySaveOldPasswordNewPasswordStateWhenHandledAgentStatus$$ReturnREMOTE_HOSTREMOTE_ADDRREMOTE_USERHTTP_USER_AGENTHTTP_REFERERSERVER_URL$ReplVersion$ReplSrcServers$ReplClassMasks$ReplFormula$ReplView$ReplPrivateFolder$ReplFields$AssistVersion$AssistType$AssistLastRun$AssistDocCount$AssistFlags$MachineName$AssistTrigger$AssistInfo$AssistQuery$AssistAction$AssistAction_Ex$AssistRunInfoGroupsToJoin$ScriptLib$ScriptLib_O$PublicAccess$Totals
  1632. Started running agent 'Set Command to Pending' on 06/03/96 03:15:06 PM
  1633. Running on selected documents: 1 total
  1634. Found 1 document(s) that match search criteria
  1635. Modified field in 1 document(s)
  1636. Done running agent 'Set Command to Pending' on 06/03/96 03:15:06 PM
  1637. Started running agent 'Set Groups to Alpha Users' on 06/03/96 03:18:13 PM
  1638. Running on selected documents: 4 total
  1639. Found 4 document(s) that match search criteria
  1640. Modified field in 4 document(s)
  1641. Done running agent 'Set Groups to Alpha Users' on 06/03/96 03:18:14 PM
  1642. GroupsToJoinAlpha Users
  1643. domino
  1644. }*2p{
  1645. PURSAF
  1646. Internotes
  1647. PURSAF
  1648. H1'ez
  1649. $TITLE
  1650. $AssistType
  1651. $AssistLastRun
  1652. $AssistDocCount
  1653. $AssistFlags
  1654. $MachineName
  1655. $AssistInfo
  1656. $AssistQuery
  1657. $AssistAction
  1658. $AssistAction_Ex
  1659. $UpdatedBy
  1660. $Flags
  1661. Started running agent 'Pretend Mail Was Sent' on 06/21/96 09:48:33 AM
  1662. Running on selected documents: 5 total
  1663. Found 5 document(s) that match search criteria
  1664. Modified field in 5 document(s)
  1665. Done running agent 'Pretend Mail Was Sent' on 06/21/96 09:48:34 AM
  1666. MailSentPretend Sent (Ned)
  1667. Internotes
  1668. PURSAF
  1669. H1'ez
  1670. O=InterNotes/C=US
  1671. O=InterNotes/C=US
  1672. PURSAFO
  1673. O=InterNotes/C=US
  1674. OU=Public/O=InterNotes/C=US
  1675. }#&8NM
  1676. PURSAFO
  1677. T{lnhA
  1678. OU=Public/O=InterNotes/C=US
  1679. CN=domino/OU=Public/O=InterNotes/C=US
  1680. }*2p{
  1681. PURSAFO
  1682. Doz|U
  1683. Xh4]P
  1684. $TITLE
  1685. $AssistType
  1686. $AssistLastRun
  1687. $AssistDocCount
  1688. $AssistFlags
  1689. $MachineName
  1690. $AssistInfo
  1691. $AssistQuery
  1692. $AssistAction
  1693. $AssistAction_Ex
  1694. $UpdatedBy
  1695. $Flags
  1696. O=Lotus Notes
  1697. O=Lotus Notes
  1698. PURSAFO
  1699. |.:#U
  1700. O=Lotus Notes
  1701. CN=Lotus Notes Template Development/O=Lotus Notes
  1702. PURSAFO
  1703. Fde!f^^
  1704. -sIHS
  1705. $TITLE
  1706. $Info
  1707. $Body
  1708. Change Password|ChPwNew Account|NewAcc
  1709. StateD
  1710. AgentStatusSuccessful
  1711. _RevisionDate
  1712. ITEAM2domsite\regisarchive.nsf
  1713. O=Lotus Notes
  1714. O=Lotus Notes
  1715. PURSAFO
  1716. |.:#U
  1717. O=Lotus Notes
  1718. CN=Lotus Notes Template Development/O=Lotus Notes
  1719. PURSAFO
  1720. Fde!f^^
  1721. $TITLE
  1722. $AssistType
  1723. $AssistLastRun
  1724. $AssistDocCount
  1725. $AssistFlags
  1726. $MachineName
  1727. $AssistTrigger
  1728. $AssistInfo
  1729. $AssistQuery
  1730. $AssistAction
  1731. $AssistAction_Ex
  1732. Change Password|ChPwNew Account|NewAcc
  1733. StateD
  1734. _RevisionDate
  1735. ITEAM2domsite\regisarchive.nsf
  1736. O=Lotus Notes
  1737. O=Lotus Notes
  1738. PURSAFO
  1739. |.:#U
  1740. O=Lotus Notes
  1741. CN=Lotus Notes Template Development/O=Lotus Notes
  1742. PURSAFO
  1743. Fde!f^^
  1744. $TITLE
  1745. $AssistType
  1746. $AssistLastRun
  1747. $AssistDocCount
  1748. $AssistFlags
  1749. $MachineName
  1750. $AssistTrigger
  1751. $AssistInfo
  1752. $AssistQuery
  1753. $AssistAction
  1754. $AssistAction_Ex
  1755. Handle New Account Request
  1756.  NewAcc
  1757. fffff3f3
  1758. 33f3333
  1759. ''''''''
  1760. ########
  1761. !"!"!"!"
  1762.                                 
  1763. User Registration Form
  1764. !!!)))111999BBBJJJRRRZZZccckkksss{{{
  1765. kcck9
  1766. ZZcss
  1767. !!)kk
  1768. )!J9)
  1769. 9)cR9
  1770. 1!ZsZ
  1771. B1k9!s1
  1772. RJcZB
  1773. STRNGS
  1774. All Fields marked with 
  1775. Kq}~Rk;4@
  1776. K~TG51-
  1777. }h[;/+
  1778. ~i[5/(
  1779. ~}aRkG5/'
  1780. >kThikG52.%
  1781. 5    ;52/)%#
  1782. -+('%$#
  1783. !!!)))111999BBBJJJRRRZZZccckkksss{{{
  1784. kcck9
  1785. ZZcss
  1786. !!)kk
  1787. )!J9)
  1788. 9)cR9
  1789. 1!ZsZ
  1790. B1k9!s1
  1791. RJcZB
  1792.  are required
  1793. First Name:
  1794. Kq}~Rk;4@
  1795. K~TG51-
  1796. }h[;/+
  1797. ~i[5/(
  1798. ~}aRkG5/'
  1799. >kThikG52.%
  1800. 5    ;52/)%#
  1801. -+('%$#
  1802. !!!)))111999BBBJJJRRRZZZccckkksss{{{
  1803. kcck9
  1804. ZZcss
  1805. !!)kk
  1806. )!J9)
  1807. 9)cR9
  1808. 1!ZsZ
  1809. B1k9!s1
  1810. RJcZB
  1811. FirstName
  1812.     0S0E
  1813. FirstName
  1814. First name is a required field. Please go back to the form to include a first name.
  1815. FirstName
  1816. <x>x{x}x[x]x?x!x#x-x=x+x*x(x)x&x^x%x$x@x/x\x"
  1817. Please use only letters in your first name{
  1818.     2RS3E6S7S9S14RS3E18S22S26S31RS3E
  1819. FirstName
  1820. Middle Initial:
  1821. MiddleInitial
  1822.     0S0E
  1823. MiddleInitial
  1824. <x>x{x}x[x]x?x!x#x-x=x+x*x(x)x&x^x%x$x@x/x\x"
  1825. Please use only letters in your middle name
  1826.     6S10S14S19SMiddleInitial
  1827. Last Name:
  1828. Kq}~Rk;4@
  1829. K~TG51-
  1830. }h[;/+
  1831. ~i[5/(
  1832. ~}aRkG5/'
  1833. >kThikG52.%
  1834. 5    ;52/)%#
  1835. -+('%$#
  1836. !!!)))111999BBBJJJRRRZZZccckkksss{{{
  1837. kcck9
  1838. ZZcss
  1839. !!)kk
  1840. )!J9)
  1841. 9)cR9
  1842. 1!ZsZ
  1843. B1k9!s1
  1844. RJcZB
  1845. LastName^
  1846.     0S0E
  1847. LastName
  1848. Last name is a required field. Please go back to the form to include a last name.
  1849. LastName
  1850. <x>x{x}x[x]x?x!x#x-x=x+x*x(x)x&x^x%x$x@x/x\x"
  1851. Please use only letters in your last name
  1852.     2RS3E6S7S9S14RS3E18S22S26S31RS3E
  1853. LastName
  1854. Company:
  1855. Company
  1856.     0S0E
  1857. Company
  1858. Phone Number:
  1859. OfficePhoneNumberOffice phone number.
  1860. E-mail:
  1861. Kq}~Rk;4@
  1862. K~TG51-
  1863. }h[;/+
  1864. ~i[5/(
  1865. ~}aRkG5/'
  1866. >kThikG52.%
  1867. 5    ;52/)%#
  1868. -+('%$#
  1869. !!!)))111999BBBJJJRRRZZZccckkksss{{{
  1870. kcck9
  1871. ZZcss
  1872. !!)kk
  1873. )!J9)
  1874. 9)cR9
  1875. 1!ZsZ
  1876. B1k9!s1
  1877. RJcZB
  1878. Email
  1879.     0S0E
  1880. domain
  1881. Email
  1882.     1S2S6S
  1883. Email
  1884. Email
  1885. domain
  1886. domain
  1887. domain
  1888. domaina
  1889. Email
  1890. A valid Internet e-mail address is required. Please go back to the form to enter or correct the e-mail address.
  1891.     0R2RS4E6S7S8S9RS4E14S16S17RS4E21S22S23S24S28S29S30S31RS4E36S37S38S39S46S60S61S63S64RS4E70S73S74S76RS4E81SEmail
  1892. Password:
  1893. Kq}~Rk;4@
  1894. K~TG51-
  1895. }h[;/+
  1896. ~i[5/(
  1897. ~}aRkG5/'
  1898. >kThikG52.%
  1899. 5    ;52/)%#
  1900. -+('%$#
  1901. !!!)))111999BBBJJJRRRZZZccckkksss{{{
  1902. kcck9
  1903. ZZcss
  1904. !!)kk
  1905. )!J9)
  1906. 9)cR9
  1907. 1!ZsZ
  1908. B1k9!s1
  1909. RJcZB
  1910. b.br.bl.c.cr.cl.d.dr.f.fr.fl.g.gr.gl.h.j.k.kl.kr.l.m.n.p.pl.pr.qu.r.s.st.str.sl.t.th.thr.tr.v.w.y.z
  1911.     1S2S6S
  1912. a.ai.aw.ay.e.ea.ee.ei.i.o.oo.ou.ow.oy.u
  1913.     0R1S2S6S
  1914. b.d.f.g.gh.k.l.m.n.p.r.s.st.t.v.z
  1915.     0R1S2S6S
  1916.     0R1S2S3S4S5S6S
  1917.     0R1S2S
  1918. nsyl$
  1919. nsyl$
  1920. nsyl$
  1921. nsyl$
  1922.     0R6S7S8S11S14S15S21S22S23S26S29S30S36S37S38S41S44S45S51S52S53S56SNewPassword
  1923. This is a random password. Feel free to change it.
  1924. Submit Request
  1925. FirstName
  1926. MiddleInitial
  1927. MiddleInitial
  1928. LastName"
  1929.     1S2S5S6S8S10S11S12S14S15S16S17SFullName
  1930. Computed FullName
  1931. GroupsToJoin
  1932. Groups to add the user to
  1933. <body><p>There seems to have been a problem processing your request. Please send mail to <a href="domino_server@crd.lotus.com">our webmaster</a>.
  1934. $$Return
  1935. returned by browser if no output from agent
  1936. AgentRunData
  1937. // Agent run data:  Everything here is hidden
  1938. State
  1939. Pending | PDone | D
  1940. P = processing; D = done
  1941. WhenHandled
  1942. Not run yet
  1943. AgentStatus
  1944. "Successful"; 
  1945. Comment
  1946. CGI Variables
  1947. // CGI variables:  Everything here is hidden...
  1948. Hidden
  1949. REMOTE_HOST        
  1950. REMOTE_HOST
  1951. REMOTE_HOST
  1952. REMOTE_ADDR        
  1953. REMOTE_ADDR
  1954. REMOTE_ADDR
  1955. REMOTE_USER        
  1956. REMOTE_USER
  1957. REMOTE_USER
  1958. HTTP_USER_AGENT    
  1959. HTTP_USER_AGENT
  1960. HTTP_USER_AGENT
  1961. HTTP_REFERER        
  1962. HTTP_REFERER
  1963. HTTP_REFERER
  1964. SERVER_URL        
  1965. SERVER_URL
  1966. SERVER_URL
  1967. O=Lotus Notes
  1968. O=Lotus Notes
  1969. PURSAFO
  1970. |.:#U
  1971. O=Lotus Notes
  1972. CN=Lotus Notes Template Development/O=Lotus Notes
  1973. PURSAFO
  1974. Fde!f^^
  1975. $TITLE
  1976. $Readers
  1977. $Info
  1978. $SubForms
  1979. $WEBQuerySave
  1980. $$Script_O
  1981. $$ScriptName
  1982. $Body
  1983. CGI Variables
  1984. Comment
  1985. REMOTE_HOST
  1986. REMOTE_HOST
  1987. CGI Variable: remote host name
  1988. REMOTE_ADDR
  1989. REMOTE_ADDR
  1990. CGI Variable: remote host address
  1991. REMOTE_USER
  1992. REMOTE_USER
  1993. CGI Variable: remote user name
  1994. HTTP_USER_AGENT
  1995. HTTP_USER_AGENT
  1996. CGI Variable: browser type
  1997. HTTP_REFERER
  1998. HTTP_REFERER
  1999. CGI Variable: page that linked here
  2000. SERVER_URL
  2001. SERVER_URL
  2002. CGI Variable: server url
  2003. Hidden
  2004. O=Lotus Notes
  2005. O=Lotus Notes
  2006. PURSAFO
  2007. |.:#U
  2008. O=Lotus Notes
  2009. CN=Lotus Notes Template Development/O=Lotus Notes
  2010. PURSAFO
  2011. Fde!f^^
  2012. J9@Vta
  2013. $TITLE
  2014. $Info
  2015. $$Script_O
  2016. $$ScriptName
  2017. $Body
  2018. '++LotusScript Development Environment:2:5:(Options):0:74
  2019. Option Public
  2020. Option Declare
  2021. '++LotusScript Development Environment:2:5:(Forward):0:1
  2022. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2023. ' NOTE:  You must recompile the agents in this database if you
  2024. ' change the value of either of these constants.
  2025. '------------------------- User-modifiable constants ---------------------------
  2026. ' This is the path to the NAB that has the people documents
  2027. Const nabPeoplePath$ = "names.nsf"
  2028. ' This is the path to the NAB that has the group documents
  2029. Const nabGroupsPath$ = "names.nsf"
  2030. '-------------------------- end of user-modifiable constants ----------------
  2031. O=Lotus Notes
  2032. O=Lotus Notes
  2033. PURSAFO
  2034. |.:#U
  2035. O=Lotus Notes
  2036. CN=Lotus Notes Template Development/O=Lotus Notes
  2037. PURSAFO
  2038. Fde!f^^
  2039. a15-E
  2040. $ScriptLib
  2041. $ScriptLib_O
  2042. $TITLE
  2043. $Flags
  2044. $PublicAccess
  2045. '++LotusScript Development Environment:2:5:(Options):0:74
  2046. '---------------------------------------------------------------------------------------
  2047. ' Domino Web Server sample account management app.
  2048. ' Lotus Development Corp.
  2049. '---------------------------------------------------------------------------------------
  2050. Option Public
  2051. Option Declare
  2052. Use "Modifiable Constants"
  2053. '++LotusScript Development Environment:2:5:(Forward):0:1
  2054. Declare Function GetPersonDocument (Byval personName As String, nab As NotesDatabase) As NotesDocument
  2055. Declare Function IsPasswordOK( Byval pw As String ) 
  2056. Declare Sub WriteInitialAgentData( req As NotesDocument )
  2057. Declare Sub WriteFinalAgentData( req As NotesDocument )
  2058. Declare Sub EnsureUserInNAB(Byval fullname As String)
  2059. Declare Sub AddUserToGroup( Byval fullname As String, Byval group As String, nab As NotesDatabase )
  2060. '++LotusScript Development Environment:2:5:(Declarations):0:10
  2061. ' NAMELookup and OSMemFree are used in alternate code that 
  2062. ' is commented out in EnsureUserInNAB.  The location of these
  2063. ' Notes API routines is required in these LotusScript declarations.
  2064. ' The locations are platform specific, so if you choose to use this
  2065. ' code you must remove the %rem and %endrem statements 
  2066. ' surrounding the set of declarations appropriate for the platform
  2067. ' on which you are deploying this application, and you must also
  2068. ' follow the instructions in the comments in EnsureUserInNAB.
  2069. '=============== Win32 Intel Version=====================
  2070. Declare Sub NAMELookup Lib "nnotes.dll" _
  2071. (Byval serverName As Integer, _
  2072. Byval flags As Integer, _
  2073. Byval numNameSpaces As Integer, _
  2074. Byval nameSpaces As String, _
  2075. Byval numNames As Integer, _
  2076. Byval names As String, _
  2077. Byval numItems As Integer, _
  2078. Byval items As String, _
  2079. rethBuffer As Long _
  2080. Declare Sub OSMemFree Lib "nnotes.dll" (Byval hBuffer As Long)
  2081. '=============== end Win32 Intel Version==================
  2082. %ENDREM
  2083. '=============== OS/2 Version=====================
  2084. Declare Sub NAMELookup Lib "inotes.dll" _
  2085. (Byval serverName As Integer, _
  2086. Byval flags As Integer, _
  2087. Byval numNameSpaces As Integer, _
  2088. Byval nameSpaces As String, _
  2089. Byval numNames As Integer, _
  2090. Byval names As String, _
  2091. Byval numItems As Integer, _
  2092. Byval items As String, _
  2093. rethBuffer As Long _
  2094. Declare Sub OSMemFree Lib "inotes.dll" (Byval hBuffer As Long)
  2095. '=============== end OS/2 Version==================
  2096. %ENDREM
  2097. '=============== Win32 Alpha Version=====================
  2098. Declare Sub NAMELookup Lib "anotes.dll" _
  2099. (Byval serverName As Integer, _
  2100. Byval flags As Integer, _
  2101. Byval numNameSpaces As Integer, _
  2102. Byval nameSpaces As String, _
  2103. Byval numNames As Integer, _
  2104. Byval names As String, _
  2105. Byval numItems As Integer, _
  2106. Byval items As String, _
  2107. rethBuffer As Long _
  2108. Declare Sub OSMemFree Lib "anotes.dll" (Byval hBuffer As Long)
  2109. '=============== end Win32 Alpha Version==================
  2110. %ENDREM
  2111. '=============== AIX Version=====================
  2112. Declare Sub NAMELookup Lib "libnotes_r.a" _
  2113. (Byval serverName As Integer, _
  2114. Byval flags As Integer, _
  2115. Byval numNameSpaces As Integer, _
  2116. Byval nameSpaces As String, _
  2117. Byval numNames As Integer, _
  2118. Byval names As String, _
  2119. Byval numItems As Integer, _
  2120. Byval items As String, _
  2121. rethBuffer As Long _
  2122. Declare Sub OSMemFree Lib "libnotes_r.a" (Byval hBuffer As Long)
  2123. '=============== end AIX Version==================
  2124. %ENDREM
  2125. '=============== HP-UX Version=====================
  2126. Declare Sub NAMELookup Lib "libnotes.sl" _
  2127. (Byval serverName As Integer, _
  2128. Byval flags As Integer, _
  2129. Byval numNameSpaces As Integer, _
  2130. Byval nameSpaces As String, _
  2131. Byval numNames As Integer, _
  2132. Byval names As String, _
  2133. Byval numItems As Integer, _
  2134. Byval items As String, _
  2135. rethBuffer As Long _
  2136. Declare Sub OSMemFree Lib "libnotes.sl" (Byval hBuffer As Long)
  2137. '=============== end HP-UX Version==================
  2138. %ENDREM
  2139. '=============== Solaris (SPARC & Intel) Version=====================
  2140. Declare Sub NAMELookup Lib "libnotes.so" _
  2141. (Byval serverName As Integer, _
  2142. Byval flags As Integer, _
  2143. Byval numNameSpaces As Integer, _
  2144. Byval nameSpaces As String, _
  2145. Byval numNames As Integer, _
  2146. Byval names As String, _
  2147. Byval numItems As Integer, _
  2148. Byval items As String, _
  2149. rethBuffer As Long _
  2150. Declare Sub OSMemFree Lib "libnotes.so" (Byval hBuffer As Long)
  2151. '=============== end Solaris (SPARC & Intel) Version==================
  2152. %ENDREM
  2153. '++LotusScript Development Environment:2:1:GetPersonDocument:3:8
  2154. ' Find the person document in the NAB for the person named in the argument.
  2155. Function GetPersonDocument (Byval personName As String, nab As NotesDatabase) As NotesDocument
  2156.      Dim coll As NotesDocumentCollection
  2157.      Dim search As String
  2158.      
  2159.      search$ = "Form = ""Person"" & @LowerCase(FullName) = """ + Lcase$(personName) + """"
  2160.      Set coll = nab.Search(search$, Nothing, 0)
  2161.      
  2162.      Set GetPersonDocument = coll.GetFirstDocument
  2163.      
  2164. End Function
  2165. '++LotusScript Development Environment:2:1:IsPasswordOK:6:8
  2166. ' Some basic checking that a password is OK. This
  2167. ' checks the hashed password, which is the only form
  2168. ' available to us. The cleartext passwords are not stored
  2169. ' anywhere.
  2170. Function IsPasswordOK( Byval pw As String ) 
  2171.      IsPasswordOK = True
  2172.      
  2173.      If Left$(pw, 1) <> "(" Then
  2174.           IsPasswordOK = False
  2175.      End If
  2176.      
  2177.      If Right$(pw, 1) <> ")" Then
  2178.           IsPasswordOK = False
  2179.      End If 
  2180.      
  2181. End Function
  2182. '++LotusScript Development Environment:2:2:WriteInitialAgentData:3:8
  2183. ' Write the initial agent bookkeeping information into the request document.
  2184. Sub WriteInitialAgentData( req As NotesDocument )
  2185.      
  2186.      req.AgentStatus = "Agent running"
  2187.      
  2188. End Sub
  2189. '++LotusScript Development Environment:2:2:WriteFinalAgentData:4:8
  2190. ' Write the agent's bookkeeping information into a request document.
  2191. ' This leaves a trail that can help to diagnose problems that might occur.
  2192. Sub WriteFinalAgentData( req As NotesDocument )
  2193.      
  2194.      Dim dateTime As New NotesDateTime( "" )
  2195.      Call dateTime.SetNow
  2196.      Set req.WhenHandled = dateTime
  2197.      Call req.ReplaceItemValue( "State", "D" )
  2198.      
  2199.      ' Since this agent is run synchronously, we don't need to save the document
  2200.      ' here. Domino will do it as part of processing the document.
  2201.      
  2202. End Sub
  2203. '++LotusScript Development Environment:2:2:EnsureUserInNAB:5:8
  2204. ' This sub is used to guarantee that the NAB view of users is up-to-date after adding a new
  2205. ' user. Domino 1.5 does not force the view to be up-to-date when authenticating users, so
  2206. ' we'll do it ourselves so the user can start working right away.
  2207. Sub EnsureUserInNAB(Byval fullname As String)
  2208.      
  2209.      ' %rem goes here -- see below
  2210.      
  2211.      Dim pab1 As  New NotesDatabase("","")
  2212.      Dim pab2 As New NotesDatabase("","")
  2213.      Dim v As NotesView
  2214.      
  2215.      Call pab1.Open("",nabPeoplePath$)
  2216.      Set v = pab1.GetView("($Users)")
  2217.      v.Refresh
  2218.      
  2219.      If nabPeoplePath$ <> nabGroupsPath$ Then
  2220.           Call pab2.Open("",nabGroupsPath$)
  2221.           Set v = pab2.GetView("($ServerAccess)")
  2222.      Else
  2223.           Set v = pab1.GetView("($ServerAccess)")
  2224.      End If
  2225.      v.Refresh
  2226.      
  2227.      ' %endrem goes here -- see below
  2228.      
  2229.      ' NOTE: testing by Lotus QE has determined that the above code does not
  2230.      ' always have the desired effect due to the caching strategies used for 
  2231.      ' authentication information by the Domino server.  In cases where users are
  2232.      ' being registered in the primary PAB and sufficient free indexer tasks are
  2233.      ' available, the account information should be active in less than 60 seconds.  
  2234.      ' In other cases, however, it may take several minutes.  The code that is 
  2235.      ' commented out below offers a way to get immediate results through the use
  2236.      ' of calls to the Notes API. This code has not been rigorously tested by Lotus
  2237.      ' only on the Win32 Intel platform. 
  2238.      
  2239.      ' To activate this code you must first go to the Declarations section of this Script
  2240.      ' Library and un-comment the subroutine declarations appropriate for the server 
  2241.      ' platform on which this application will run, then return here and put %rem and 
  2242.      ' %endrem statements around the above code in the locations indicated in the
  2243.      ' comments, and then remove the %rem and %endrem below.  Finally, recompile
  2244.      ' the agents in this database (see step 5 in the instruction in the Using document)
  2245.      ' to make sure this change takes effect.
  2246.      
  2247.      ' If you activate this code, the id that you use to re-compile the agenst must be
  2248.      ' granted  permission to run unrestricted LotusScript agents on your server.
  2249.      
  2250. %REM 
  2251.      Dim hBuf As Long     
  2252.      Call NAMELookup(0, 0, 1, "$Users", 1, fullname, 1, "HTTPPassword", hBuf)
  2253.      Call OSMemFree(hBuf)
  2254.      Call NAMELookup(0, 0, 1, "$ServerAccess", 1, fullname, 1, "ListName", hBuf)
  2255.      Call OSMemFree(hBuf)
  2256. %ENDREM
  2257.      
  2258. End Sub
  2259. '++LotusScript Development Environment:2:2:AddUserToGroup:14:8
  2260. ' This is a complicated sub. It adds a user to a group, but does it in a way
  2261. ' that allows very large groups. Because Notes stores group members in
  2262. ' text lists, and text lists can have only 15K bytes in them, simple groups
  2263. ' are limited to around 1000 members. To have more members than that,
  2264. ' the group must be broken into a number of other groups, which are
  2265. ' then referenced as members of a master group.
  2266. ' This sub handles all of that complexity. The group name passed in
  2267. ' is the name of the master group, and this sub will handle the creation
  2268. ' and populating of the sub-groups as needed. The sub-groups will
  2269. ' be named by appending numbers to the master group name, and will
  2270. ' have slightly more than 10K bytes of members in them.
  2271. Sub AddUserToGroup( Byval fullname As String, Byval group As String, nab As NotesDatabase )
  2272.      
  2273.      ' Load up our static groups view
  2274.      
  2275.      Dim groups As NotesView
  2276.      
  2277.      Set groups = nab.GetView( "Groups" )
  2278.      
  2279.      Dim groupMainDoc As NotesDocument
  2280.      Set groupMainDoc = groups.GetDocumentByKey( group )
  2281.      
  2282.      Dim saveGroupMainDoc As Integer
  2283.      saveGroupMainDoc = False
  2284.      
  2285.      Dim subGroup As String
  2286.      Dim newGroup As Integer
  2287.      
  2288.      subGroup = ""     
  2289.      newGroup = False
  2290.      
  2291.      If groupMainDoc Is Nothing Then
  2292.           Set groupMainDoc = New NotesDocument( nab )
  2293.           newGroup = True
  2294.           groupMainDoc.Form = "Group"
  2295.           groupMainDoc.ListName = group
  2296.           subGroup = group & " 1"          
  2297.           groupMainDoc.Members = subGroup          
  2298.           groupMainDoc.GroupType = "0"
  2299.           Call groupMainDoc.ComputeWithForm( False, False )
  2300.           saveGroupMainDoc = True
  2301.      End If
  2302.      
  2303.      Dim groupMainMembers As NotesItem
  2304.      Set groupMainMembers = groupMainDoc.GetFirstItem( "Members" )
  2305.      
  2306.      If groupMainMembers Is Nothing Then
  2307.           Call groupMainDoc.ReplaceItemValues("Members","")
  2308.           Set groupMainMembers = groupMainDoc.GetFirstItem( "Members" )          
  2309.      End If
  2310.      
  2311.      ' Find last subgroup entry in the members list
  2312.      
  2313.      If subGroup = "" Then     
  2314.           Forall s In groupMainMembers.Values
  2315.                If Left$( s, Len( group ) ) = group Then
  2316.                     subGroup = s
  2317.                End If
  2318.           End Forall
  2319.      End If
  2320.      
  2321.      ' Open the subgroup, and keep trying until we find one with room
  2322.      
  2323.      Dim groupNum As Integer
  2324.      groupNum = 0
  2325.      
  2326.      ' Which subgroup was the last one
  2327.      If subGroup <> "" Then
  2328.           groupNum = Val( Right( subGroup, Len( subGroup ) - Len( group ) - 1 ) )
  2329.      Else
  2330.           groupNum = 1
  2331.           subGroup = group & " 1"
  2332.      End If
  2333.      
  2334.      Dim groupSubDoc As NotesDocument
  2335.      
  2336.      Do
  2337.           Set groupSubDoc = groups.GetDocumentByKey( subGroup )
  2338.           
  2339.           If groupSubDoc Is Nothing Then
  2340.                
  2341.              ' Create a new subgroup document
  2342.                
  2343.                Dim newSubGroup As Integer
  2344.                newSubGroup = False
  2345.                
  2346.                Set groupSubDoc = New NotesDocument( nab )
  2347.                newSubGroup = True
  2348.                
  2349.                groupSubDoc.Form = "Group"
  2350.                groupSubDoc.ListName = subGroup
  2351.                groupSubDoc.GroupType = "0"
  2352.                
  2353.                Call groupSubDoc.ComputeWithForm( False, False )
  2354.                
  2355.                ' check all values of groupMainMembers to see if 
  2356.                ' one of them is the subgroup.  Note: this works around
  2357.                ' an apparent bug in NotesItem.Contains
  2358.                
  2359.                Dim subGroupFound As Integer
  2360.                
  2361.                subGroupFound = False
  2362.                If newGroup = True Then
  2363.                     subGroupFound = True
  2364.                Else
  2365.                     Forall s In groupMainMembers.Values
  2366.                          If s = subGroup Then
  2367.                               subGroupFound = True
  2368.                          End If
  2369.                     End Forall
  2370.                End If
  2371.                
  2372.                ' Add it to the main group if needed
  2373.                If Not subGroupFound Then
  2374.                     Call groupMainMembers.AppendToTextList( subGroup )
  2375.                     saveGroupMainDoc = True
  2376.                End If
  2377.           End If
  2378.           
  2379.           ' See if the subgroup still has room, if so, we've found our subgroup
  2380.           
  2381.           Dim groupSubMembers As NotesItem
  2382.           Set groupSubMembers = groupSubDoc.GetFirstItem( "Members" )
  2383.           
  2384.           If groupSubMembers.ValueLength < 10000 Then
  2385.                Exit Do
  2386.           End If
  2387.           
  2388.           ' If no room, try the next one
  2389.           
  2390.           groupNum = groupNum + 1
  2391.           subGroup = group & " " & groupNum
  2392.      Loop
  2393.      
  2394.      ' Finally: add the user to the subgroup
  2395.      Call groupSubMembers.AppendToTextList( fullname )
  2396.      
  2397.      Call groupSubDoc.Save( False, True )
  2398.      
  2399.      If saveGroupMainDoc Then
  2400.           Call groupMainDoc.Save( False, True )
  2401.      End If
  2402.      
  2403.      Exit Sub
  2404.      
  2405.      
  2406. End Sub
  2407. 4    4    L
  2408. ^$    +$
  2409.     K$    ,(
  2410. O=Lotus Notes
  2411. O=Lotus Notes
  2412. PURSAFO
  2413. |.:#U
  2414. O=Lotus Notes
  2415. CN=Lotus Notes Template Development/O=Lotus Notes
  2416. PURSAFO
  2417. Fde!f^^
  2418. $ScriptLib
  2419. $ScriptLib_O
  2420. $TITLE
  2421. $Flags
  2422. $PublicAccess
  2423. '++LotusScript Development Environment:2:5:(Options):0:74
  2424. '--------------------------------------------------------------------------------------
  2425. ' Domino Web Server sample account management app.
  2426. ' Lotus Development Corp.
  2427. '---------------------------------------------------------------------------------------
  2428. ' Note:  this agent runs with the permissions of the Web User for 
  2429. ' all operations in this database, and with the permission of the
  2430. ' user whose signature is on the agent for all operations in the PAB
  2431. Option Public
  2432. Option Declare
  2433. ' This script uses the utility functions in the Request Utilities script library.
  2434. Use "Request Utilities"
  2435. Use "Modifiable Constants"
  2436. '++LotusScript Development Environment:2:5:(Forward):0:1
  2437. Declare Sub Initialize
  2438. Declare Sub HandleChangePassword ( req As NotesDocument )
  2439. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2440. '++LotusScript Development Environment:2:2:Initialize:1:10
  2441. Sub Initialize
  2442.      Dim s As New NotesSession
  2443.      
  2444.      Dim doc As NotesDocument
  2445.      Set doc = s.DocumentContext
  2446.      
  2447.      ' Handle Change Password Requests
  2448.      If ( doc.Form(0) = "ChPw" And doc.State(0) = "P" ) Then
  2449.           Call HandleChangePassword( doc )
  2450.      End If
  2451.      
  2452. End Sub
  2453. '++LotusScript Development Environment:2:2:HandleChangePassword:3:8
  2454. ' Handle any Change Password requests that come in.
  2455. Sub HandleChangePassword ( req As NotesDocument )
  2456.      Dim status As String    
  2457.      On Error Goto Oops
  2458.      
  2459.      Call WriteInitialAgentData( req )
  2460.      
  2461.      ' Certain rules:
  2462.      '   Old password must have been hashed.
  2463.      
  2464.      If Not IsPasswordOK( req.OldPassword(0) ) Then  
  2465.           req.AgentStatus = "Old password ill-formed"
  2466.           Goto Done
  2467.      End If
  2468.      
  2469.      '   New password must have been hashed.
  2470.      
  2471.      If Not IsPasswordOK( req.NewPassword(0) )  Then
  2472.           req.AgentStatus =  "New password ill-formed"
  2473.           Goto Done
  2474.      End If
  2475.      
  2476.      ' Name in the request must match the name in the parent document
  2477.      
  2478.      Dim docPerson As NotesDocument
  2479.      
  2480.      Set docPerson = GetPersonDocument( req.FullName(0), req.ParentDatabase )
  2481.      
  2482.      ' This can only fail if something is very, very wrong -- e.g., someone's trying to break in
  2483.      If docPerson Is Nothing Then
  2484.           req.AgentStatus = "No such user"
  2485.           Goto Done
  2486.      End If
  2487.      
  2488.      ' sanity check to make sure we found the right thing
  2489.      If req.FullName(0) <> docPerson.FullName(0) Then
  2490.           req.AgentStatus = "Request name doesn't match person name"
  2491.           Goto Done
  2492.      End If
  2493.      
  2494.      ' The password must match the person's password
  2495.      
  2496.      If req.OldPassword(0) <> docPerson.HTTPPassword(0) Then
  2497.           req.AgentStatus = "Old password is incorrect"
  2498.           Print "<b>Your old password does not match your current password.</b>"
  2499.           Print "<br>Please go back and correct your password."
  2500.           Goto Done
  2501.      End If
  2502.      
  2503.      '
  2504.      '  Ok: Find the user in the NAB.
  2505.      '
  2506.      
  2507.      ' This is the NAB to use for people
  2508.      Dim nabPeople As NotesDatabase
  2509.      Set nabPeople = New NotesDatabase( "", nabPeoplePath$ )
  2510.      
  2511.      Dim nabPerson As NotesDocument
  2512.      Set nabPerson = GetPersonDocument( req.FullName(0), nabPeople )
  2513.      
  2514.      If nabPerson Is Nothing Then
  2515.           req.AgentStatus = "No such user"
  2516.           Goto Done
  2517.      End If
  2518.      
  2519.      ' Check that the old password matches.
  2520.      
  2521.      If req.OldPassword(0) <> nabPerson.HTTPPassword(0) Then
  2522.           req.AgentStatus = "Old password is incorrect"
  2523.           Print "<b>Your old password does not match your current password.</b>"
  2524.           Print "<br>Please go back and correct your password."
  2525.           Goto Done
  2526.      End If
  2527.      
  2528.      ' OK: Set the new password in the NAB
  2529.      
  2530.      Call nabPerson.ReplaceItemValue( "HTTPPassword", req.NewPassword(0) )
  2531.      Call nabPerson.Save( False, True )
  2532.      
  2533.      ' Update the person document in this database.
  2534.      Call docPerson.ReplaceItemValue( "HTTPPassword", req.NewPassword(0) )
  2535.      Call docPerson.Save( False, True )
  2536.      
  2537.      Call EnsureUserInNAB( req.FullName(0) )
  2538.      
  2539.      req.AgentStatus = "Successful"
  2540.      Print "<b>Thank you " + docPerson.FirstName(0) + ". Your password has been changed.</b>"
  2541.      Print "<br><br><a href=""/"">Lotus Domino Home Page</a>"
  2542.      
  2543. Done:
  2544.      On Error Goto Bail
  2545.      
  2546.      Call WriteFinalAgentData( req )
  2547.      
  2548.      Exit Sub
  2549.      
  2550. Oops:
  2551.      status$ = "Error " & Err() & " at line " & Erl() & ": " & Error()
  2552.      req.AgentStatus = status$
  2553.      Resume Done
  2554.      
  2555. Bail:
  2556.      status$ = "Error " & Err() & " at line " & Erl() & ": " & Error()
  2557.      Resume BailOut
  2558. BailOut:
  2559.      
  2560. End Sub
  2561. O=Lotus Notes
  2562. O=Lotus Notes
  2563. PURSAFO
  2564. |.:#U
  2565. O=Lotus Notes
  2566. CN=Lotus Notes Template Development/O=Lotus Notes
  2567. PURSAFO
  2568. Fde!f^^
  2569. +s1_sh
  2570. $TITLE
  2571. $AssistType
  2572. $AssistLastRun
  2573. $AssistDocCount
  2574. $Comment
  2575. $AssistFlags
  2576. $AssistTrigger
  2577. $AssistInfo
  2578. $AssistQuery
  2579. $AssistAction
  2580. $AssistAction_Ex
  2581. '++LotusScript Development Environment:2:5:(Options):0:74
  2582. '--------------------------------------------------------------------------------------
  2583. ' Domino Web Server sample account management app.
  2584. ' Lotus Development Corp.
  2585. '---------------------------------------------------------------------------------------
  2586. ' Note:  this agent runs with the permissions of the Web User for
  2587. ' all operations in this database, and with the permission of the
  2588. ' user whose signature is on the agent for all operations in the PAB. 
  2589. Option Public
  2590. Option Declare
  2591. ' This script uses the utility functions in the Request Utilities script library.
  2592. Use "Request Utilities"
  2593. Use "Modifiable Constants"
  2594. '++LotusScript Development Environment:2:5:(Forward):0:1
  2595. Declare Sub Initialize
  2596. Declare Sub HandleNewAccount ( req As NotesDocument )
  2597. '++LotusScript Development Environment:2:5:(Declarations):0:2
  2598. '++LotusScript Development Environment:2:2:Initialize:1:10
  2599. Sub Initialize
  2600.      Dim s As New NotesSession
  2601.      
  2602.      Dim doc As NotesDocument
  2603.      Set doc = s.DocumentContext
  2604.      
  2605.      ' Handle New Account Request
  2606.      
  2607.      If ( doc.Form(0) = "NewAcc" And doc.State(0) = "P" ) Then
  2608.           Call HandleNewAccount( doc )
  2609.      End If     
  2610.      
  2611. End Sub
  2612. '++LotusScript Development Environment:2:2:HandleNewAccount:5:8
  2613. ' This sub handles the creation of new accounts. Person documents are created
  2614. ' in both the NAB and in this database. The new user is also added to any groups
  2615. ' that are needed.
  2616. Sub HandleNewAccount ( req As NotesDocument )
  2617.      Dim status As String    
  2618.      On Error Goto Oops
  2619.      
  2620.      Call WriteInitialAgentData( req )
  2621.      
  2622.      '   Password must have been hashed.
  2623.      
  2624.      If Not IsPasswordOK( req.NewPassword(0) ) Then  
  2625.           req.AgentStatus = "Password ill-formed"
  2626.           Goto Done
  2627.      End If
  2628.      
  2629.      ' This is the NAB to use for creating people docs
  2630.      Dim nabPeople As NotesDatabase
  2631.      Set nabPeople = New NotesDatabase( "", nabPeoplePath$ )
  2632.      
  2633.      ' This is the NAB to use for creating group docs
  2634.      Dim nabGroups As NotesDatabase
  2635.      Set nabGroups = New NotesDatabase( "", nabGroupsPath$ )
  2636.      
  2637.      '
  2638.      '  Ok: Check that the user doesn't already exist in the NAB
  2639.      '
  2640.      Dim docPerson As NotesDocument
  2641.      Set docPerson = GetPersonDocument( req.FullName(0), nabPeople )
  2642.      
  2643.      If Not (docPerson Is Nothing) Then
  2644.           req.AgentStatus = "Duplicate name"
  2645.           
  2646.           Print "<h2>Registration not completed:</h2>"
  2647.           Print "<br>The name " + req.FullName(0) + " is already in use.  Please try registering again with a different name."
  2648.           Print "<br>To try again, go back to the previous page and re-enter the name fields."
  2649.           Print "<br><br><a href=""/"">Lotus Domino Home Page</a>"
  2650.           
  2651.           Goto Done
  2652.      End If
  2653.      
  2654.      ' Create the person document in the NAB
  2655.      
  2656.      Set docPerson = New NotesDocument( nabPeople )
  2657.      
  2658.      docPerson.Form = "Person"
  2659.      docPerson.Type = "Person"
  2660.      docPerson.LastName = req.LastName
  2661.      docPerson.FirstName = req.FirstName
  2662.      docPerson.MiddleInitial = req.MiddleInitial
  2663.      docPerson.FullName = req.FullName
  2664.      docPerson.OfficePhoneNumber = req.OfficePhoneNumber
  2665.      docPerson.MailAddress = req.EMail
  2666.      docPerson.HTTPPassword = req.NewPassword
  2667.      Call docPerson.ComputeWithForm( False, False )
  2668.      Call docPerson.Save( False, True )
  2669.      
  2670.      ' Add the person to the proper groups
  2671.      
  2672.      Forall group In req.GroupsToJoin
  2673.           Call AddUserToGroup( req.FullName(0), group, nabGroups )
  2674.      End Forall
  2675.      
  2676.      ' Create the person document in this database
  2677.      
  2678.      Set docPerson = New NotesDocument( req.ParentDatabase )
  2679.      
  2680.      docPerson.Form = "Person"
  2681.      docPerson.LastName = req.LastName
  2682.      docPerson.FirstName = req.FirstName
  2683.      docPerson.MiddleInitial = req.MiddleInitial
  2684.      docPerson.FullName = req.FullName
  2685.      docPerson.OfficePhoneNumber = req.OfficePhoneNumber
  2686.      docPerson.HTTPPassword = req.NewPassword
  2687.      docPerson.Email = req.Email
  2688.      docPerson.Company = req.Company
  2689.      Call docPerson.ComputeWithForm( False, False )
  2690.      Call docPerson.Save( False, True )
  2691.      
  2692.      Call EnsureUserInNAB( req.FullName(0) )
  2693.      
  2694.      req.AgentStatus = "Successful"
  2695.      Print "<h2>Thank you " + req.FirstName(0) + ", for registering with the Domino site!</h2>"
  2696.      Print "<br>You can now access all of the areas of the Domino site to help you setup and use Domino."
  2697.      Print "<br>Your user name is: " + req.FullName(0)
  2698.      Print "<br><br><a href=""/"">Lotus Domino Home Page</a>"
  2699.      
  2700. Done:
  2701.      On Error Goto Bail
  2702.      
  2703.      Call WriteFinalAgentData( req )
  2704.      
  2705.      Exit Sub
  2706.      
  2707. Oops:
  2708.      status$ = "Error " & Err() & " at line " & Erl() & ": " & Error()
  2709.      req.AgentStatus = status$
  2710.      Resume Done
  2711.      
  2712. Bail:
  2713.      status$ = "Error " & Err() & " at line " & Erl() & ": " & Error()
  2714.      Resume BailOut
  2715. BailOut:
  2716.      
  2717. End Sub
  2718. -P    #$
  2719. O=Lotus Notes
  2720. O=Lotus Notes
  2721. PURSAFO
  2722. |.:#U
  2723. O=Lotus Notes
  2724. CN=Lotus Notes Template Development/O=Lotus Notes
  2725. PURSAFO
  2726. Fde!f^^
  2727. $TITLE
  2728. $AssistType
  2729. $AssistLastRun
  2730. $AssistDocCount
  2731. $Comment
  2732. $AssistFlags
  2733. $AssistTrigger
  2734. $AssistInfo
  2735. $AssistQuery
  2736. $AssistAction
  2737. $AssistAction_Ex
  2738. O=Lotus Notes
  2739. O=Lotus Notes
  2740. PURSAFO
  2741. |.:#U
  2742. O=Lotus Notes
  2743. CN=Lotus Notes Template Development/O=Lotus Notes
  2744. PURSAFO
  2745. Fde!f^^
  2746. PP5#_W:
  2747. $Readers
  2748. $TITLE
  2749. $Index
  2750. $Formula
  2751. $FormulaClass
  2752. $Totals
  2753. $ViewFormat
  2754. $Comment
  2755. O=Lotus Notes
  2756. O=Lotus Notes
  2757. PURSAFO
  2758. |.:#U
  2759. O=Lotus Notes
  2760. CN=Lotus Notes Template Development/O=Lotus Notes
  2761. PURSAFO
  2762. Fde!f^^
  2763. $Readers
  2764. $TITLE
  2765. $Index
  2766. $Formula
  2767. $FormulaClass
  2768. $ViewFormat
  2769. $Comment
  2770. O=Lotus Notes
  2771. O=Lotus Notes
  2772. PURSAFO
  2773. |.:#U
  2774. O=Lotus Notes
  2775. CN=Lotus Notes Template Development/O=Lotus Notes
  2776. PURSAFO
  2777. Fde!f^^
  2778. <bl[b
  2779. Z QxW
  2780. $Readers
  2781. $TITLE
  2782. $Index
  2783. $Formula
  2784. $FormulaClass
  2785. $Totals
  2786. $ViewFormat
  2787. $Comment
  2788. O=Lotus Notes
  2789. O=Lotus Notes
  2790. PURSAFO
  2791. |.:#U
  2792. O=Lotus Notes
  2793. CN=Lotus Notes Template Development/O=Lotus Notes
  2794. PURSAFO
  2795. Fde!f^^
  2796. xQpd)joO
  2797. $Readers
  2798. $TITLE
  2799. $Index
  2800. $Formula
  2801. $FormulaClass
  2802. $Totals
  2803. $ViewFormat
  2804. $Comment
  2805. O=Lotus Notes
  2806. O=Lotus Notes
  2807. PURSAFO
  2808. |.:#U
  2809. O=Lotus Notes
  2810. CN=Lotus Notes Template Development/O=Lotus Notes
  2811. PURSAFO
  2812. Fde!f^^
  2813. $Readers
  2814. $TITLE
  2815. $Index
  2816. $Formula
  2817. $FormulaClass
  2818. $Totals
  2819. $ViewFormat
  2820. $Comment
  2821. O=Lotus Notes
  2822. O=Lotus Notes
  2823. PURSAFO
  2824. |.:#U
  2825. O=Lotus Notes
  2826. CN=Lotus Notes Template Development/O=Lotus Notes
  2827. PURSAFO
  2828. Fde!f^^
  2829. $Readers
  2830. $TITLE
  2831. $Index
  2832. $Formula
  2833. $FormulaClass
  2834. $Totals
  2835. $ViewFormat
  2836. $Comment
  2837. 07/07/97 02:34:07 PM Richard Schwartz/Iris updated LocalDomainServers
  2838. 07/07/97 02:06:53 PM Richard Schwartz/Iris updated Anonymous
  2839. 07/07/97 02:06:48 PM Richard Schwartz/Iris updated -Default-
  2840. 07/07/97 02:05:25 PM Richard Schwartz/Iris updated -Default-
  2841. 07/07/97 02:05:17 PM Richard Schwartz/Iris updated Anonymous
  2842. 07/07/97 02:05:12 PM Richard Schwartz/Iris updated OtherDomainServers
  2843. 07/07/97 02:05:05 PM Richard Schwartz/Iris added OtherDomainServers
  2844. 07/07/97 01:55:09 PM Richard Schwartz/Iris updated -Default-
  2845. 07/07/97 01:54:50 PM Richard Schwartz/Iris updated LocalDomainServers
  2846. 07/07/97 01:54:43 PM Richard Schwartz/Iris added LocalDomainServers
  2847. 07/07/97 01:54:38 PM Richard Schwartz/Iris updated -Default-
  2848. 07/07/97 01:52:50 PM Richard Schwartz/Iris updated Anonymous
  2849. 07/07/97 01:52:38 PM Richard Schwartz/Iris added Anonymous
  2850. 06/19/97 12:49:20 PM Richard Schwartz/Iris deleted Domino Web Users
  2851. 01/22/97 12:11:36 PM Richard Schwartz/CAM/Lotus updated -Default-
  2852. 01/21/97 01:49:03 PM Richard Schwartz/CAM/Lotus updated -Default-
  2853. 01/21/97 01:48:50 PM Richard Schwartz/CAM/Lotus deleted Richard Schwartz/Cam/Lotus
  2854. 01/21/97 01:48:44 PM Richard Schwartz/CAM/Lotus updated -Default-
  2855. 01/21/97 01:39:48 PM Richard Schwartz/CAM/Lotus updated -Default-
  2856. 01/21/97 01:39:05 PM Richard Schwartz/CAM/Lotus updated Richard Schwartz/Cam/Lotus
  2857. UserManager
  2858. Web Users
  2859. -Default-
  2860. Anonymous
  2861. LocalDomainServers
  2862. OtherDomainServers
  2863.