[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Full-disclosure] Miyabi CGI Tools index.pl command execution

To: full-disclosure@xxxxxxxxxxxxxxxxx
Subject: [Full-disclosure] Miyabi CGI Tools index.pl command execution
From: Marshall Whittaker <marshallwhittaker@xxxxxxxxx>
Date: Tue, 29 Jun 2010 15:51:11 -0400

The Miyabi CGI Tools index.pl CGI script suffers from the pipe bug. The
script is attached. It's all in Japanese (I think), I can't read the
comments.

ÿþ#!/usr/bin/perl

#********************************************************************

# ·0¹0Æ0à0
T      : for UNIX / FreeWare                                              
                *

# µ0Ö0·0¹0Æ0à0
T  : Module                                                             
                        *

# ½0ü0¹0Õ0¡0¤0ë0
T: index.pl                                                            
                *

# «0Æ0´0ê0ü0      : Perl Mudule                                                      
                        *

# ¨0Ç0£0¿0ü0      : S.Mizutani                                                       
                        *

#-------------------------------------------------------------------*

# 
Tðy            : Å–SEOøv’Nê0ó0¯0 Version 1.02                                        
*

# URL             : http://tool.miyabi-seo.com/                                 
        *

# E-Mail          : miyabi.seo@gmail.com                                        
                *

#-------------------------------------------------------------------*

# Copyright(c)2007-2008 Miyabi CGI Tools All Right Reserved.            *

#********************************************************************

$SystemVersion          = '1.02';

#===================================================================*

# Include Module                                                                
                                        *

#===================================================================*

$ProgramPath            = './';

$HomePath                       = './';

#-------------------------------*

# Require Module                                *

#-------------------------------*

require $ProgramPath.'project/Setup/ConstantValue.pl';          # š[pe-Šš[â0¸0å0ü0ë0

require $ProgramPath.'project/Inspection/Parameter.pl';         # _peiûgâ0¸0å0ü0ë0

require $ProgramPath.'project/Output/Display.pl';                       # 
HTMLúQ›Râ0¸0å0ü0ë0

#===================================================================*

# Set Param                                                                     
                                                *

#===================================================================*

#-------------------------------*

# ¡{t(u	Ype                                 *

#-------------------------------*

$MvSubTitle                     = '¿0¤0¢•#µ0¤0È0ê0ó0¯0Æ–,Ð0ó0³0¯0,Á0§0ó0Þ0¤0,×0ü0±0Ã0È0I{0«0Æ0´0ê0ü0%R¿0¤0ê0ó0¯0Æ–'; 
                                # øv’Nê0ó0¯0¿0¤0È0ë0

$MvDataFile                     = $ProgramPath.'data/datafile.tsv';             
# Ç0ü0¿0Õ0¡0¤0ë0

#-------------------------------*

# ÕR\O-Šš[                                          *

#-------------------------------*

$MvMailSend                     = 1;            # {v2“åwá0ü0ë0               [ 1:ON 
/ 0:OFF ]

$MvLinkCheck            = 1;            # øv’Nê0ó0¯0Á0§0Ã0¯0     [ 1:ON / 0:OFF ]

$MvThumbnails           = 1;            # µ0à0Í0¤0ë0;uÏP               [ 1:ON / 0:OFF ]

#-------------------------------*

# Input Data                                    *

#-------------------------------*

%CvIndata                       = &Inspection_Parameter_Get;

#-------------------------------*

# «0Æ0´0ê0š[©                                        *

#-------------------------------*

@MvCategory                     = (

        "hQf0hˆ:y",

        "¿0¤0Ï}T",

        "Ð0ó0³0¯0Ï}T",

        "Á0§0ó0Þ0¤0",

        "×0ü0±0Ã0È0",

        "µ0à0¤0ö\",

        "Ñ0¿0ä0",

        "¿0ª0ö\",

        "Ñ0ó0¬0ó0ö\",

        "Á0§0ó0é0¤0",

        "¯0é0Ó0",

        "ß˜‹Nû0ì0¹0È0é0ó0",

        "¿0¤0žŠ",

        "ÅeLˆŠ",

        "Ê0¤0È0é0¤0Õ0",

        "½e-Šû0¢0¯0Æ0£0Ó0Æ0£0ü0",

        "¢0¯0Æ0£0Ó0Æ0£0ü0",

        "]0n0ÖN",

);

#===================================================================*

# Deny Param                                                                    
                                        *

#===================================================================*

#-------------------------------*

# 6RP–Û0¹0È0                                 *

#-------------------------------*

@DenyHost                       = (

        'anonymizer',

        'cache'

);

#-------------------------------*

# 6RP–Æ00¹0È0                                        *

#-------------------------------*

@DenyText                       = (

        '¨˜×O',

        '{km0',

        'ºkY0',

        '¿ŠYe',

        'tY·–',

        '!qîOck',

);

#-------------------------------*

# 6RP–URL                                         *

#-------------------------------*

@DenyUrl                        = (

        'fuck',

        'adult',

        'fetich',

        'stripper'

);

#===================================================================*

# Main                                                                          
                                                *

#===================================================================*

my($HtmlText)           = '';

my($InCategory)         = $MvCategory[($CvIndata{'Category'} - 10)] if 
($CvIndata{'Category'} > 10);

my($PageTitle)          = $CvSiteTitle;

$PageTitle                      .= '\ÿ'.$MvSubTitle if (defined $MvSubTitle);

$PageTitle                      .= ' 0'.$InCategory.'0' if (defined 
$InCategory);

#-------------------------------*

