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) change(2019-05-22,Swenson), approve(2019-05-22,MCR10055),
 13 &-     audit(2019-05-22,JJohnson), install(2019-05-22,MR12.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 &[not [exists argument &2]] &then exec_com err noarg Projectid
 53 admin_util lock
 54 archive x pmf &2.pmf
 55 &if &[not [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 &[not [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 &[not [exists argument &3]] &then exec_com err noarg Projectid
104 &if &[not [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 &[not [exists argument &2]] &then exec_com err noarg file_name
156 &if &[not [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 &[not [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 &[not [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 &[not [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 &[not [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 &[not [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 &[not [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 &[not [exists argument &3]] &then exec_com err noarg Personid
279 &- deleting "&3" from proj "&2"
280 archive x pmf &2.pmf
281 &if &[not [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 &[not [exists argument &4]] &then exec_com err noarg >user_dir_dir>&2>homedir
302 archive x pmf &2.pmf
303 &if &[not [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 &[not [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 &[not [exists argument &2]] &then exec_com err noarg Personid
332 &if &[not [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 &[not [exists argument &2]] &then exec_com err noarg Personid
338 &if &[not [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 &[not [exists argument &2]] &then exec_com err noarg_nolock Personid
344 &if &[not [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 &[not [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 &[not [exists argument &3]] &then exec_com err noarg Projectid
355 &if &[not [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 &[not [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 &[not [exists argument &2]] &then exec_com err noarg Projectid
380 &if &[not [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 &[not [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 &[not [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 &[not [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