Advertisement
Advertisement
| 08.23.2008 at 03:23AM PDT, ID: 23672205 |
|
[x]
Attachment Details
|
||
|
[x]
The Solution Rating System
|
||
With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.
Your Input Matters If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support. Thank you! |
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: 83: 84: 85: 86: 87: 88: 89: 90: 91: 92: 93: 94: 95: 96: 97: 98: 99: 100: 101: 102: 103: 104: 105: 106: 107: 108: 109: 110: 111: 112: 113: 114: 115: 116: 117: 118: 119: 120: 121: 122: 123: 124: 125: 126: 127: 128: 129: 130: 131: 132: 133: 134: 135: 136: 137: 138: 139: 140: 141: 142: 143: 144: 145: 146: 147: 148: 149: 150: 151: 152: 153: 154: 155: 156: 157: 158: 159: 160: 161: 162: 163: 164: 165: 166: 167: 168: 169: 170: 171: 172: 173: 174: 175: 176: 177: 178: 179: 180: 181: 182: 183: 184: 185: 186: 187: 188: 189: 190: 191: 192: 193: 194: 195: 196: 197: 198: 199: 200: 201: 202: 203: 204: 205: 206: 207: 208: 209: 210: 211: 212: 213: 214: 215: 216: 217: 218: 219: 220: 221: 222: 223: 224: 225: 226: 227: 228: 229: 230: 231: 232: 233: 234: 235: 236: 237: 238: 239: 240: 241: 242: 243: 244: 245: 246: 247: 248: 249: 250: 251: 252: 253: 254: 255: 256: 257: 258: 259: |
#!/usr/bin/perl -w
use strict;
use File::Basename;
while( <*.db> ){
my ($filename, $dir, $ext) = fileparse($_, qr/\..*/);
my $outname = $filename . ".html";
$filename =~ tr/[a-z]/[A-Z]/;
$filename =~ s/_/ /g;
$filename =~ s/([[:alpha:]])(\d)/$1 $2/g;
$filename =~ s/([[:alpha:]])(\d)/$1 $2/g;
open (IN, "$_") or die "Can't open $_: $!\n";
my @grok = <IN>;
close(IN);
open (OUT, ">$outname") or die "Can't open $outname: $!\n";
print OUT "<HTML>\n<HEAD>\n<TITLE>$filename</TITLE>\n";
print OUT <<EndHdr;
<style type="text/css">
#object1 {position: absolute;
top: 111px;
left: 180px;
width: 30px;}
#object2 {position: absolute;
top: 5px;
left: 37px;
width: 500px;}
</style>
<STYLE type="text/css">
A.menu:visited
{
color:#ffff00;
font-weight:bold;
}
A.menu:active
{
color:#ffff00;
font-weight:bold;
}
A.menu:link
{
color:#ffff00;
font-weight:bold;
}
</STYLE>
<STYLE type="text/css">
A.skyblue:visited
{
color:#59ffff;
font-weight:bold;
}
A.skyblue:active
{
color:#59ffff;
font-weight:bold;
}
A.skyblue:link
{
color:#6300c6;
font-weight:bold;
}
</STYLE>
</HEAD>
<BODY LINK="#004f00" ALINK="#00ff00" VLINK="#000080" BGCOLOR="#d7f2ff">
<FORM TARGET="paypal" print ACTION="https://www.paypal.com/cgi-bin/webscr"
METHOD="POST" ENCTYPE="x-www-form-urlencoded">
<P><TABLE WIDTH="975" HEIGHT="75" BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR><td width="65%" bgcolor="#2b5555" height="69">
<!--BEGIN AdlandPro BANNER CODE -->
<CENTER><a href="http://www.adlandpro.com/default.aspx?rep=questomni"><img
src="http://www.adlandpro.com/images/Adrek_a.gif" alt="AdlandPro Worlds Classifieds" hspace="8" width="142" height="39" border="0" ALIGN="BOTTOM"></a>
<br>
<font face="Arial"><a class="menu" href="http://www.adlandpro.com/default.aspx?rep=questomni">
Get Linked from 36,000+ sites with one click</a>.</font></CENTER>
<!-- END AdlandPro BANNER CODE -->
</td>
<td width="1%" bgcolor="#2b5555"> </td>
</TR></TABLE>
<TABLE WIDTH="975" HEIGHT="70" BORDER="0" CELLSPACING="0" CELLPADDING=
"0">
<TR>
<td width="50%" bgcolor="#006464" height="75"><a href="http://adsplit.com/?QUEST_ONE_SON"><img src="http://supersys2000.com/images/adsplitb1.gif" hspace="8" width="468" height="60" border="0" alt="Signup FREE now!"></a></td>
<td width="50%" bgcolor="#006464">
<p align="left"><a href="http://zzz.clickbank.net/r/?supersysq">
<img src="http://supersys2000.com/images/speed_over_big.gif" hspace="9" ALIGN="TOP" hspace="8" border="0"></a>
</p>
</td>
<TD WIDTH="67%" BGCOLOR="#006464"></TD></TR>
</TABLE>
<br>
<P><CENTER><B><FONT COLOR="#b70000" FACE="Verdana, Arial, Times">Please
use your browsers "Back" button to see more products in this store.</FONT></B></CENTER></P>
<P><CENTER><HR></CENTER></P>
<P><CENTER><B>
<FONT SIZE=+2>$filename</FONT>
</B></CENTER></P> <P ALIGN="Center"><form name="_xclick" target="paypal" action="https://www.paypal.com/cgi-bin/webscr" method="post">
<input type="hidden" name="cmd" value="_cart">
<input type="hidden" name="business" value="store1_orders\@supersys2000.com">
<input type="image" src="http://supersys2000.com/images/view_cart.gif" border="0" name="submit" alt="Make payments with PayPal - it's fast, free and secure!">
<input type="hidden" name="display" value="1">
</form> </P>
<P><CENTER> </CENTER></P>
<P><CENTER><BODY> <TABLE WIDTH="800" HEIGHT="10" BORDER="0" CELLSPACING=
"1" CELLPADDING="6">
<TR>
<TD WIDTH="75%" BGCOLOR="#006595" ALIGN="CENTER"><B><FONT COLOR="#6cb6ff">ITEM</FONT></B></TD>
<TD WIDTH="25%" BGCOLOR="#006595" ALIGN="CENTER"><B><FONT COLOR="#6cb6ff">ADD TO CART</FONT></B></TD>
<TD WIDTH="25%" BGCOLOR="#d7f2ff" ALIGN="CENTER"><B><FONT COLOR="#000000"></FONT></B></TD>
</TR></BODY>
EndHdr
foreach my $i (@grok) {
chomp($i);
my ($item_number, $name, $description, $page_number, $price, $quantity, $category) = split(/\|/,$i);
$name =~ s/([0-9])([A-Za-z])/$1 $2/g;
$name =~ s/([a-z])([A-Z])/$1 $2/g;
$name =~s/([A-Za-z0-9])CUL([A-Za-z]?)/${1} CUL $2/g;
$name =~s/([A-Za-z0-9])CUL/${1} CUL/g;
$name =~s/([A-Za-z])\.([A-Z]?)/${1} \. $2/g;
$name =~s/ CUL([A-Za-z0-9])/ CUL ${1}/g;
$name =~s/ SS([A-Za-z0-9]?)/ SS ${1}/g;
$name =~s/ BUL / CUL /g;
$name =~s/ CUL([A-Za-z0-9])/ CUL ${1}/g;
$name =~s/ SS([A-Za-z0-9]?)/ SS ${1}/g;
$name =~s/ BUL / CUL /g;
$name =~s/([[:alpha:]])(\d)/$1 $2/g;
$name =~s/(\d)([[:alpha:]])/$1 $2/g;
$name =~s/ CUL([A-Za-z0-9])/ CUL ${1}/g;
$name =~s/ SS([A-Za-z0-9]?)/ SS ${1}/g;
$name =~s/ BUL / CUL /g;
$name =~s/([[:alpha:]])(\d)/$1 $2/g;
$name =~s/(\d)([[:alpha:]])/$1 $2/g;
$name =~s/(\\\")([[:alpha:]])/\($2/g;
$name =~s/([[:alpha:]])(\\\")/$1\)/g;
$name =~s/(\,)([A-Za-z0-9])/$1 $2/g;
my $up_price = 2.00;
my $x_price = .06;
my $percent = .05;
$price = $price * $up_price + $percent * ($price * $up_price);
$price = sprintf "%9.2f", $price;
if ($price > 0) {
print OUT <<EndHdr;
<TR>
<TD BGCOLOR="#6cb6ff" valign="middle" ALIGN="center">
<table align="center" valign="middle" border="0" cellspacing="0" cellpadding="15" width="100%">
<tr align="center" valign="middle">
<td align="left" valign="middle">
<p align="center"><b><font size="+1" color="#00FFFF">$name</font></b></p>
<p align="left" valign="middle"><font size="4em" color="#0000FF">$description</font></p></td>
<td><a href="http://supersys2000.com/images/$item_number.jpg"><img style="float: right; padding; 3px 3px 3px 3px;"
src="http://supersys2000.com/images/$item_number.gif" border="0" align="top" hspace="5" vspace="5" wrap="yes"><a class="skyblue" href="http://supersys2000.com/images/$item_number.jpg">To enlarge<br>
CLICK HERE.</a>
</a></p>
</td>
</tr>
</table>
<TD BGCOLOR="#6cb6ff" align="left" valign="middle">
<p align="center"><b><font size="+1" color="#006595">$quantity</font></b></p>
<p align="center"><b><font size="+1" color="#006595">\$$price</font></b></p>
<p align="center"><form target="paypal" print action="https://www.paypal.com/cgi-bin/webscr" method="post">
<input type="hidden" name="cmd" value="_cart"> <input
type="hidden" name="business" value="store1_orders\@supersys2000.com"> <input type="hidden" name="return" value="https://www.supersys2000.com/guestbook/S_SYSTEM/addguest.html">
<input type="hidden" name="cn" value="Note">
<input type="hidden" name="lc" value="US"><input type="hidden" name="currency_code" value="USD">
<input
type="hidden" name="item_name" value="$name"> <input type="hidden"
name="item_number" value="$item_number"> <input type="hidden" name="amount" value="$price"> <input src="https://www.paypal.com/images/x-click-but22.gif"
type="image" border="0" name="submit" alt="Make payments with PayPal - it's fast, free and secure!"
align="CENTER"> <input type="hidden" name="add" value="1"></form></p>
<p align="center"><b><font size="2em">ITEM # $item_number<br>
CATALOG # $page_number</font></b></p></TD>
<TD WIDTH="25%" BGCOLOR="#d7f2ff" ALIGN="RIGHT"><p align="center"><b><font color="#000000">YOUR AD HERE</font></b></p></TD>
</tr>
</TD>
</TR>
EndHdr
} else {
print OUT <<EndHdr;
<TR>
<TD BGCOLOR="#6cb6ff" "ALIGN=left"><p align="right"></p></TD>
<TD BGCOLOR="#6cb6ff" HEIGHT="10"></TD>
<TD WIDTH="25%" BGCOLOR="#d7f2ff" ALIGN="CENTER"><p align="center"><b><font color="#000000">YOUR AD HERE</font></b></p></TD>
</TR>
EndHdr
} # close else of if
} # close foreach
print OUT <<EndHdr;
<TR>
<TD BGCOLOR="#6cb6ff" HEIGHT="10"></TD>
<TD BGCOLOR="#6cb6ff" HEIGHT="10"></TD>
<TD WIDTH="0" BGCOLOR="#d7f2ff" ALIGN="RIGHT"></TD>
</TR>
</TABLE>
</CENTER></P>
<P><CENTER><B><FONT COLOR="#b70000" FACE="Verdana, Arial, Times">Please
use your browsers "Back" button to see more products in this store.</FONT></B></CENTER></P>
<BR>
<p align="center"><TABLE WIDTH="751" HEIGHT="40" BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR></TD><TD WIDTH="33%" BGCOLOR="#006464" HEIGHT="70"><A HREF="http://adsplit.com/?QUEST_ONE_SON"><IMG SRC="http://supersys2000.com/images/speed_over.gif"HSPACE="4" ALIGN="BOTTOM" BORDER="0"></A></TD><TD WIDTH="67%" BGCOLOR="#006464"><P><CENTER><A HREF="http://zzz.clickbank.net/r/?supersysq"><IMG SRC="http://supersys2000.com/images/the_way_ahead.gif"HSPACE="4" ALIGN="BOTTOM" BORDER="0"></A></CENTER></TD></TR></TABLE></p>
<P><CENTER><TABLE WIDTH="450" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<td WIDTH="50%"></td>
<TD WIDTH="50%"><!-- Begin Official PayPal Seal --><A HREF="https://www.paypal.com/us/verified/pal=questomni%40supersys2000.com"><IMG SRC="http://images.paypal.com/images/verification_seal.gif" BORDER="0" ALT="Official PayPal Seal" ALIGN="BOTTOM"></A> <!-- End Official PayPal Seal --></TD>
<td WIDTH="50%"></td>
</TR>
</TABLE>
</CENTER>
</BODY>
</HTML>
EndHdr
} # close while
|