空间管理您的位置: SimWe个人空间 » Kiddosuper的个人空间 » 日志

A space for CFD. Especially for ANSYS/CFX and ICEMCFD kiddosuper_in_simwe@hotmail.com(msn) 473063212(qq)

A perl script to change .xml into .html

上一篇 / 下一篇 2008-03-23 21:03:31 / 个人分类：Articles

If you use msn messenger in windows ,and use gaim/pidgin in Linux as well, you may need this perl to handle your logs file into same format (*.html)

This is an efficient tool to maintain your logs file into unified format
good lucks and enjoy it
if you have problems about this perl , you may send me email to kiddosuper@gmail.com

#!/usr/bin/perl
##
# Translator of MSN message log from msn-messenger 8.x to gaim(html)
# author : Kiddosuper in www.simwe.com
# this perl refers to a perl msn2gaim.pl which build by Yong-ling Chen
# I modify something, (change the date/time parse)
# suggest you use Open PerlIDE to run this perl , easier and ok
# this file has been tested properly
# if you have problems,please contact me kiddosuper@gmail.com
# at line 118,you may change your desired contact name to mark different color
##
use Time::Local;
use File::Basename;
print "Traslate from msn messenger logs into html (gaim style)\n" ;

$oldDir = $ARGV[0];
if ( ! (-e $oldDir ) ) {
print "usage: msn2html yourPath.\n" ;
print " ex: msn2html D:\handle\n" ;
exit ;
}
chdir $oldDir;

while ($fn=<*.xml>){
print "handling $fn.........\n";
$fnbase=basename($fn,'.xml');

#build contacts messages directory
system("md $fnbase") if ( ! (-e $fnbase) );

open (FH,$fn) ||die "cannot open $fn\n" ;

# Read all *.xml in that working directory
#start create a temporary file
open (OUT, ">$oldDir/$fnbase/$fnbase.txt") ;
print "Handling $oldDir/$fnbase/$fnbase.txt\n";
while (<FH>) {
 # delete CR/LF
 chomp ;
 # join every lines
 $cont.= $_ ;
}

# get FirstSessionID & LastSessionID and count the splitted files number
($FSID,$LSID)=($cont=~m!FirstSessionID="(\d+)" LastSessionID="(\d+)"!) ;
# delete unecesary head section files
$cont=~s!<\?xml.*?\>(<Message.*)!\1! ;
#delet the ^M mark
$cont=~s!!!g ;
#break into a new for for each message
$cont=~s!(</Message>)!\1\n!g ;
#break into a new line for invitation
$cont=~s!(</Invitation>)!\1\n!g ;
#break into a new line for invitation response
$cont=~s!(</InvitationResponse>)!\1\n!g ;
# break into a new line for every join
$cont=~s!(</Join>)!\1\n!g ;
#modify some msn bugs which only show <TEXT>, not font family and color
$cont=~s!<Text>!<Text Style="font-family:Microsoft Sans Serif; color:#008080; ">!ig ;

# write into temporary and close file

print OUT $cont ;
close FN ;
close OUT ;
# according to session id ,split logs into individual file
for $j ($FSID .. $LSID) {
   ($year, $mon, $day, $hour, $min, $sec)=
  ($cont=~m#DateTime="(\d{4})-(\d{2})\-(\d{2})T(\d{2}):(\d{2}):(\d{2}).*?SessionID="$j"#) ;
# shift +8 hour for the timestamp
   if ($sec.$min.$hour ne ""){
   my $time=timelocal($sec,   $min,   $hour,   $day,   $mon-1,   $year);
   $time+=28800;
    ($sec,$min,$hour,$day,$mon,$year)=localtime($time);
    $mon+=1;
    $year+=1900;
  # modify date

$mon = "0".$mon if ( $mon < 10 ) ;
$day = "0".$day if ( $day < 10 ) ;

$date= $year."-".$mon."-".$day ;
 $hour ="0".$hour if ( $hour < 10 ) ;
$min = "0".$min if ( $min < 10 ) ;
 $sec = "0".$sec if ( $sec < 10 ) ;

$time = $hour.$min.$sec ;
 $desc = "Conversation with $fnbase at $date "."$hour:$min:$sec";
 # open a temporary file
 open(FN, "$oldDir\\$fnbase\\$fnbase.txt") || die "$oldDir\\$fnbase\\$fnbase.txt not found\n" ;
 # change filename into gaim file format
 $newFn = "$oldDir\\$fnbase\\$date.$time.html" ;
 # skip when files are existed already
 if (-e $newFn) {
 print " --> existed\n" ;
 }
 else {
 print "writing files: ".$newFn;
 print "\n" ;
 open(OUT, "> $newFn") ;
 # html head section
 print OUT "<html><head>" ;
 print OUT "<meta. http-equiv=\"cont-type\"" ;
 print OUT " cont=\"text/html; charset=UTF-8\">" ;
 print OUT "<title>$desc</title>" ;
 print OUT "</head><body>" ;
 print OUT "<h3>$desc</h3>\n" ;
 # (main)change M$-xml protocol into gaim-htmlprotocol
 while ( <FN> ) {
 # get same session id
 ($tmp)=($_=~m!(.+SessionID="$j".+\n)!) ;
 #get user
 ($usr)=($tmp=~m!<From>.*?="(.*?)"!) ;
 # define user logs color
 $color1="#18569E";
 $color2="#A82F2F";
 if ( $usr=~m/^pril.*/ ) {
 $color = $color1 ;
 } else {
 $color = $color2 ;
 }
 # translate message
 $tmp=~s!<Message.*?Time="(\S+) (\d+):(\d+):(\d+)".*?><From><User FriendlyName="(.*?)"/></From>.*?<Text Style="font-family:(.*?); color:(.*?); ">(.*?)</Text.*?</Message>\n!(\1 \2:\3:\4:) \5: \8 \n! ;
 # translate other label
 $tmp=~s!^<(\S+)\s.*?Time="(\S+) (\d+):(\d+):(\d+)".*">(.*?)</Text></\1>$!(\2 \3:\4:\5) \6 ! ;
 print OUT $tmp ;
 }
 # htmlendding
 print OUT "</body></html>\n" ;
 close FN ;
 close OUT ;
 }
 }
}
#clear $cont contents
$cont = "" ;
# clean temperoary file
unlink("$oldDir/$fnbase/$fnbase.txt") if (-e "$oldDir/$fnbase/$fnbase.txt") ;

}

You can go to http://kiddosuper.10gbfreehost.com/msn2html.rar to download this perl directly

or visit my website http://kiddosuper.10gbfreehost.com to view more stuffs