Changeset 924

Timestamp:

10/30/07 21:38:18 (6 years ago)

Author:

yappo

Message:

lang/perl/irssi/scripts/mobirc.pl: use config loader by Mobirc::ConfigLoader?

Files:

• lang/perl/irssi/scripts/mobirc.pl (modified) (2 diffs)

lang/perl/irssi/scripts/mobirc.pl

@@ -9 +9 @@
 
 use Encode;
+use Mobirc::ConfigLoader;
 use Mobirc::Util;
 use Mobirc::HTTPD;
@@ -275 +276 @@
 
     my $config;
-    eval { $config = YAML::Syck::LoadFile($conffname) };
+    eval { $config = Mobirc::ConfigLoader->load($conffname) };
     if ($@) {
         Irssi::print("can't read $conffname: $@");
         return;
     }
-
-    # set default vars.
-    $config->{irc}->{ping_delay} ||= 30;
-    $config->{irc}->{reconnect_delay} ||= 10;
-    $config->{irc}->{incode} ||= 'utf-8';
-    $config->{httpd}->{charset} ||= 'cp932';
-    $config->{httpd}->{root} ||= '/';
-    ## TODO: where default assets path?
-    # $config->{global}->{assets_dir} ||= File::Spec->catfile($FindBin::Bin, 'assets');
-    $config->{httpd}->{cookie_expires} ||= '+3d';
-    $config->{httpd}->{content_type} ||= 'text/html; charset=Shift_JIS';
 
     # httpd echo mode is disable