freefall
03-06-2005, 09:36 PM
I am working on a tiny part of a program I am working on for a web site and the darn thing just won't work.
@displayProducts is transfered in from the URL, generated from a multiple select object. It is then split (I know that it is split right, I have tested that).
What this is supposed to do is take the specified pages out of the products directory and move them to a members-only directory. It also changes the flash header to match the member page. The directory structures in the code are correct.
$product is in the form: familyVehicle/harness/86Y
That is why I parse out everything before the two / for $productName.
The code only generates the first item in @displayProducts. The other files are generated, but they are blank (it writes them all but only reads the first)
Are there any file writing quirks that I am screwing up here?
Thanks!
Ian
foreach $product (@displayProducts) {
my $page = "";
open(INF, "products/$product.shtml");
foreach $line (<INF>) {
$page .= "$line\n";
}
close(INF);
$page =~ s/flash\/head/flash\/head_BH/;
my $productName = $product;
$productName =~ s/^.*\/.*\///g;
open(OUT, ">customers/BrightHorizons/products/$productName.shtml");
print OUT $page;
close(OUT);
}
@displayProducts is transfered in from the URL, generated from a multiple select object. It is then split (I know that it is split right, I have tested that).
What this is supposed to do is take the specified pages out of the products directory and move them to a members-only directory. It also changes the flash header to match the member page. The directory structures in the code are correct.
$product is in the form: familyVehicle/harness/86Y
That is why I parse out everything before the two / for $productName.
The code only generates the first item in @displayProducts. The other files are generated, but they are blank (it writes them all but only reads the first)
Are there any file writing quirks that I am screwing up here?
Thanks!
Ian
foreach $product (@displayProducts) {
my $page = "";
open(INF, "products/$product.shtml");
foreach $line (<INF>) {
$page .= "$line\n";
}
close(INF);
$page =~ s/flash\/head/flash\/head_BH/;
my $productName = $product;
$productName =~ s/^.*\/.*\///g;
open(OUT, ">customers/BrightHorizons/products/$productName.shtml");
print OUT $page;
close(OUT);
}