![[BACK]](/icons/back.gif){kind=icon}
Return to wrap_setuid.piml CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / doc / loncapafiles|
Return to wrap_setuid.piml CVS log | Up to [LON-CAPA] / doc / loncapafiles |
| version 1.14, 2011/05/08 00:47:47 | version 1.15, 2011/10/25 13:01:32 |
|---|---|
| Line 37 http://www.lon-capa.org/ | Line 37 http://www.lon-capa.org/ |
| <perlscript mode="fg" dist="default"> | <perlscript mode="fg" dist="default"> |
| #print("Not wrapping setuid scripts\n"); | #print("Not wrapping setuid scripts\n"); |
| </perlscript> | </perlscript> |
| <perlscript mode="fg" dist="suse9.2 suse9.3 sles9 sles10 sles11 suse10.1 suse10.2 suse10.3 suse11.1 suse11.2 suse11.3 suse11.4 fedora14 fedora15"> | <perlscript mode="fg" dist="suse9.2 suse9.3 sles9 sles10 sles11 suse10.1 suse10.2 suse10.3 suse11.1 suse11.2 suse11.3 suse11.4 fedora14 fedora15 fedora16"> |
| $fslist='<TARGET />'; | $fslist='<TARGET />'; |
| open(FIND, "find <TARGET /> -xdev -type f \\( -perm -04000 -o -perm -02000 \\) -print|"); | open(FIND, "find <TARGET /> -xdev -type f \\( -perm -04000 -o -perm -02000 \\) -print|"); |