Gossamer Forum: General: Perl Programming: Mkdir problems...

Jul 21, 2003, 4:50 AM

Andy

Veteran / Moderator (17364 posts)

Jul 21, 2003, 4:50 AM

Post #1 of 4

Shortcut

Mkdir problems...

Hi..maybe someone could shed some light on a mkdir() problem I'm having. Basically, I have the following code;

Code:
mkdir("$CFG->>{admin_root_path}/Net/Whois/Raw");

...but that gives me an error;

Quote:

Not enough arguments for mkdir at (eval 8) line 83, near

I don't get this on *all* servers (about 3 in 10). I've tried changing it to;

Code:
mkdir($CFG->>{admin_root_path} . "/Net/Whois/Raw");

.. but that still gives me the same error.

Anyone got any ideas? I just can't understand why it works on some version of Perl, and not others Unsure

TIA.

Andy (mod)
andy@ultranerds.co.uk

IMPORTANT: I've now moved to ultranerds.co.uk, and the .com will no longer work!
Want to give me something back for my help? Please see my Amazon Wish List
GLinks ULTRA Package (plugins total "value" $3,325 & rising, for just $350)| GLinks ULTRA Package PRO (plugins total "value" $5,625 & rising, for just $500)
Support Forum | Links SQL Plugins | DMOZ Dumps | UltraNerds | ULTRAGLobals Plugin | Pre-Made Template Sets | FREE GLinks Plugins!
Compare our different Plugin packages *new* Free CSS Templates

Jul 21, 2003, 5:05 AM

Paul

Veteran (19537 posts)

Jul 21, 2003, 5:05 AM

Post #2 of 4

Shortcut

Re: [Andy] Mkdir problems... In reply to

1) You have failed to use error checking
2) You have a duplicate bracket ->>

Jul 21, 2003, 9:53 AM

Andy

Veteran / Moderator (17364 posts)

Jul 21, 2003, 9:53 AM

Post #3 of 4

Shortcut

Re: [Paul] Mkdir problems... In reply to

>>>1) You have failed to use error checking <<<

I used it in the real thing. Just forgot to post it. It was something like;

|| die "Can't create folder. Reason: $!";

>>>2) You have a duplicate bracket ->> <<<

... but why would that cause it to work on one server, and not another? Unsure

Cheers

Andy (mod)
andy@ultranerds.co.uk

Jul 22, 2003, 12:55 AM

Andy

Veteran / Moderator (17364 posts)

Jul 22, 2003, 12:55 AM

Post #4 of 4

Shortcut

Re: [Andy] Mkdir problems... In reply to

Anyone

The whole code is;

Code:
   # create folders ready for Net::Whois::Raw 
    chmod(0777, $CFG->{admin_root_path}); 
    if     (-e "$CFG->{admin_root_path}/Net")           { chmod(0777, $CFG->{admin_root_path} . "/Net"); } 
    unless (-e "$CFG->{admin_root_path}/Net")           { mkdir($CFG->{admin_root_path} . "/Net") or die "Can't create folder. Reason: $!"; } 
    if     (-e "$CFG->{admin_root_path}/Net/Whois")     { chmod(0777, $CFG->{admin_root_path} . "/Net/Whois"); } 
    unless (-e "$CFG->{admin_root_path}/Net/Whois")     { mkdir($CFG->{admin_root_path} . "/Net/Whois") or die "Can't create folder. Reason: $!"; } 
    if     (-e "$CFG->{admin_root_path}/Net/Whois/Raw") { chmod(0777, $CFG->{admin_root_path} . "/Net/Whois/Raw"); } 
    unless (-e "$CFG->{admin_root_path}/Net/Whois/Raw") { mkdir($CFG->{admin_root_path} . "/Net/Whois/Raw") or die "Can't create folder. Reason: $!"; } 
    chmod(0755, $CFG->{admin_root_path});

Cheers

Andy (mod)
andy@ultranerds.co.uk