sub updateTiles { my $fto = $htmDir . 'tile.htm'; my $content = ''; open(HOME,$fto); while () { $content .= $_ } close(HOME); my $paramTemp,$contentTemp; my @sections = qw(Tile Pile Link); foreach $section (@sections) { $contentTemp = $query->param($section); if ($section eq 'Pile') { $contentTemp =~ s/[\n\r]/

/g; } if ($section eq 'Link') { $contentTemp = "View this month's tiles." } $content =~ s/(.*)/$contentTemp/; } open(HOME,">$fto"); print HOME $content; close(HOME); my $image = $query->param('Image'); if ($image ne '') { my $newFile = fileUpload('Image',250000,1,'latest_image','JPEG','.jpg','.jpeg') } }