version 1.7, 2007/12/07 06:01:06
|
version 1.19, 2012/10/05 15:36: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 suse10.1 suse10.2 suse10.3"> |
<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 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|"); |