#!/usr/bin/perl
# make extmail csv address book
# author: fengyong 
# date: 2007-09-10
# ver: 0.1
#
use strict;
use lib "../libs";
use DBI;
use Encode qw/from_to/;
use Encode::HanConvert;
BEGIN {
	$Ext::Config::PF="../webman.cf";
}
use Ext::Config;

if (!$SYS_CFG){
	Ext::Config::import;
}

my $dbh= DBI->connect("DBI:mysql:database=$SYS_CFG->{SYS_MYSQL_DB};host=$SYS_CFG->{SYS_MYSQL_HOST}",$SYS_CFG->{SYS_MYSQL_USER},$SYS_CFG->{SYS_MYSQL_PASS},{RaiseError => 1});
my $query=qq~SELECT username,name FROM mailbox ~;
my $sth=$dbh->prepare($query);
$sth->execute();
my $lang=shift||"gb2312";
my $file="extmail_cvs_addressbook_$lang.csv";
open (FH,">$file") or die "can't open $file:$!\n";
print FH "\"Name\",\"Mail\"\n";

while (my $row=$sth->fetchrow_hashref){
	from_to($row->{'name'},"utf8","gb2312");
	my $char=$row->{'name'};
	
	if ($lang eq "big5"){
	$char=gb_to_big5($char);
	}
	print FH  "\"$char\",\"$row->{'username'}\"\n";	
}
print "Success!\n";