[ViewVC] Annotation 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, 11 months ago) by elmex
Branch:	MAIN
CVS Tags:	STABLE
Log Message:	added jeweler_skill.pod and some files to generate it.
#	User	Rev	Content
1	elmex	1.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			}