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

Comparing deliantra/Deliantra-Client/DC.pm (file contents):
Revision 1.185 by root, Fri Aug 1 13:50:08 2008 UTC vs.
Revision 1.191 by root, Wed Sep 3 06:07:39 2008 UTC

 package App::Deliantra; # try to reserve namespace
 package DC;
 use Carp ();
+our $VERSION;
 BEGIN {
-   $VERSION = '0.9974';
+   $VERSION = '0.9975';
    use XSLoader;
    XSLoader::load "Deliantra::Client", $VERSION;
 }
 use utf8;
+use strict qw(vars subs);
 use AnyEvent ();
 use Pod::POM ();
 use File::Path ();
 use Storable (); # finally
    print $msg, "\n";
 }
 package DC;
+our $RC_THEME;
+our $THEME;
+our @RC_PATH;
+our $RC_BASE;
+for (grep !ref, @INC) {
+   $RC_BASE = "$_/Deliantra/Client/private/resources";
+   last if -d $RC_BASE;
+}
 sub find_rcfile($) {
    my $path;
-   for (grep !ref, @INC) {
+   for (@RC_PATH, "") {
-      $path = "$_/Deliantra/Client/private/resources/$_[0]";
+      $path = "$RC_BASE/$_/$_[0]";
       return $path if -r $path;
    }
-   die "FATAL: can't find required file $_[0]\n";
+   die "FATAL: can't find required file \"$_[0]\" in \"$RC_BASE\"\n";
+}
+sub set_theme($) {
+   return if $RC_THEME eq $_[0];
+   $RC_THEME = $_[0];
+   @RC_PATH = "theme-$RC_THEME";
+   {
+      open my $fh, "<:raw", find_rcfile "theme.json"
+         or die "cannot open theme description file";
+      local $/;
+      $THEME = JSON::XS->new->utf8->relaxed->decode (<$fh>);
+   }
+   @RC_PATH = @{ $THEME->{path} } if $THEME->{path};
 }
 sub read_cfg {
    my ($file) = @_;

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