[реклама вместо картинки] #!/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 » Music ♫ » Muse...Мэтью Бэлами...


Muse...Мэтью Бэлами...

Сообщений 31 страница 60 из 93

31

Кстати, когда вчера в кино ходила, была неожиданно удивлена, когда в рекламе нового фильма("Козырные тузы" называется) услышала песню Assassin. Нереально настроение поднялось :D

32

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

33

Мне безумно нравится их последний альбом.Моя любимая песенка однозначно Starlight. Потрясающая вещь.В клипе Мэтью просто лапочка)) Еще очень нравится New Born(клип вообще обажаю). Ну и однозначно Muscle Museum. Вообще я просто схожу с ума от голоса Мэта.

34

ага...у него просто суперский голос....мне вот последнее время нравится,котгда поют именно так,как Мэтью поет...

35

Предлагаю повыкладывать фоток нашего любимого Мэтью, и дружного коллектива в полном составе. :)

36

А вот он "Рай Мэтью"!! :D
Да уж, гитары это действительно святое. Сколько у него их всего не знаю, но много. И каждая особенная, у практически каждой есть функции, котрых нет у другой. Даже на концерте для некоторых песен Мэт меняет гитару. Я просто поражаюсь как можно разбираться во всех этих кнопочках, колесиках и т.д. Но видимо можно, и для Мэта, кажется, это проблемой вовсе не является. :)
Но чисто по моим наблюдениям его самая любимая - серебрянная гитарка :D

37

Ооо классные фотки!!!!! А гитарки для Мэта-это святое!!!!!))))))) Он их очень любит и  ценит ,каждую по своему))))) А вот с некоторыми очень жестоко поступает и убивает на концертах!!!!! И как ему их не жалко...родных?!!))))))

38

Ну я видела как жестоко он обходится только с одной из них, но видимо поэтому она и зовется destroyer.  :) Не знаю, многоразовая она или нет, может каждый раз новая или ее реставрируют.:D

39

молодцы!выкладывайте фотки,которые найдете...а я чуть попозже выложу...прост ща как-то нет времени на поиски....

40

Тогда я продолжу :) Из фотосессии  на стадионе Wembley, на котором 16 июня 2007 будет концерт. Лично я нисколько не сомневаюсь, что свободных мест не будет!! :D

41

:) Просто прелесть :)

42

И в продолжение темы про гитарки..Если не ошибаюсь, то вот она, самая новая и на данный момент самая любимая. :)

43

Вот классно Мэту, прочитал книгу или статью, вдохновился и создал новый альбом)))))))))

«Когда я летел в Париж, в аэропорту купил журнал «National Geographic», там и была напечатана огромная статья про черные дыры - какую они представляют угрозу для человечества и всякое такое в апокалипсическом духе, - рассказывает лидер группы Мэтью Беллами. - Я так проникся этой статейкой, что решил не выбрасывать журнал, а взять с собой и прочитать все заново. Однако не стоит судить о нашем альбоме по названию - это не собрание песен о космосе. Черные дыры - это просто образ».

44

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

вдохновился и создал новый альбом)))))))))

да уж гениально....я б сказала....такое только ему в голову придет...

45

Мне седня Мэтью днем приснился...я была на крыше какого-то дома...привела с собой толпу на концерт Мьюз....мы уселись за какими-то столами с компами...а Мэтью был в метре от меня....и предложил мне с моей подругой спеть вместе с ним Старлайт....но так как я в это время жувала что-то (то ли печеньку,то ли что-то другое)у меня получилось не очень...дурацкий сон....

46

А мне тут недавно преснилось,что меня хотят убить все мои любимые актеры и певцы!!!!Они все меня окружили и нападали на меня!!!!И Мэтью, и Билл, и Томми :( ,И Дрю, И Джаред, и Брэд, и Эштон и т.д. Это было УЖАСНО!!!!!!!!!!!!

Отредактировано Dangel (2007-01-20 15:41:35)

47

Джаред????весьма приятно..... :D

48

воть

49

смеффно :D

50

:lol: пипец!!меня прет! :lol:

51

:)

52

;)

Отредактировано Готика (2007-02-28 18:57:46)

53

Тут у Мэтью глаза серые....а на самом деле вроде голубые...кто знает?

54

колечко приконое!у Мэтью...

55

...

56

:lol:

57

вам они нравятся?

58

Devil...with angel face написал(а):

вам они нравятся?

ну давай подумаем логически!я создала эту тему,следовательно,они мне нравятся! :)

59

ну всякое бывает. на форуме есть темы про Бритни Спирз, которую не любят здесь, откуда я знаю, почему вы создали эту тему.

60

Devil...with angel face написал(а):

Бритни Спирз, которую не любят здесь

неправда!!она мне немного симпатизирует!


Вы здесь » Sa » Music ♫ » Muse...Мэтью Бэлами...