[реклама вместо картинки] #!/usr/bin/perl # ### PRIMARY UBB SCRIPT ## # # Ultimate Bulletin Board is copyright Infopop Corporation, 1998-2000. # # ------------ Ultimate.cgi ------------- # # This file contains intro functionality for the UBB. # # Infopop Corporation offers no # warranties on this script. The owner/licensee of the script is # solely responsible for any problems caused by installation of # the script or use of the script, including messages that may be # posted on the BB. # # All copyright notices regarding the Ultimate Bulletin Board # must remain intact on the scripts and in the HTML # for the scripts. # # For more info on the Ultimate BB, # see https://www.UltimateBB.com # ############################################################### # #If you are running UBB on IIS, #you may need to add the following line #if so, just remove the "#" sign before the print line below #print "HTTP/1.0 200 OK\n"; eval { ($0 =~ m,(.*)/[^/]+,) && unshift (@INC, "$1"); # Get the script location: UNIX / or Windows / ($0 =~ m,(.*)\\[^\\]+,) && unshift (@INC, "$1"); # Get the script location: Windows \ #substitute all require files here for the file require "UltBB.setup"; require "Date.pl"; require "mods.file"; require "Styles.file"; require "ubb_library.pl"; }; &ReadParse; if ($in{'action'} eq "Redirect") { print "Location: $in{'GoTo'}\n\n"; exit; } #end Redirect check print ("Content-type: text/html\n\n"); #adjust bgcolor variables if ($BGColor ne ""){ $BGColor = qq(bgcolor="$BGColor"); } if ($AltColumnColor1 ne ""){ $AltColumnColor1 = qq(bgcolor="$AltColumnColor1"); } if ($AltColumnColor2 ne ""){ $AltColumnColor2 = qq(bgcolor="$AltColumnColor2"); } if ($CategoryStripColor ne ""){ $CategoryStripColor = qq(bgcolor="$CategoryStripColor"); } if ($TableColorStrip ne ""){ $TableColorStrip = qq(bgcolor="$TableColorStrip"); } if ($PageBackground ne ""){ $PageBackground = qq(background="$NonCGIURL/$PageBackground"); } if ($TableBorderColor ne ""){ $TableWidth2 = "100%"; $BorderTop = qq(
); $BorderBottom = qq(
); } else { $TableWidth2 = $TableWidth; $BorderTop = ""; $BorderBottom = ""; } if ($BBStatus eq "OFF") { &StandardHTML($BBClosedMessage); exit; } foreach $row(@in) { ($Name, $Value) = split ("=", $row); $Name = &decodeURL($Name); $Value = &decodeURL($Value); if ($Name eq "BypassCookie") { $BypassCookie = $Value; } if ($Name eq "category") { $category = $Value; $CategoryName = &GetCatName($category); } if ($Name eq "number") { $number = $Value; $number =~ s/\D//; } if ($Name eq "DaysPrune") { $DaysPrune = $Value; } } # end FOREACH $row if ($VariablesPath eq "") { $VariablesPath = $CGIPath; } #set Random Number- for use in Banner Ads, etc. if ( ($Header ne "") || ($Footer ne "") ) { $RandomNumber = &MakeRandomNumber; $RandomNumber2 = $RandomNumber + 100074; if ($Header ne "") { $Header =~ s/UBBrandomX/$RandomNumber/isg; $Header =~ s/UBBrandomY/$RandomNumber2/isg; } if ($Footer ne "") { $Footer =~ s/UBBrandomX/$RandomNumber/isg; $Footer =~ s/UBBrandomY/$RandomNumber2/isg; } } # end if header or footer if (@in == 0) { &Intro; exit; } if ($in{'action'} eq "intro") { &Intro; exit; } if ($in{'action'} eq "email") { &DoEmail($in{'ToWhom'}); } else { # all else requires the UBB Registration Library eval (require "register_lib.pl"); if ($@){ &StandardHTML("Sorry! The Registration Library is not Available. Contact the Admin"); exit; } } if ($in{'action'} eq "agree") { &Agree; } if ($in{'action'} eq "COPPAgree") { if($COPPAType eq 'COPPADenied') { &StandardHTML("Sorry! We do not permit anyone under age 13 to register at this Bulletin Board."); exit; }else { &ShowCOPPAAgree; } } if ($in{'action'} eq "useCOPPAform") { &ShowCOPPAForm; } if ($in{'action'} eq "register") { &Register; } if ($in{'action'} eq "lostpw") { if ($UseEmail eq "ON") { &LostPW; } else { &StandardHTML("Sorry, but this feature is not available, per your administrator's directions. Use your back button to return to the BB."); } } # INTRO PAGE SUBROUTINES # sub Intro { &get_cookie; #retrieves all current cookies &AssembleCats; #retrieve cats @CATEGORIES = &OpenFile("$NonCGIPath/categories.file"); #check for archives if (-e "$NonCGIPath/Archives/archives.pl") { @archives = &OpenFile("$NonCGIPath/Archives/archives.pl"); if ($archives[0] ne "") { @ArchiveLine = qq(

Sa

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Sa » Жизнь в целом » Что сегодня произошло?


Что сегодня произошло?

Сообщений 751 страница 780 из 931

751

Бы(:Тринка написал(а):

а я сегодня собаку потеряа..свою..

я уже посочувствовала...но надеюсь на лучшее,как потерялась так и найдется.

752

Собаку потерять - ужасно. Надеюсь, она найдётся. расклей объявления

753

АЛЕНОЧКУ НАШУ Я ПРОСТО ОБАЖАЮ!!!!!!!!!!!!!!!!!!!!!!!!!! ОНА МНЕ ПОДАРИЛА НА НГ(дада,уже, но ниче)) ОГРОМНЫЙ ПЛАКАТ КУРТА КОБЕЙНА!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :-*  :-*  :-*

754

·°•.DaSh.•°· написал(а):

АЛЕНОЧКУ НАШУ Я ПРОСТО ОБАЖАЮ!!!!!!!!!!!!!!!!!!!!!!!!!! ОНА МНЕ ПОДАРИЛА НА НГ(дада,уже, но ниче)) ОГРОМНЫЙ ПЛАКАТ КУРТА КОБЕЙНА!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

круто! поздравляю!))

