📄 help.cgi

📁 绿叶网络小学校园网-完全适合小学的网站
💻 CGI
字号:
#!/usr/bin/perl

#############################################################
# Ikonboard v2.1
# Copyright 2000 Ikondiscussion.com - All Rights Reserved
# Ikondiscussion is a trademark of Ikondiscussion.com
#
# Software Distributed by: Ikondiscussion.com
# Visit us online at http://www.ikondiscussion.com
# Email us on boards@ikondiscussion.com
#
# All files written by Matthew Mecham
#############################################################

#use CGI::Carp "fatalsToBrowser";          # Output errors to browser
use CGI qw(:standard);                    # Saves loads of work
$CGI::POST_MAX=1024 * 150;                # limit post data
$CGI::DISABLE_UPLOADS = 1;                # Disable uploads

eval {
($0 =~ m,(.*)/[^/]+,)   and unshift (@INC, "$1");
($0 =~ m,(.*)\\[^\\]+,) and unshift (@INC, "$1");
require "$ikondir" . "ikon.lib";          # Require ikonboard ()
require "$ikondir" . "data/progs.cgi";    # Require prog names
require "$ikondir" . "data/boardinfo.cgi";# Require board info
require "$ikondir" . "data/styles.cgi";   # Require styles info
};
if ($@) {
    print header(-charset=>"gb2312"); print start_html(-title=>"ib2000 出错！");
    print "不能够找到文件：$@\n如果您使用的是 Windows 类操作系统，请在每一个程序中更改 require 的设置，填入绝对路径！";
    print end_html; exit;
}

$|++;                                     # Unbuffer the output

#################--- Begin the program ---###################

$thisprog = "help.cgi";

$query = new CGI;
	
$inadmin                = $query -> param('admin');
$action                 = $query -> param('action');
$inhelpon               = $query -> param('helpon');
$inadminmodpass         = $query -> param("adminmodpass");
$inadminmodname         = $query -> param("adminmodname");

$inadminmodpass         = &cleaninput($inadminmodpass);
$inadminmodname         = &cleaninput($inadminmodname);
$inhelpon               = &cleaninput($inhelpon);

$cleanhelpname = $inhelpon;
$cleanhelpname =~ s/\_/ /g;

$cleanadminname = $inadmin;
$cleanadminname =~ s/\_/ /g;

if (($number) && ($number !~ /^[0-9]+$/)) { &error("普通错误&请不要修改生成的 URL！"); }

if (! $inmembername) { $inmembername = cookie("amembernamecookie"); }
if (! $inpassword) { $inpassword = cookie("apasswordcookie"); }


if ($inmembername eq "" || $inmembername eq "客人") {
    $inmembername = "客人";
    }
    else {
        &getmemberstime("$inmembername");
        }

