| 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 *** |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | root | 1.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 |