[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC.pm

Comparing deliantra/Deliantra-Client/DC.pm (file contents):
Revision 1.215 by root, Wed Jan 18 13:42:19 2012 UTC vs.
Revision 1.216 by root, Sat Nov 17 10:40:08 2012 UTC

 use List::Util ();
 use IO::AIO ();
 use Coro::AIO ();
 use AnyEvent::AIO ();
+use Deliantra::Util ();
 use Deliantra::Protocol::Constants ();
 =item shorten $string[, $maxlength]
 =cut
 sub load_cfg() {
    if (-e "$Deliantra::VARDIR/client.cf") {
       DC::read_cfg "$Deliantra::VARDIR/client.cf";
    } else {
-      $::CFG = {};
+      $::CFG = { cfg_schema => 1, db_schema => 1 };
    }
 }
 sub save_cfg() {
    write_cfg "$Deliantra::VARDIR/client.cf";
       logview_max_par     => 1000,
       shift_fire_stop     => 0,
       uitheme             => "wood",
       map_shift_x         => -24, # arbitrary
       map_shift_y         => +24, # arbitrary
-      #db_schema          => 0,
    );
    while (my ($k, $v) = each %DEF_CFG) {
       $::CFG->{$k} = $v unless exists $::CFG->{$k};
+   }
+   if ($::CFG->{cfg_schema} < 1) {
+      for my $profile (values %{ $::CFG->{profile} }) {
+         $profile->{password} = unpack "H*", Deliantra::Util::hash_pw $profile->{password};
+      }
+      $::CFG->{cfg_schema} = 1;
    }
 }
 sub http_proxy {
    my @proxy = win32_proxy_info;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines