eAuction
  Not just another Perl script
Google
Welcome, Guest. Please Login or Register


If you use eAuction a lot and like it or if you make money from eAuction or from eAuction-related activities ...
then the project asks you for a donation in favor of the further development.



The forums are protected by
AccessControl
(written by Dieter Werner)
Click here if you want to check your IP against the most important RBLs of the net.
Click here in order to visite the AccessControl forums.


<< Visit the international e Auction Marketplace >>
Buy and sell PC and Consumer Electronic components






  HomeHelpSearchLoginRegister
 



Pages: 1 2 
HOW TO SUSPEND USER? (Read 454 times)
Dieter Werner
Administrator
*****
Online

Dipl. Paranoiac ®

Posts: 1162
Germany
Gender: male
Re: HOW TO SUSPEND USER?
Reply #3 - 11/18/04 at 12:25:11
 
bit   wrote on 11/12/04 at 01:03:13:
Hi ,

I would to know is there a way to suspend some user from using auction script. Let say that someone place a bid and then dont want to pay, or to sell??? We need to have a way to suspend that kind of users.


That's a problem ...
because the suspended user can register again by using another alias and another email - but I will try to find a soluten.

bit   wrote on 11/12/04 at 01:03:13:
Also, Can I get e-mail message when someone open new auction, like I get mail when new user register.


Search the script for:
sub proc_new

Search sub proc_new for:

           $config{'regdir'} && update_reg_file(
               $form{'ALIAS'},
               "$form{'CATEGORY'}$item_number"
           );

Paste the following lines behind it:
Code:
my $message = <<EO_EMAIL;
Title: $form{'TITLE'}

Category: $form{'CATEGORY'}

Seller: $form{'ALIAS'}

http://$ENV{'HTTP_HOST'}$ENV{'SCRIPT_NAME'}?action=dispitem&category=$form{'CATEGORY'}&item=$item_number&lang=$form{'lang'}">

EO_EMAIL
	   
	    my $subject = 'New Item Posted';

	    sendemail(
		     \$config{'admin_address'},
		     \$config{'admin_address'},
		     \$subject,
		     \$message
	    ) if $config{'cc_to_admin'} == 1;




Back to top
 
 

Multimedia file viewing and clickable links are available for registered members only!!  You need to Login or Register!!


Greetings from Germany
Dieter Werner




Advertising
View Profile | WWW   IP Logged
bit
eAuction User
**
Offline

I love Perl

Posts: 12

Re: HOW TO SUSPEND USER? User Delete auction!!
Reply #4 - 11/18/04 at 13:57:08
 
Dear Dieter ,

Thank you for your answers. 210000 byte or 25 Kb of  Default image size is enough for my auction.

For other guys,  as Dietere said: this is code where you can change default image size:

The max. image size is hard coded (210000 byte); see:

sub check_data {
   my ($val, $ext) = @_;

   length $$val > 210000 && return q|File too big|;
   $ext !~ /gif|jpg/i && return q|File-Type not supported|;
   $$val =~ /<[\s\/]*script\b[^>]*>/i && return q|Content not supported|;
   
   return undef;
}


Also thank you for your code  for my question «Can I get e-mail message when someone open new auction, like I get mail when new user register”. It works fine.

Another great thing would be if user could delete his auction (if there is no bids yet on it).
Tnx again for your work, and Your contribution to open source community.  This is realy great script.

Greetings from Bosnia
Kenan Mahmutovic
Back to top
 
 


Advertising
View Profile   IP Logged
Pages: 1 2 


If you like eAuction, please Rate it.
If you don't like eAuction, please Rate it too.


1 is being poor and 10 is being excellent


EveryScript

ip-location


AccessControl - Members Only