AW: Need help to divert HTML print <

[B. Fongo]

Hello,

Can you guys tell me on this piece of codes? It doesn't print the small
html codes in the sub below. No warning - nothing!
N.B. Don't bother about the html; just check my perl codes to see why I
doesn't print what I want.

Thanks

Babs 
=============================================================
#!/usr/bin/perl -w


use strict;
use File::Basename;

my ($filename, $dir, $ext,$picture,$images,$counter);
$images ="watches";     
opendir (IMGDIR, "$images") || die "\nCouldn't open directory ($images):
$!\n";
#while (defined($picture = readdir(IMGDIR))){

my @pictures = readdir(IMGDIR);
foreach $picture (@pictures){
                $counter = 0;   
                if (-f $picture and $picture =~ /(\.gif|\.jpe?g)$/i){
                        $counter++;
                        ($filename, $dir, $ext) = fileparse($picture,
'\..*');
                                print "$picture,$filename";
                                html_file($picture,$filename );
                                
                }       
                
}
closedir(IMGDIR);

print "\n$counter templates printed successfully.";

############################################################
#  HTML Layout             #
############################################################

sub html_file {
        
        my ($filename,$picture );
        ($picture,$filename) = @_;
   opendir (TMPLDIR, "Tmpl_out") || die "$!\n";  
   open (OUT, ">TMPLDIR/$filename.txt") || die "$!\n";   
print OUT <<EOF;
   <html><head><title>$filename</title></head>
   <body><font face=" Arial, Times New Roman,Helvetica">
   <p align="center">&nbsp;&nbsp;&nbsp;
   <img src="$picture" border="1" color="#ffffff"></p>
   <table><tr><td><table align="center">
   <tr><td colspan="3" width="90%"
align="center">&nbsp;</font></td></tr>
   <tr bgcolor="#boc4de"><td colspan="3" >
   </td></tr><tr><td height="200">
   <img src="$picture"></td><td height="200">
   <img src="$picture"></td></tr></table>
EOF
close (OUT);
closedir (TMPLDIR);
}

#=======================================================================
=



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>