[реклама вместо картинки] #!/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


Форум

Celebrities. Music, movies & other.

Форум Тем Сообщений Последнее сообщение

Звёзды и не очень)))

Про других артистов ;)
6 1075 Баллада о рыцаре.
2023-05-11 20:14:12 - Kissnop

Music ♫

Музыкалка)))
21 1750 Создание музыки на компьютере, с чего начать?
2011-10-06 11:21:32 - andrey1986
9 119 Идеальная схема заработка на авито без вложений
2017-03-20 01:05:08 - kronstrom

LifeLine

Форум Тем Сообщений Последнее сообщение

Жизнь в целом

Расскажем?...
16 4198 Что сегодня произошло?
2008-09-28 20:40:03 - Maja

Tokio Hotel

Форум Тем Сообщений Последнее сообщение

Band

Новости, фотографии парней, интервью, сканы и т.д.
Подфорум: Tom Kaulitz
Подфорум: Bill Kaulitz
Подфорум: Kaulitz twins
Подфорум: Georg
Подфорум: Gustav
Подфорум: Творчество
Подфорум: Разное
15 4778 Как вам Дэвид Йост-продюсер ТН?
2009-07-07 19:49:02 - olis

Tom Kaulitz

Только Том
2 365 Фото Тома-часть 2 (Pics with Tom, part II)
2007-12-30 20:09:27 - tokiohotelka=-)

All about Bill

Только Билл
6 847 Можно ли есть спагетти при похудении
2017-03-22 12:25:14 - kronstrom

Georg

Только Георг
0 0  

Gustav

Только Густав
0 0  

Different Things TH

Разные штучки с ТН
2 149 Как узнать индекс массы тела для женщин формула
2017-03-23 04:56:27 - kronstrom

Ваше и наше творчество

Выставляйте здесь свое творчество любого плана)
2 402 слэш от pure_sin
2007-12-03 23:22:27 - Аринка Великолепная

Kaulitz Twins

Только близняшки
1 274 Близняшки Каулитц, часть 2 (Kaulitz twins, part II)
2007-12-30 20:13:39 - tokiohotelka=-)

Кухня

Форум Тем Сообщений Последнее сообщение

Административные дела

Вопросы к администратору
11 1141 ДАЁШЬ ФОРУМУ ЖИЗНЬ!!!!!
2008-11-19 20:36:52 - Kleo

Вы здесь » Sa