[ViewVC] Contents of: cvs/deliantra/Deliantra/bin/cfmap-normalize

#!/opt/bin/perl

use Crossfire::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 crossfire map file\n";

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

      $map->write_file ($path);

      1
   } or warn $@;
}

Revision:	1.1
Committed:	Fri Mar 31 21:06:49 2006 UTC (18 years, 2 months ago) by root
Branch:	MAIN
CVS Tags:	rel-0_92, rel-0_91, rel-0_96, rel-0_97, rel-0_98, rel-0_99, rel-1_11, rel-1_13, rel-1_12, rel-2_2, rel-2_0, rel-2_1, rel-1_1, rel-1_0, rel-0_9
Log Message:	* empty log message *
#	Content
1	#!/opt/bin/perl
2
3	use Crossfire::Map;
4
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	or die "$path: not a crossfire map file\n";
12
13	my $map = new_from_file Crossfire::Map $path
14	or die "$path: file load error\n";
15
16	$map->write_file ($path);
17
18	1
19	} or warn $@;
20	}
21