Subversion Repositories wimsdev

Rev

Rev 16804 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16804 Rev 17104
Line 33... Line 33...
33 
!endif
 33 
!endif
34 
 
 34 
 
35 
sharablelist=!listcomplement $sharing in $sharelist
 35 
sharablelist=!listcomplement $sharing in $sharelist
36 
!if $changeshare!=$empty
 36 
!if $changeshare!=$empty
37 
  changed=0
 37 
  changed=0
- 
 
 38 
  classexp=!defof class_expiration in wimshome/log/classes/$wims_class/.def
- 
 
 39 
  neiexp=!defof class_expiration in wimshome/log/classes/$nei/.def
- 
 
 40 
  !if $classexp<$neiexp
- 
 
 41 
    error=sharable_expdate $neiexp
- 
 
 42 
    !goto end
- 
 
 43 
  !endif
- 
 
 44 
 
38 
  detail_share=open
 45 
  detail_share=open
39 
  wims_class_log=Allow $nei share $mksharable by $wims_realuser
 46 
  wims_class_log=Allow $nei share $mksharable by $wims_realuser
40 
  !for r in $sharablelist
 47 
  !for r in $sharablelist
41 
    !if $r isitemof $mksharable and $nei notitemof $(sharable_$r)
 48 
    !if $r isitemof $mksharable and $nei notitemof $(sharable_$r)
42 
      sharable_$r=!append item $nei to $(sharable_$r)
 49 
      sharable_$r=!append item $nei to $(sharable_$r)
Line 59... Line 66...
59 
    sharable_all=!listuniq $shlist
 66 
    sharable_all=!listuniq $shlist
60 
    !read neighbor/writeneighbor.proc
 67 
    !read neighbor/writeneighbor.proc
61 
  !endif
 68 
  !endif
62 
!endif
 69 
!endif
63 
 
 70 
 
- 
 
 71 
:end
64 
!reset mksharable,changeshare
 72 
!reset mksharable,changeshare
65 
!for r in $sharablelist
 73 
!for r in $sharablelist
66 
  !if $nei isitemof $(sharable_$r)
 74 
  !if $nei isitemof $(sharable_$r)
67 
    mksharable=!append item $r to $mksharable
 75 
    mksharable=!append item $r to $mksharable
68 
  !endif
 76 
  !endif