![[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.8, 2009/07/05 21:23:42 | version 1.20, 2013/01/06 23:10:50 |
|---|---|
| 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 suse10.1 suse10.2 suse10.3 suse11.1"> | <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 suse12.2 fedora14 fedora15 fedora16 fedora17 fedora18 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|"); |