[реклама вместо картинки] #!/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 » Band » Приколы про ТН!!!


Приколы про ТН!!!

Сообщений 451 страница 480 из 797

451

Не знаю, а точнее не помню какие были а какие нет)) выложу любимые

452

Меня вот этот оч прикалывает)

453

:)

454

)

455

Отец подарил Тому на 9-летие бас-гитару. Довольный Томувозвращается после первого урока и заявляет родителю:
- Сегодня я выучил первые пять нот на струне G!
После второго урока:
- Сегодня - первые пять нот на струне D!
Третье занятие:
- Первые пять нот на струне A!
Четвертое:
- Первые пять нот на струне Е!
Отец его и спрашивает:
- Сынок, а как же школьные задания?
Том в ответ:
- Па, мне некогда. Завтра концерт.

Приходит как-то Жорик на репетицию. Достает бутылку водки и ставит на усилитель.
- Ты че очумел что ли, на репетицию с водкой пришел...
- Я не на репетицию с водкой пришел, а на пьянку с гитарой.

Концерт, выступает новая, только образовавшаяся группа Токио Хотел.Билли, спел песню, откланивается, хочет уйти. Зал шумит, кричат: "Давай еще!!!". Ну, спел еще раз, снова откланивается, зал не унимается - "Еще!!!". Что делать, третий раз поет... А зал по прежнему... Ну он и говорит:
- Господа, да сколько можно, я уже устал!.
- Пока не научишься!.

Билл пригласил Тома послушать новую песню, которую он написал.
Том, слушая, чему-то улыбался. Разозленный Билл рявкнул:
- Над чем ты смеешься? Ты видел, чтобы я хоть раз улыбнулся, когда ты на гитаре играешь?

Выходит Том из бара с двумя пьяными девками, а в луже перед баром лежит пьяный парень. Девки заверещали: "Том, ты же в группе Токио Хотел играешь, стихи наверное красивые сочинять можешь. Сочини, пожалуйста, что-нибудь про этого бедного парня!" Том походил, подумал, встал в позу и говорит: "Лежит безжизненное тело на нашем жизненном пути..." Тело в это время приподнимает голову и говорит: "А вам то, блин, какое дело? Могли бы взять да обойти." Том задумчиво: "Пошли, девочки, это Билли"

Возвращаются два немца (Билл и Том) на лыжах с охоты, устали...
Том говорит:
- Сейчас приду домой и сразу в сауну...
Через несколько минут Билл отвечает:
- А я сначала лыжи сниму...

СидятБилл и Том зимой на берегу озера. Билл говорит:
- Хороший праздник рождество.
Через час Том отвечает:
- А секс лучше.
Ещё через час Билл:
- Но рождество чаще.

Билл ссорится со своей девушкой. В разгаре ссоры она выкрикивает:
-Да я! Да я!.. А я спала с твоим худшим врагом Ричи из ас5!
Билли*опешив*:
-А я! А я!.. А я тоже!!!

456

Народ, а че эт за тетя? :)

457

С наступающим)

458

.

459

.....

460

.....

461

....

462

.....

463

.....

464

.....

465

636 жжот

466

DaSHOOTa
Мне она тож очень нравиться!!!!!!!!

Отредактировано Лайнен (2006-12-27 17:57:29)

467

...

468

...

469

ну и рожицы...

470

...

471

////

472

....

473

Девченки реальные приколы, пасиб))

474

.....

475

.... вродь не ставила......

476

может было

477

......

478

.....

479

.....

480

.....


Вы здесь » Sa » Band » Приколы про ТН!!!