1 &version 2
2 &- ***********************************************************
3 &- * *
4 &- * Copyright, C Honeywell Information Systems Inc., 1982 *
5 &- * *
6 &- * Copyright c 1972 by Massachusetts Institute of *
7 &- * Technology and Honeywell Information Systems, Inc. *
8 &- * *
9 &- ***********************************************************
10 &-
11 &- HISTORY COMMENTS:
12 &- 1) change2019-05-22Swenson, approve2019-05-22MCR10055,
13 &- audit2019-05-22JJohnson, install2019-05-22MR12.6g-0020:
14 &- Fix annoying qedx prompt when running "ec master day".
15 &- END HISTORY COMMENTS
16 &-
17 &-
18 &- -
19 &- - Multics administrative operations
20 &- -
21 &- - this exec_com does most of the
22 &- - day-to-day stuff of adding and deleting users
23 &- -
24 &- - Modified September 1977 by T. Casey for MR6.0
25 &- - Modified August 1979 by C. Hornig for MR8.0
26 &- - Modified July 1981 by T. Casey for MR9.0
27 &- - Modified March 1982 by E. N. Kittlitz for qedx -pathname -no_rw_path.
28 &- - Modified September 1982 by E. N. Kittlitz for pmf suffixes.
29 &- - Modified February 1984 by Jim Lippard to use the segments command
30 &- - instead of check_info_segs.
31 &- Modified 1984-09-04 by E. Swenson for Version 2 PNTs.
32 &- Modified 1984-12-11, BIM: summarize_sys_log, version 2, new value.
33 &- Modified 1985-01-10, Keith Loepere, to move dir_quota into new_proj.
34 &- -
35 &- ---------------------------------------------
36 &trace &command off
37 &trace &input off
38 &goto &1
39 &- - - - - - - - - - - - - - - - - - - - - -
40 &-
41 &- DO NOT DELETE new_smf. Even though the command has been undocumented,
42 &- "install sat" or "install smf.cur.sat" will goto new_smf.
43 &-
44 &label new_smf
45 admin_util lock
46 daily_summary -nosum -nocutr
47 install smf.cur.sat
48 admin_util unlock
49 &quit
50 &- - - - - - - - - - - - - - - - - - - - - -
51 &label pmf
52 &if ¬ exists argument &2 &then exec_com err noarg Projectid
53 admin_util lock
54 archive x pmf &2.pmf
55 &if ¬ exists segment &2.pmf &then exec_com err no_pmf &2
56 &print Edit.
57 qedx -pathname &2.pmf -no_rw_path
58 cv_pmf &2.pmf
59 &if &ngreater severity cv_pmf 2 &then delete &2.pmf; exec_com err try_again
60 archive rd pmf &2.pmf
61 install &2.pdt
62 delete &2.pdt
63 admin_util unlock
64 &quit
65 &- - - - - - - - - - - - - - - - - - - - - -
66 &label install
67 &if &equal &2 sat &then &goto new_smf
68 &if &equal &2 smf.cur.sat &then &goto new_smf
69 install &2
70 &quit
71 &- - - - - - - - - - - - - - - - - - - - - -
72 &label misc
73 misc
74 &quit
75 &label charge
76 misc$charge
77 &quit
78 &label credit
79 misc$credit
80 &quit
81 &label dmisc
82 misc$dmisc
83 &quit
84 &- - - - - - - - - - - - - - - - - - - -
85 &label new_proj
86 &if ¬ exists argument &2 &then exec_com err noarg Projectid
87 admin_util lock
88 new_proj &2
89 cv_pmf &2.pmf
90 &if &ngreater severity cv_pmf 2 &then exec_com err bad_pmf
91 daily_summary -nosum -nocutr
92 install smf.cur.sat
93 install &2.pdt
94 delete &2.pdt
95 &if &exists segment >udd>&2>&2.pmf
96 &then delete &2.pmf
97 &else archive rd pmf &2.pmf
98 admin_util unlock
99 &quit
100 &- - - - - - - - - - - - - - - - - - - - - -
101 &label cu
102 &- Adding new user &2 on project &3.
103 &if ¬ exists argument &3 &then exec_com err noarg Projectid
104 &if ¬ is_legal_proj &3 &then exec_com err bad_proj &3
105 create_dir >user_dir_dir>&3>&2
106 set_iacl_dir >user_dir_dir>&3>&2 sma *.SysDaemon.*
107 set_iacl_seg >user_dir_dir>&3>&2 rew *.SysDaemon.*
108 set_acl >user_dir_dir>&3>&2 sma &2.&3.*
109 &quit
110 &- - - - - - - - - - - - - - - - - - - - - -
111 &label setdisk
112 enter_abs_request dodrp -rt -tm value_get -pn sys_admin disk_time -queue 1
113 &quit
114 &- - - - - - - - - - - - - - - - - - - - - -
115 &label disk_auto
116 &label disk_report
117 &label drp
118 &if &exists segment diskreport &then truncate diskreport
119 &print $ Following figure is total quota / current use.
120 sweep
121 &label findisk
122 admin_util lock 1800
123 value_set -pn sys_admin last_diskreport clock calendar_clock
124 charge_disk
125 admin_util unlock
126 file_output diskreport
127 print_disk
128 disk_stat_print
129 ioa_ "^|"
130 ioa_ "^/Projects 90% or <20"
131 disklow
132 ioa_ "^/Projects 80%"
133 disklow 0 80
134 ioa_ "^/Projects <40"
135 disklow 40 100
136 get_quota > >user_dir_dir >dumps
137 list_vols
138 revert_output
139 &goto &1_end
140 &label disk_auto_end
141 exec_com util dp diskreport accts0 2
142 exec_com util dp diskreport admin0 2
143 exec_com util dp diskreport admin1 2
144 exec_com util dp diskreport default 1
145 enter_abs_request dodrp -rt -tm value_get -pn sys_admin disk_time -queue 1
146 &quit
147 &-
148 &label disk_report_end
149 &label findisk_end
150 &label drp_end
151 &quit
152 &- - - - - - - - - - - - - - - - - - - - - -
153 &label rqm
154 &- Request copies of "&2" for the Multics distribution
155 &if ¬ exists argument &2 &then exec_com err noarg file_name
156 &if ¬ exists file &2 &then exec_com err nofile &2
157 exec_com util dp &2 admin0 &3
158 exec_com util dp &2 admin1 &3
159 exec_com util dp &2 assurance0 &3
160 exec_com util dp &2 assurance1 &3
161 exec_com util dp &2 director0 &3
162 exec_com util dp &2 director1 &3
163 exec_com util dp &2 director2 &3
164 exec_com util dp &2 director3 &3
165 exec_com util dp &2 director4 &3
166 exec_com util dp &2 director5 &3
167 exec_com util dp &2 director6 &3
168 exec_com util dp &2 director7 &3
169 exec_com util dp &2 sysprg0 &3
170 exec_com util dp &2 sysprg2 &3
171 exec_com util dp &2 default &3
172 &quit
173 &- - - - - - - - - - - - - - - - - - - - - -
174 &label upmf
175 admin_util lock
176 &if ¬ exists argument &3 &then exec_com err noarg Personid
177 &- add single user "arg-3" to project "arg-2"
178 archive x pmf &2.pmf
179 &if ¬ exists segment &2.pmf &then exec_com err no_pmf &2
180 &attach
181 qedx -pathname &2.pmf -no_rw_path
182 $i personid: &3;
183 \f
184 w
185 q
186 &detach
187 cv_pmf &2.pmf
188 &if &ngreater severity cv_pmf 2 &then delete &2.pmf; exec_com err try_again
189 install &2.pdt
190 archive rd pmf &2.pmf
191 delete &2.pdt
192 &if ¬ is_he_user &3 &then &print Warning: &3 not registered.
193 admin_util unlock
194 &quit
195 &- - - - - - - - - - - - - - - - - - - - - -
196 &label register
197 new_user
198 &quit
199 &label reg
200 new_user$nu
201 &quit
202 &- - - - - - - - - - - - - - - - - - - - - -
203 &label undelegate
204 &if ¬ exists argument &2 &then exec_com err noarg Projectid
205 &if &exists entry >udd>&2>&2.pmf &then &else &goto und_not_in_proj_dir
206 copy >udd>&2>&2.pmf ===.pj
207 &if &exists segment &2.pmf.pj &then &print A copy of >udd>&2>&2.pmf has been saved in wd>&2.pmf.pj
208 &label und_not_in_proj_dir
209 archive x pmf &2.pmf
210 &if &exists segment &2.pmf &then &else &goto und_not_in_archive
211 rename &2.pmf &2.pmf.ac
212 &print A copy of &2.pmf from pmf.archive has been saved in wd>&2.pmf.ac
213 &label und_not_in_archive
214 exec_com master recov &2
215 &goto undelegate1
216 &-
217 &label delegate
218 &label add_admin
219 &if &exists argument &2 &then &else exec_com err noarg Projectid
220 &if &exists argument &3 &then &else &goto delegate_no_pmf_dir
221 archive x pmf &3>&2.pmf
222 &if &exists segment &3>&2.pmf &then &else &goto delegate_not_pmf_archive_1
223 &print &2.pmf extracted from pmf.archive into &3 and deleted from archive
224 archive d pmf &2.pmf
225 &goto undelegate1
226 &label delegate_not_pmf_archive_1
227 exec_com master recov &2 &3
228 &goto undelegate1
229 &label delegate_no_pmf_dir
230 archive x pmf &2.pmf
231 &if &exists segment &2.pmf &then &else &goto delegate_not_pmf_archive
232 delete &2.pmf
233 &print &2 remains in pmf.archive. No pmf directory specified.
234 &goto undelegate1
235 &label delegate_not_pmf_archive
236 exec_com master recov &2
237 &label undelegate1
238 edit_proj &2 administrator
239 daily_summary -nosum -nocutr
240 install smf.cur.sat
241 &quit
242 &- - - - - - - - - - - - - - - - - - - - - -
243 &label dproj
244 &if ¬ exists argument &2 &then exec_com err noarg Projectid
245 admin_util lock
246 safety_sw_off >udd>&2
247 delete_proj &2
248 daily_summary -nosum -nocutr
249 install smf.cur.sat
250 archive d pmf &2.pmf
251 get_quota >user_dir_dir>&2 >user_dir_dir>&2>**
252 delete_dir >user_dir_dir>&2
253 admin_util unlock
254 &quit
255 &- - - - - - - - - - - - - - - - - - - - - -
256 &label pmisc
257 &- print the miscfile.
258 misc$print_misc
259 &quit
260 &- - - - - - - - - - - - - - - - - - - - - -
261 &label who_delg
262 &- see if the given project is delegated and if so to whom.
263 list_delegated_projects >system_control_1>sat &2
264 &quit
265 &- - - - - - - - - - - - - - - - - - - - - -
266 &label ison
267 &if ¬ exists argument &2 &then exec_com err noarg Person
268 ioa_ is_he_user &2
269 get_uid_with_lastname &2
270 &quit
271 &- - - - - - - - - - - - - - - - - - - - - -
272 &label change
273 new_user$change &f2
274 &quit
275 &- - - - - - - - - - - - - - - - - - - - - -
276 &label dpmf
277 admin_util lock
278 &if ¬ exists argument &3 &then exec_com err noarg Personid
279 &- deleting "&3" from proj "&2"
280 archive x pmf &2.pmf
281 &if ¬ exists segment &2.pmf &then exec_com err no_pmf &2
282 &attach
283 qedx -pathname &2.pmf -no_rw_path
284 $ipersonid:
285 \f
286 /^ * *personid: * *&3;/;/^ * *personid:/-1d
287 $-1d
288 w
289 q
290 &detach
291 cv_pmf &2.pmf
292 install &2.pdt
293 archive rd pmf &2.pmf
294 delete &2.pdt
295 admin_util unlock
296 &quit
297 &- - - - - - - - - - - - - - - - - - - - - -
298 &label add_anon
299 &- add anonymous user to proj &2, initpr &3, hdir &4, pass &5 optional
300 admin_util lock
301 &if ¬ exists argument &4 &then exec_com err noarg >user_dir_dir>&2>homedir
302 archive x pmf &2.pmf
303 &if ¬ exists segment &2.pmf &then exec_com err no_pmf &2
304 &attach
305 qedx -pathname &2.pmf -no_rw_path
306 $i personid: *;
307 attributes: ^vinitproc, ^vhomedir, ^nostartup;
308 homedir: &4;
309 initproc: &3;
310 &if &exists argument &5 &then password: &5;
311 \f
312 w
313 q
314 &detach
315 cv_pmf &2.pmf
316 &if &ngreater severity cv_pmf 2 &then delete &2.pmf; exec_com err try_again
317 install &2.pdt
318 delete &2.pdt
319 archive rd pmf &2.pmf
320 admin_util unlock
321 &quit
322 &- - - - - - - - - - - - - - - - - - - - - - - - -
323 &label chname
324 &if &exists argument &4 &then exec_com err quote_arg
325 &if ¬ exists argument &2 &then exec_com err noarg Personid
326 new_user$change &2 name &3
327 &quit
328 &- - - - - - - - - - - - - - - - - - - - - - - - - -
329 &label chaddr
330 &if &exists argument &4 &then exec_com err quote_arg
331 &if ¬ exists argument &2 &then exec_com err noarg Personid
332 &if ¬ is_he_user &2 &then exec_com err not_user &2
333 new_user$change &2 addr &3
334 &quit
335 &- - - - - - - - - - - - - - - - - - - - - - - - - -
336 &label chpass
337 &if ¬ exists argument &2 &then exec_com err noarg Personid
338 &if ¬ is_he_user &2 &then exec_com err not_user &2
339 new_user$change &2 pass
340 &quit
341 &- - - - - - - - - - - - - - - - - - - - -
342 &label chcpass
343 &if ¬ exists argument &2 &then exec_com err noarg_nolock Personid
344 &if ¬ is_he_user &2 &then exec_com err not_user &2
345 new_user$change &2 cpass
346 &quit
347 &- - - - - - - - - - - - - - - - - - - - -
348 &label chalias
349 &if ¬ exists argument &2 &then exec_com err noarg Personid
350 new_user$cga &2 alias &3
351 &quit
352 &- - - - - - - - - - - - - - - - - - - - -
353 &label chdf_proj
354 &if ¬ exists argument &3 &then exec_com err noarg Projectid
355 &if ¬ is_he_user &2 &then exec_com err not_user &2
356 new_user$change &2 proj &3
357 &quit
358 &- - - - - - - - - - - - - - - - - - - - -
359 &label chprog
360 &if ¬ exists argument &2 &then exec_com err noarg Personid
361 new_user$change &2 progn &3
362 &quit
363 &- - - - - - - - - - - - - - - - - - - - -
364 &label edit_projfile
365 &label edit_proj
366 &label epro
367 &label edit_reqfile
368 &label erf
369 edit_proj &f2 -long
370 daily_summary -nosum -nocutr
371 install smf.cur.sat
372 &quit
373 &- - - - - - - - - - - - - - - - - - - - -
374 &label labels
375 labl1
376 &quit
377 &- - - - - - - - - - - - - - - - - - - - -
378 &label recov
379 &if ¬ exists argument &2 &then exec_com err noarg Projectid
380 &if ¬ is_legal_proj &2 &then exec_com err noproj &2
381 admin_util lock
382 delete &2.pmf -bf
383 file_output &2.pmf;print_pdt >sc1>pdt>&2.pdt -pmf;revert_output
384 &if &exists argument &3 &then &else &goto recov_no_pmf_dir
385 move &2.pmf &3>==
386 &print &2.pmf recovered from &2.pdt moved into &3.
387 &goto recov_unlock
388 &label recov_no_pmf_dir
389 archive rd pmf &2.pmf
390 &print &2.pmf recovered from &2.pdt replaced in pmf.archive.
391 &label recov_unlock
392 admin_util unlock
393 &quit
394 &- - - - - - - - - - - - - - - - - - - - -
395 &label bill
396 admin_util lock
397 exec_com biller &2 &3 &4 &5 &6 &7 &8 &9
398 admin_util unlock
399 &quit
400 &- - - - - - - - - - - - - - - - - - - - -
401 &label check_log
402 print_sys_log -as -nhe -match &2
403 &quit
404 &- - - - - - - - - - - - - - - - - - - - -
405 &label day
406 &attach
407 admin_util lock
408 &if ¬ exists segment crank.absout &then exec_com err crank_absout_missing
409 ioa_ "^/'day' last done ^a ^a ^a ^a^/" value_get -pn sys_admin crank_absout_read
410 value_set -pn sys_admin crank_absout_read clock calendar_clock
411 qedx -pathname crank.absout -no_rw_path
412 gd/ device detached/
413 gd/ at end of file/
414 gd/^summarize_sys_log:/
415 b1a
416 b0$-1m7
417 i \c\b7\c\f
418 b7
419 /logged out/;"
420 b01,$p
421 Q
422 \f
423 b2a
424 \c\b1
425 eioa_ "^/^/************* ERROR IN CRANK ********^/^/"
426 b01,$p
427 eioa_ "^/^/************* ERROR IN CRANK ********^/^/"
428 eexec_com err crank_abort
429 Q
430 \f
431 \b2
432 &detach
433 &label gd_day
434 admin_util lock
435 &if &query Delete? &then delete crank.absout
436 admin_util unlock
437 &quit
438 &- - - - - - - - - - - - -
439 &label setcrank
440 enter_abs_request crank -tm value_get -pn sys_admin crank_time -queue 1
441 &quit
442 &- - - - - - - - - - - - -
443 &label crank_fail
444 cancel_abs_request crank
445 value_set -pn sys_admin abort_crank false
446 &goto crank1
447 &- - - - - - - - - - - - -
448 &label crank
449 admin_util lock 1800
450 enter_abs_request crank -tm value_get -pn sys_admin crank_time -queue 1
451 &if &value_get -pn sys_admin abort_crank &then exec_com err crank_abort
452 &label crank1
453 value_set -pn sys_admin abort_crank true
454 value_set -pn sys_admin last_crank clock calendar_clock
455 admin_util lock
456 &- Clean out volume backup accounting files, if any are present. They are not yet used for accounting.
457 &if &exists directory >sc1>vba &then date_deleter >sc1>vba 7
458 exec_com util del yesterday.projfile yesterday.reqfile
459 &if &exists segment sumry &then truncate sumry
460 &if &exists segment cutrpt &then truncate cutrpt
461 exec_com util del PNT.safe.pnt
462 copy >system_control_1>PNT.pnt PNT.safe.pnt -brief
463 pdt_copy >system_control_dir >system_control_dir>pdt safe_pdts
464 compute_bill safe_pdts>sat safe_pdts
465 compute_bill$update_pdts_from_reqfile safe_pdts>sat >sc1>pdt
466 rename projfile yesterday.projfile
467 copy yesterday.projfile projfile
468 rename reqfile yesterday.reqfile
469 copy yesterday.reqfile reqfile
470 sort_reqfile reqfile
471 sort_projfile projfile
472 iocall attach sumry file_ sumry w
473 iocall attach cutrpt file_ cutrpt w
474 daily_summary
475 iocall detach sumry
476 iocall detach cutrpt
477 install smf.cur.sat
478 value_set -pn sys_admin abort_crank false
479 exec_com util del daily_log_0 1 2
480 exec_com util del system_logprint
481 exec_com util del io_logprint
482 truncate system.report
483 delete yesterday.use_totals
484 copy today.use_totals yesterday.use_totals
485 copy_as_meters meter_data -ri
486 system_total meter_data today.use_totals
487 usage_total safe_pdts>sat safe_pdts projfile today.use_totals
488 &- CREATE usage_and_revenue.control before un-commenting the following line
489 &- file_output usage_and_revenue.report;usage_and_revenue usage_and_revenue.control today.use_totals yesterday.use_totals;revert_output
490 &- ALSO, add a line below to "ec util dp usage_and_revenue.report"
491 file_output system.report; system_daily_report today.use_totals yesterday.use_totals; revert_output
492 copy system.report daily_log_0
493 file_output daily_log_0
494 get_quota > >user_dir_dir >dumps
495 ioa_ "Last disk report was ^a ^a ^a ^a^/" value_get -pn sys_admin last_diskreport
496 revert_output
497 &- ^L
498 &label test_log_reporting
499 &- First attach one switch for each actual printed.
500 &-
501 do "io_call attach &&1 vfile_ &&1;io_call open &&1 stream_output"
502 &+ daily_log_0 daily_log_1 daily_log_2 system_logprint io_logprint
503 &- Then use syn_ to attach many switches, one per log per type of message
504 &- This allows the .ssl control files to be more self-explanatory.
505
506 do "io_call attach do &&&&1 &&1 syn_ do &&&&2 &&1"
507 &+
508 &+ "complete_as system_logprint" &- the entire AS log
509 &+ "complete_as_sv2 system_logprint" &- all sv2 and above
510 &+ "as_user_errors daily_log_0" &-
511 &+ "as_events daily_log_1" &-
512 &+ "as_important_events daily_log_2" &- things to take special note
513 &+ "syserr_non_io system_logprint" &- the entire syserr log
514 &+ "syserr_user_events daily_log_0" &- syserr events that concern users
515 &+ "syserr_events daily_log_1" &- non-routine
516 &+ "syserr_errors daily_log_2" &- really non routine
517 &+ "io_all io_logprint" &- the io log
518 &+ "operator_sac system_logprint" &- the admin log
519 &+
520 &set NOW &clock calendar_clock
521 &set START &clock calendar_clock value_get -pn sys_admin last_log_time +1usec
522 value_set -pn sys_admin last_log_time &NOW
523 summarize_sys_log -answering_service -control daily_as_log -from &START -to &NOW
524 summarize_sys_log -syserr -control daily_syserr_log -from &START -to &NOW
525 summarize_sys_log -admin -control daily_admin_log -from &START -to &NOW
526 summarize_sys_log -mc_log iolog -control daily_io_log -from &START -to &NOW
527 &- Detach the syn_ switches.
528 io_call detach
529 &+ complete_as
530 &+ complete_as_sv2
531 &+ as_user_errors
532 &+ as_events
533 &+ as_important_events
534 &+ syserr_non_io
535 &+ syserr_user_events
536 &+ syserr_events
537 &+ syserr_errors
538 &+ io_all
539 &+ operator_sac
540 &+
541 &- Detach the report switches.
542 do "io_call close &&1;io_call detach &&1"
543 &+ daily_log_0 daily_log_1 daily_log_2 system_logprint io_logprint
544
545 &- specialized reports
546 &- system_full_report and console_report
547 &-
548 &if &equal &1 test_log_reporting &then &quit
549 &- ^L
550 &- delete old junk from the history department
551 &-
552 date_deleter history 10 &- that is DAYS
553 &-
554 &- move old things to the history department
555 &-
556 move_log_segments syserr_log >sc1>syserr_log history 1day
557 move_log_segments log >sc1>as_logs history 1day
558 move_log_segments admin_log >sc1>as_logs history 1day
559 move_log_segments iolog >sc1>as_logs history 1day
560 &- add other lines for other logs defined
561 &-
562 update_heals_log
563 truncate_heals_log 30
564 remove_registry safe_registries>**
565 delete_registry safe_registries>**
566 copy_registry >sc1>rcp>** safe_registries>== -reset
567 truncate meter_data.print
568 truncate bwchart.print
569 file_output meter_data.print; print_meters meter_data; revert_output
570 file_output bwchart.print; b_and_w today.use_totals last_month.use_totals; revert_output
571 &- delete yesterday's asdump segments.
572 do "if exists argument &&1 -then ""exec_com util del &&1""" segments >system_control_dir>delete.** -absp
573 &- snatch today's asdump segments.
574 do "if exists argument &&1 -then ""entry &&1;exec_com master grabdump &&1""" segments >system_control_dir>asdump.** -absp
575 &-
576 &- dprint the reports
577 &- exec_com util dp system.report director0
578 exec_com util dp system.report director1
579 &- exec_com util dp system.report meter_data.print director2
580 exec_com util dp system.report director3
581 &- exec_com util dp system.report director4
582 exec_com util dp system.report director5
583 exec_com util dp system.report bwchart.print director6
584 &- exec_com util dp daily_log_2 assurance0 2
585 exec_com util dp daily_log_2 bwchart.print assurance1 2
586 exec_com util dp sumry cutrpt daily_log_0 crank.absout accts0 2
587 exec_com util dp daily_log_1 bwchart.print admin0 2
588 exec_com util dp daily_log_2 sysprg2
589 exec_com util dp daily_log_0 bwchart.print sumry crank.absout admin1 2
590 exec_com util dp daily_log_0 daily_log_1 daily_log_2 system.report bwchart.print sumry cutrpt meter_data.print crank.absout default 1
591 exec_com util dp system_logprint io_logprint admin0
592 exec_com util dp system_logprint io_logprint default 1
593 sms value_get -pn sys_admin admin_online "crank ran"
594 admin_util unlock
595 &quit
596 &- - - - - - - - - - - - - - - - - - - - -
597 &label later
598 enter_abs_request run -ag &f2
599 &quit
600 &- - - - - - - - - - - - - - - - - - - - -
601 &label proj_mtd
602 proj_mtd &2
603 &quit
604 &- - - - - - - - - - - - - - - - - - - - - -
605 &label grabdump
606 sa &2 rw
607 abc &2
608 copy &2 entry &2
609 exec_com util dp entry &2 admin0
610 exec_com util dp entry &2 default 1
611 add_name entry &2 delete.entry &2
612 delete &2
613 &quit
614 &- - - - - - - - - - - - - - - - - - - - -
615 &label rename_proj
616 admin_util lock
617 &if ¬ exists argument &3 &then exec_com err noarg New_projectid
618 rename_proj &2 &3
619 daily_summary -nosum -nocutr
620 install smf.cur.sat
621 archive x pmf &2.pmf
622 &if ¬ exists segment &2.pmf &then &goto rename_ok
623 rename &2.pmf &3.pmf
624 &attach
625 qedx -pathname &3.pmf -no_rw_path
626 1,$s/&2/&3/
627 w
628 q
629 archive ad pmf &3.pmf
630 archive d pmf &2.pmf
631 &label rename_ok
632 admin_util unlock
633 &quit
634 &- - - - - - - - - - - - - - - - - - - - -
635 &label info
636 &label help
637 &attach
638 qedx -pathname accounts.info -no_rw_path
639 &if &exists argument &2 &then /&2/;/^$/p &else 1,$p
640 q
641 &quit
642 &- - - - - - - - - - - - - - - - - - - - -
643 &label exec_com
644 &label ec
645 exec_com >user_dir_dir>SysAdmin>admin>&2 &f3
646 &quit
647 &- - - - - - - - - - - - - - - - - - - - -
648 &label remove_user
649 remove_user
650 &quit
651 &- - - - - - - - - - - - - - - - - - - - -
652 &label weekly
653 enter_abs_request weekly -rt -q 1 -tm value_get -pn sys_admin weekly_time
654 &if &exists segment weekly.report &then delete weekly.report
655 &if &exists segment week_bwchart.list &then delete week_bwchart.list
656 file_output week_bwchart.list; b_and_w today.use_totals last_month.use_totals -week; co
657 &- ec master rqm week_bwchart.list
658 exec_com util dp week_bwchart.list default 1
659 file_output weekly.report
660 list_delegated_projects >system_control_1>sat
661 print_reqfile
662 print_projfile
663 ioa_ ^|
664 ioa_ "Listing of sys_admin.value^/"
665 value_list -pn sys_admin
666 save_dir_info >udd>SysAdmin>admin
667 comp_dir_info old.admin admin -lg
668 delete old.admin.dir_info; rename admin.dir_info old.admin.dir_info
669 list_acl; list_iacl_seg; list_iacl_dir
670 list -dtm -a
671 save_dir_info >udd>SysAdmin>lib
672 comp_dir_info old.lib lib
673 delete old.lib.dir_info; rename lib.dir_info old.lib.dir_info
674 list_acl >udd>SysAdmin>lib; list_iacl_seg >udd>SysAdmin>lib; list_iacl_dir >udd>SysAdmin>lib
675 list -pn >udd>SysAdmin>lib
676 save_dir_info >system_control_1
677 comp_dir_info old.system_control_1 system_control_1 -lg
678 delete old.system_control_1.dir_info; rename system_control_1.dir_info old.system_control_1.dir_info
679 list_acl >system_control_1; list_iacl_seg >system_control_1; list_iacl_dir >system_control_1
680 list -pn >system_control_1 -dtm -a
681 save_dir_info >system_control_1>pdt
682 comp_dir_info old.pdt pdt -lg
683 delete old.pdt.dir_info; rename pdt.dir_info old.pdt.dir_info
684 revert_output
685 exec_com util dp weekly.report accts0
686 exec_com util dp weekly.report admin0
687 exec_com util dp weekly.report admin1
688 exec_com util dp weekly.report default 1
689 answer yes -brief copy >system_control_1>rate_structure_* -name -brief
690 answer yes -bf copy >system_control_1>master_group_table -bf
691 answer yes -bf copy projfile safe_projfile
692 answer yes -bf copy reqfile safe_reqfile
693 answer yes -bf copy >system_control_1>system_start_up.ec -bf
694 sms value_get -pn sys_admin admin_online weekly ran.
695 exec_com util dp weekly.absout admin1
696 exec_com util dp weekly.absout default 1
697 &quit
698 &- - - - - - - - - - - - - - - - - - - - -
699 &label change_wdir
700 change_wdir >user_dir_dir>SysAdmin>admin
701 &quit
702 &- - - - - - - - - - - - - - - - - - - - -
703 &label &1
704 exec_com err badcom &1
705 &- - - - - - - - - - - - - - - - - - - - - - - - - -
706 &- end