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

Jul 21, 2003, 4:50 AM

Andy

Veteran / Moderator (18436 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

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 (18436 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 (18436 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