⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 misc.cgi

📁 绿叶网络小学校园网-完全适合小学的网站
💻 CGI
📖 第 1 页 / 共 2 页
字号:
🔍
12 
#!/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 "ikon.lib";          # Require ikonboard ()
require "data/progs.cgi";    # Require prog names
require "data/boardinfo.cgi";# Require board info
require "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 = "misc.cgi";

$query = new CGI;

$boardurltemp =$boardurl;

$boardurltemp =~ s/http\:\/\/(\S+?)\/(.*)/\/$2/;
$cookiepath = $boardurltemp;
$cookiepath =~ s/$thisprog//sg;
	
$UIN                    = $query -> param('UIN');
$action                 = $query -> param('action');
$aimname                = $query -> param('aimname');
$aimname =~ s/ //g;

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

if (!$inmembername) { $inmembername = "客人"; }

### Do smilies

if ($action eq "showsmilies") {

    $emoticonsurl = qq~$imagesurl/emoticons~;

    # Set up the HTML, and title
    
    $output = qq~
    
    <html><head><title>表情转换</title>
<style>
		A:visited {	TEXT-DECORATION: none	}
		A:active  {	TEXT-DECORATION: none	}
		A:hover   {	TEXT-DECORATION: underline overline	}
		A:link 	  {	text-decoration: none;}
		
	        A:visited {	text-decoration: none;}
	        A:active  {	TEXT-DECORATION: none;}
	        A:hover   {	TEXT-DECORATION: underline overline}
	        
		.t     {	LINE-HEIGHT: 1.4					}
		BODY   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		TD	   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		SELECT {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt;	}
		INPUT  {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt; height:22px;	}
		TEXTAREA{	FONT-FAMILY: 宋体; FONT-SIZE: 9pt;	}
		DIV    {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		FORM   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		OPTION {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		P	   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		TD	   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		BR	   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}

</style>
    </head>
    <body topmargin=0 leftmargin=0>
    <table width=95% cellpadding=0 cellspacing=1 border=0 align=center bgcolor=#$tablebordercolor>
    <tr>
        <td>
        <table width=100% cellpadding=5 cellspacing=1 border=0>
            <tr>
                <td bgcolor="$titlecolor" align=center valign=middle colspan=2>
                    <font face="$font" color="$titlefontcolor"><b>$boardname - 表情转换</b></font>
                    </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbacktwo" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc">代码</font>
                </td>
                    <td bgcolor="$miscbacktwo" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc">转换后</font>
                </td>
                </tr>
                ~;
    
    # Grab and print them
    
    $dirtoopen = "$imagesdir" . "emot";
    opendir (DIR, "$dirtoopen") or die "这不是正确的表情转换所用的图标目录：$dirtoopen"; 
    @dirdata = readdir(DIR);
    closedir (DIR);


    @emoticondata = grep(/gif/,@dirdata);
        
    foreach $picture (@emoticondata) {
    $smileyname = $picture;
    $smileyname =~ s/\.gif//g;
    
    $output .= qq~
                <tr>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc">:$smileyname:</font>
                </td>
                    <td bgcolor="$miscbackone" align=center valign=middle>
                    <font face="$font" color="$fontcolormisc"><img src="${imagesdir}emot/$picture" border=0></font>
                </td>
                </tr>
                ~;
    } #endforeach


    $output .= qq~
            </table>
        </td></tr>
    </table>
    </body>
    </html>
    ~;

} # end if smilies action


### ICQ stuff

elsif ($action eq "icq") {

$output = qq~
    
    <html><head><title>$boardname 的 ICQ 寻呼</title>
<style>
		A:visited {	TEXT-DECORATION: none	}
		A:active  {	TEXT-DECORATION: none	}
		A:hover   {	TEXT-DECORATION: underline overline	}
		A:link 	  {	text-decoration: none;}
		
	        A:visited {	text-decoration: none;}
	        A:active  {	TEXT-DECORATION: none;}
	        A:hover   {	TEXT-DECORATION: underline overline}
	        
		.t     {	LINE-HEIGHT: 1.4					}
		BODY   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		TD	   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		SELECT {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt;	}
		INPUT  {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt; height:22px;	}
		TEXTAREA{	FONT-FAMILY: 宋体; FONT-SIZE: 9pt;	}
		DIV    {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		FORM   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		OPTION {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		P	   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		TD	   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		BR	   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}

</style>
    </head>
    <body topmargin=10 leftmargin=0>
    <table width=95% cellpadding=0 cellspacing=1 border=0 align=center bgcolor=$tablebordercolor>
    <tr>
        <td>
        <form action="http://wwp.mirabilis.com/scripts/WWPMsg.dll" method="post">
        <input type="hidden" name="subject" value="来自 - $boardname"><input type="hidden" name="to" value="$UIN">
        <table width=100% cellpadding=5 cellspacing=1 border=0>
            <tr>
                <td bgcolor="$titlecolor" align=center valign=middle colspan=2>
                    <font face="$font" color="$titlefontcolor"><b>$boardname - ICQ 寻呼</b><br>发送一个消息给 $UIN</font>
                    </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbacktwo" align=left valign=top>
                    <font face="$font" color="$fontcolormisc">请输入您的名称</font>
                </td>
                    <td bgcolor="$miscbacktwo" align=left valign=middle>
                    <input type="text" name="from" size="20" maxlength="40">
                </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=left valign=top>
                    <font face="$font" color="$fontcolormisc">请输入您的密码</font>
                </td>
                    <td bgcolor="$miscbackone" align=left valign=middle>
                    <input type="text" name="fromemail" size="20" maxlength="40">
                </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=left valign=top>
                    <font face="$font" color="$fontcolormisc">要发送的消息</font>
                </td>
                    <td bgcolor="$miscbackone" align=left valign=middle>
                    <textarea name="body" rows="3" cols="30" wrap="Virtual"></textarea>
                </td>
                </tr>
                <tr>
                <td bgcolor="$miscbacktwo" align=center valign=middle colspan=2>
                <input type="submit" name="Send" value="发送消息"></form>
                </td>
                </tr>
            </table>
        </td></tr>
    </table>
    </body>
    </html>
    ~;
    
} # end elsif icq



elsif ($action eq "ikoncode") {

$output = qq~
    
    <html><head><title>ib2000 标签</title>
<style>
		A:visited {	TEXT-DECORATION: none	}
		A:active  {	TEXT-DECORATION: none	}
		A:hover   {	TEXT-DECORATION: underline overline	}
		A:link 	  {	text-decoration: none;}
		
	        A:visited {	text-decoration: none;}
	        A:active  {	TEXT-DECORATION: none;}
	        A:hover   {	TEXT-DECORATION: underline overline}
	        
		.t     {	LINE-HEIGHT: 1.4					}
		BODY   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		TD	   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		SELECT {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt;	}
		INPUT  {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt; height:22px;	}
		TEXTAREA{	FONT-FAMILY: 宋体; FONT-SIZE: 9pt;	}
		DIV    {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		FORM   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		OPTION {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		P	   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		TD	   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}
		BR	   {	FONT-FAMILY: 宋体; FONT-SIZE: 9pt	}

</style>
    </head>
    <body topmargin=10 leftmargin=0>
    <table width=95% cellpadding=0 cellspacing=1 border=0 align=center bgcolor=$tablebordercolor>
    <tr>
        <td>
        <table width=100% cellpadding=5 cellspacing=1 border=0>
            <tr>
                <td bgcolor="$titlecolor" align=center valign=middle colspan=2>
                    <font face="$font" color="$titlefontcolor"><b>ib2000 标签</b>
                    <br>ib2000 标签很象 HTML 标签，但比 HTML 标签安全。你可以参照下面手册中的格式来使用它！
                    </font>
                    </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=left valign=middle><ul>
                    <font face="$font" color="$fontcolormisc">
                    <font color=$fonthighlight>[quote]</font>这个标签是用来做为引用所设置的，如果你有什么内容是引用自别的地方，请加上这个标签！<font color=$fonthighlight>[/quote]</font>
                </td>
                    <td bgcolor="$miscbackone" align=left valign=middle>
                    <font face="$font" color="$fontcolormisc"><hr noshade color=$fonthighlight><blockquote>这个标签是用来做为引用所设置的，如果你有什么内容是引用自别的地方，请加上这个标签！</blockquote><hr noshade color=$fonthighlight></font>
                </td>
                </tr>
                <tr>
                    <td bgcolor="$miscbackone" align=left valign=middle><UL>
                    <font face="$font" color="$fontcolormisc">
                    <font color=$fonthighlight>[code]</font>
                    	<BR>unless ( eq "$authenticateme") {
			<BR>print "错误的管理密码";
			<BR>&unlock;
			<BR>exit;
			<BR>}<BR>
			<font color=$fonthighlight>[/code]</font>
                </td>
                    <td bgcolor="$miscbackone" align=left valign=middle>
                    <font face="$font" color="$fontcolormisc">
12

⌨️ 快捷键说明

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