Исходники.RU - Информационный сервер для программистов: исходники со всего света.

Языки

C / Visual C++
С++ Builder
Assembler
Java
Pascal
Delphi
Kylix
Visual Basic

Системы

PalmOS
Windows

Web

Java Script
WWW мастеру
WAP

Инфо

Протоколы
Книги
Каталог сайтов
Авторы

Статьи

Железо
Безопасность

Разное

Наши встречи
Интересности
Весёлые картинки
Анекдоты и истории

Администрация

Интересные материалы:

#!/usr/bin/perl use CGI; require "./news.conf"; $script = "http://$ENV{SERVER_NAME}$ENV{SCRIPT_NAME}"; $body = ""; $more = ""; $date = ""; $text = ""; $link = ""; $img = ""; $user = ""; print "Content-type: text/html\n\n"; $query = new CGI; #----- Get Input Parameters ------------ $start = $query->param('start'); chomp($start); @newslist = getnews(); $size=@newslist; $pagelist = qq~ ~; makenews(); print $body; exit; #--------------------------------------- sub makenews { my $news0; my $i=0; for ($num=$start; $num<=$end; $num++) { if ($newslist[$num]) { #18/05|SendMail - �� SMTP|�� Delphi �� . �� File Attach.
��: Delphi 2+|http://pascal.sources.ru/delphi/internet/sendmail.htm||vot ($date,$title,$text,$link,$img,$user)=split(/\|/,$newslist[$num]); # chomp($text); chomp($user); $text=~ s/\n/\n
/igm; $img =~ s/\r//; chomp($img); # image $news0=substitute($newstemplate); $body .= $news0; ################ # ADVERTISMENT # ################ if($i==1) { $body .= "\n"; } } else {exit} $i++; } $body .= $pagelist; if ($start ne '') { $tmp = getfile($archivetemplate); $tmp =~ s~~$body~i; $body = $tmp; } } #--------------------------------------- sub substitute { $tpl = shift; # $newstemplate; my $image = $imgtemplate; $more = $moretemplate; $text=~ s/\n/\n
/igm; $img =~ s/\r//; chomp($img); if ($link) { $more =~ s~~$link~i; } else { $more = ""; } if ($img) { if (!$link) { $image = qq~

~; } $image =~ s//$img/igm; $image =~ s//$link/igm; } else { $image = qq~ ~; $img = qq~ ~; } $tpl=~ s//$date/igm; $tpl=~ s//$title/igm; $tpl=~ s//$text/igm; $tpl=~ s//$num/igm; $tpl=~ s//$more/igm; $tpl=~ s//$image/igm; $tpl=~ s//$link/igm; $tpl=~ s//$img/igm; $tpl=~ s//$user/igm; return $tpl; } #--------------------------------------- sub getnews { my ($a1,$a2,$a3,$a4,$a5,$a6,$a7,$a8,$a9,$a10,$a11,$a12,$a13)=stat("$newsfile"); my @lista=[]; if ($a8==0) { } else { open FILE,"<$newsfile"; @lista=; close FILE; } return @lista; } ##################################################################### sub getfile() { $N = shift; my @A = []; if (open(F,$N)) { @A = ; close(F); chomp @A; return join("\n",@A); } else { return "�� \"$N\" (sub file)\n"; } }

~; #-------- Make Page List $rest = ($size % $maxnews); $pages = int( $size / $maxnews ); $pages++ if ($rest); # $start = 0 unless $start; # $start = 0 if ($start < 0 ); $start = $size - 1 if ($start >= $size ); $startpage = int( $start / $maxnews ) + 1; $end = $start + $maxnews - 1; if ($end > ($size - 1)) { $end = $size-1; } if ($start ne '') { $pagelist .= "
��: \ "; for ( $counter = 1; $counter<=$pages; $counter++ ) { $curpagestart = ($counter - 1) * $maxnews; if ($counter == $startpage) { $pagelist .= "\ $counter" } else { $pagelist .= "\ $counter" } } } else { #----- Link to News Archive if ($size > $maxnews) { $pagelist .= qq~
�� ~; } } $pagelist .= qq~

Наши встречи:

30.12.06 Питер	Предновогодняя встреча в "Морском Волке" Присутствовали: Астарот, vk, 40Mines, The Boss, Nich, IEZ c супругой.
15.12.06 Москва	Два события в одном "Ханое" - визит SeaGirl и день рождения purpe. Присутствовали: SeaGirl, purpe, BugHunter, Dark Sup, ViGOur, Юля и Song, Coala
31.08.06 Узбекистан	Восхождение на Большой Чимган Несколько необычная "горная тусовка" в Узбекистане. Присутствовали: Rust, _Ronny_, ARny T, Eugine, и двое из оффлайна. 57 фотографий в горах.
23.07.06 Москва	Гитарный сейшен на природе. Присутствовали: acoustic, Астарот, vot, Гламурный Кроль, LuckLess, Flex Ferrum, Chainick, Случайные символы, Leprecon, purpe и... ментавры. Внимание! Объем репортажа = 1.7М !

Архив наших встреч

Гаражные рольставни ворота, встроенные рольставни