X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=rt%2Fbin%2Frt-mailgate;h=8db26dbe31f0425b2069bb87497b5d91e5a005fa;hp=5663d6845e4c9abb22ed9baf27c13488bd25b84c;hb=962d830f2513b1e0d29f79a24b00088ddc384432;hpb=571ed24f5321bcc47b35dc917e37b3b46d0b8552 diff --git a/rt/bin/rt-mailgate b/rt/bin/rt-mailgate index 5663d6845..8db26dbe3 100755 --- a/rt/bin/rt-mailgate +++ b/rt/bin/rt-mailgate @@ -3,7 +3,7 @@ # # COPYRIGHT: # -# This software is Copyright (c) 1996-2005 Best Practical Solutions, LLC +# This software is Copyright (c) 1996-2007 Best Practical Solutions, LLC # # # (Except where explicitly superseded by other copyright notices) @@ -23,7 +23,9 @@ # # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA +# 02110-1301 or visit their web page on the internet at +# http://www.gnu.org/copyleft/gpl.html. # # # CONTRIBUTION SUBMISSION POLICY: @@ -44,7 +46,6 @@ # those contributions and any derivatives thereof. # # END BPS TAGGED BLOCK }}} - =head1 NAME rt-mailgate - Mail interface to RT3. @@ -53,6 +54,7 @@ rt-mailgate - Mail interface to RT3. use strict; +use warnings; use Getopt::Long; use LWP::UserAgent; @@ -76,10 +78,11 @@ my $ua = LWP::UserAgent->new(); $ua->cookie_jar( { file => $opts{jar} } ); my %args = ( - queue => $opts{queue}, - action => $opts{action}, - SessionType => 'REST', # Surpress login box + SessionType => 'REST', # Surpress login box ); +foreach ( qw(queue action) ) { + $args{$_} = $opts{$_} if defined $opts{$_}; +}; # Read the message in from STDIN $args{'message'} = do { local (@ARGV, $/); <> };