oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

add ad management system

Browse source 
improved performance of cs threads by about 500%
This commit is contained in:
JT Smith 2006-04-05 03:42:14 +00:00
parent c8956ac0c5
commit d26f1bdd8c
11 changed files with 740 additions and 74 deletions
Download patch file Download diff file Expand all files Collapse all files

45
lib/WebGUI/Operation/AdSpace.pm Normal file
View file

@ -0,0 +1,45 @@
package WebGUI::Operation::AdSpace.pm
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2006 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use strict;
use WebGUI::AdSpace;
=head1 NAME
Package WebGUI::Operation::AdSpace
=head1 DESCRIPTION
Operation handler for advertising functions.
=cut
#-------------------------------------------------------------------
=head2 www_clickAd ( )
Handles a click on an advertisement.
=cut
sub www_clickAd {
my $session = shift;
my $id = $session->form->param("adId");
return undef unless $id;
my $url = WebGUI::AdSpace->countClick($session, $id);
$session->http->setRedirect($url);
return "Redirecting to $url";
}
1;