--- a/iconv.pl Sat Mar 07 13:37:26 2009 +0100
+++ b/iconv.pl Sat Mar 07 14:20:04 2009 +0100
@@ -12,6 +12,8 @@
$ENV{LANG} = "C";
delete @ENV{ grep /^LC_/, keys %ENV };
+my $VERSION = '$Id$';
+
my $ME = basename $0;
my $CHARSETS = [qw(cp437 cp850 latin1)];
@@ -35,7 +37,7 @@
-encoding => "utf-8",
);
my $FOOTER =
- div({ -align => "right" }, "Scripting © 2008 Heiko Schlittermann");
+ div({ -align => "right" }, "Scripting © 2008 Heiko Schlittermann // $VERSION");
END {
unlink grep { -M > 1 } glob "/tmp/$ME.*";
@@ -66,11 +68,16 @@
exit 0;
};
- print header(
+ $_ = join "",
+ header(
-type => "application/octet-stream",
-attachment => $filename
),
<$fh>;
+ open(X, ">/tmp/log");
+ print X $_;
+ cloes(X);
+ print;
exit 0;
}
@@ -179,3 +186,5 @@
}
print header, start_html, h1("Internal Error."), Dump, end_html;
+
+# vim:sts=4 sw=4 aw ai sm: