diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2015-06-12 15:19:00 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2015-06-12 15:19:00 -0700 |
| commit | 919e930aa9279b3c5cd12b593889cd6de79d67bf (patch) | |
| tree | 77d7b94eb2050ea8d7bee2431dbb11d34abe9249 /rt/bin | |
| parent | f303acf0bfdbd5debea67d391e111ae4ee62cb78 (diff) | |
rt 4.0.23
Diffstat (limited to 'rt/bin')
| -rwxr-xr-x | rt/bin/rt | 6 | ||||
| -rw-r--r-- | rt/bin/rt-crontool.in | 2 | ||||
| -rw-r--r-- | rt/bin/rt-mailgate.in | 2 | ||||
| -rw-r--r-- | rt/bin/rt.in | 6 |
4 files changed, 8 insertions, 8 deletions
@@ -3,7 +3,7 @@ # # COPYRIGHT: # -# This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC +# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC # <sales@bestpractical.com> # # (Except where explicitly superseded by other copyright notices) @@ -1035,7 +1035,7 @@ sub submit { # Should we send authentication information to start a new session? my $how = $config{server} =~ /^https/ ? 'over SSL' : 'unencrypted'; - (my $server = $config{server}) =~ s/^.*\/\/([^\/]+)\/?/$1/; + my($server) = $config{server} =~ m{^.*//([^/]+)}; if ($config{externalauth}) { $h->authorization_basic($config{user}, $config{passwd} || read_passwd() ); print " Password will be sent to $server $how\n", @@ -1080,7 +1080,7 @@ sub submit { # "RT/3.0.1 401 Credentials required" if ($status !~ m#^RT/\d+(?:\S+) (\d+) ([\w\s]+)$#) { - warn "rt: Malformed RT response from $config{server}.\n"; + warn "rt: Malformed RT response from $server.\n"; warn "(Rerun with RTDEBUG=3 for details.)\n" if $config{debug} < 3; exit -1; } diff --git a/rt/bin/rt-crontool.in b/rt/bin/rt-crontool.in index e202698..383014f 100644 --- a/rt/bin/rt-crontool.in +++ b/rt/bin/rt-crontool.in @@ -3,7 +3,7 @@ # # COPYRIGHT: # -# This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC +# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC # <sales@bestpractical.com> # # (Except where explicitly superseded by other copyright notices) diff --git a/rt/bin/rt-mailgate.in b/rt/bin/rt-mailgate.in index df2ab5a..0516bf7 100644 --- a/rt/bin/rt-mailgate.in +++ b/rt/bin/rt-mailgate.in @@ -3,7 +3,7 @@ # # COPYRIGHT: # -# This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC +# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC # <sales@bestpractical.com> # # (Except where explicitly superseded by other copyright notices) diff --git a/rt/bin/rt.in b/rt/bin/rt.in index 83c38ac..60eed68 100644 --- a/rt/bin/rt.in +++ b/rt/bin/rt.in @@ -3,7 +3,7 @@ # # COPYRIGHT: # -# This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC +# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC # <sales@bestpractical.com> # # (Except where explicitly superseded by other copyright notices) @@ -1035,7 +1035,7 @@ sub submit { # Should we send authentication information to start a new session? my $how = $config{server} =~ /^https/ ? 'over SSL' : 'unencrypted'; - (my $server = $config{server}) =~ s/^.*\/\/([^\/]+)\/?/$1/; + my($server) = $config{server} =~ m{^.*//([^/]+)}; if ($config{externalauth}) { $h->authorization_basic($config{user}, $config{passwd} || read_passwd() ); print " Password will be sent to $server $how\n", @@ -1080,7 +1080,7 @@ sub submit { # "RT/3.0.1 401 Credentials required" if ($status !~ m#^RT/\d+(?:\S+) (\d+) ([\w\s]+)$#) { - warn "rt: Malformed RT response from $config{server}.\n"; + warn "rt: Malformed RT response from $server.\n"; warn "(Rerun with RTDEBUG=3 for details.)\n" if $config{debug} < 3; exit -1; } |