#!/usr/bin/perl $redir = "https://www.etsy.com/shop/BriMarie"; print "Status: 301 Moved Permanently\n"; print "Location: $redir\n\n"; ### Cookies $hostip = $ENV{'REMOTE_ADDR'}; require 'cookie.lib'; $cartid = "nocookies"; if (&GetCookies('cart')) { $cartid = $Cookies{'cart'}; } else { ($sec,$min,$hr,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $cartid = "$sec$hr$min.$hostip"; &SetCookies('cart',$cartid); } # if (not &GetCookies('cart')) { # $cartid = "nocookies"; # } ##################################################### print "Content-type:text/html\n\n"; $flag = 0; @values = split(/&/,$ENV{'QUERY_STRING'}); foreach $i (@values) { ($varname, $mydata) = split(/=/,$i); if ($varname eq "did") { $flag = 1; $deptid = $mydata; } if ($varname eq "start") { $start = $mydata; } } open(FILE, "data.dat") || die &error_file; while() { chomp; @datafile = split(/\n/); foreach $line (@datafile) { next if /#.*/; ($depart, $prodid, $prodtitle, $proddetail, $prodprice, $prodimage, $prodthumb, $s1, $s2, $s3, $t1, $wsprice, $wsunit, $wsmin, $rtla, $wsa, $prodbrief) = split(/::/, $line); if ($deptid eq $depart && $rtla eq "1") { push(@pdp,$depart); push(@pid,$prodid); push(@ptl,$prodtitle); push(@pdt,$proddetail); push(@ppr,$prodprice); push(@pim,$prodimage); push(@ptm,$prodthumb); push(@wsu,$wsunit); push(@wsm,$wsmin); push(@pbf,$prodbrief); } } } close(FILE); $noofitems = scalar(@pdp); $noofpages = 1 + int($noofitems/10); if (int($noofitems / 10) == $noofitems / 10) { $noofpages = $noofpages - 1; } if (int($start / 10) != $start / 10) { $start = 0; } if ($start > $noofitems) { $start = 0; } $htmltitle = "CHARM IT! - Charms, Charm Jewelry, Charm Accessories, Disney Charms, Hello Kitty Charms - The Princess Store"; if ($pdp[0] eq "charmitdc") { $htmltitle = "CHARM IT! Disney Charms - Charm It - The Princess Store"; } if ($pdp[0] eq "charmithc") { $htmltitle = "CHARM IT! Hello Kitty Charms - Charm It - The Princess Store"; } if ($pdp[0] eq "") { &error_file(); } $max = $#pdp; print < $htmltitle
The Princess Store
 
View Your CartHelp and SupportContact InformationAbout The Princess Store



Search
 



EndOfHTML open (LEFTNAV,"leftnav.dat") || print "Could not open file \n"; while () { print $_; } close(LEFTNAV); print <

Wholesale Resellers


Home - CHARM IT! - CHARM IT! Charms & Accessories
CHARM IT! is the original, interchangeable, charm jewelry and accessory system made just for girls! We have a huge selection of CHARM IT! charm jewelry and charmable accessories in all themes and styles that represent you! CHARM IT! offers so many jewelry possibilities. Free domestic shipping is available when you buy \$30 or more*.



EndOfHTML $iii = $start; $number = 1; while($iii <= $max && $number <= 10) { print "\n"; print "\n"; print "\n"; if ($ptm[$iii+1] eq "") { print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; if ($ptm[$iii+1] eq "") { print "
\n"; print "$ptl[$iii]
\n"; $ptl[$iii] =~ s/<([^img][^>]+)>/ /g; print "\"$ptl[$iii]\"\n"; print "
\n"; } else { print "		\n"; print "$ptl[$iii+1]
\n"; $ptl[$iii+1] =~ s/<([^img][^>]+)>/ /g; print "\"$ptl[$iii+1]\"\n"; } print "
\n"; print "$pbf[$iii]

\n"; print "\$$ppr[$iii]
\n"; print "Item# $pid[$iii]

\n"; print "\"Add \n"; print "\"More
\n"; print "
\n"; } else { print "		\n"; print "$pbf[$iii+1]

\n"; print "\$$ppr[$iii+1]
\n"; print "Item# $pid[$iii+1]

\n"; print "\"Add \n"; print "\"More
\n"; } print "


\n"; $iii = $iii + 2; $number = $number + 2; } print "

\n"; $firstitem = $start+1; $lastitem = $start+10; if ($lastitem > $noofitems) { $lastitem = $noofitems; } print "Items $firstitem - $lastitem of $noofitems Items Found
\n"; if ($noofitems > 10){ if ($start >= 10){ $prevpage = $start - 10; if ($prevpage == 0) { print "\<- Previous \n"; } if ($prevpage != 0) { print "\<- Previous \n"; } } $iii = 0; while($iii <= $noofpages-1) { $thispage = $iii*10; $printpage = $iii + 1; if ($thispage != $start && $thispage == 0) { print "- $printpage \n"; } if ($thispage != $start && $thispage != 0) { print "- $printpage \n"; } if ($thispage == $start && $thispage != 0) { print "- $printpage \n"; } if ($thispage == $start && $thispage == 0) { print "$printpage \n"; } $iii = $iii + 1; } if ($start+10 < $noofpages*10){ $nextpage = $start + 10; print "- Next -\> \n"; } } print "



\n"; print <

EndOfHTML open (BOTTOMNAV,"bottomnav.dat") || print "Could not open file \n"; while () { print $_; } close(BOTTOMNAV); print < © 2000-2011 The Princess Store - All Rights Reserved

*All CHARM IT! Disney and CHARM IT! Sanrio merchandise can only be
shipped within the United States. All promotional discounts are available
for new orders only and cannot be applied to previously placed orders.
Free shipping offer is for limited time only.

EndOfHTML sub error_file { print < Please Wait...




L O A D I N G

If this page does not refresh automaticly, click here.
END_of_html exit; }