![]() ![]() | ![]() |
version 1.19, 2012/10/05 15:36:22 | version 1.24, 2013/12/01 22:29:39 |
---|---|
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 suse12.2 fedora14 fedora15 fedora16 fedora17 ubuntu12"> | <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 suse12.3 suse13.1 fedora14 fedora15 fedora16 fedora17 fedora18 fedora19 fedora20 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|"); |