![[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.16, 2011/11/06 00:41:53 | version 1.18, 2012/07/30 01:37:22 |
|---|---|
| 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 suse12.1 fedora14 fedora15 fedora16"> | <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 suse12.1 fedora14 fedora15 fedora16 fedora17 ubuntu12"> |
| $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|"); |