[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.2
Committed:	Thu Sep 7 21:43:26 2006 UTC (20 years 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
#	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			}