--- cfmaps/cfmap2png	2006/09/16 18:39:10	1.20
+++ cfmaps/cfmap2png	2007/02/14 02:33:47	1.21
@@ -1,7 +1,7 @@
 #!/opt/bin/perl
 
 # cfarch2png - convert crossfire maps to png+metadata
-# Copyright (C) 2005      Marc Lehmann <gvpe@schmorp.de>
+# Copyright (C) 2005,2007 Marc Lehmann <cfmaps@schmorp.de>
 #
 # CFARCH2PNG is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -30,7 +30,7 @@
 # ... i believe that anytime, but it still doesn't mention the smoothlevel
 # interaction :(
 
-our $VERSION = '1.21';
+our $VERSION = '1.211';
 
 use strict;
 
@@ -387,6 +387,7 @@
 
 for my $file (@ARGV) {
    my $mapa = read_arch $file;
+   $file =~ s/\.map$//;
    my ($pb, $meta) = cfmap_render $mapa, $file;
    $pb->save ("$file.png~~", "png");
    system "gm", "convert", "$file.png~~", "-filter" => "lanczos", "-geometry" => "3.125%", "-quality" => 85, "$file.jpg";