[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.2
Committed:	Thu Sep 7 21:43:26 2006 UTC (17 years, 8 months ago) by pippijn
Branch:	MAIN
CVS Tags:	HEAD
Changes since 1.1:	+0 -0 lines
State:	*FILE REMOVED*
Log Message:	Moved documents to doc/historic
#	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	}