source: subversion/sites/www.openstreetbrowser.org/src/update_xml.pl @ 17282

Last change on this file since 17282 was 16408, checked in by skunk, 11 years ago

Files missing (please don't ask me why)

  • Property svn:executable set to *
File size: 232 bytes
Line 
1#!/usr/bin/perl
2
3$root_path=$ENV{ROOT_PATH};
4$file=$ARGV[0];
5
6$full_text="";
7open(O, "<$file");
8while($r=<O>) {
9$full_text.=$r;
10}
11close(O);
12
13open(O, ">$file");
14$full_text=~s/__DBNAME__/$ENV{DB_NAME}/g;
15print O $full_text;
16close(O);
Note: See TracBrowser for help on using the repository browser.