|
Server : Apache/2.2.2 (Fedora) System : Linux App1.pathumtani.go.th 2.6.20-1.2320.fc5smp #1 SMP Tue Jun 12 19:40:16 EDT 2007 i686 User : apache ( 48) PHP Version : 5.2.9 Disable Function : NONE Directory : /proc/self/root/usr/libexec/webmin/file/ |
Upload File : |
#!/usr/bin/perl
# getattrs.cgi
# Returns a list in URL-encode name=value format of attributes on some file
require './file-lib.pl';
&ReadParse();
&switch_acl_uid_and_chroot();
print "Content-type: text/plain\n\n";
if (!&can_access($in{'file'})) {
print $text{'facl_eaccess'},"\n";
}
else {
$out = `attr -l '$in{'file'}' 2>&1`;
if ($?) {
print $out,"\n";
}
else {
foreach $l (split(/[\r\n]+/, $out)) {
if ($l =~ /Attribute\s+"(.*)"/i) {
# Get the valid for this attribute
local $name = $1;
$got = `attr -g '$name' '$in{'file'}' 2>&1`;
if ($? || $got !~ /^(.*)\n([\0-\377]*)\n$/) {
print $got,"\n";
exit;
}
push(@rv, [ $name, $2 ] );
}
}
print "\n";
foreach $r (@rv) {
print &urlize($r->[0]),"=",&urlize($r->[1]),"\n";
}
}
}