-#! /usr/bin/perl -w
+#! /usr/bin/perl
#
# $Id$
-# Copyright (C) 2002-2003 Jan Kratochvil <short@ucw.cz>
+# Copyright (C) 2002-2003 Jan Kratochvil <project-PerlMail@jankratochvil.net>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
use vars qw($VERSION);
$VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
use strict;
-#use warnings;
+use warnings;
sub new
return @r;
}
-sub import
+sub in
{
my($self,$data)=@_;
return join("",map(("[$_]\r\n".(!defined $href->{$_} ? "" : $href->{$_}."\r\n")),@headers))."[$trailer]\r\n";
}
-sub export
+sub out
{
my($self,$data)=@_;