Subversion Repositories wimsdev

Rev

Rev 12119 | Rev 12849 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12119 Rev 12411
Line 48... Line 48...
48 
today=!char 1 to 8 of $wims_now
 48 
today=!char 1 to 8 of $wims_now
49 
!defread wimshome/log/classes/$wims_class/.def
 49 
!defread wimshome/log/classes/$wims_class/.def
50 
joballowlist=list,arch,clean,security,grestrict,log,connect,\
 50 
joballowlist=list,arch,clean,security,grestrict,log,connect,\
51 
    present,access,propagate,index,oefdefault,authtype,connectlink
 51 
    present,access,propagate,index,oefdefault,authtype,connectlink
52 
!if $class_type!=2
 52 
!if $class_type!=2
53 
 joballowlist=$joballowlist,neighbor
 53 
  joballowlist=$joballowlist,neighbor
54 
!endif
 54 
!endif
55 
!bound job within $joballowlist default new
 55 
!bound job within $joballowlist default new
56 
du=!record 0 of wimshome/log/classes/$wims_class/.du
 56 
du=!record 0 of wimshome/log/classes/$wims_class/.du
57 
du=!word 1 of $du
 57 
du=!word 1 of $du
58 
du1=!char -3 to -1 of $du
 58 
du1=!char -3 to -1 of $du
Line 60... Line 60...
60 
!default du2=0
 60 
!default du2=0
61 
du=$du2.$du1
 61 
du=$du2.$du1
62 
!read tabletheme
 62 
!read tabletheme
63 
 
 63 
 
64 
!if $nonew=$empty
 64 
!if $nonew=$empty
65 
 creation=$class_creation
 65 
  creation=$class_creation
66 
 !bound creation between integer 20010101 and $today default 20010101
 66 
  !bound creation between integer 20010101 and $today default 20010101
67 
 lastback=$class_backup
 67 
  lastback=$class_backup
68 
 !default lastback=$creation
 68 
  !default lastback=$creation
69 
 !bound lastback between integer 20010101 and $today default 20010101
 69 
  !bound lastback between integer 20010101 and $today default 20010101
70 
 warn=
 70 
  warn=
71 
 csec=!date -d '$creation' '+%s'
 71 
  csec=!date -d '$creation' '+%s'
72 
 creatdays=$[floor(($wims_nowseconds-$csec)/(3600*24))]
 72 
  creatdays=$[floor(($wims_nowseconds-$csec)/(3600*24))]
73 
 !if $creatdays>340
 73 
  !if $creatdays>340
74 
  warn=$warn creation
 74 
    warn=$warn creation
75 
 !endif
 75 
  !endif
76 
 lsec=!date -d '$lastback' '+%s'
 76 
  lsec=!date -d '$lastback' '+%s'
77 
 backdays=$[floor(($wims_nowseconds-$lsec)/(3600*24))]
 77 
  backdays=$[floor(($wims_nowseconds-$lsec)/(3600*24))]
78 
 !bound backdays between integer 0 and 101
 78 
  !bound backdays between integer 0 and 101
79 
 !if $backdays>30
 79 
  !if $backdays>30
80 
  warn=$warn backup
 80 
    warn=$warn backup
81 
 !endif
 81 
  !endif
82 
 !if ($backdays>7 or $warn!=$empty) and $job2!=import and $job!=log
 82 
  !if ($backdays>7 or $warn!=$empty) and $job2!=import and $job!=log
83 
  !read $job.proc
 83 
    !read $job.proc
84 
  job=new
 84 
    job=new
85 
 !endif
 85 
  !endif
86 
 nonew=yes
 86 
  nonew=yes
87 
!endif
 87 
!endif
88 
 
 88 
 
89 
wims_module_log=$job $job2 $wims_class
 89 
wims_module_log=$job $job2 $wims_class
90 
 
 90 
 
91 
!read $job.proc
 91 
!read $job.proc