[ViewVC] Contents of: cvs/deliantra/server/doc/scripts/replace_yaml

#!/usr/bin/perl
use YAML;

my $CFG = YAML::LoadFile $ARGV[0];

for (<STDIN>) {
#   s#L<YAML/([^/]+)>#make_table ($1)#gs;
   s#L<YAML/([^/]+)/(\S+)>#$CFG->{$1}->{$2}#egs;
   s#L<DATE>#`date`#egs;
   print;
}
Revision:	1.1
Committed:	Thu Aug 31 22:33:52 2006 UTC (17 years, 10 months ago) by elmex
Branch:	MAIN
CVS Tags:	STABLE
Log Message:	added jeweler_skill.pod and some files to generate it.
#	Content
1	#!/usr/bin/perl
2	use YAML;
3
4	my $CFG = YAML::LoadFile $ARGV[0];
5
6	for (<STDIN>) {
7	# s#L<YAML/([^/]+)>#make_table ($1)#gs;
8	s#L<YAML/([^/]+)/(\S+)>#$CFG->{$1}->{$2}#egs;
9	s#L<DATE>#`date`#egs;
10	print;
11	}