Привет, вобщем написал тут такую программу, она кончечно же не совсем то, что тебе нужно, но очень похожа. Делает он следующее:
1. Генерирует форму для добавления ссылки.
2. На странице с формой, выводит все ссылки.
3. Отслеживает и считает кол-во кликов, а так же отслеживает что бы количество переходов по ссылке не привышало то, которое указано в базе данных, в качестве максимального. Если же ссылку нужно показывать бесконечно, нужно установить значение максимально допустимых кликов в 0, если же установлена другая цифра, то как только счётчик дойдёт до этого числа, то эту ссылку программа показывать больше не будет.
Если добавить в эту программу проверку данны, полученных от пользователя, так же оптимизировать SQL запросы, и написать программу которая будет запускаться время от времени и удалять те ссылки, которые уже показаны нужное число раз, а так же отдельный вход для админа ( с исчезающей дверью  ), то её можно считать законченным приложением. Можно конечно ещё добавить чего-нить, но это уже навороты, которые добавить каждый в праве.
Тебе же вместо формы добавления ссылки нужно генерить форму загрузки файла на сервер. После загрузки программа генерирует случайное имя файлу, переименовывать его и записывать его имя в базу данных. Всё остальное, точьно так же.
Теперь о коде, для начала выполни такой SQL запрос:
| Код |
CREATE TABLE IF NOT EXISTS Links (
Id MEDIUMINT NOT NULL AUTO_INCREMENT,
Title VARCHAR(250) NOT NULL,
Link VARCHAR(150) NOT NULL,
MaxClick INT NOT NULL,
Clicked INT NOT NULL,
PRIMARY KEY( Id ),
INDEX( Title )
);
|
Теперь просто сохрани этот код в файл с любым именем, лишь бы расширение было как у выполняемого файла, обычно .cgi, .pl, в каталог cgi-bin/.
| Код |
#!/usr/bin/perl
use strict;
use CGI;
use DBI;
my $cgi = new CGI;
my $HOST = "тута_твой_хост";
my $BASE = "LinkCounter";
my $LOG = "твой логин";
my $PASS = "твой пароль";
my $dbh = DBI->connect("DBI:mysql:host=$HOST;database=$BASE", $LOG, $PASS,
{ PrintError => 1, RaiseError => 0 } );
sub show_form {
my $fields = [ { label => 'Заголовок ссылки', size => 35, name => 'title' },
{ label => 'Ссылка', size => 35, name => 'link' },
{ label => 'Максимум скачиваний:', size => 10, name => 'maxclick' } ];
print $cgi->start_html( -title => 'Добавление ссылки' );
print $cgi->start_form( -action => $cgi->url( -relative => 1 ) );
print $cgi->start_table( { -width => 500,
-border => 1,
-cellspacing => 3,
-cellpadding => 5 } );
print $cgi->start_Tr();
print $cgi->start_td( { -width => 500,
-align => 'center',
-colspan => 2 } );
print $cgi->b( { -style => 'font-size: 15px' }, "Добавление ссылки" );
print $cgi->end_td();
print $cgi->end_Tr();
for my $field ( @$fields ) {
print $cgi->start_Tr();
print $cgi->start_td( { -width => 200,
-align => 'right' } );
print $cgi->b( { -style => 'font-size: 11px' }, $field->{ label } );
print $cgi->end_td();
print $cgi->start_td( { -width => 300,
-align => 'left' } );
print $cgi->textfield( -name => $field->{ name },
-size => $field->{ size },
-style => 'font-size: 11px; font-weight: bold' );
print $cgi->end_td();
print $cgi->end_Tr();
}
print $cgi->start_Tr();
print $cgi->start_td( { -width => 500,
-align => 'center',
-colspan => 2 } );
print $cgi->submit( -name => 'add',
-value => 'Добавить' );
print $cgi->end_td();
print $cgi->end_Tr();
print $cgi->end_table();
print $cgi->br() x 2;
print $cgi->hr();
my( $sth, $sql ) = ();
$sql = "SELECT * FROM Links WHERE MaxClick='0' OR Clicked < MaxClick ORDER BY Title DESC";
$sth = $dbh->prepare( $sql );
my $res = $sth->execute();
if ( ( $res += 0 ) > 0 ) {
while ( my $href = $sth->fetchrow_hashref() ) {
print "<nobr>";
print $cgi->a( { -href => $cgi->url( -relative => 1 ) . "?id=" . $href->{ Id },
-target => '_blank' }, $href->{ Title } );
print $cgi->font( { -style => 'color: #aa0000; font-size: 12px' }, " [" . $href->{ Clicked } . "] [" . $href->{ MaxClick } . "]" );
print "</nobr>";
print $cgi->br();
}
} else {
print $cgi->b( { -style => 'font-size: 16px' }, "Нет ссылок в базе данных" );
}
$sth->finish();
print $cgi->end_form();
print $cgi->end_html();
}
sub add_link {
my $title = $cgi->param('title');
my $link = $cgi->param('link');
my $maxclick = $cgi->param('maxclick');
# Тута проверяем данные, я этого делать не буду
my $sql = "INSERT INTO Links ( Title, Link, MaxClick, Clicked ) VALUES ( '$title', '$link', '$maxclick', '0' )";
$dbh->do( $sql );
}
sub link_increment {
my $id = $cgi->param('id');
# Здесь проверяем полученный параметр, это сделай сам
my $sql = "UPDATE Links SET Clicked = Clicked + 1 WHERE Id='$id' LIMIT 1";
$dbh->do( $sql );
$sql = "SELECT Link FROM Links WHERE Id='$id' LIMIT 1";
my $sth = $dbh->prepare( $sql );
$sth->execute();
my( $url ) = $sth->fetchrow_array();
$sth->finish();
print $cgi->redirect( -uri => $url );
}
if ( defined $cgi->param('add') ) {
print $cgi->header( -charset => 'Windows-1251' );
add_link();
show_form();
} elsif ( defined $cgi->param('id') ) {
link_increment();
} else {
print $cgi->header( -charset => 'Windows-1251' );
show_form();
}
$dbh->disconnect();
|
Enjoy ;))))
ЗЫ: проверки полученных данных и админки здесь нет, соответственно пока вы этого не сделаете, не стоит выкладывать её в глобальную сеть, иначе будете наблюдать на своём сайте надпись типа: Hacked by nE05idE71Fdl
Удачи. |