CGI for MY FILE MANAGER

[YUPAPA]

Hey NeedCGISpace or anyone,

do you know how to display the permission of the file?
for example, to display the permission of index.htm (-rw-r-r-), what the the code in Perl?

My File manager is here: http://www.yupapa.com/cgi-bin/manager.cgi

 

[YUPAPA]

My First thread and post in this forum

This is my second post!

 

[lucifer]

use stat function

 

[YUPAPA]

PLease tell me the code... I am just a beginner

 

[lucifer]

$mode = (stat($filename))[2];
printf "Permissions are %04o\n", $mode & 07777;


not in the format you want but you could sort it I'm sure

 

[YUPAPA]

Does it work for directory?
Howcome I get "16895" instead of "drwxrwxrwx" for my "cgi-bin" directory?

 

[niv]

Originally posted by lucifer
$mode = (stat($filename))[2];
printf "Permissions are %04o\n", $mode & 07777;


not in the format you want but you could sort it I'm sure

shouldn't it be
printf "Permissions are %04o\n", $mode & 0777;

?

 

[niv]

that and:

$owner_permissions = ($mode & 0777) / 100 % 10
$group_permissions = ($mode & 0777) / 10 % 10
$other_permissions = ($mode & 0777) % 10

(that should give you the permissions individually)

then use a system a if else system or something like it.

 

[YUPAPA]

so far example. for test.htm

the code is this:

$mode = (stat(test.htm))[2];
printf "Permissions are %04o\n", $mode & 0777;
$owner_permissions = ($mode & 0777) / 100 % 10
$group_permissions = ($mode & 0777) / 10 % 10
$other_permissions = ($mode & 0777) % 10

print "$owner_permissions $group_permissions $other_permissions ";


Right?

 

[coolguy23]

yo YUPAPA how does this file manager, do i just assign it to a directory or does it need password protected directories?
would you mind if i used it?

 

[YUPAPA]

You can test it out if you want
I am going to upgrade it by myself... I will make members login page, etc

 

[niv]

actually, that's pointless. here:

create a column for permissions btw,


$mode = (stat($filename))[2];
$owner_permissions = ($mode & 0777) / 100 % 10;
$group_permissions = ($mode & 0777) / 10 % 10;
$other_permissions = ($mode & 0777) % 10;

switch ($owner_permissions){
case 7: print "drwx"; break;
case 6: print "-rwx"; break;
case 5: print "-r-x"; break;
case 4: print "--wx"; break;
case 3: print "-r--"; break;
case 2: print "--w-"; break;
case 1: print "---x"; break;
default: print "----"; break;
}

switch ($group_permissions){
case 7: print "rwx"; break;
case 6: print "rwx"; break;
case 5: print "r-x"; break;
case 4: print "-wx"; break;
case 3: print "r--"; break;
case 2: print "-w-"; break;
case 1: print "--x"; break;
default: print "---"; break;
}

switch ($other_permissions){
case 7: print "rwx"; break;
case 6: print "rwx"; break;
case 5: print "r-x"; break;
case 4: print "-wx"; break;
case 3: print "r--"; break;
case 2: print "-w-"; break;
case 1: print "--x"; break;
default: print "---"; break;
}



the numbers in each of the cases correspond to the permissions for owner/group/other (default is 0). i might be wrong about these values (the verbal version of the permissions,) check with something before you enter that.

 

[YUPAPA]

Howcome I got internal serve error when I enter either
one of these?

switch ($owner_permissions){
case 7: print "drwx"; break;
case 6: print "-rwx"; break;
case 5: print "-r-x"; break;
case 4: print "--wx"; break;
case 3: print "-r--"; break;
case 2: print "--w-"; break;
case 1: print "---x"; break;
default: print "----"; break;
}

switch ($group_permissions){
case 7: print "rwx"; break;
case 6: print "rwx"; break;
case 5: print "r-x"; break;
case 4: print "-wx"; break;
case 3: print "r--"; break;
case 2: print "-w-"; break;
case 1: print "--x"; break;
default: print "---"; break;
}

switch ($other_permissions){
case 7: print "rwx"; break;
case 6: print "rwx"; break;
case 5: print "r-x"; break;
case 4: print "-wx"; break;
case 3: print "r--"; break;
case 2: print "-w-"; break;
case 1: print "--x"; break;
default: print "---"; break;
}

 

[niv]

aw crap...right that doesn't exist in perl, try this:

if ($owner_permissions==7) print "drwx";
else if ($owner_permissions==6) print "-rw-";
else if ($owner_permissions==5) print "-r-x";
else if ($owner_permissions==4) print "--wx";
else if ($owner_permissions==3) print "-r--";
else if ($owner_permissions==2) print "--w-";
else if ($owner_permissions==1) print "---x";
else print "----";
}

if ($group_permissions==7) print "rwx";
else if ($group_permissions==6) print "rw-";
else if ($group_permissions==5) print "r-x";
else if ($group_permissions==4) print "-wx";
else if ($group_permissions==3) print "r--";
else if ($group_permissions==2) print "-w-";
else if ($group_permissions==1) print "--x";
else print "---";
}

if ($other_permissions==7) print "rwx";
else if ($other_permissions==6) print "rw-";
else if ($other_permissions==5) print "r-x";
else if ($other_permissions==4) print "-wx";
else if ($other_permissions==3) print "r--";
else if ($other_permissions==2) print "-w-";
else if ($other_permissions==1) print "--x";
else print "---";
}

 

[YUPAPA]

I think you forgot the brackets

 

[YUPAPA]

still get an error


if ($owner_permissions==7) {
print "drwx";
} elsif { ($owner_permissions==6) print "rw-"; }
elsif { ($owner_permissions==5) print "r-x"; }
elsif { ($owner_permissions==4) print "-wx"; }
elsif { ($owner_permissions==3) print "r--"; }
elsif { ($owner_permissions==2) print "-w-"; }
elsif { ($owner_permissions==1) print "--x"; }
else { print "---"; }

if ($group_permissions==7) {
print "rwx";
} elsif { ($group_permissions==6) print "rw-"; }
elsif { ($group_permissions==5) print "r-x"; }
elsif { ($group_permissions==4) print "-wx"; }
elsif { ($group_permissions==3) print "r--"; }
elsif { ($group_permissions==2) print "-w-"; }
elsif { ($group_permissions==1) print "--x"; }
else { print "---"; }

if ($other_permissions==7) {
print "rwx";
} elsif { ($other_permissions==6) print "rw-"; }
elsif { ($other_permissions==5) print "r-x"; }
elsif { ($other_permissions==4) print "-wx"; }
elsif { ($other_permissions==3) print "r--"; }
elsif { ($other_permissions==2) print "-w-"; }
elsif { ($other_permissions==1) print "--x"; }
else { print "---"; }

 

[niv]

those brackets are extraneous, get rid of them

 

[niv]

and it's else if, not elsif

 

[YUPAPA]

I still get the error

Premature end of script

 

[niv]

PM me that entire section that you've put in and i'll take a brief look at it