Список использованных источников

1.Фаулер М., Скотт К. «UML в кратком изложении. Применение стандартного языка объектного моделирования.» – М.: «Мир», 1999.

2.Матросов А.В., Чаунин М.П. «Самоучитель Perl» — СПб: «БХВ — Санкт-Петербург», 2000.

3.Кристиансен Т., Торкингтон Н. «Perl: библиотека программиста» — СПб: «Питер», 2001.

4.Браун М., Ханникат Д. «HTML 3.2 в подлиннике» — СПб: «БХВ — Санкт-Петербург», 2002.

5.Флэнаган Д. «JavaScript. Подробное руководство, 5-е издание» - СПб-М: «Символ-Плюс», 2008.

6.Гудман Д. «JavaScript и DHTML. Сборник рецептов. Для профессионалов» — СПб: «Питер», 2004.

7.Мартин Браун. Perl. Архив программ. – М.: «Издательство БИНОМ», 2001.

8.Кольчугина Е.А. Программирование в сетях. Методические указания к выполнению лабораторных работ – Пенза, ПГУ, 2003.

Приложение А

(обязательное)

Код приложения

Администраторская часть

Admin.html

<HTML>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>

<head>

<title>Система управления сайтом</title>

</head>

<body>

</td>

<td bgcolor="#330000"

<td bgcolor="#324D44" height="130" align="center"><font color="#00FFFF" size="8" face="DigifaceWide">Shop of hours</font>

</td>

<tr>

<tr

<td class="itlogo"><font color="#00CC33">АДМИНИСТРАТОРСКАЯ ЧАСТЬ САЙТА</font></td>

<td class="white" align="center"><a href="#" onclick="javascript: document.exit.submit(); return false;"><font color="#00CC33">Выход из Системы</font></a></td>

</tr>

</table>

</td>

</table>

</td>

</table>

<tr>

<tr>

</tr>

</table>

<br>

<tr>

<td ><a href='?act=firma' class='menu' ><font color="#ffffff">Фирма производитель</font></a></td>

</tr>

</table>

<br>

<tr>

<td ><a href='?act=model' class='menu' ><font color="#ffffff">Модели часов</font></a></td>

</tr>

</table>

<br>

<tr>

<td ><a href='?act=sale' class='menu' ><font color="#ffffff">Заказы</font></a></td>

</tr>

</table>

</td>

</tr>

</table>

</tr>

</table>

</td>

</tr>

</table>

</tr>

</table>

</tr>

</table>

</td>

<td bgcolor="#CCFFFF" style="padding-top:3px;padding-bottom:3px;padding-right:3px;border: #146492 solid; border-width: 1px 0px 0px 0px;"

<TMPL_IF ok><div class="ok"><TMPL_LOOP NAME=ok><li><TMPL_VAR NAME="text"></li></TMPL_LOOP></div></TMPL_IF>

<TMPL_IF error><div class="error"><TMPL_LOOP NAME=error><li><TMPL_VAR NAME="text"></li></TMPL_LOOP></div></TMPL_IF>

<TMPL_IF content><TMPL_VAR NAME=content></TMPL_IF>

</div>

</div>

</td>

</tr>

</table>

<tr>

<td>Курсовая работа по программированию в сетях

</td>

</tr>

</table>

</td>

</tr>

</table>

</center>

</body>

</html>

Admin.pl

#!/usr/bin/perl

use lib '../mod';

use DBI();

use DBD::mysql;

use CGI qw/:standard/;

use CGI::Cookie;

use Time::Local;

use CGI::Carp 'fatalsToBrowser';

use HTML::Template;

require "../setup.inf"; #переменные

require "sub.pm"; #переменные

#подключеие БД

$dbh = DBI->connect("DBI:mysql:database=$db;host=$host","$user","$password");

$dbh->do("SET NAMES 'cp1251'");

$fid = param('id');

$fid2 = param('id2');

$action = param('action');

$login_in = param('login_in'); # для входа по паролю

$pass_in = param('pass_in'); #

$buffer2 = $ENV{'QUERY_STRING'};

#От SQL Иньекций