if ($CvIndata{'mode'} eq 'html') {

        $HtmlText               .= 
&Output_File_Html($ProgramPath.'html/'.$CvIndata{'fn'});

} else {

        if ($CvIndata{'mode'} eq 'admin') {

                if ($CvIndata{'process'} eq 'check') {

                        my($ErrorMsg)   = '';

                        $ErrorMsg               = 'eQ›R¨0é0ü0,µ0¤0È0URL : URLn0øf_L0
Nckg0Y0' 
if ($CvIndata{'URL'} !~ /^http:\/\/(?:[a-zA-Z0-9-_.]+).*$/);

                        unless ($ErrorMsg) {

                                #-------------------------------*

                                # Ç0ü0¿0Š¼                                 *

                                #-------------------------------*

                                if (open(FILE, "grep -E 
'\t".$CvIndata{'URL'}."\t' $MvDataFile|")) {

                                        my(@Array)      = <FILE>;

                                        close(FILE);

                                        #-------------------------------*

                                        if (defined @Array) {

                                                @Array          = split(/\t/, 
$Array[0]);

                                                if ($CvIndata{'request'} eq 
'edit') {

                                                        $HtmlText       .= 
&Output_Html_EditForm($Array[1]);

                                                } elsif ($CvIndata{'request'} 
eq 'delete') {

                                                        $HtmlText       .= 
&Output_Html_DeleteForm($Array[1]);

                                                }

                                        } else {

                                                $ErrorMsg       = 'eQ›R¨0é0ü0,µ0¤0È0URL 
: rŠS_Ç0ü0¿0L0‹‰d0K0Š0~0[0“00';

                                        }

                                } else {

                                        $ErrorMsg       = 
'·0¹0Æ0à0¨0é0ü0,Ç0ü0¿0Õ0¡0¤0ë0’0‹•Q0~0[0“00';

                                }

                        }

                        if ($ErrorMsg) {

                                $HtmlText       .= &Output_Html_Text($ErrorMsg);

                                $HtmlText       .= &Output_Html_AdminForm;

                        }

                } else {

                        $HtmlText       .= &Output_Html_AdminForm;

                }

        } elsif (($CvIndata{'mode'} eq 'delete') && $CvIndata{'id'}) {

                my($ErrorMsg)   = '';

                if ($CvIndata{'process'} eq 'check') {

                        $ErrorMsg       = 
&Inspection_Param_Password($CvIndata{'password'},6,$CvPassword);

                        $HtmlText       .= ((!$ErrorMsg) && 
(&Output_File_Delete($CvIndata{'id'})))

                                                ? 
&Output_Html_Text('æQtŒ[†N,Ç0ü0¿0’0JRd–ôW0~0W0_00')

                                                : 
&Output_Html_Text('eQ›R¨0é0ü0,Ñ0¹0ï0ü0É0 : '.$ErrorMsg);

                } else {

                        $HtmlText       .= 
&Output_Html_DeleteForm($CvIndata{'id'});

                }

        } elsif (($CvIndata{'mode'} eq 'edit') && $CvIndata{'id'}) {

                if ($CvIndata{'process'} eq 'check') {

                        my($ErrorMsg)   = '';

                        my(@RtnArray)   = &Inspection_ParamCheck(0);

                        push(@RtnArray, 'eQ›R¨0é0ü0,Ñ0¹0ï0ü0É0 : '.$ErrorMsg) if 
($ErrorMsg       = 
&Inspection_Param_Password($CvIndata{'password'},6,$CvPassword));

                        unless (@RtnArray) {

                                &Output_File_Delete($CvIndata{'id'});

                                $HtmlText       .=  
&Output_Html_Text(&Output_File_InputData);

                        } else {

                                $HtmlText       .= &Output_Html_Text(@RtnArray);

                                $HtmlText       .= 
&Output_Html_EditForm($CvIndata{'id'});

                        }

                } else {

                        $HtmlText       .= 
&Output_Html_EditForm($CvIndata{'id'});

                }

        } elsif ($CvIndata{'mode'} eq 'regist') {

                my(@RtnArray)   = &Inspection_ParamCheck(1);

                unless (@RtnArray) {

                        $HtmlText       .= 
&Output_Html_Text(&Output_File_InputData);

                } else {

                        $HtmlText       .= &Output_Html_Text(@RtnArray);

                        $HtmlText       .= &Output_Html_RegistForm;

                }

        } else {

                $HtmlText               .= &Output_Html_RegistForm;

        }

        $HtmlText                       .= &Output_Html_ReadData;

}

#-------------------------------*

# HTML Header                                   *

#-------------------------------*

&Output_Display_Common_Header($PageTitle);

&Output_Html_Header;

#-------------------------------*

print $HtmlText;

#-------------------------------*

# HTML Footer                                   *

#-------------------------------*

&Output_Html_Footer;

&Output_Display_Common_Footer;

exit;

#===========================================================================*

# ×0í0°0é0à0
T  : á0ü0ë0áO                                                               
                                *

# ×0í0°0é0à0ID  : Action_MailSend                                                    
                                *

# O(u‹O        : &Action_MailSend;                                                
                                        *

#===========================================================================*

sub Action_MailSend {

        #-------------------------------*

        # á0ü0ë0áOæQt                               *

        #-------------------------------*

        return 1 unless (open(OUT,"| $sendmail -t"));

        #-------------------------------#

        # á0ü0ë0Ø0Ã0À0úQ›R                              #

        #-------------------------------#

        &Output_Mail_Header($MvSubTitle.'{v2“åw - 
'.$CvSiteTitle,$CvMailHandle,$MvSubTitle.' Admin',$CvMailHandle);

        #-------------------------------*

        # ,g‡eb_b                                          *

        #-------------------------------*

        foreach (@_) {

                print OUT &$jcnv(\$_, 'jis');

        }

        close(OUT);

        #-------------------------------*

        # ;bŠ0$P(u	Ypeub                              *

        #-------------------------------*

        return;

}

#===========================================================================*

# ×0í0°0é0à0
T  : MailØ0Ã0À0ü0úQ›R                                                          
                        *

# ×0í0°0é0à0ID  : Output_Mail_Header                                                 
                        *

# O(u‹O        : &Output_Mail_Header($_[0],$_[1],$_[2]);                          
        *

#---------------------------------------------------------------------------*

# eQ›R_pe[0]   : Subject                                                           
                                        *

# eQ›R_pe[1]   : From Mail Address                                                 
                                *

# eQ›R_pe[2]   : From Name                                                         
                                        *

# eQ›R_pe[3]   : To Mail Address                                                   
                                *

#---------------------------------------------------------------------------*

# úQ›R_pe[0]   : j0W0                                                                
                                                *

#===========================================================================*

sub Output_Mail_Header {

        #-------------------------------*

        # 	Ype£[Š                                          *

        #-------------------------------*

        my($mySubject)  = &Encode_Mail_Base64($_[0]);

        my($myMailFrom) = ($_[2]) ? &Encode_Mail_Base64($_[2])."\<".$_[1]."\>" 
: $_[1];

        my($myMailTo)   = ($_[3]) ? $_[3] : $CvMailHandle;

        #-------------------------------#

        # á0ü0ë0Ø0Ã0À0úQ›R                              #

        #-------------------------------#

        print OUT "Return-Path: \<".$myMailTo."\>\n";

        print OUT "From: ".$myMailFrom."\n";

        print OUT "To: ".$myMailTo."\n";

        print OUT "Subject: ".$mySubject."\n";

        #-------------------------------#

        print OUT "MIME-Version: 1.0\n";

        print OUT "Content-Type: text/plain\; charset=iso-2022-jp\n";

        print OUT "Content-Transfer-Encoding: 7bit\n";

        print OUT "X-Priority: 3\n";

        print OUT "X-MSMail-Priority: Normal\n";

        print OUT "\n";

}

#===========================================================================*

# ×0í0°0é0à0
T  : Õ0¡0¤0ë0Ç0ü0¿0øf¼                                                           
                *

# ×0í0°0é0à0ID  : Output_File_ColumnData                                             
                        *

# O(u‹O        : &Output_File_ColumnData('***.tsv','DATA');                       
        *

#---------------------------------------------------------------------------*

# eQ›R_pe[0]   : Ç0ü0¿0Õ0¡0¤0ë0
T                                                          
                        *

# eQ›R_pe[1]   : øf¼…Q¹[                                                              
                                        *

#===========================================================================*

sub Output_File_ColumnData {

        #-------------------------------*

        # æQt                                                    *

        #-------------------------------*

        return if (!open FILE,">>$_[0]");

        flock(FILE, 2);                                 # lock

        seek(FILE, 0, 2);                               # pointer set

        print FILE $_[1]."\n";

        close FILE;

        #-------------------------------*

        # ;bŠ0$P(u	Ypeub                              *

        #-------------------------------*

        return 1;

}

#===========================================================================*

# ×0í0°0é0à0
T  : Í‘‰Á0§0Ã0¯0                                                              
                                *

# ×0í0°0é0à0ID  : Inspection_File_Overlap                                            
                        *

# O(u‹O        : &Inspection_File_Overlap($_[0],$_[1]);                           
        *

#---------------------------------------------------------------------------*

# eQ›R_pe[0]   : i"}0ü0ï0ü0É0                                                           
                        *

# eQ›R_pe[1]   : Ç0ü0¿0Õ0¡0¤0ë0
T                                                          
                        *

#===========================================================================*

sub Inspection_File_Overlap {

        #-------------------------------*

        # 	Ype£[Š                                          *

        #-------------------------------*

        my($SearchKey)          = "\t".$_[0].".*";

        #-------------------------------*

        # æQt                                                    *

        #-------------------------------*

        return if (!open(FILE, "grep -E '$SearchKey' $_[1]|"));

        while (<FILE>) {

                chomp;

                return 1 if ($_ =~ /$SearchKey/i);

        }

        close FILE;

        #-------------------------------*

        # ;bŠ0$P(u	Ypeub                              *

        #-------------------------------*

        return;

}

#===========================================================================*

# ×0í0°0é0à0
T  : ‡eW[peiûg                                                               
                                *

# ×0í0°0é0à0ID  : Inspection_Param_TextLength                                        
                        *

# O(u‹O        : &Inspection_Param_TextLength($_[0],$_[1],$_[2]);                 
*

#---------------------------------------------------------------------------*

# eQ›R_pe[0]   : iûg‡eW[                                                              
                                        *

# eQ›R_pe[1]   : ‰š[‡eW[pe                                                             
                                *

# eQ›R_pe[2]   : StrMode           (0:cš[j0W0 1:ñ‚peW[)                                  
        *

#===========================================================================*

sub Inspection_Param_TextLength {

        #-------------------------------*

        # æQt                                                    *

        #-------------------------------*

        return 'eQ›RÅ_˜˜îvg0Y0' unless ($_[0]);

        if ($_[2] == 1) {

                return 'JSÒ‰ñ‚peW[åNYn0‡eW[L0+T~0Œ0f0D0~0Y0' if ($_[0] !~ /^[\w]+$/);

                return $_[1].'‡eW[åN
NeQ›RW0f0NU0D0' if (length($_[0]) < $_[1]);

        } else {

                return 'øf_L0
Nckg0Y0' if (length($_[0]) < $_[1]);

        }

        #-------------------------------*

        # ;bŠ0$P(u	Ypeub                              *

        #-------------------------------*

        return;

}

#===========================================================================*

# ×0í0°0é0à0
T  : Ñ0¹0ï0ü0É0iûg                                                             
                        *

# ×0í0°0é0à0ID  : Inspection_Param_Password                                          
                        *

# O(u‹O        : &Inspection_Param_Password($_[0],$_[1],$_[2]);                   
*

#---------------------------------------------------------------------------*

# eQ›R_pe[0]   : Ñ0¹0ï0ü0É0                                                             
                                *

# eQ›R_pe[1]   : ‰š[‡eW[pe                                                             
                                *

# eQ›R_pe[2]   : TôiûgÑ0¹0ï0ü0É0                                                         
                *

#===========================================================================*

sub Inspection_Param_Password {

        #-------------------------------*

        # æQt                                                    *

        #-------------------------------*

        return 'eQ›RÅ_˜˜îvg0Y0' unless ($_[0]);

        return 'Ñ0¹0ï0ü0É0n0øf_L0
Nckg0Y0' if ($_[0] !~ /^[a-zA-Z0-9]+$/);

        return $_[1].'‡eW[åN
NeQ›RW0f0NU0D0' if (length($_[0]) < $_[1]);

        return 'Ñ0¹0ï0ü0É0L0UD0~0Y0' if (($_[2]) && ($_[0] ne $_[2]));

        #-------------------------------*

        # ;bŠ0$P(u	Ypeub                              *

        #-------------------------------*

        return;

}

#===========================================================================*

# ×0í0°0é0à0
T  : URLiûg                                                               
                                        *

# ×0í0°0é0à0ID  : Inspection_Param_Url                                               
                                *

# O(u‹O        : &Inspection_Param_Url($_[0]);                                    
                        *

#---------------------------------------------------------------------------*

# eQ›R_pe[0]   : iûgURL                                                             
                                        *

#===========================================================================*

sub Inspection_Param_Url {

        #-------------------------------*

        # æQt                                                    *

        #-------------------------------*

        return 'URLn0øf_L0
Nckg0Y0' if ($_[0] !~ /^http:\/\/(?:[a-zA-Z0-9-_.]+).*$/);

        return 'URLk0¥cš}g0M0~0[0“0' unless (&Inspection_Existence_Url($_[0]));

        #-------------------------------*

        # ;bŠ0$P(u	Ypeub                              *

        #-------------------------------*

        return;

}

#===========================================================================*

# ×0í0°0é0à0
T  : URLX[(WºxŠ                                                             
                                *

# ×0í0°0é0à0ID  : Inspection_Existence_Url                                           
                        *

# O(u‹O        : &Inspection_Existence_Url($_[0]);                                
                        *

#---------------------------------------------------------------------------*

# eQ›R_pe[0]   : URL                                                               
                                                *

#===========================================================================*

sub Inspection_Existence_Url {

        #-------------------------------*

        # â0¸0å0ü0ë0O(u£[Š                     *

        #-------------------------------*

        use LWP::Simple;

        #-------------------------------*

        # ;bŠ0$P(u	Ypeub                              *

        #-------------------------------*

        return get($_[0]);

}

#===========================================================================*

# ×0í0°0é0à0
T  : Ï}peÖS—_                                                                
                                        *

# ×0í0°0é0à0ID  : Read_File_Sum                                                      
                                        *

# O(u‹O        : &Read_File_Sum($_[0],$_[1]);                                     
                        *

#---------------------------------------------------------------------------*

# eQ›R_pe[0]   : Ç0ü0¿0Õ0¡0¤0ë0
T                                                          
                        *

# eQ›R_pe[1]   : i"}0ü0ï0ü0É0                                                           
                        *

#---------------------------------------------------------------------------*

# úQ›R_pe[0]   : Ï}pe                                                                
                                                *

#===========================================================================*

sub Read_File_Sum {

        #-------------------------------*

        # 	Ype£[Š                                          *

        #-------------------------------*

        my($Cnt)                                = 0;

        #-------------------------------*

        # æQt                                                    *

        #-------------------------------*

        return if (!open(FILE, "grep -E '^$_[1]' $_[0]|"));

        while(<FILE>) {

                $Cnt++;

        }

        close FILE;

        #-------------------------------*

        # ;bŠ0$P(u	Ypeub                              *

        #-------------------------------*

        return $Cnt;

}

#===========================================================================*

# ×0í0°0é0à0
T  : HTML½0ü0¹0ÖS—_                                                           
                        *

# ×0í0°0é0à0ID  : Socket_Get_HtmlSource                                              
                                *

# O(u‹O        : &Socket_Get_HtmlSource($_[0]);                                   
                *

#---------------------------------------------------------------------------*

# eQ›R_pe[0]   : URL                                                               
                                                *

#===========================================================================*

sub Socket_Get_HtmlSource {

        #-------------------------------*

        # â0¸0å0ü0ë0O(u£[Š                     *

        #-------------------------------*

        use LWP::UserAgent;

        use HTTP::Request;

        #-------------------------------*

        # 	Ype£[Š                                          *

        #-------------------------------*

        my($RtnValue)   = '';                   # ;bŠ0$P(u	Ype

        #-------------------------------*

        # æQt                                                    *

        #-------------------------------*

        return unless (&Inspection_Existence_Url($_[0]));

        my($ua)                 = new LWP::UserAgent;

        my($request)    = new HTTP::Request('GET', $_[0]);

        my($response)   = $ua->request($request);

        $RtnValue               = $response->content if ($response->is_success);

        #-------------------------------*

        # ;bŠ0$P(u	Ypeub                              *

        #-------------------------------*

        return &$jcnv(\$RtnValue, $ENV{'CHAR_CODE'});

}

#===========================================================================*

# ×0í0°0é0à0
T  : ‡eW[³0ü0É0	YÛc                                                             
                        *

# ×0í0°0é0à0ID  : Encode_Mail_Base64                                                 
                        *

# O(u‹O        : &Encode_Mail_Base64('‡eW[R');                                      
                *

#---------------------------------------------------------------------------*

# eQ›R_pe[0]   : ‡eW[R                                                               
                                        *

#---------------------------------------------------------------------------*

# úQ›R_pe[0]   : ‡eW[Rÿ‡eW[³0ü0É0 : JIS	ÿ                                                  
        *

#===========================================================================*

sub Encode_Mail_Base64 {

        #-------------------------------*

        # 	Ype£[Š                                          *

        #-------------------------------*

        my($RecValue)           = $_[0];

        my($RtnValue, $Cnt, $i);

        my($Base)                       = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

                                                . "abcdefghijklmnopqrstuvwxyz"

                                                . "0123456789+/";

        #-------------------------------*

        # æQt                                                    *

        #-------------------------------*

        return unless ($RecValue);

        $RecValue                       = &$jcnv(\$RecValue, 'jis');

        $RecValue                       =~ s/\x1b\x28\x42/\x1b\x28\x4a/g;

        $RecValue                       = unpack("B*", $RecValue);

        for ($i = 0; $Cnt = substr($RecValue, $i, 6); $i += 6) {

                $RtnValue               .= substr($Base, ord(pack("B*", "00" . 
$Cnt)), 1);

                if (length($Cnt) == 2) {

                        $RtnValue       .= "==";

                } elsif (length($Cnt) == 4) {

                        $RtnValue       .= "=";

                }

        }

        #-------------------------------*

        # ;bŠ0$PæQt                                 *

        #-------------------------------*

        return ("=?iso-2022-jp?B?".$RtnValue."?=");

}

#===========================================================================*

# ×0í0°0é0à0
T  : Ç0ü0¿0{v2“                                                               
                                *

# ×0í0°0é0à0ID  : Output_File_InputData                                              
                                *

# O(u‹O        : &Output_File_InputData;                                          
                        *

#===========================================================================*

sub Output_File_InputData {

        #-------------------------------*

        # 	Ype£[Š                                          *

        #-------------------------------*

        my(@RtnArray)           = ();

        #-------------------------------*

        # Ç0ü0¿0{v2“                                 *

        #-------------------------------*

        
&Output_File_ColumnData($MvDataFile,$CvIndata{'Category'}."\t".$CvTimeCode."\t".$CvIndata{'Title'}."\t".$CvIndata{'URL'}."\t".$CvIndata{'Exp'}."\t".$CvIndata{'sURL'}."\t");

        if ($MvMailSend) {

                #-------------------------------*

                # 	Ype£[Š                                          *

                #-------------------------------*

                my(@MailText)   = ();

                #-------------------------------*

                
push(@MailText,"*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=\n");

                push(@MailText,$MvSubTitle." {v2“åw\n");

                
push(@MailText,"*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=\n");

                push(@MailText,"\n");

                push(@MailText,"{v2“åe : ".$CvDataNow."\n");

                push(@MailText,"\n");

                push(@MailText,"µ0¤0È0
T : ".$CvIndata{'Title'}."\n");

                push(@MailText,"µ0¤0È0URL : ".$CvIndata{'URL'}."\n");

                push(@MailText,"µ0¤0È09}ËN‡e : ".$CvIndata{'Exp'}."\n");

                push(@MailText,"\n");

                push(@MailText,"øv’Nê0ó0¯0HQURL : ".$CvIndata{'sURL'}."\n");

                push(@MailText,"\n");

                
push(@MailText,"------------------------------------------------------\n");

                push(@MailText,"S0n0á0ü0ë0o0".$MvSubTitle."·0¹0Æ0à0L0áOW0f0D0~0Y00\n");

                push(@MailText,"\n");

                push(@MailText,"%%%%%%%%%%%%%%%%%%%%%%%%\n");

                push(@MailText,"IP Address : ".$ENV{'REMOTE_ADDR'}."\n");

                if ($ENV{'REMOTE_HOST'} !~ /[^0-9\.]/) {

                        @_                                      = split(/\./, 
$ENV{'REMOTE_ADDR'});

                        $ENV{'REMOTE_HOST'}     = gethostbyaddr(pack("C4", 
$_[0], $_[1], $_[2], $_[3]), 2);

                        push(@MailText,"Remote Host : 
".$ENV{'REMOTE_HOST'}."\n") if ($ENV{'REMOTE_HOST'});

                }

                push(@MailText,"User Agent : ".$ENV{'HTTP_USER_AGENT'}."\n");

                #-------------------------------*

                push(@RtnArray,'·0¹0Æ0à0¨0é0ü0,SENDMAILn0-Šš[k0¤ŠŠ0L0B0Š0~0Y00') if 
(&Action_MailSend(@MailText));

        } else {

                push(@RtnArray,'{v2“Œ[†N,µ0¤0È0n0{v2“L0!q‹NŒ[†NW0~0W0_00');

        }

        #-------------------------------*

        # ;bŠ0$P(u	Ypeub                              *

        #-------------------------------*

        return @RtnArray;

}

#===========================================================================*

# ×0í0°0é0à0
T  : eQ›RÅ`1XºxŠ                                                              
                                *

# ×0í0°0é0à0ID  : Inspection_ParamCheck                                              
                                *

# O(u‹O        : &Inspection_ParamCheck($_[0]);                                   
                *

#---------------------------------------------------------------------------*

# eQ›R_pe[0]   : 6RP–‹N˜      [ 0 : !q / 1 : 	g ]                                       
                        *

#===========================================================================*

sub Inspection_ParamCheck {

        #-------------------------------*

        # 	Ype£[Š                                          *

        #-------------------------------*

        my($ErrorMsg)           = '';

        my(@RtnArray)           = ();

        #-------------------------------*

        # {v2“‰6RÁ0§0Ã0¯0                              *

        #-------------------------------*

        if ($_[0] == 1) {

                my($UserHost)   = $ENV{'REMOTE_HOST'};

                unless ($UserHost) {

                        $UserHost       = 
gethostbyaddr(pack("C4",split(/\./,$ENV{'REMOTE_ADDR'})),2);

                        $UserHost       = $ENV{'REMOTE_ADDR'};

                }

                foreach (@DenyHost) {

                        push(@RtnArray,'{v2“‰6R,´Œ¹en0{v2“o06RP–U0Œ0f0D0~0Y00') if ($UserHost =~ 
/$_/i);

                }

                #-------------------------------*

                if ($CvIndata{'URL'} =~ /^http/i) {

                        foreach (@DenyUrl) {

                                push(@RtnArray,'{v2“‰6R,¡_ŠeQ˜D0_0URLo0{v2“6RP–U0Œ0f0D0~0Y00') if 
($CvIndata{'URL'} =~ $_);

                        }

                        push(@RtnArray,'{v2“‰6R,ŒNÍ‘{v2“o0g0M0~0[0“00') if 
(&Inspection_File_Overlap($CvIndata{'URL'},$MvDataFile));

                        if ($CvIndata{'sURL'} =~ /^http/i) {

                                if ($CvIndata{'sURL'} !~ /^$CvIndata{'URL'}/i) {

                                        
push(@RtnArray,'{v2“‰6R,!q¹Rj0URLk0øv’Nê0ó0¯0L0-ŠnU0Œ0f0D0~0Y00');

                                } else {

                                        my($Html)       = 
&Socket_Get_HtmlSource($CvIndata{'sURL'});

                                        push(@RtnArray,'{v2“‰6R,ê0ó0¯0’0¼Œc0f0K0‰0T0{v2“NU0D00') 
if ($Html !~ /$CvSiteURL/i);

                                }

                        }

                }

        }

        #-------------------------------*

        # eQ›R¨0é0ü0Á0§0Ã0¯0                     *

        #-------------------------------*

        push(@RtnArray,'eQ›R¨0é0ü0,µ0¤0È0
T : '.$ErrorMsg) if ($ErrorMsg = 
&Inspection_Param_TextLength($CvIndata{'Title'},2,0));

        push(@RtnArray,'eQ›R¨0é0ü0,µ0¤0È0URL : '.$ErrorMsg) if ($ErrorMsg = 
&Inspection_Param_Url($CvIndata{'URL'}));

        push(@RtnArray,'eQ›R¨0é0ü0,øv’Nê0ó0¯0HQURL : '.$ErrorMsg) if ($ErrorMsg = 
&Inspection_Param_Url($CvIndata{'sURL'}));

        #-------------------------------*

        # ;bŠ0$P(u	Ypeub                              *

        #-------------------------------*

        return @RtnArray;

}

#===========================================================================*

# ×0í0°0é0à0
T  : JRd–æQt                                                                
                                        *

# ×0í0°0é0à0ID  : Output_File_Delete                                                 
                        *

# O(u‹O        : &Output_File_Delete($_[0]);                                      
                        *

#---------------------------------------------------------------------------*

# eQ›R_pe[0]   : Ç0ü0¿0³0ü0É0                                                            
                                *

#===========================================================================*

sub Output_File_Delete {

        #-------------------------------#

        # 	Ype£[Š                                          #

        #-------------------------------#

        my($SearchKey)          = $_[0];

        my(@Array)                      = ();

        #-------------------------------#

        # Ç0ü0¿0’00ã0Ã0·0å0k0Š¼€0 #

        #-------------------------------#

        return if (!open(FILE, "grep -v -E '\t".$SearchKey."\t' $MvDataFile|"));

        @Array                          = <FILE>;

        close(FILE);

        #-------------------------------#

        # Ç0ü0¿0øf¼                                 #

        #-------------------------------#

        return if (!open FILE,"+< $MvDataFile");

        flock(FILE, 2);                                 # lock

        seek(FILE, 0, 0);                               # pointer set

        foreach (@Array) {

                print FILE $_;

        }

        truncate(FILE, tell(FILE));             # File size set

        close FILE;

        #-------------------------------*

        # ;bŠ0$P(u	Ypeub                              *

        #-------------------------------*

        return 1;

}

#===========================================================================*

# ×0í0°0é0à0
T  : Õ0¡0¤0ë0Ç0ü0¿0Š¼                                                           
                *

# ×0í0°0é0à0ID  : Output_File_Html                                                   
                                *

# O(u‹O        : &Output_File_Html($_[0]);                                        
                                *

#---------------------------------------------------------------------------*

# eQ›R_pe[0]   : Õ0¡0¤0ë0Ñ0¹0                                                            
                                *

#===========================================================================*

sub Output_File_Html {

        #-------------------------------*

        # 	Ype£[Š                                          *

        #-------------------------------*

        my($RtnValue);                                  # ;bŠ0$P(u	Ype

        #-------------------------------*

        # Õ0¡0¤0ë0Š¼                                        *

        #-------------------------------*

        return if (!open(FILE, $_[0]));

        $RtnValue                       = join('', <FILE>);

        close FILE;

        #-------------------------------*

        # Ç0ü0¿0teb_                                 *

        #-------------------------------*

        $RtnValue                       =~ s/¿0¤0é0ó0É0ê0ó0¯0.net0
¿0¤0Ï}TÅ`1Xê0ó0¯0Æ–/$CvSiteTitle/go;

        $RtnValue                       =~ 
s/http://www.thailandlink.net/$CvSiteURL/go;

        $RtnValue                       =~ 
s/¿0¤0Ï}TÅ`1Xê0ó0¯0Æ–0Ð0ó0³0¯00Á0§0ó0Þ0¤00×0ü0±0Ã0È00µ0à0¤0ö\I{0¿0¤0n0Ï}TÅ`1X/$CvMetaDescription/go;

        $RtnValue                       =~ 
s/¿0¤0¢•#µ0¤0È0ê0ó0¯0Æ–,Ð0ó0³0¯0,Á0§0ó0Þ0¤0,×0ü0±0Ã0È0I{0«0Æ0´0ê0ü0%R¿0¤0ê0ó0¯0Æ–/$MvSubTitle/go;

        #-------------------------------*

        # ;bŠ0$P(u	Ypeub                              *

        #-------------------------------*

        return $RtnValue;

}

#===========================================================================*

# ×0í0°0é0à0
T  : …Q¹[hˆ:y                                                                
                                        *

# ×0í0°0é0à0ID  : Output_Html_Text                                                   
                                *

# O(u‹O        : &Output_Html_Text(@Array);                                       
                        *

#---------------------------------------------------------------------------*

# eQ›RM‘R      : ¨0é0ü0…Q¹[                                                             
                                *

#===========================================================================*

sub Output_Html_Text {

        #-------------------------------*

        # 	Ype£[Š                                          *

        #-------------------------------*

        my($RtnValue)           = '';

        my($Subject)            = '';

        #-------------------------------*

        $RtnValue                       .= "<dl>\n";

        foreach (@_) {

                my(@Array)              = split(/\,/, $_);

                if ($Subject ne $Array[0]) {

                        $Subject        = $Array[0];

                        $RtnValue       .= "  <dt>".$Array[0]."</dt>\n";

                }

                $RtnValue               .= "  <dd>".$Array[1]."</dd>\n";

        }

        $RtnValue                       .= "</dl>\n";

        #-------------------------------*

        # ;bŠ0$P(u	Ypeub                              *

        #-------------------------------*

        return $RtnValue;

}

#===========================================================================*

# ×0í0°0é0à0
T  : Ç0ü0¿0hˆ:y                                                               
                                *

# ×0í0°0é0à0ID  : Output_Html_ReadData                                               
                                *

# O(u‹O        : &Output_Html_ReadData;                                           
                        *

#===========================================================================*

sub Output_Html_ReadData {

        #-------------------------------*

        # 	Ype£[Š                                          *

        #-------------------------------*

        my($RtnValue)           = '';           # ;bŠ0$P(u	Ype

        my($myCategory)         = ($InCategory)

                                                ? $InCategory

                                                : 'øv’Nê0ó0¯0';

        my($SearchKey)          = ($CvIndata{'Category'} > 10) ? 
$CvIndata{'Category'} : ".+";

        $SearchKey                      = "^".$SearchKey."\t";

        #-------------------------------*

        # æQt                                                    *

        #-------------------------------*

        $RtnValue                       .= "<h3>".$InCategory."{v2“µ0¤0È0</h3>\n";

        $RtnValue                       .= "<p>°e@w 10öNÄ’0hˆ\:yW0f0D0~0Y00</p>\n" unless 
($InCategory);

        #-------------------------------*

        # Ç0ü0¿0Š¼æQt                               *

        #-------------------------------*

        if (open(FILE, "grep -E '$SearchKey' $MvDataFile|")) {

                my($DataCnt)    = 0;

                $RtnValue               .= "<table summary=\"".$myCategory."\" 
cellspacing=\"1\">\n";

                $RtnValue               .= "  
<caption>".$myCategory."</caption>\n";

                $RtnValue               .= "  <tbody>\n";

                $RtnValue               .= "    <tr>\n";

                $RtnValue               .= "      <th 
style=\"width:70px;\">0ã0×0Á0ã0</th>\n" if ($MvThumbnails);

                $RtnValue               .= "      <th>µ0¤0È0Å`1X</th>\n";

                $RtnValue               .= "      <th 
style=\"width:120px;\">«0Æ0´0ê0</th>\n" unless ($CvIndata{'Category'});

                $RtnValue               .= "    </tr>\n";

                foreach (reverse(<FILE>)) {

                        next if /^\D/;

                        @_                      = split(/\t/, $_);

                        $RtnValue       .= "    <tr>\n";

                        $RtnValue       .= "      <td><img alt=\"\" 
width=\"64\" height=\"64\" src=\"http://mozshot.nemui.org/shot?".$_[3]."\" 
/></td>\n" if ($MvThumbnails);

                        $RtnValue       .= "      <td>\n";

                        $RtnValue       .= "      <dl>\n";

                        $RtnValue       .= "        <dt><a href=\"".$_[3]."\" 
target=\"_blank\">".$_[2]."</a>";

                        $RtnValue       .= "0<a href=\"".$_[5]."\" 
target=\"_blank\"><img alt=\"".$_[2]."\" 
src=\"".$HomePath."LinkCheck?url=".$_[5]."\" width=\"12\" height=\"12\" /></a>" 
if ($MvLinkCheck);

                        $RtnValue       .= "</dt>\n";

                        $RtnValue       .= "        <dd>".$_[4]."</dd>\n";

                        $_[3]           = substr($_[3],0,38)."..." if 
(length($_[3]) > 38);

                        $RtnValue       .= "        <dd 
style=\"color:#A8A8A8;\">".$_[3]."</dd>\n";

                        $RtnValue       .= "      </dl>\n";

                        $RtnValue       .= "      </td>\n";

                        $RtnValue       .= "      <td 
style=\"text-align:center;\"><a href=\"".$_[0].".htm\" 
style=\"color:#7F7F7F;text-decoration:none;\">".$MvCategory[($_[0] - 
10)]."</a></td>\n" unless ($CvIndata{'Category'});

                        $RtnValue       .= "    </tr>\n";

                        $DataCnt++;

                        last if (($DataCnt > 10) && (!$CvIndata{'Category'}));

                }

                close(FILE);

                $RtnValue               .= "  </tbody>\n";

                $RtnValue               .= "</table>\n";

        } else {

                $RtnValue               .= "<h4>~0`0{v2“U0Œ0f0D0~0[0“00</h4>\n";

                $RtnValue               .= 
"<p>ê0ó0¯0Æ–k0{v2“W0_0D0¹eo0S_µ0¤0È0x0n0ê0ó0¯0Œ[†NŒ_0{v2“Õ0©0ü0à0ˆ0Š0T0{v2“NU0D00</p>\n";

        }

        #-------------------------------*

        # ;bŠ0$P(u	Ypeub                              *

        #-------------------------------*

        return $RtnValue;

}

#===========================================================================*

# ×0í0°0é0à0
T  : Ç0ü0¿0{v2“Õ0©0ü0à0hˆ:y                                                         
        *

# ×0í0°0é0à0ID  : Output_Html_RegistForm                                             
                        *

# O(u‹O        : &Output_Html_RegistForm;                                         
                        *

#===========================================================================*

sub Output_Html_RegistForm {

        #-------------------------------*

        # 	Ype£[Š                                          *

        #-------------------------------*

        my($RtnValue)           = '';           # ;bŠ0$P(u	Ype

        my($myCategory)         = ($InCategory)

                                                ? $InCategory

                                                : 'øv’Nê0ó0¯0';

        #-------------------------------*

        # æQt                                                    *

        #-------------------------------*

        $RtnValue                       .= "<form method=\"post\" 
action=\"regist.htm\">\n";

        $RtnValue                       .= "<input type=\"hidden\" 
name=\"mode\" value=\"regist\" />\n";

        $RtnValue                       .= "<table summary=\"".$myCategory."\" 
cellspacing=\"1\">\n";

        $RtnValue                       .= "  
<caption>".$myCategory."{v2“</caption>\n";

        $RtnValue                       .= "  <tbody>\n";

        if ($CvIndata{'Category'} > 10) {

                $RtnValue               .= "    <tr>\n";

                $RtnValue               .= "      <th colspan=\"2\" 
style=\"text-align:left;\">0<b>".$MvCategory[($CvIndata{'Category'} - 
10)]."</b>
0 «0Æ0´0ê0k0{v2“W0~0Y00<input type=\"hidden\" name=\"Category\" 
value=\"".$CvIndata{'Category'}."\" /></th>\n";

                $RtnValue               .= "    </tr>\n";

        }

        $RtnValue                       .= "    <tr>\n";

        $RtnValue                       .= "      <td class=\"item\">µ0¤0È0
T 
ÿ25W[åN…Q	ÿ</td>\n";

        $RtnValue                       .= "      <td><input maxlength=\"25\" 
size=\"40\" name=\"Title\" value=\"".$CvIndata{'Title'}."\" /></td>\n";

        $RtnValue                       .= "    </tr>\n";

        $RtnValue                       .= "    <tr>\n";

        $RtnValue                       .= "      <td class=\"item\">µ0¤0È0URL 
ÿ60W[åN…Q	ÿ</td>\n";

        $RtnValue                       .= "      <td><input maxlength=\"60\" 
size=\"50\" name=\"URL\" value=\"".$CvIndata{'URL'}."\" /></td>\n";

        $RtnValue                       .= "    </tr>\n";

        if ($CvIndata{'Category'} <= 10) {

                $RtnValue               .= "    <tr>\n";

                $RtnValue               .= "      <td 
class=\"item\">«0Æ0´0ê0</td>\n";

                $RtnValue               .= "      <td><select size=\"1\" 
name=\"Category\">\n";

                for (1 .. $#MvCategory) {

                        $RtnValue       .= "        <option value=\"".($_ + 
10)."\">".$MvCategory[$_]."</option>\n";

                }

                $RtnValue               .= "      </select></td>\n";

                $RtnValue               .= "    </tr>\n";

        }

        $RtnValue                       .= "    <tr>\n";

        $RtnValue                       .= "      <td class=\"item\">µ0¤0È09}ËN‡e 
ÿ80W[åN…Q	ÿ</td>\n";

        $RtnValue                       .= "      <td><input maxlength=\"80\" 
size=\"50\" name=\"Exp\" value=\"".$CvIndata{'Exp'}."\" /></td>\n";

        $RtnValue                       .= "    </tr>\n";

        $RtnValue                       .= "    <tr>\n";

        $RtnValue                       .= "      <td 
class=\"item\">øv’Nê0ó0¯0HQURL</td>\n";

        $RtnValue                       .= "      <td><input maxlength=\"80\" 
size=\"50\" name=\"sURL\" value=\"".$CvIndata{'sURL'}."\" /><br />\n";

        $RtnValue                       .= "      ¿0°0 : &lt;a 
href=&quot;".$CvSiteURL."&quot; 
target=&quot;_blank&quot;&gt;".$CvSiteTitle."&lt;/a&gt;<br />\n";

        $RtnValue                       .= "      ;  
0øv’Nê0ó0¯0HQURL
0k0ê0ó0¯0L0!qD04XTo0{v2“úQeg~0[0“00</td>\n";

        $RtnValue                       .= "    </tr>\n";

        $RtnValue                       .= "  </tbody>\n";

        $RtnValue                       .= "</table>\n";

        $RtnValue                       .= "<p 
style=\"text-align:center;\"><input type=\"submit\" value=\"0
NŠ…Q¹[g0{v2“Y0‹00\" 
/></p>\n";

        $RtnValue                       .= "</form>\n";

        #-------------------------------*

        # ;bŠ0$P(u	Ypeub                              *

        #-------------------------------*

        return $RtnValue;

}

#===========================================================================*

# ×0í0°0é0à0
T  : Ç0ü0¿0JRd–Õ0©0ü0à0hˆ:y                                                         
        *

# ×0í0°0é0à0ID  : Output_Html_DeleteForm                                             
                        *

# O(u‹O        : &Output_Html_DeleteForm($_[0]);                                  
                *

#---------------------------------------------------------------------------*

# eQ›R_pe[0]   : Ç0ü0¿0³0ü0É0                                                            
                                *

#===========================================================================*

sub Output_Html_DeleteForm {

        #-------------------------------*

        # 	Ype£[Š                                          *

        #-------------------------------*

        my($RtnValue)           = '';           # ;bŠ0$P(u	Ype

        my($SearchKey)          = $_[0];

        my(@Array)                      = ();

        #-------------------------------*

        # Ç0ü0¿0Š¼                                 *

        #-------------------------------*

        return if (!open(FILE, "grep -E '\t".$SearchKey."\t' $MvDataFile|"));

        @Array                          = <FILE>;

        close(FILE);

        @_                                      = split(/\t/, $Array[0]);

        #-------------------------------*

        # æQt                                                    *

        #-------------------------------*

        $CvIndata{'Category'}   = $_[0];

        #-------------------------------*

        $RtnValue                       .= "<form method=\"post\" 
action=\"delete.htm\">\n";

        $RtnValue                       .= "<input type=\"hidden\" 
name=\"mode\" value=\"delete\" />\n";

        $RtnValue                       .= "<input type=\"hidden\" 
name=\"process\" value=\"check\" />\n";

        $RtnValue                       .= "<input type=\"hidden\" name=\"id\" 
value=\"".$SearchKey."\" />\n";

        $RtnValue                       .= "<input type=\"hidden\" 
name=\"Category\" value=\"".$CvIndata{'Category'}."\" />\n";

        $RtnValue                       .= "<table summary=\"{v2“Ç0ü0¿0JRd–\" 
cellspacing=\"1\">\n";

        $RtnValue                       .= "  <caption>{v2“Ç0ü0¿0JRd–</caption>\n";

        $RtnValue                       .= "  <tbody>\n";

        $RtnValue                       .= "    <tr>\n";

        $RtnValue                       .= "      <td 
class=\"item\">«0Æ0´0ê0</td>\n";

        $RtnValue                       .= "      <td>".$MvCategory[($_[0] - 
10)]."</td>\n";

        $RtnValue                       .= "    </tr>\n";

        $RtnValue                       .= "    <tr>\n";

        $RtnValue                       .= "      <td 
class=\"item\">µ0¤0È0
T</td>\n";

        $RtnValue                       .= "      <td>".$_[2]."</td>\n";

        $RtnValue                       .= "    </tr>\n";

        $RtnValue                       .= "    <tr>\n";

        $RtnValue                       .= "      <td 
class=\"item\">µ0¤0È0URL</td>\n";

        $RtnValue                       .= "      <td>".$_[3]."</td>\n";

        $RtnValue                       .= "    </tr>\n";

        $RtnValue                       .= "    <tr>\n";

        $RtnValue                       .= "      <td 
class=\"item\">µ0¤0È09}ËN‡e</td>\n";

        $RtnValue                       .= "      <td>".$_[4]."</td>\n";

        $RtnValue                       .= "    </tr>\n";

        $RtnValue                       .= "    <tr>\n";

        $RtnValue                       .= "      <td 
class=\"item\">¡{t€Ñ0¹0ï0ü0É0</td>\n";

        $RtnValue                       .= "      <td><input type=\"password\" 
maxlength=\"12\" size=\"20\" name=\"password\" value=\"\" /></td>\n";

        $RtnValue                       .= "    </tr>\n";

        $RtnValue                       .= "  </tbody>\n";

        $RtnValue                       .= "</table>\n";

        $RtnValue                       .= "<p 
style=\"text-align:center;\"><input type=\"submit\" value=\"0JRd–Y0‹00\" /></p>\n";

        $RtnValue                       .= "</form>\n";

        #-------------------------------*

        # ;bŠ0$P(u	Ypeub                              *

        #-------------------------------*

        return $RtnValue;

}

#===========================================================================*

# ×0í0°0é0à0
T  : Ç0ü0¿0è}Æ–Õ0©0ü0à0hˆ:y                                                         
        *

# ×0í0°0é0à0ID  : Output_Html_EditForm                                               
                                *

# O(u‹O        : &Output_Html_EditForm($_[0]);                                    
                        *

#---------------------------------------------------------------------------*

# eQ›R_pe[0]   : Ç0ü0¿0³0ü0É0                                                            
                                *

#===========================================================================*

sub Output_Html_EditForm {

        #-------------------------------*

        # 	Ype£[Š                                          *

        #-------------------------------*

        my($RtnValue)           = '';           # ;bŠ0$P(u	Ype

        my($SearchKey)          = $_[0];

        my(@Array)                      = ();

        #-------------------------------*

        # Ç0ü0¿0Š¼                                 *

        #-------------------------------*

        return if (!open(FILE, "grep -E '\t".$SearchKey."\t' $MvDataFile|"));

        @Array                          = <FILE>;

        close(FILE);

        @_                                      = split(/\t/, $Array[0]);

        #-------------------------------*

        # æQt                                                    *

        #-------------------------------*

        $CvIndata{'Category'}   = $_[0];

        $CvIndata{'Title'}              = $_[2] unless ($CvIndata{'Title'});

        $CvIndata{'URL'}                = $_[3] unless ($CvIndata{'URL'});

        $CvIndata{'Exp'}                = $_[4] unless ($CvIndata{'Exp'});

        $CvIndata{'sURL'}               = $_[5] unless ($CvIndata{'sURL'});

        #-------------------------------*

        $RtnValue                       .= "<form method=\"post\" 
action=\"edit.htm\">\n";

        $RtnValue                       .= "<input type=\"hidden\" 
name=\"mode\" value=\"edit\" />\n";

        $RtnValue                       .= "<input type=\"hidden\" 
name=\"process\" value=\"check\" />\n";

        $RtnValue                       .= "<input type=\"hidden\" name=\"id\" 
value=\"".$SearchKey."\" />\n";

        $RtnValue                       .= "<table summary=\"{v2“Ç0ü0¿0è}Æ–\" 
cellspacing=\"1\">\n";

        $RtnValue                       .= "  <caption>{v2“Ç0ü0¿0è}Æ–</caption>\n";

        $RtnValue                       .= "  <tbody>\n";

        $RtnValue                       .= "    <tr>\n";

        $RtnValue                       .= "      <td class=\"item\">µ0¤0È0
T 
ÿ25W[åN…Q	ÿ</td>\n";

        $RtnValue                       .= "      <td>".$_[2]."<br />\n";

        $RtnValue                       .= "      <input maxlength=\"25\" 
size=\"40\" name=\"Title\" value=\"".$CvIndata{'Title'}."\" /></td>\n";

        $RtnValue                       .= "    </tr>\n";

        $RtnValue                       .= "    <tr>\n";

        $RtnValue                       .= "      <td class=\"item\">µ0¤0È0URL 
ÿ60W[åN…Q	ÿ</td>\n";

        $RtnValue                       .= "      <td>".$_[3]."<br />\n";

        $RtnValue                       .= "      <input maxlength=\"60\" 
size=\"50\" name=\"URL\" value=\"".$CvIndata{'URL'}."\" /></td>\n";

        $RtnValue                       .= "    </tr>\n";

        $RtnValue                       .= "    <tr>\n";

        $RtnValue                       .= "      <td 
class=\"item\">«0Æ0´0ê0</td>\n";

        $RtnValue                       .= "      <td>".$MvCategory[($_[0] - 
10)]."<br />\n";

        $RtnValue                       .= "      <select size=\"1\" 
name=\"Category\">\n";

        for (1 .. $#MvCategory) {

                my($Selected)   = ' selected' if (($_ + 10) == $_[0]);

                $RtnValue               .= "        <option value=\"".($_ + 
10)."\"".$Selected.">".$MvCategory[$_]."</option>\n";

        }

        $RtnValue                       .= "      </select></td>\n";

        $RtnValue                       .= "    </tr>\n";

        $RtnValue                       .= "    <tr>\n";

        $RtnValue                       .= "      <td class=\"item\">µ0¤0È09}ËN‡e 
ÿ80W[åN…Q	ÿ</td>\n";

        $RtnValue                       .= "      <td>".$_[4]."<br />\n";

        $RtnValue                       .= "      <input maxlength=\"80\" 
size=\"50\" name=\"Exp\" value=\"".$CvIndata{'Exp'}."\" /></td>\n";

        $RtnValue                       .= "    </tr>\n";

        $RtnValue                       .= "    <tr>\n";

        $RtnValue                       .= "      <td 
class=\"item\">øv’Nê0ó0¯0HQURL</td>\n";

        $RtnValue                       .= "      <td>".$_[5]."<br />\n";

        $RtnValue                       .= "      <input maxlength=\"80\" 
size=\"50\" name=\"sURL\" value=\"".$CvIndata{'sURL'}."\" /></td>\n";

        $RtnValue                       .= "    </tr>\n";

        $RtnValue                       .= "    <tr>\n";

        $RtnValue                       .= "      <td 
class=\"item\">¡{t€Ñ0¹0ï0ü0É0</td>\n";

        $RtnValue                       .= "      <td><input type=\"password\" 
maxlength=\"12\" size=\"20\" name=\"password\" value=\"\" /></td>\n";

        $RtnValue                       .= "    </tr>\n";

        $RtnValue                       .= "  </tbody>\n";

        $RtnValue                       .= "</table>\n";

        $RtnValue                       .= "<p 
style=\"text-align:center;\"><input type=\"submit\" value=\"0è}Æ–Y0‹00\" /></p>\n";

        $RtnValue                       .= "</form>\n";

        #-------------------------------*

        # ;bŠ0$P(u	Ypeub                              *

        #-------------------------------*

        return $RtnValue;

}

#===========================================================================*

# ×0í0°0é0à0
T  : Ç0ü0¿0¡{tÕ0©0ü0à0hˆ:y                                                         
        *

# ×0í0°0é0à0ID  : Output_Html_AdminForm                                              
                                *

# O(u‹O        : &Output_Html_AdminForm($_[0]);                                   
                *

#---------------------------------------------------------------------------*

# eQ›R_pe[0]   : j0W0                                                                
                                                *

#===========================================================================*

sub Output_Html_AdminForm {

        #-------------------------------*

        # 	Ype£[Š                                          *

        #-------------------------------*

        my($RtnValue)           = '';           # ;bŠ0$P(u	Ype

        #-------------------------------*

        # æQt                                                    *

        #-------------------------------*

        $RtnValue                       .= "<form method=\"post\" 
action=\"admin.htm\">\n";

        $RtnValue                       .= "<input type=\"hidden\" 
name=\"mode\" value=\"admin\" />\n";

        $RtnValue                       .= "<input type=\"hidden\" 
name=\"process\" value=\"check\" />\n";

        $RtnValue                       .= "<table summary=\"Ç0ü0¿0è}Æ–û0JRd–\" 
cellspacing=\"1\">\n";

        $RtnValue                       .= "  <caption>Ç0ü0¿0è}Æ–û0JRd–</caption>\n";

        $RtnValue                       .= "  <tbody>\n";

        $RtnValue                       .= "    <tr>\n";

        $RtnValue                       .= "      <td 
class=\"item\">\Omi…Q¹[</td>\n";

        $RtnValue                       .= "      <td>\n";

        $RtnValue                       .= "      <select name=\"request\">\n";

        $RtnValue                       .= "        <option 
value=\"edit\">è}Æ–</option>\n";

        $RtnValue                       .= "        <option 
value=\"delete\">JRd–</option>\n";

        $RtnValue                       .= "      </select>\n";

        $RtnValue                       .= "      </td>\n";

        $RtnValue                       .= "    </tr>\n";

        $RtnValue                       .= "    <tr>\n";

        $RtnValue                       .= "      <td 
class=\"item\">{v2“µ0¤0È0URL</td>\n";

        $RtnValue                       .= "      <td><input maxlength=\"60\" 
size=\"50\" name=\"URL\" value=\"".$CvIndata{'URL'}."\" /></td>\n";

        $RtnValue                       .= "    </tr>\n";

        $RtnValue                       .= "  </tbody>\n";

        $RtnValue                       .= "</table>\n";

        $RtnValue                       .= "<p 
style=\"text-align:center;\"><input type=\"submit\" value=\"0áOY0‹00\" /></p>\n";

        $RtnValue                       .= "</form>\n";

        #-------------------------------*

        # ;bŠ0$P(u	Ypeub                              *

        #-------------------------------*

        return $RtnValue;

}

#===========================================================================*

# ×0í0°0é0à0
T  : HTMLØ0Ã0À0ü0úQ›R                                                          
                        *

# ×0í0°0é0à0ID  : Output_Html_Header                                                 
                        *

# O(u‹O        : &Output_Html_Header;                                             
                                *

#===========================================================================*

sub Output_Html_Header {

        #-------------------------------*

        # Html Image                                    *

        #-------------------------------*

        print "<div class=\"base\">\n";

        print "<div class=\"header\">\n";

        print "<h1>".$CvSiteTitle." / ".$MvSubTitle."</h1>\n";

        print "</div>\n";

        print "<p class=\"topic_path\"><a 
href=\"".$CvSiteURL."\">".$CvSiteTitle."</a> ÿ <a 
href=\"./\">".$MvSubTitle."</a>";

        print " ÿ ".$MvCategory[($CvIndata{'Category'} - 10)] if 
($CvIndata{'Category'});

        print "</p>\n";

        print "<div class=\"area_main\">\n";

}

#===========================================================================*

# ×0í0°0é0à0
T  : HTMLÕ0Ã0¿0ü0úQ›R                                                          
                        *

# ×0í0°0é0à0ID  : Output_Html_Footer                                                 
                        *

# O(u‹O        : &Output_Html_Footer;                                             
                                *

#===========================================================================*

sub Output_Html_Footer {

        #-------------------------------*

        # Html Image                                    *

        #-------------------------------*

        print "</div>\n";

        print "<div class=\"area_menu\">\n";

        print "<p><a href=\"./admin.htm\">Ç0ü0¿0è}Æ–û0JRd–</a></p>\n";

        

        print "<ul>\n";

        for (1 .. $#MvCategory) {

                my($CategoryNum)        = $_ + 10;

                if ($CvIndata{'Category'} != $CategoryNum) {

                        print "  <li><a 
href=\"".$CategoryNum.".htm\">".$MvCategory[$_]."</a> 
ÿ".&Read_File_Sum($MvDataFile,"^".$CategoryNum."\t")."	ÿ</li>\n";

                } else {

                        print "  <li class=\"location\">".$MvCategory[$_]." 
ÿ".&Read_File_Sum($MvDataFile,"^".$CategoryNum."\t")."	ÿ</li>\n";

                }

        }

        print "</ul>\n";

        print "</div>\n";

        print "<br class=\"clear\" />\n";

        print "<div style=\"text-align:right;\">\n";

        print "<ul class=\"sideways\">\n";

        print "  <li class=\"start\"><a 
href=\"".$CvSiteURL."\">".$CvSiteTitle."</a></li>\n";

        print " <li><a 
href=\"index.pl?mode=html&fn=method.htm\">ê0ó0¯0¹eÕl</a></li>\n";

        print " <li><a 
href=\"index.pl?mode=html&fn=agree.htm\">)R(u‰}</a></li>\n";

        print "</ul>\n";

        print "</div>\n";

        print "<address>Powered By <a href=\"http://tool.miyabi-seo.com/\" 
target=\"_blank\">Å–CGI Tools</a>";

        print " - CGI Script <a 
href=\"http://tool.miyabi-seo.com/docs/freeware/seolink.htm\" 
target=\"_blank\">Å–SEOøv’Nê0ó0¯0</a> Ver. ".$SystemVersion;

        print " - Thumbnails by <a href=\"http://mozshot.nemui.org/\" 
target=\"_blank\">Mozshot</a>" if ($MvThumbnails);

        print "</address>\n";

        print "</div>\n";

}

 

1;

_______________________________________________
Full-Disclosure - We believe in it.
Charter: http://lists.grok.org.uk/full-disclosure-charter.html
Hosted and sponsored by Secunia - http://secunia.com/

Follow-Ups:
- Re: [Full-disclosure] Miyabi CGI Tools index.pl command execution
  - From: Marshall Whittaker

Prev by Date: Re: [Full-disclosure] Freenode's ACTUAL policy on your project
Next by Date: Re: [Full-disclosure] Miyabi CGI Tools index.pl command execution
Previous by thread: [Full-disclosure] [USN-927-5] nspr update
Next by thread: Re: [Full-disclosure] Miyabi CGI Tools index.pl command execution
Index(es):
- Date
- Thread