ИЗДАЕТСЯ ПО БЛАГОСЛОВЕНИЮ ВЫСОКОПРЕОСВЯЩЕННЕЙШЕГО МИТРОПОЛИТА ТОБОЛЬСКОГО И ТЮМЕНСКОГО ДИМИТРИЯ
#!/usr/bin/perl # # PicsRandomizer Version 0.3 # This script produces three files with random pictures and the URLs you # specify in pics_rand_list.txt to include in shtml. # # Copyright (c) 2002 Alexander Uvizhev . All rights reserved. # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. # ######## CONFIGURATION ######################################################## #Path to a directory with your pictures (relatively to index.shtml). $dir = "/pic"; #Path to pics_rand_list.txt (All paths below are relative to this script). $list = "pics_rand_list.txt"; #Path to a directory with your pictures (relatively to index.shtml). #$dir_root = "../htdocs/"; $dir_root = "../www/"; #These files to include in your shtml (no need to create them). $img[0] = $dir_root."pic/img1"; $img[1] = $dir_root."pic/img2"; $img[2] = $dir_root."pic/img3"; $img[3] = $dir_root."pic/img4"; $img[4] = $dir_root."pic/img5"; $img[5] = $dir_root."pic/img6"; ################################################################################ open (FILE, "< $list") or die ("Cannot open file $list"); until (eof(FILE)) { $line = readline *FILE; if ($line =~ m/^\s*\n|^\s*#/) {next;} $line =~ m/(\S+)\s(\S+)/; $name[$i] = $1; $url[$i] = $2; $i++; } close FILE; #while ($x[0] == $x[1] || $x[0] == $x[2] || $x[1] == $x[2]) { while ($x[0] == $x[1] || $x[0] == $x[2] || $x[0] == $x[3] || $x[0] == $x[4] || $x[1] == $x[2] || $x[1] == $x[3] || $x[1] == $x[4] || $x[2] == $x[3] || $x[2] == $x[4] || $x[3] == $x[4]) { $x[0] = sprintf ("%u", rand $#name+1); $x[1] = sprintf ("%u", rand $#name+1); $x[2] = sprintf ("%u", rand $#name+1); $x[3] = sprintf ("%u", rand $#name+1); $x[4] = sprintf ("%u", rand $#name+1); } #while ($x[3] == $x[0] || $x[3] == $x[1] || $x[3] == $x[2]) { while ($x[5] == $x[0] || $x[5] == $x[1] || $x[5] == $x[2] || $x[5] == $x[3] || $x[5] == $x[4]) { $x[5] = sprintf ("%u", rand $#name+1); } for ($i=0;$i<6;$i++) { open (CURRENT, "> $img[$i]") or die ("Cannot open file $img[$i]"); # print CURRENT ""; print CURRENT ""; close CURRENT } print "Content-type: text/html\n\n";

№1 2005 г.         

Перейти в раздел [ Разное ]

Поздравления редакции


С Рождеством Христовым!

От всего сердца поздравляем с великим и светлым праздником Рождества Христова наших читателей, авторов, благотворителей - всех, кто помогает в издании и распространении «Сибирской православной газеты» на обширной территории Тобольско-Тюменской епархии!

Возрадуемся вместе с вами, дорогие друзья, потому что вновь совершилось на земле великое Таинство Боговоплощения. Тихо и смиренно – невинным Младенцем – вошел Богочеловек в наш грешный мир, и с Его пришествием мир изменился. Божественная Любовь явилась во плоти и даровала преображение и спасение всякому человеку! Желаем всем людям почувствовать эту сокровенную радость Рождества Христова! Будем с верой и надеждой смотреть в будущее. Да будет новый 2005 год от Рождества Христова мирным, созидательным и благополучным!

Выражаем свою искреннюю благодарность

- генеральному директору авиакомпании «ЮтЭйр» Андрею Зарменовичу Мартиросову, генеральному директору авиакомпании «Ямал» Василию Николаевичу Крюку, всем сотрудникам авиакомпаний;

- директору аэропорта «Рощино» Владимиру Николаевичу Полякову;

- депутатам Тюменской областной Думы Николаю Павловичу Барышникову, Ивану Ивановичу Квитка;

- директору департамента информационной политики администрации Тюменской области Александру Павловичу Новопашину и сотрудникам департамента;

- генеральному директору интернет-провайдера «Комтел» Роману Владимировичу Голомидову;

- генеральному директору интернет-провайдера «Сибитекс» Александру Ивановичу Бронскому;

- генеральному директору издательско-полиграфического предприятия «Тюмень» Льву Алексеевичу Нежданову, верстальщикам, печатникам, упаковщицам.

Желаем вам крепости духовной и телесной, стойкости в несении жизненного креста и в трудах на благо нашего любимого Отечества. Да благословит вас Господь миром, здравием, благоденствием и Своей всесильной помощью!

Редакция «Сибирской православной газеты»

[ ФОРУМ ] [ ПОИСК ] [ ГОСТЕВАЯ КНИГА ] [ НОВОНАЧАЛЬНОМУ ] [ БОГОСЛОВСКОЕ ОБРАЗОВАНИЕ ]

Статьи последнего номера На главную

ИСКОМОЕ.ru
православная
поисковая
система
Религия и СМИ
Рейтинг ресурсов "УралWeb" Сербская Православная Церковь в Голландии
Современные сказки

Официальный сайт Тобольской митрополии

Сайт Ишимской и Аромашевской епархии

Перейти на сайт журнала "Православный просветитель"

Православный Сибирячок

Сибирская Православная газета 2020 г.