![](\"http://www.your.server/justicon.gif\")
";
#------------------------------------------------------#
# Add-On Sub: JustMeLogon
# Form input of Username and Password to edit page
#------------------------------------------------------#
sub justmelogon {
$ARGV[1] = lc($ARGV[1]);
$ARGV[1] = ucfirst($ARGV[1]);
print << "EOF";
Edit your JustMe page.
Once you've edited and saved your $justmeicon page, your page will be ready to share with others. You will receive a URL for your page that you can give to friends and associates so they can view your page.
To edit your $justmeicon page, fill in the information you want to
include and click \"Preview Your Page\".
Please keep this area clean, no pornography, vulgarities, obscenities or flaming of others.
| Page Title Create a title for your page. |
|
||||
| Welcome Message Create a short paragraph to welcome visitors to your page. |
|
||||
| Another Paragraph Anything else you want to share? |
|
||||
| Picture Link to a picture that you've posted on the internet. |
|
Show Your $sitename Activity
| Feedback Display your feedback comments. |
|||||
| Items for Sale Select the number of your current items for sale which you want to appear. |
|
Share Some of Your Favorite Links
| Favorite Links A listing of you favorite links. |
|
EOF } #------------------------------------------------------# #------------------------------------------------------# # Add-On Sub: JustMeCreate # Form input of the JustMe page #------------------------------------------------------# sub justmecreate { print << "EOF";
Create your JustMe page.
Now you can create your own personal page at $sitename. This page is called $justmeicon. Tell the other users who you are! Show others what you collect! Display your auction items up for bid and create a storefront for yourself! You decide what you want to share with the other world.
Once you've created and saved your $justmeicon page, your page will be ready to share with others. You will receive a URL for your page that you can give to friends and associates so they can view your page.
To create your $justmeicon page, enter your Username and
password below, fill in the information you want to include and click \"Preview Your Page\".
Please keep this area clean, no pornography, vulgarities, obscenities or flaming of others.
EOF } #------------------------------------------------------# #------------------------------------------------------# # Add-On Sub: JustMePreview # Previews the page before commiting #------------------------------------------------------# sub justmepre { $form{'ALIAS'} =~ s/\W//g; $form{'ALIAS'} = lc($form{'ALIAS'}); $form{'ALIAS'} = ucfirst($form{'ALIAS'}); &oops('not a registered user') unless (open(REGFILE, "$basepath$regdir/$form{'ALIAS'}.dat")); ($password, $form{'EMAIL'}, $form{'ADDRESS1'}, $form{'ADDRESS2'}, $form{'ADDRESS3'}, @userbids) =
You can now give this url to friends.
"; } if (!(-f "$basepath$pagedir/$form{'ALIAS'}.page")) { print "
JustMe Page For: $ARGV[1]
$pagetitle
$welcomehead
$welcomemsg
$txthead
$txtmsg
EOF print "
" if $picurl; if (($feednum != 0) && ($feederon == 1)) { $form{'ALIAS'} = $ARGV[1]; if ($feedtxt ne 'ALL') { $feedtxt = 'up to ' . $feedtxt; } print << "EOF";
| Item | Closes | Bids | High Bid |
| $hoticon$newicon $title$camera$endicon | $closetime[4]/$closetime[3] $closetime[2]\:"; # if ($closetime[1] < 10) { # print "0$closetime[1] | $#bids | \$$lastbid[2] | $#bids | \$$lastbid[2] | \n"; } # $flag=1; # $itemtraknum++; # $i++; # } #} if (($firstbid[0] =~/$ARGV[1]\b/i) && ($flag==0) && ($itemtraknum <= $itemnum)) { if ($i % 2 == 1) { $colortablebody=$odd_row_color; } else { $colortablebody=$even_row_color; } print "
| $hoticon$newicon $title$camera$endicon | $closetime[4]/$closetime[3] $closetime[2]\:"; if ($closetime[1] < 10) { print "0$closetime[1] | $#bids | \$$lastbid[2] | $#bids | \$$lastbid[2] | \n"; } $flag=1; $itemtraknum++; $i++; } } } } } print "
$favname1
$favname2
$favname3
\n";
$ind = $ind . "
| \n
\n\n\n"; $iii++; } } } } else { open (NFEED, ">$pathu"); &filelock if ($flock); print NFEED "0:::0:::0:::0" . "\n"; close (NFEED); chmod 0777, "$pathu"; &feeder_row(1); $fl = 1; } if (! $fl) {&feeder_row($amount,$overall,$plus,$neutral,$negative,$ind);} if ($iscentered == 1) {print "