#!/usr/bin/perl
open(INF, "photodata.txt");
@pdata=;
close(INF);
print "Content-type:text/html\n\n";
$f="/photos/photo";
$e=".jpg";
$e2="s.jpg";
@r = split(/\?/,$ENV{'REQUEST_URI'});
$img=$r[1];
print <
EndHTML
;
@data = split(/\|/,$pdata[$img]);
print " ![](\"$f$img$e\")
$data[5] | \n";
print <
EndHTML
;
if ($data[6]!=0) {
@l = split(/\,/,$data[6]);
print <
| Additional views: |
EndHTML
;
foreach $item (@l) {
$item=~s/\n//g;
@data2 = split(/\|/,$pdata[$item]);
print " \n";
print " ![](\"$f$item$e2\") | \n";
print " \n";
}
print <
EndHTML
;
}
| Please do not hesitate to call us at (303) 271-3859 regarding any and all questions about tools, videos, carving projects, wood types, classes, etc. We're always here to help. |
|
© 1997-2012 Nora Hall Carving Designs. All Rights Reserved.
NoraHall.com NoraHallCarvingDesigns.com
Privacy and Refund Policies
|
