aKeeN
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Молчит пока хостер. 170-я строка Цитата: eval 'do "$INFO->{IKON_DIR}'.'Skin/$Skin/Styles.pm";'; | из кусочка FUNC.pm Цитата: LOADSKIN: # Fail safe unless ($Skin) { $Skin = 'Default'; } # Check the skin to make sure it exists # If all else fails, use the Default skin iB ships with unless (-e $INFO->{IKON_DIR}."Skin/$Skin/Styles.pm") { $Skin = 'Default'; } # Load the colours: { local $@, $SIG{__DIE__}; eval 'do "$INFO->{IKON_DIR}'.'Skin/$Skin/Styles.pm";'; if ($@) { iB::catch_die("Cannot find skin '$Skin' - contact the board admin for further help ($@)"); } } my $Return = Styles::new("Styles"); # Do a little set up $Return->{'DIR'} = $Skin; $Return->{'FULL_DIR'} = 'Skin/' . $Return->{'DIR'}; $Return->{'IMAGES_URL'} = $INFO->{'IMAGES_URL'} .'/'.$Return->{'FULL_DIR'}; return $Return; | Добавлено Ну вот, теперь другая ошибка по тому же линку... Добавлено строка ошибки выделена (Boards.pm) Цитата: package Boards; use strict; use Time::Local; ################################################################################# # Ikonboard v3 by Jarvis Entertainment Group, Inc. # # No parts of this script can be used outside Ikonboard without prior consent. # # More information available from <ib-license@jarvisgroup.net> # (c)2001 Jarvis Entertainment Group, Inc. # # http://www.ikonboard.com # # Please Read the license for more information #+-----------------------------------------------------------------+ # # Boards: Display the board summary # ################################################################################# BEGIN { require 'Lib/FUNC.pm'; } my $std = FUNC::STD->new(); my $output = FUNC::Output->new(); my $cats_printed = {}; sub new { my $pkg = shift; my $obj = { '_html' => undef, 'nav' => [] }; bless $obj, $pkg; return $obj; } sub ShowStart { my ($obj, $db) = @_; $Boards::lang = $std->LoadLanguage('BoardWords'); require $iB::SKIN->{'DIR'} . '/BoardsView.pm' or die $!; $obj->{'_html'} .= BoardsView::PageTop(); $obj->{'TOTAL_CATS'} = $db->query(TABLE => 'categories', SORT_KEY => 'CAT_POS', SORT_BY => 'A-Z', MATCH => 'ALL', ) || die $db->{'error'}; $obj->{'MODERATORS'} = $db->query(TABLE => 'forum_moderators', SORT_KEY => 'MEMBER_NAME', SORT_BY => 'A-Z', MATCH => 'ALL' |
---------- .: - А у вас какая Конституция жизни? - :. |
|