mailfox
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Не могу установит IkonBoard напишите где нить Руководство по установке IkonBoard v2.x!!! Добавлено Тут прочитал что надо всё делать руками install.cgi не запускать а чё конкретно делать руками я не знаю есть навыки но очень ..... а учиться то надо !!! Короче вот что выкидывает! какие толко атрибуты не ставил и 777 и 755 и750 не помагает дальше идёт что то со скрипта ну типа Помощник установки Ikonboard и тп Код: #!/usr/bin/perl ############################################################# # # >>>>>> SET UP ASSISTANT # # # Ikonboard v2.1 # Copyright 2000 Ikonboard.com - All Rights Reserved # Ikondiscussion is a trademark of Ikonboard.com # # Software Distributed by: Ikonboard.com # Visit us online at http://www.ikonboard.com # Email us on boards@ikonboard.com # # All files written by Matthew Mecham ############################################################# use CGI::Carp "fatalsToBrowser"; use CGI qw(:standard); $query = new CGI; @params = $query->param; foreach $param(@params) { $theparam = $query- >param($param); $theparam =~ s/\@/\\\@/g; ${$param} = $theparam; if ($param ne "action") { $printme .= "\$" . "$param = \"$theparam\"\;\n"; } } $stylesheet =<<__end_of_sheet__; __end_of_sheet__ $thisprog = "install.cgi"; $|=1; if ($action ne "final_step" || !$action) { print header('text/html; charset=windows-1251'); print start_html(-title=>"Помощник установки Ikonboard", -bgcolor=>"#EEEEEE", -style=>{-code=>$stylesheet}); } if ($action eq "step_two") { $endprint = "1\;\n"; $errorflag = 0; $filetomake = "$ikondir" . "data/boardinfo.cgi"; open(FILE,">$filetomake"); flock(FILE,2); print FILE "$printme"; print FILE "\$dfontsize1 = \"1\"\;\n"; print FILE "\$dfontsize2 = \"2\"\;\n"; print FILE "\$dfontsize3 = \"3\"\;\n"; print FILE "\$dfontsize4 = \"4\"\;\n"; print FILE "\$char_in_topic = \"80\"\;\n"; print FILE "\$char_locat_in_topic = \"18\"\;\n"; print FILE $endprint; close(FILE); if (-e $filetomake && -w $filetomake) { $saved_variables = qq(Все выбранные сведения полностью записаны в $ikondir data/boardinfo.cgi.); } else { $saved_variables = qq(Извините. Я не могу сохранить сведения. Вы выбрали $ikondir/data путём к папке 'data'. Это верно? Если это так, проверьте CHMOD на папке 'data' и воспользуйтесь кнопкой НАЗАД для возврата в форму и перезаписи); $errorflag = "1"; } $filetocheck = "$ikondir" . "ikonboard.cgi"; if (-e $filetocheck) { $found_cgi = qq(Правильно - найден $filetocheck); } else { $errorflag = "1"; $found_cgi = qq(Неправильно - не найден $filetocheck, воспользуйтесь кнопкой НАЗАД и исправьте.); } $dirtocheck = "$ikondir" . "data"; if (-d "$dirtocheck") { $datadir = "found"; $makefile = "$ikondir" . "data/test.txt"; open (TEST, ">$makefile") or $datawritable = "Папка data не записана, проверьте chmod"; print TEST "-"; close (TEST); $datawritable = "Папка 'data' записана" if (!$datawritable); unlink "$makefile"; } else { $errorflag = "1"; $datadir = "НЕ НАЙДЕНА"; } $dirtocheck = "$ikondir" . "help"; if (-d "$dirtocheck") { $helpdir = "found"; $makefile = "$ikondir" . "help/ test.txt"; open (TEST, ">$makefile") or $helpwritable = "Папка 'help' не записана, проверьте chmod"; print TEST "-"; close (TEST); $helpwritable = "Папка 'help' записана" if (!$helpwritable); unlink "$makefile"; } else { $helpdir = "НЕ НАЙДЕНА"; } $dirtocheck = "$ikondir" . "members"; if (-d "$dirtocheck") { $membersdir = "found"; $makefile = "$ikondir" . "members/test.txt"; open (TEST, ">$makefile") or $memberswritable = "Папка 'members' не записана, проверьте chmod"; print TEST "-"; close (TEST); $memberswritable = "Папка 'members' записана" if (!$memberswritable); unlink "$makefile"; } else { $errorflag = "1"; $membersdir = "НЕ НАЙДЕНА"; } $dirtocheck = "$ikondir" . "messages"; if (-d "$dirtocheck") { $messagesdir = "found"; $makefile = "$ikondir" . "messages/ test.txt"; open (TEST, ">$makefile") or $messageswritable = "Папка 'messages' не записана, проверьте chmod"; print TEST "-"; close (TEST); $messageswritable = "Папка 'messages' записана" if (!$messageswritable); unlink "$makefile"; } else { $errorflag = "1"; $messagesdir = "НЕ НАЙДЕНА"; } $filetocheck = "$imagesdir" . "images/logo.gif"; if (-e $filetocheck) { $found_image = qq(Correct); } else { $errorflag = "1"; $found_image = qq(Неправильно, воспользуйтесь кнопкой НАЗАД и исправьте.); } $dirtocheck = "$imagesdir" . "images"; if (-d "$dirtocheck") { $images_dir = "найдена"; } else { $errorflag = "1"; $images_dir = "НЕ НАЙДЕНА"; } $dirtocheck = "$imagesdir" . "emoticons"; if (-d "$dirtocheck") { $emoticonsdir = "найдена"; } else { $errorflag = "1"; $emoticonsdir = "НЕ НАЙДЕНА"; } $dirtocheck = "$imagesdir" . "avatars"; if (-d "$dirtocheck") { $avatarsdir = "найдена"; } else { $errorflag = "1"; $avatarsdir = "НЕ НАЙДЕНА"; } @progs_to_search = ('admincenter.cgi', 'announcements.cgi', 'checkboard.cgi', 'forumoptions.cgi', 'forums.cgi', 'help.cgi', 'ikon.lib', 'ikonadmin.lib', 'ikonboard.cgi', 'ikonfriend.cgi', 'ikonmail.lib', 'loginout.cgi', 'messenger.cgi', 'misc.cgi', 'newposts.cgi', 'post.cgi', 'postings.cgi', 'printpage.cgi', 'profile.cgi', 'privacy.cgi', 'register.cgi', 'search.cgi', 'setbadwords.cgi', 'setforums.cgi', 'setmembers.cgi', 'setmembertitles.cgi', 'setstyles.cgi', 'settemplate.cgi', 'setvariables.cgi', 'topic.cgi', 'viewip.cgi', 'data/progs.cgi', 'data/styles.cgi'); print qq( | Только Плизз не говорите мне пошли заявку на установку форума сам хочу установить конечно не без вашей помощи!!! | Всего записей: 11 | Зарегистр. 27-03-2002 | Отправлено: 15:02 05-04-2002 | Исправлено: Xnom, 04:58 11-01-2003 |
|