Creating a folder 2

[JimJx]

I have the following script:

#!/usr/bin/perl

print "Content-type: text/html\n\n";

use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI qw(:standard);
print header();
warningsToBrowser(1);

# SET A VARIABLE
my $count = 1;
my $userName = "";
my $password = "0000";
my $newFolder = "/var/[URL unfurl="true"]www/htdocs/members/";[/URL]

# RUN A WHILE LOOP
while ($count <= 100) {
	$userName = "JRC" . $count;
	$password++;
	# PRINT THE VARIABLE AND AN HTML LINE BREAK
	print "$userName : $password<br />";
	
	mkdir "$newFolder" . "$userName", 0755;
	
	# INCREMENT THE VARIABLE EACH TIME
	$count ++;
}
{/code]

Right now, it is (obviously) very simple.  This is the entire script that I am working with right now.

So the question is why isn't the folder being created? I have checked all permissions and everything looks correct.

Any help appreciated.

Jim

 

[KevinADC]

try:

mkdir("$newFolder$userName",0755) or die "Can't mkdir '$newFolder$userName': $!";

and see what error it echos if any.

 

[JimJx]

That did it, thanks Kevin.

Jim