uninitialized value in here doc.

[charles]

I am getting:

  Use of uninitialized value at /root/bin/ref.pl line 152.

A snippet of my code is:

chdir("$www") or die "Cant change directory to /www.\n";
my @webhost = glob("*");
chdir("$dir") or die "Cant change directory to the control panel.\n";
my @controlpanel = glob("*");

if ($htaccess) {
  for my $i(@webhost) {
    if (( -d "/www/$i" ) && ( $i ne "lost+found" ) && ( $i ne "DEFUNCT" ))
{
      htaccess($i);
    }
  }
}

sub htaccess {
my $fqdn = shift;

my $fqdn_i = (split(/\./, $fqdn))[-2];

open(FH,">/www/$fqdn/controlpanel/.htaccess") or die "Cant open
.htaccess for $fqdn : $!\n";

print FH <<HTA; ######################### LINE 152
AuthUserFile /etc/htsec/$fqdn_i.ht
AuthName "Hosting Administration"
AuthType Basic
require valid-user
HTA

close(FH);
}

i am not certain what value is being referred to as uninitialized. can
someone please point out my error?

thanks in advance and regards -c


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]