diff options
Diffstat (limited to 'rt/bin/rt-mailgate.in')
| -rw-r--r-- | rt/bin/rt-mailgate.in | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/rt/bin/rt-mailgate.in b/rt/bin/rt-mailgate.in index 5ac9469d8..6264d4389 100644 --- a/rt/bin/rt-mailgate.in +++ b/rt/bin/rt-mailgate.in @@ -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 # <jesse@bestpractical.com> # # (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, $/); <> }; |