ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/utils/cfutil.in
(Generate patch)

Comparing deliantra/server/utils/cfutil.in (file contents):
Revision 1.64 by root, Mon Dec 17 08:50:15 2007 UTC vs.
Revision 1.65 by root, Thu Dec 27 15:32:41 2007 UTC

18use AnyEvent; 18use AnyEvent;
19use YAML::Syck (); 19use YAML::Syck ();
20use JSON::XS (); 20use JSON::XS ();
21use IO::AIO (); 21use IO::AIO ();
22use File::Temp; 22use File::Temp;
23use Crossfire; 23use Deliantra;
24use Coro; 24use Coro;
25use Coro::AIO; 25use Coro::AIO;
26use Coro::Util; 26use Coro::Util;
27use POSIX (); 27use POSIX ();
28use Carp; 28use Carp;
534 substr $dir, 0, 1 + length $PATH, ""; 534 substr $dir, 0, 1 + length $PATH, "";
535 535
536 if (my $filter = $meta->{cfutil_filter}) { 536 if (my $filter = $meta->{cfutil_filter}) {
537 if ($filter eq "yaml2json") { 537 if ($filter eq "yaml2json") {
538 $data = JSON::XS::encode_json YAML::Syck::Load $data; 538 $data = JSON::XS::encode_json YAML::Syck::Load $data;
539 } elsif ($filter eq "json2json") {
540 $data = JSON::XS::encode_json JSON::XS->relaxed->utf8->decode ($data);
539 } else { 541 } else {
540 warn "$dir/$file: unknown filter $filter, skipping\n"; 542 warn "$dir/$file: unknown filter $filter, skipping\n";
541 } 543 }
542 } 544 }
543 545
685 @ARC = grep $_->{_name} !~ /^(?:type|class)_/, @ARC; 687 @ARC = grep $_->{_name} !~ /^(?:type|class)_/, @ARC;
686 688
687 print "writing archetypes...\n" if $VERBOSE; 689 print "writing archetypes...\n" if $VERBOSE;
688 open my $fh, ">:utf8", "$DATADIR/archetypes~" 690 open my $fh, ">:utf8", "$DATADIR/archetypes~"
689 or die "$DATADIR/archetypes~: $!"; 691 or die "$DATADIR/archetypes~: $!";
690 print $fh Crossfire::archlist_to_string [sort { $a->{_name} cmp $b->{_name} } @ARC]; 692 print $fh Deliantra::archlist_to_string [sort { $a->{_name} cmp $b->{_name} } @ARC];
691 } 693 }
692 694
693 { 695 {
694 print "writing treasures...\n" if $VERBOSE; 696 print "writing treasures...\n" if $VERBOSE;
695 open my $fh, ">:utf8", "$DATADIR/treasures~" 697 open my $fh, ">:utf8", "$DATADIR/treasures~"

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines