page generation

[IT Dept - Terry Honeyford]

Hi 
Still trying to get to grips with a simple script, with no luck
the folders are created OK
but only the first 2 items of @pages get made the web page returns with a
blank page
to make matters worse doing a 'top' reveals that the process is still
running
and eating up CPU time!
this has got to be simple, but It's got me foxed

Can anyone help?

TIA

Terry



if ($Exname ne ""){
$Exname =~ s/ /""/gs;
$ExFoldername = $Exname."_Folder";  
        if (!-e "/web/html/ExhibitionFolder/98/$ExFoldername") 
        { 
        `mkdir /web/html/ExhibitionFolder/98/$ExFoldername`;#or die "couldnt
make folder $ExFoldername $!";
        `mkdir /web/html/ExhibitionFolder/98/$ExFoldername/$Exname` ;#or die
"couldnt make folder $ExFoldername/$Exname $!";
        `cp -rp $path/ExhibitionFolder/98/Templates/images
/web/html/ExhibitionFolder/98/$ExFoldername/$Exname/`;

#-----------------------------------------------------------------------
# if directories created OK then open html pages to alter
#-----------------------------------------------------------------------
                        foreach $NEWPAGE (@pages){
                        chomp $NEWPAGE;
                        open(PAGE, "<$path/ExhibitionFolder/98/Templates/$NEWPAGE")
or die("Cannot open template at 80- $!");
                        $npage  = join '', <PAGE>;
                

                        close PAGE; 
                

  

  

                                while ($NEWPAGE eq "header.html")
                                        {
                                        $npage =~ s/#Exname#/$pexname/gs;
                                        $npage =~ s/#dates#/$dates/gs;
                                        $npage =~ s/#Venueadd#/$Venueadd/gs;
                                        }
                                while ($NEWPAGE eq "contents.html")
                                        {
                                        $npage =~ s/#Exname#/$pexname/gs;
                                        $npage =~ s/#dates#/$dates/gs;
                                        $npage =~ s/#Venueadd#/$Venueadd/gs;
                                        }

                                open(NEW,
">/web/html/ExhibitionFolder/98/$ExFoldername/$Exname/$NEWPAGE") or die
"can't open newpage at 100 - $!";
                                print (NEW "$npage");
                                close NEW;

                                                                }

                                }else{
                                $content = "<p>file exists  no action taken
"; 
                                }
                }


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