[roch-pm] Help with File handle.

[echo dev]

Here is the sub with errors.

Thanks
hde

sub code_base_conf
{
    my @file_contents;
    my $start_dir = shift;
    my @dir_contents;
    my $cwd = $start_dir;
    my $old_cwd;

    open (CONFIG_FILE, ">/home/hde/code_serv.conf")
	or die "Can't create config file : $!\n";

    chdir ($start_dir) or
	die "Can't cd to $start_dir : $!\n";

    opendir (DIR, $start_dir)
	or die "Can't open $start_dir : $!\n";

    @dir_contents = readdir (DIR)
	or die "Can't read dir $start_dir : $!\n";

    closedir (DIR) or
	die "Can't close dir $start_dir : $!\n";

    select CONFIG_FILE;

    for my $file_or_dir (@dir_contents)
    {
        next if ($file_or_dir eq qq{.});
        next if ($file_or_dir eq qq{..});

        if (-d $file_or_dir)                 # If the file is a directory.
        {
            next if (-l $file_or_dir);

            $cwd = &cwd;
	    $old_cwd = $cwd;
	    $cwd =~ s{(/.*/)+}{}g;

	    printf ("%s %s %s\n", $cwd, "=>", $old_cwd);
	    $cwd = &cwd;

            chdir (qq{$cwd/$file_or_dir}) or
                die "Can't cd to $cwd/$file_or_dir : $!\n";

            opendir (DIR, qq{$cwd/$file_or_dir}) or
                die "Can't open dir $file_or_dir : $!\n";

            code_base_conf ((readdir (DIR)));

            closedir (DIR);

            chdir ($cwd) or
                die "Can't cd to $cwd : $!\n";

            next;
        }

    }
    chdir ("/home/hde/code_base/perl/code_base_Backup");
    #clean_conf ("./code_serv.conf");
}

_________________________________________________________________
Add photos to your e-mail with MSN 8. Get 2 months FREE*.  
http://join.msn.com/?page=features/featuredemail

--
For information on unsubscribing from this list, please visit
http://rochester.pm.org