Сорри что мя так долго не было... настроения нет вообще.... уже дня 2 депрессия... у всех всё плохо... от этого мне становится хуже... короч фигня какая то... уже 2 дня подряд, плачу.... эх..... причина не понятна даже мне... хм... в дневе на лиру у мя такие посты тяжёлые.. бр.... страшно становится аж самой... :crying:

755

Gothic-Girl написал(а):

уже 2 дня подряд, плачу

мм....ну не грусти!

Gothic-Girl написал(а):

причина не понятна даже мне...

вот-вот у меня тоже такое бывает, ооочень плохо, а от чего не понятно....просто плохо(

756

Gothic-Girl написал(а):

круто! поздравляю!))

пасииба!!!!*любуясь плакатом на стене...*

а ваще знаете че, депрессия депрессией а в основном это тупо накручивание себя,так что не думайте о плохом и все тут...ведь вашим друзьям и близким из за этого тоже не лучше становится...поэтому просто старайтесь не накручиваццо. и все будет окей.

757

·°•.DaSh.•°·
та.. думаю ты права)))

У мя вчера закончился депресс!))) Как то прошло само собой.. не произошло особо ничего хорошего... но всё таки ми лучше))) Воот... а одно меня огорчает... что 16 числа у нас буит какое то волнение против власти помойму... будут на улицах бить всех подряд... сцуки!! млин... не могу я так!! что за страна раз тут происходит такое?! терь родители сказали что 16 числа будем сидеть целой семейкой дома... эх... а у ми были планы... ми хотел в магазин... в рок-отдел... :crying: придёцца в другой день... эх..

758

Kleo написал(а):

мм....ну не грусти!

уже не грущу))) ^_^

Kleo написал(а):

вот-вот у меня тоже такое бывает, ооочень плохо, а от чего не понятно....просто плохо(

ага... фигово када так...=(

759

короч всё выяснилось.. нам сказали.. что это просто митинг студентов против поднятия цен... и что будут на митинге полиция... а там естесно буит драка... поэтому.. и будут мочить всех подряд... на митинге.. и тех кто туда случайно забредёт... вот... а у мя знакомая есть.. ей 13 лет.. такую панику по этому поводу устроила.. типа война! и всё тут!! млиин... я так ржала када её пост в дневе читала^_^ (ну псих же.. вот и ржу)))

760

Да депрессий вообще не бывает!(бывают толкьо, если с психикой у человека проблемы). А меланхолия сейчас не редкость, удивляться нечему. Погодные условия и т.д. Вот у меня тоже. Сезонное...

761

Аринка Великолепная написал(а):

