[реклама вместо картинки] #!/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 http://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 » Жизнь в целом » ЭМО картинки


ЭМО картинки

Сообщений 1 страница 30 из 130

1

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

2

Начнемс))

3

....

4

....

5

Авки

6

....

7

Урррррряяяяяяяяяя!!!!!! Открыли одну из моих любимых темок. (я так расстроил, кода тему Эмо закрыли) Все пошла искать фоты эмок в инете!!!

8

воть

9

Алекс...

10

больше всех нравиться...

11

http://a28.ac-images.myspacecdn.com/images01/32/l_255f9d8312920e721d9670f0d93e0b23.jpg
всеми горячо любимый Алекс Эванс

12

ой как уматно он получился тут!! ^_^

13

Мну прет его симметрия...

14

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

Мну прет его симметрия...

Да...я тож хатю :D  но мне до этого момента как до Китая пешком...

15

а мнее...ща...месяцев 5 кажца...

16

Гы.....))))

17

)))))

18

вид спереди.....вид сзади...Кому что больше нравиться???))))

19

....

20

)))))

21

и последняя)))

22

Лайнен написал(а):

и последняя)))

домашняя такая фота :)

23

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

домашняя такая фота

Ага...именно по этому она мне и нравиться))))

24

Лайнен написал(а):

вид спереди.....вид сзади...Кому что больше нравиться???))))

конечно же вид спереди! :)

Лайнен написал(а):

и последняя)))

черт...вот здесь он реально красивым получился!!просто С.У.П.Е.Р! :D

25

тока не повторяйтесь, ок?
а мне так алекс перестал нравится....мне тока одна его фотка безумно нравится, что я ее распечатала и повесила,а  так всё...перегорело

26

....

27

....

28

Фотка под названием with love.
http://a340.ac-images.myspacecdn.com/images01/47/l_d3ee29f181474e40f6fdb3d460437eab.jpg

29

1.

30

2.


Вы здесь » Sa » Жизнь в целом » ЭМО картинки