--- deliantra/Deliantra-Client/DC/Protocol.pm	2007/07/31 00:50:04	1.142
+++ deliantra/Deliantra-Client/DC/Protocol.pm	2007/08/06 02:11:45	1.145
@@ -23,7 +23,7 @@
       setup_req => {
          extmap => 1,
          excmd  => 1,
-         ywidget => 1,#d#
+         xwidget => 1,#d#
          %{$arg{setup_req} || {}},
       },
    );
@@ -50,11 +50,9 @@
    } sort { $a->{par} <=> $b->{par} }
           CFPlus::Pod::find command => "*";
 
-   $self->connect_ext (music => sub {
-      my ($ev) = @_;
-
-      &::audio_music_set_ambient ($self->{songs} = $ev->{ambient})
-         if $ev->{ambient};
+   $self->connect_ext (ambient_music => sub {
+      my ($songs) = @_;
+      &::audio_music_set_ambient ($songs);
    });
 
    $self->connect_ext (capabilities => sub {
@@ -230,23 +228,7 @@
 sub logprint {
    my ($self, @a) = @_;
 
-   $self->{log_fh} ||= do {
-      my $path = "$Crossfire::VARDIR/log.$self->{host}";
-
-      open my $fh, ">>:utf8", $path
-         or die "Couldn't open logfile $path: $!";
-
-      $fh->autoflush (1);
-
-      $fh;
-   };
-
-   my ($sec, $min, $hour, $mday, $mon, $year) = localtime time;
-
-   my $ts = sprintf "%04d-%02d-%02d %02d:%02d:%02d",
-               $year + 1900, $mon + 1, $mday, $hour, $min, $sec;
-
-   print {$self->{log_fh}} "$ts ", @a, "\n";
+   CFPlus::DB::logprint "$Crossfire::VARDIR/log.$self->{host}" => (join "", @a), sub { };
 }
 
 sub _stat_numdiff {
@@ -760,7 +742,7 @@
             ::message ({ markup => "downloaded song #$facenum" })
                if $changed;
 
-            &::audio_music_set_ambient ($self->{songs});
+            &::audio_music_push ($facenum);
          };
       } elsif ($face->{type} == 5) { # FT_SOUND
          $cb = sub {
@@ -779,11 +761,13 @@
          CFPlus::DB::put res_data => $face->{name} => $data, sub { };
          CFPlus::DB::put res_meta => $face->{name} => $meta_json, sub {
             $face->{meta} = $self->{json_coder}->decode ($meta_json);
+            ::add_license ($face);
             $cb->();
          };
 
       } else {
          $face->{meta} = $self->{json_coder}->decode (delete $face->{data});
+            ::add_license ($face);
          $cb->();
       }
    }