А меланхолия сейчас не редкость, удивляться нечему

вовоо)))молодец,коллга))

762

А у меня вродь норма все) принимайте обратно) так рада всех видеть, хотя из знакомых маловато пока) вобщем у меня не так все хорошо, но я надеюсь что будет лучше! Как вы тут?

763

Liza
прииииииивеееееееет!)))) ми хороффо!! (наверно)  ^_^ хотя... ми оч жалко что на форуме так редко пишут... :crying:

764

Liza написал(а):

принимайте обратно

виии....приввеет!! рады тебя видеть здеся...

Liza написал(а):

не так все хорошо

ну ничё....у тебяж днюха скоро))

Gothic-Girl написал(а):

ми оч жалко что на форуме так редко пишут

даааа.....это БОООЛЬШАЯ проблема.....и её мы никак не решим(

765

Здарова,Лизик!!!!!!

Liza написал(а):

принимайте обратно)

боюсь что слишком поздно...

Liza написал(а):

Как вы тут?

-=потрясающе=-))

Gothic-Girl написал(а):

ми оч жалко что на форуме так редко пишут

а кому не жалко?

766

А у меня кончилась меланхолия. Скоро НГ, но вот праздника не ощущается((

767

Я сеня ёлку нарядила!))И сидела весь день в нете)))

768

Amy
прикольно)) я тож хотю ёлку нарядить...эх...

Аринка Великолепная
хм.. дааа!! нг!! а у мя ощущается... только не так как в детстве.. эх..))

·°•.DaSh.•°· написал(а):

а кому не жалко?

не наю... :crying: скорее всего тем кто не приходит сюда...

769

а вообще... у мя недавно были приступы глюки... эх... эт сложно объяснить... и не всем я это рассказываю.... но постараюсь тут сказать попонятнее... короч я пыталась уснуть и слышала музыку и голоса за спиной.. было оч жутко и страшно... :crying: я схожу с ума... и не первый раз же....

770

Gothic-Girl написал(а):

прикольно)) я тож хотю ёлку нарядить...эх...

Таак, в чем проблема?)

771

Amy написал(а):

Таак, в чем проблема?)

эм... в том что ёлки нету))))) родители сказали что подчинят завтра её))))

772

Gothic-Girl написал(а):

короч я пыталась уснуть и слышала музыку и голоса за спиной..

:O У мну такое часто бывает!!!

773

Gothic-Girl написал(а):

эм... в том что ёлки нету))))) родители сказали что подчинят завтра её))))

О!Бедная ёлка, что ж с ней стало! :crying:

774

Amy написал(а):

У мну такое часто бывает!!!

уф... я не одна псих))))) у мя тож часто)))) ещё у мя часто такое... иду куда нить в квартире... и вижу человека.... быстро... мимолётно... но отчётливо..... и таких людей... побитых... со вскрытыми венами... ну таких... а потом исчезает всё..... а у мя так инфаркт скора буит... в дурку пора...

775

Amy написал(а):

О!Бедная ёлка, что ж с ней стало!

она сломалась)))) у неё короч пол (деревянный) сломался... от тяжести игрушек... и она у нас ооооооч давно... вот поэтому))))

776

Gothic-Girl написал(а):

иду куда нить в квартире... и вижу человека.... быстро... мимолётно... но отчётливо..... и таких людей... побитых... со вскрытыми венами... ну таких... а потом исчезает всё..... а у мя так инфаркт скора буит... в дурку пора...

Я тож...иди так иду...из кухни в комнату, а в прихожей темно...ппц..кажеца что за мной кто-то бежит. Я потом бегу в комнату как сумашедшая!!!
Но человеков еще не вижу...скорее всего скоро буду видеть!:О

777

Gothic-Girl написал(а):

она сломалась)))) у неё короч пол (деревянный) сломался

Ну скорого ей выздоровления))

778

Amy написал(а):

Но человеков еще не вижу...скорее всего скоро буду видеть!:О

хе)))) наверно))))) а мон не скромный вопрос)))) ты гот? или неть?))))) эт я так))))) :P

779

Gothic-Girl написал(а):

ты гот? или неть?))

Нет, но была...если честно я уже всеми побывала...и готами и эмо и ска...
Но щас не отношу себя к какой либо субкультуре))

780

Amy написал(а):

Но щас не отношу себя к какой либо субкультуре))

понятно)))) ^_^


Вы здесь » Sa » Жизнь в целом » Что сегодня произошло?