print header(-charset=>"gb2312");

    if ($inhelpon) {

        ### Print Header for the page.

        $output .= qq~
            <table cellpadding=0 cellspacing=0 border=0 width=95% bgcolor=$tablebordercolor align=center>
                <tr>
                <td>
                    <table cellpadding=3 cellspacing=1 border=0 width=100%>
                        <tr>
                            <td bgcolor=$miscbacktwo align=center><font face="$font" color=$fontcolormisc><b>$boardname的帮助文件</b></td>
                        </tr>
                        <tr>
                            <td bgcolor=$miscbackone valign=middle align=cleft><font face="$font" color=$fontcolormisc>
                            <br><center>$inmembername，希望下面的帮助对您有用</center><br><br>
                            <font face="$font" color=$fontcolormisc>
                            <b>关于$cleanhelpname的帮助：</b><p>
                            ~;

    
        ### Grab the help file
    
        $filetoopen = "$ikondir" . "help/$inhelpon.dat";
        $filetoopen = &stripMETA($filetoopen);
        open (FILE, "$filetoopen") or die "无法定位所需文件！";
        @helpdata = <FILE>;
        close (FILE);
    
        #Display the helpfile
    
        foreach (@helpdata) {
            $output .= $_;
            }
            
            
        } # end if.
        
        
        
        
        
        
        
        
        elsif ($action eq "login") {
        
            &getmember("$inadminmodname");
            
            unless ($membercode eq "ad" || $membercode eq "mo") { &messangererror("查看帮助&您没有权限查看此文件！"); }
            if ($inadminmodpass ne $password) { &messangererror("查看帮助&您的密码错误！"); }
     
            $output .= qq~
            <table cellpadding=0 cellspacing=0 border=0 width=95% bgcolor=$tablebordercolor align=center>
                <tr>
                <td>
                    <table cellpadding=3 cellspacing=1 border=0 width=100%>
                        <tr>
                            <td bgcolor=$miscbacktwo align=center><font face="$font" color=$fontcolormisc><b>$boardname的帮助文件</b></td>
                        </tr>
                        <tr>
                            <td bgcolor=$miscbackone valign=middle align=cleft><font face="$font" color=$fontcolormisc>
                            <br><center>$inadminmodname，希望下面的帮助对您有用</center><br><br>
                            <font face="$font" color=$fontcolormisc>
                            <b>&nbsp;&nbsp;&nbsp;&nbsp;坛主/版主帮助文件</b><p>
                            ~;
            
            
            
            
            
            
            $dirtoopen = "$ikondir" . "help";
            opendir (DIR, "$dirtoopen") or die "不能够找到帮助文件所在目录：$dirtoopen"; 
            @dirdata = readdir(DIR);
            closedir (DIR);

            @sorteddirdata = grep(/cgi$/,@dirdata);
            @newdirdata = sort alphabetically(@sorteddirdata);
            
            foreach (@newdirdata) {
                chomp $_;
                $filename = $_;
                $filename =~ s/\.cgi$//g;
                
                $cleanname = $filename;
                $cleanname =~ s/\_/ /g;
                
                $output .= qq~&nbsp;&nbsp;&nbsp;&nbsp;关于<a href="$thisprog?admin=$filename" target="_self"><b>$cleanname</b></a>的帮助<p>~;
                }
            
            
            
            } # end action
        
        
        
        
        
        
        elsif ($inadmin) {

        &getmember("$inmembername");
            
        unless ($membercode eq "ad" || $membercode eq "mo") { &messangererror("查看帮助&您没有权限查看此文件！"); }
        if ($inpassword ne $password) { &messangererror("查看帮助&您的密码错误！"); }
        
        
        ### Print Header for the page.

        $output .= qq~
            <table cellpadding=0 cellspacing=0 border=0 width=95% bgcolor=$tablebordercolor align=center>
                <tr>
                <td>
                    <table cellpadding=3 cellspacing=1 border=0 width=100%>
                        <tr>
                            <td bgcolor=$miscbacktwo align=center><font face="$font" color=$fontcolormisc><b>$boardname的帮助文件</b></td>
                        </tr>
                        <tr>
                            <td bgcolor=$miscbackone valign=middle align=cleft><font face="$font" color=$fontcolormisc>
                            <br><center>$inmembername，希望下面的帮助对您有用</center><br><br>
                            <font face="$font" color=$fontcolormisc>
                            <b>关于$cleanadminname的帮助</b><p>
                            ~;

    
        ### Grab the help file
    
        $filetoopen = "$ikondir" . "help/$inadmin.cgi";
        $filetoopen = &stripMETA($filetoopen);
        open (FILE, "$filetoopen") or die "无法定位所需文件！";
        @helpdata = <FILE>;
        close (FILE);
    
        #Display the helpfile
    
        foreach (@helpdata) {
            $output .= $_;
            }
            
            
        } # end if.
        
        
        
        
        
        
        
        
        
        
        else {
            
            $output .= qq~
            <table cellpadding=0 cellspacing=0 border=0 width=95% bgcolor=$tablebordercolor align=center>
                <tr>
                <td>
                    <table cellpadding=3 cellspacing=1 border=0 width=100%>
                        <tr>
                            <td bgcolor=$miscbacktwo align=center><font face="$font" color=$fontcolormisc><b>$boardname的帮助文件</b></td>
                        </tr>
                        <tr>
                            <td bgcolor=$miscbackone valign=middle align=cleft><font face="$font" color=$fontcolormisc>
                            <br><center>$inmembername，希望下面的帮助对您有用</center><br><br>
                            <font face="$font" color=$fontcolormisc>
                            <b>&nbsp;&nbsp;&nbsp;&nbsp;常规帮助文件</b><p>
                            ~;
            
            $dirtoopen = "$ikondir" . "help";
            opendir (DIR, "$dirtoopen") or die "不能够找到帮助文件所在目录：$dirtoopen"; 
            @dirdata = readdir(DIR);
            closedir (DIR);

            @sorteddirdata = grep(/dat$/,@dirdata);
            @newdirdata = sort alphabetically(@sorteddirdata);
            
            foreach (@newdirdata) {
                chomp $_;
                $filename = $_;
                $filename =~ s/\.dat$//g;
                
                $cleanname = $filename;
                $cleanname =~ s/\_/ /g;
                
                $output .= qq~&nbsp;&nbsp;&nbsp;&nbsp;关于<a href="$thisprog?helpon=$filename" target="_self"><b>$cleanname</b></a>的帮助<p>~;
                }
    
    
        } #end else
    
    
    
    





    ## Print the footer, and the page.  
    
    if ($passwordverification eq "yes") { $passwordverification = "是必需的"; }
    else { $passwordverification = "不是必须的"; }
    
    if ($emailfunctions ne "on") { $emailfunctions = "关闭"; }
    
    if ($emoticons eq "on") {
                $emoticons = "使用";
                $emoticonslink = qq~| 查看<a href="javascript:openwin('$miscprog?action=showsmilies',300,350)">表情转换</a>~;
                }
                else { $emoticons = "没有使用"; }
            
            
    $output .= qq~<p><br><br>查看<a href="$thisprog" target="_self">所有的帮助文件</a> $emoticonslink | 查看<a href="javascript:openwin('$miscprog?action=ikoncode',300,350)">ib2000 标签</a>~;
        
    ## All done, print the file
    
    $output .= qq~
    </td></tr>
    <tr>
    <td bgcolor=$miscbacktwo align=center><font face="$font" color=$fontcolormisc><b>论坛常规信息</b><br><br>
    表情自动转换：<b>$emoticons</b><br>邮件地址确认：<b>$passwordverification</b><br>论坛邮件功能：<b>$emailfunctions</b><br><br>
    </td>
    </tr>
    <tr>
    <td bgcolor=$miscbackone align=center><font face="$font" color=$fontcolormisc><b>登陆访问坛主/版主的帮助</b><br>
    
    <form action="$thisprog" method="post">
    <input type=hidden name="action" value="login">
    <font face="$font" color=$fontcolormisc>
    用户名：&nbsp; <input type=text name="adminmodname" value="$inmembername"5> &nbsp; 
    密　码：&nbsp; <input type=password name="adminmodpass" value="$inpassword"5> &nbsp; <input type=submit value="登 陆"></td></tr></form>
    </table></td></tr></table>~;
    
            &printmessanger(
            -Title   => "$boardname - 帮助", 
            -ToPrint => $output, 
            -Version => $versionnumber 
            );
    
    
