Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Final Update: Re: Ongoing chmod lack of success

by George_Sherston (Vicar)
on Oct 06, 2001 at 21:52 UTC ( [id://117237]=note: print w/replies, xml ) Need Help??


in reply to Ongoing chmod lack of success

So I learnt that '0755' has a numerical value of decimal 755, whereas 0755 has a numerical value of octal 755. Worth knowing. And now I fixed my script and it does exactly what I want and I'm very happy. Thanks to eveyrone.
#!/usr/bin/perl -w use strict; use CGI qw(:standard); print header, start_html( -title=>'CHMOD UTILITY' ); &do_chmod if param; &send_form; sub do_chmod { my $Perm; if (param('Action') eq 'Not Executable') { $Perm = 0644; } else { $Perm = 0755; } for (param('Dirs')) { my @files; push @files, $_ while <$_*.p*>; if (chmod $Perm, @files) { print "Changed permissions on " . join(" ; ",@files) . " t +o " . $Perm . "<BR>"; } else { print "Could not change perms on " . join(" ; ",@files) . +" to " . $Perm . "<BR>"; } } print "DONE"; } sub send_form { my @dirs; push @dirs, $_ while <../*/>; print startform( -name=>'mainform', -method=>'POST', -action=>'chmod.pl', ), checkbox_group( 'Dirs', [@dirs], [], 1, ), submit( -name=>'Action', -value=>'Executable', ), submit( -name=>'Action', -value=>'Not Executable', ), endform, end_html; }


§ George Sherston

Replies are listed 'Best First'.
Re: Final Update: Re: Ongoing chmod lack of success
by tommyw (Hermit) on Oct 06, 2001 at 23:29 UTC
    Or, there's the oct function...

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://117237]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (3)
As of 2025-06-14 20:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuliAnonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.