version 1.2, 2005/09/07 21:34:19
|
version 1.5, 2006/09/28 22:52:43
|
Line 35 http://www.lon-capa.org/
|
Line 35 http://www.lon-capa.org/
|
<file> |
<file> |
<target dist="default">/home/httpd/perl</target> |
<target dist="default">/home/httpd/perl</target> |
<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"> |
<perlscript mode="fg" dist="suse9.2 suse9.3 sles9 sles10 suse10.1"> |
|
|
$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|"); |