sub messangererror {

my $errorinfo = shift;

($where, $errormsg) = split(/\&/, $errorinfo);

$output = qq~
<table cellpadding=0 cellspacing=0 border=0 width=95% bgcolor=$tablebordercolor align=center>
    <tr>    
        <td>
        <table cellpadding=6 cellspacing=1 border=0 width=100%>
        <tr>
            <td bgcolor=$miscbacktwo valign=middle align=center><font face="$font" color=$fontcolormisc><b>错误：$where</b></font></td></tr>
            <tr>
                <td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc>
                <b>关于$where错误的详细原因：</b>
                <ul>
                <li><b>$errormsg</b>
                <li>您是否需要查看<a href="$helpprog">帮助文件</a>?
                </ul>
                <b>关于$where错误的可能原因：</b>
                <ul>
                <li>密码错误
                <li>用户名错误
                <li>您不是<a href="$registerprog">注册</a>用户
                </ul>
                </tr>
                </td></tr>
                <tr>
                <td bgcolor=$miscbacktwo valign=middle align=center><font face="$font" color=$fontcolormisc> <a href="javascript:history.go(-1)"> << 返回上一页</a>
                </td></tr>
                </table></td></tr></table>
                ~;
            &printmessanger(
            -Title   => $boardname, 
            -ToPrint => $output, 
            -Version => $versionnumber 
            );
}
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -