messanger.cgi

绿叶网络小学校园网-完全适合小学的网站

            </tr>
            ~;
            
        } # end action
    
    
    



    elsif ($action eq "outread") { # start showing messages
    
    
        # Validate the user
    
        &getmember("$inmembername");
    
        if ($inmembername eq "客人") { &login("$thisprog?action=outread&msg=$inmsg"); }
        elsif ($userregistered eq "no") { &messangererror("短消息&您没有注册！"); }
        elsif ($inpassword ne $password) { &messangererror("短消息&您的密码错误！"); }
        
        # Pick up the messages (outbox)
        
        $memberfilename = $inmembername;
        $memberfilename =~ s/ /\_/g;
        
        
        $filetoopen = "$ikondir". "messages/$memberfilename" . "_out.cgi";
        open (FILE, "$filetoopen");
        @outboxmessages = <FILE>;
        close (FILE);
        
        # Get the line to split
        
        $msgtograb = @outboxmessages[$inmsg];
        
        ($to, $readstate, $date, $messagetitle, $post) = split(/\|/,$msgtograb);        
    
        $date = $date + ($timedifferencevalue*3600) + ($timezone*3600);
        $date = &dateformat("$date");
        $cleanmember = $to;
        $cleanmember =~ s/ /\_/g;
        
        
        # Print the header
        
        $output .= qq~
            <tr>
                <td bgcolor=$miscbacktwo align=center colspan=3><font face="$font" color=$fontcolormisc><b>欢迎使用短消息接收，$membername</b></td>
            </tr>
            <tr>
                <td bgcolor=$miscbackone valign=middle align=center colspan=3><a href="$thisprog?action=delete&where=outbox&msg=$inmsg">$deletepm</a> &nbsp; <a href="$thisprog?action=inbox">$inboxpm</a> &nbsp; <a href="$thisprog?action=outbox">$outboxpm</a> &nbsp;<a href="$thisprog?action=new">$newpm</a> &nbsp;<a href="$thisprog?action=new&touser=$cleanmember">$replypm</a</td>
            </tr>
            ~;
        
        
        # Split the line
        
                $post = &ikoncode("$post");
                
                if ($emoticons eq "on") {
                    $post = &doemoticons("$post");
	   	    $post = &smilecode("$post");
                }
                    
    
            ### Print message

        if ($badwords) {
            @pairs = split(/\&/,$badwords);
            foreach (@pairs) {
                ($bad, $good) = split(/=/,$_);
                chop $good;
                $messagetitle=~ s/$bad/$good/isg;
                }
            }

            $output .= qq~
                <tr>
                    <td bgcolor=$miscbacktwo valign=middle align=center><font face="$font" color=$fontcolormisc>
                    在<b>$date</b>，您发送此消息给<b>$to</b>！</font></td>
                </tr>
                <tr>
                    <td bgcolor=$miscbackone valign=top align=left><font face="$font" color=$fontcolormisc>
                    <b>消息标题：$messagetitle</b><p>
                    $post</td>
                </tr>
                ~;

            
    } # end outread








    elsif ($action eq "send") {
    
            # Check to make sure the user exists
            
            &getmember("$intouser");
            
            if ($userregistered eq "no") { &messangererror("发送消息&没有找到用户！"); }
    
            # Validate user
    
            &getmember("$inmembername");
    
            if ($inmembername eq "客人") { &login("$thisprog?action=reply&touser=$intouser"); }
            elsif ($userregistered eq "no") { &messangererror("短消息&您没有注册！"); }
            elsif ($inpassword ne $password) { &messangererror("短消息&您的密码错误！"); }
            
            # Check for blanks
            
            if ($inmsgtitle eq "") { $blanks = "yes"; }
            if ($inmessage eq "") { $blanks = "yes"; }
            if ($intouser eq "") { $blanks = "yes"; }
            
            if ($blanks eq "yes") { &messangererror("发送留言&请将信息填写完整！"); }
       
        
            # Ensure the username has the underscore returned
            
            $memberfilename = $intouser;
            $memberfilename =~ s/ /\_/g;
            $currenttime = time;
            
            
            # Send the message to the user's file
            
            $filetoopen = "$ikondir". "messages/$memberfilename" . "_msg.cgi";
            $filetoopen = &stripMETA($filetoopen);
            open (FILE, "$filetoopen");
            @inboxmessages = <FILE>;
            close (FILE);
        
            # Write back to the 'to' users file
        
            open (FILE, ">$filetoopen");
            flock (FILE, 2) if ($OS_USED eq "Unix");
            print FILE "$membername|no|$currenttime|$inmsgtitle|$inmessage\n";
            foreach $line (@inboxmessages) {
                chomp $line;
                print FILE "$line\n";
                }
            close (FILE);
            
            # Now, write it to the outbox of the sender
            
            $memberfilename = $inmembername;
            $memberfilename =~ s/ /\_/g;
            
            $filetoopen = "$ikondir". "messages/$memberfilename" . "_out.cgi";
            $filetoopen = &stripMETA($filetoopen);
            open (FILE, "$filetoopen");
            @outboxmessages = <FILE>;
            close (FILE);
        
            open (FILE, ">$filetoopen");
            flock (FILE, 2) if ($OS_USED eq "Unix");
            print FILE "$intouser|yes|$currenttime|$inmsgtitle|$inmessage\n";
            foreach $line (@outboxmessages) {
                chomp $line;
                print FILE "$line\n";
                }
            close (FILE);
            
            # create the dummy file
            
            
            
            # Print the all done screen
            
            $output .= qq~
            <tr>
                <td bgcolor=$miscbacktwo align=center><font face="$font" color=$fontcolormisc><b>发送短消息</b></td>
            </tr>
            <tr>
                <td bgcolor=$miscbackone valign=middle align=center><a href="$thisprog?action=inbox">$inboxpm</a> &nbsp; <a href="$thisprog?action=outbox">$outboxpm</a> &nbsp; <a href="$thisprog?action=new">$newpm</a></td>
            </tr>
            <tr>
            <td bgcolor=$miscbackone align=center><font face="$font" color=$fontcolormisc><b>给$intouser的短消息已经发出。</b><p>该消息同时也复制到您的发件箱中了！</td>
            </tr>
            ~;
            
            
    } # end action
            
            

    
    
    
    

    
    elsif ($action eq "loggedin") {
    
        # Validate user
    
        &getmember("$inmembername");
    
        if ($inmembername eq "客人") { &login("$thisprog?action=loggedin"); }
        elsif ($userregistered eq "no") { &messangererror("收件箱&您没有注册！"); }
        elsif ($inpassword ne $password) { &messangererror("收件箱&您的密码错误！"); }
        
        
        # Pick up the messages
        
        $memberfilename = $inmembername;
        $memberfilename =~ s/ /\_/g;
        
        $filetoopen = "$ikondir". "messages/$memberfilename" . "_msg.cgi";
        $filetoopen = &stripMETA($filetoopen);
        open (FILE, "$filetoopen");
        @allmessages = <FILE>;
        close (FILE);
        
        $totalmessages = @allmessages;
        
        $unread = 0;
        
        foreach (@allmessages) {
            ($from, $readstate, $date, $messagetitle, $message) = split(/\|/,$_);
            if ($readstate eq "no") {
                $unread++;
                }
            }
            
        if ($unread eq "0") { $unread eq "no"; }
        
        
        $output .= qq~
        <tr>
            <td bgcolor=$miscbacktwo  align=center><font face="$font" color=$fontcolormisc><b>欢迎使用短消息，$membername</b></td>
            </tr>
            <tr>
                <td bgcolor=$miscbackone valign=middle align=center><a href="$thisprog?action=inbox">$inboxpm</a> &nbsp; <a href="$thisprog?action=outbox">$outboxpm</a> &nbsp; <a href="$thisprog?action=new">$newpm</a></td>
            </tr>
            <tr>
                <td bgcolor=$miscbackone valign=middle align=center>
                <font face="$font" color=$fontcolormisc><p>
                您现在有 <b>$totalmessages</b> 条消息在您的收件箱内。<p>
                现在有<b><font color="$fonthighlight">$unread</b><font color=$fontcolormisc>条新消息。
                <p>
                <blockquote><b>注意</b>： 发送给您的消息只能由你来查看，请及时删除过期的消息，避免服务器超负荷工作。</blockquote></font>
                </td></tr>
            <tr>
            ~;
        
    
    } # end action
    
    
    


    elsif ($action eq "inbox") {
    
        # Validate the user
    
        &getmember("$inmembername");
    
        if ($inmembername eq "客人") { &login("$thisprog?action=inbox");}
        elsif ($userregistered eq "no") { &messangererror("收件箱&您没有注册！"); }
        elsif ($inpassword ne $password) { &messangererror("收件箱&您的密码错误！"); }
        
        
        $memberfilename = $inmembername;
        $memberfilename =~ s/ /\_/g;
        
        # Pick up the messages (inbox)
        
        $filetoopen = "$ikondir". "messages/$memberfilename" . "_msg.cgi";
        $filetoopen = &stripMETA($filetoopen);
        open (FILE, "$filetoopen");
        @inboxmessages = <FILE>;
        close (FILE);
        
        $totalinboxmessages = @inboxmessages;

        $output .= qq~
            <tr>
                <td bgcolor=$miscbacktwo align=center colspan=3><font face="$font" color=$fontcolormisc><b>欢迎使用您的收件箱，$membername</b></td>
            </tr>
            <tr>
                <td bgcolor=$miscbackone valign=middle align=center colspan=3><a href="$thisprog?action=inbox">$inboxpm</a> &nbsp; <a href="$thisprog?action=outbox">$outboxpm</a> &nbsp; <a href="$thisprog?action=new">$newpm</a></td>
            </tr>
            <tr>
                <td bgcolor=$miscbackone align=center valign=middle><font face="$font" color=$fontcolormisc><b>来自</b></td>
                <td bgcolor=$miscbackone align=center valign=middle><font face="$font" color=$fontcolormisc><b>主题</b></td>