[ViewVC] Annotation of: cvs/cvsroot/cf.schmorp.de/Deliantra/bin/cfmap-normalize

#!/opt/bin/perl

use Deliantra::Map;

for my $path (@ARGV) {
   eval {
      open my $fh, "<:raw:perlio:utf8", $path
         or die "$path: $!\n";

      <$fh> =~ /^arch map$/
         or die "$path: not a deliantra map file\n";

      my $map = new_from_file Deliantra::Map $path
         or die "$path: file load error\n";

      $map->write_file ($path);

      1
   } or warn $@;
}

Revision:	1.3
Committed:	Tue Jul 29 09:28:43 2008 UTC (18 years, 2 months ago) by root
Branch:	MAIN
CVS Tags:	rel-2_01, rel-1_30, rel-1_222, rel-1_221, rel-1_29, rel-1_24, rel-1_25, rel-1_22, rel-1_23, HEAD
Changes since 1.2:	+1 -1 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	#!/opt/bin/perl
2
3	root	1.2	use Deliantra::Map;
4	root	1.1
5			for my $path (@ARGV) {
6			eval {
7			open my $fh, "<:raw:perlio:utf8", $path
8			or die "$path: $!\n";
9
10			<$fh> =~ /^arch map$/
11	root	1.3	or die "$path: not a deliantra map file\n";
12	root	1.1
13	root	1.2	my $map = new_from_file Deliantra::Map $path
14	root	1.1	or die "$path: file load error\n";
15
16			$map->write_file ($path);
17
18			1
19			} or warn $@;
20			}
21