$fid =~ s/('|"|\||-|=|~|>|<|(|)|\$|#)//g;

$fid2 =~ s/('|"|\||-|=|~|>|<|(|)|\$|#)//g;

$action =~ s/('|"|\||-|=|~|>|<|(|)|\$|#)//g;

$login_in =~ s/('|"|\||-|=|~|>|<|(|)|\$|#)//g;

$pass_in =~ s/('|"|\||-|=|~|>|<|(|)|\$|#)//g;

#/От SQL Иньекций

@pairs2 = split(/&/, $buffer2);

foreach $pair2 (@pairs2) {

($name2, $value2) = split(/=/, $pair2);

$value2 =~ tr/+/ /;

$value2 =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$FORM{$name2} = $value2;

}

$form_fid = $FORM{"id"}; $form_fid =~ s/('|"|\||-|=|~|>|<|(|)|\$|#)//g;

$viev = $FORM{"viev"};

$act = $FORM{"act"};

if ($act eq ''){ #если $act пусто. Возможно при нажатии на кнопку в форме

($xxx) = $ENV{'REQUEST_URI'} =~ m#([^\\/:]+)$#;

# ($act) = split (/\./,$xxx);

# ($act, $fid) = split (/-/,$act);

@pairs2 = split(/&/, $xxx);

foreach $pair2 (@pairs2) {

($name2, $value2) = split(/=/, $pair2);

$value2 =~ tr/+/ /;

$value2 =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

$FORM{$name2} = $value2;

}

$act = $FORM{'act'};

$fid = $FORM{'id'};

$viev = $FORM{"viev"};

}

else {$fid = $form_fid;}

#Оставляем только числа

if ($fid) {$fid =~ s/(\d+)/$1/;$fid = $1;}

if ($fid2){$fid2 =~ s/(\d+)/$1/;$fid2 = $1;}

#/Оставляем только числа

#------------------------------Время------------------------

$timeoffset = 0;

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time + (3600*$timeoffset));

$mon++;

$mday = "0$mday" if ($mday < 10);

$mon = "0$mon" if ($mon < 10);

$hour = "0$hour" if ($hour < 10);

$min = "0$min" if ($min < 10);

$year = 2000 + ($year - 100);

$data_form = "$mday.$mon.$year";

$reg_date = "$year-$mon-$mday";

$time_form = "$hour:$min:$sec";

#-----------------------------------------------------------

#############################################

# Проверка паролей #

#############################################

require "modul/autentification.pl";

#############################################

####<<< SEREDINKA

if ($act eq '') {require "ind.pl";}

elsif ($act eq 'firma') {require "firma.pl";}

elsif ($act eq 'model') {require "model.pl";}

elsif ($act eq 'sale') {require "sale.pl";}

else {print "Location: http://$ENV{'SERVER_NAME'}/admin/\n\n"; exit;}

####>>>

#Информационные сообщения

if (@ok){$HTML_SITE{ok} = \@ok;}

if (@error){$HTML_SITE{error} = \@error;}

#/Информационные сообщения

print "Content-type: text/html\n\n";

my $template = HTML::Template->new(filename => 'html/admin.html');

$template->param(%HTML_SITE);

my $HTML_SITE_out = $template->output;

print <<EOF;

$HTML_SITE_out

EOF

#отключение БД

$dbh->disconnect();

Ind.pl

$HTML_SITE{title} = 'Главная страница';

$HTML_SITE{title2} = 'Добро пожаловать в систему администрирования Интернет-магазина';

$HTML_SITE{content} = 'Для работы с данной частью приложения воспользуйтесь пунктами меню в левой части экрана.';

Model.pl

my $sth = $dbh->prepare("SELECT id,Name_Firma FROM Firma");

$sth->execute();

while (my $ref = $sth->fetchrow_hashref()) {

$sel.=qq[<option value="$ref->{'id'}">$ref->{'Name_Firma'}</option>];

}

$sth->finish();

my $sth = $dbh->prepare("SELECT id,name FROM Pol");

$sth->execute();

while (my $ref = $sth->fetchrow_hashref()) {

$sel1.=qq[<option value="$ref->{'id'}">$ref->{'name'}</option>];

}

$sth->finish();

my $sth = $dbh->prepare("SELECT id,name FROM Kreplen");

$sth->execute();

while (my $ref = $sth->fetchrow_hashref()) {

$sel2.=qq[<option value="$ref->{'id'}">$ref->{'name'}</option>];

}

$sth->finish();

my $sth = $dbh->prepare("SELECT id,name FROM Mechanism");

$sth->execute();

while (my $ref = $sth->fetchrow_hashref()) {

$sel3.=qq[<option value="$ref->{'id'}">$ref->{'name'}</option>];

}

$sth->finish();

#act

if ($action eq 'Изменить') {&edit;}

elsif ($action eq 'Добавить'){&add;}

elsif ($action eq 'Удалить') {&del;}

#viv

if ($viev eq 'edit') {&blokedit;}

elsif ($viev eq 'add') {&blokadd;}

else {&blokviev;}

################################################################################

sub blokviev {

my $sth = $dbh->prepare("SELECT Model.*,Firma.Name_Firma as Nfirma,Pol.name as Pname,Kreplen.name as Kname,Mechanism.name as Mname

FROM Model inner join Firma on Model.id_Firma = Firma.id

inner join Pol on Model.id_Pol = Pol.id

inner join Kreplen on Model.id_Kreplen = Kreplen.id

inner join Mechanism on Model.id_Mechanism = Mechanism.id");

$sth->execute();

while (my $ref = $sth->fetchrow_hashref()) {

if (!($ref->{Name_Model})){$ref->{Name_Model} = "Не задано";}

my $hd; if ($ref->{ehide}){$hd="_h";}

$HTML_SITE{content}.=<<LINES;

<img src="/admin/Photos/$ref->{Photo}" align="absmiddle">

</td>

<td align="center"><b><font color="blue">$ref->{Nfirma}</font></b>

</td>

<td align="center"><b><font color="blue">$ref->{Name_Model}</font></b>

</td>

<td align="center"><b><font color="red">$ref->{Price}</font>&nbsp.</b>

</td>

</td>

</td>

</table>

LINES

}

$sth->finish();

$HTML_SITE{content}.=<<LINES;

LINES

$HTML_SITE{title} = "Список моделей часов [<a href=\"?act=$act&viev=add\">Добавить</a>]";

$HTML_SITE{title2} = 'Просмотр';

}

################################################################################

sub blokedit {

my ($db_id,$db_Firma,$db_Name_Model,$db_Mechanism,$db_Kreplen,$db_Pol,$db_Data_post,$db_Price,$db_Photo) =

$dbh->selectrow_array("SELECT id,id_Firma,Name_Model,id_Mechanism,id_Kreplen,id_Pol,Data_post,Price,Photo FROM $act WHERE id='$fid'");

$HTML_SITE{content}=<<LINES;

<div class="nm">Фирма</div>

$sel

</select>

</div>

<div class="nm">Название</div>

<div class="nm">Механизм</div>

$sel3

</select>

</div>

<div class="nm">Крепление</div>

$sel2

</select>

</div>

$sel1

</select>

</div>

<div class="nm">Дата поставки</div>

<div class="nm">Стоимость</div>

<div class="nm">Изображение</div>

</form>

LINES

$HTML_SITE{title} = 'Список моделей часов';

$HTML_SITE{title2} = 'Редактор';

}

sub blokadd {

$HTML_SITE{content}=<<LINES;

<div class="nm">Фирма</div>

$sel

</select></div>

<div class="nm">Название</div>

<div class="nm">Механизм</div>

$sel3

</select></div>

<div class="nm">Крепление</div>

$sel2

</select></div>

$sel1

</select></div>

<div class="nm">Дата поставки</div>

<div class="nm">Стоимость</div>

<div class="nm">Изображение</div>

</form>

LINES

$HTML_SITE{title} = "Список моделей часов";

$HTML_SITE{title2} = 'Добавление';

}

################################################################################

sub edit {

my $Firma = param('Firma'); $Firma = $dbh->quote($Firma);

my $Name_Model = param('Name_Model'); $Name_Model = $dbh->quote($Name_Model);

my $Mechanism = param('Mechanism'); $Mechanism = $dbh->quote($Mechanism);

my $Kreplen = param('Kreplen'); $Kreplen = $dbh->quote($Kreplen);

my $Pol = param('Pol'); $Pol = $dbh->quote($Pol);

my $Data_post = param('Data_post'); $Data_post = $dbh->quote($Data_post);

my $Price = param('Price'); $Price = $dbh->quote($Price);

my $Photo = param('Photo'); $Photo = $dbh->quote($Photo);

my $sth = $dbh->prepare("UPDATE $act SET id_Firma=$Firma,Name_Model=$Name_Model,id_Mechanism=$Mechanism,id_Kreplen=$Kreplen,id_Pol=$Pol,Data_post=$Data_post,Price=$Price,Photo=$Photo WHERE (id='$fid')");

if ($sth->execute()){

push @ok, {text=>'Запись отредактирована'};

$sth->finish(); }

else {push @error, {text=>'Запись не отредактирована'}; }

}

sub add {

my $Firma = param('Firma');

my $Name_Model = param('Name_Model');

my $Mechanism = param('Mechanism');

my $Kreplen = param('Kreplen');

my $Pol = param('Pol');

my $Data_post = param('Data_post');

my $Price = param('Price');

my $Photo = param('Photo');

$Firma = $dbh->quote($Firma);

$Name_Model = $dbh->quote($Name_Model);

$Mechanism = $dbh->quote($Mechanism);

$Kreplen = $dbh->quote($Kreplen);

$Pol = $dbh->quote($Pol);

$Data_post = $dbh->quote($Data_post);

$Price = $dbh->quote($Price);

$Photo = $dbh->quote($Photo);

my $sth = $dbh->prepare("insert into $act (id_Firma,Name_Model,id_Mechanism,id_Kreplen,id_Pol,Data_post,Price,Photo) values ($Firma,$Name_Model,$Mechanism,$Kreplen,$Pol,$Data_post,$Price,$Photo)");

if ($sth->execute()){

push @ok, {text=>"Запись добавлена"};

$sth->finish(); }

else {push @error, {text=>"Запись не добавлена"}; }

}

sub del {

my $ids = param("ids"); $ids =~s/\D//g;

if ($ids) {

#Удаление из базы

$sth=$dbh->do("DELETE FROM $act WHERE (id='$ids')"); # удаляем старые

if ($sth) { push @ok, {text=>"Элемент удалён"};}

else { push @error, {text=>"Элемент удалён"};}