projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
This commit was manufactured by cvs2svn to create tag 'freeside_2_1_0'.
[freeside.git]
/
rt
/
lib
/
RT
/
Interface
/
CLI.pm
diff --git
a/rt/lib/RT/Interface/CLI.pm
b/rt/lib/RT/Interface/CLI.pm
index
8c93295
..
a910fb4
100644
(file)
--- a/
rt/lib/RT/Interface/CLI.pm
+++ b/
rt/lib/RT/Interface/CLI.pm
@@
-1,8
+1,8
@@
# BEGIN BPS TAGGED BLOCK {{{
#
# COPYRIGHT:
# BEGIN BPS TAGGED BLOCK {{{
#
# COPYRIGHT:
-#
-# This software is Copyright (c) 1996-200
5 Best Practical Solutions, LLC
+#
+# This software is Copyright (c) 1996-200
9 Best Practical Solutions, LLC
# <jesse@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
# <jesse@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
@@
-22,7
+22,9
@@
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
#
# 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/licenses/old-licenses/gpl-2.0.html.
#
#
# CONTRIBUTION SUBMISSION POLICY:
#
#
# CONTRIBUTION SUBMISSION POLICY:
@@
-43,6
+45,7
@@
# those contributions and any derivatives thereof.
#
# END BPS TAGGED BLOCK }}}
# those contributions and any derivatives thereof.
#
# END BPS TAGGED BLOCK }}}
+
use strict;
use RT;
use strict;
use RT;
@@
-51,14
+54,12
@@
package RT::Interface::CLI;
BEGIN {
BEGIN {
- use
Exporter ()
;
- use vars qw ($VERSION @
ISA @
EXPORT @EXPORT_OK %EXPORT_TAGS);
+ use
base 'Exporter'
;
+ use vars qw ($VERSION @EXPORT @EXPORT_OK %EXPORT_TAGS);
# set the version for version checking
# set the version for version checking
- $VERSION = do { my @r = (q$Revision: 1.1.1.3 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; # must be all one line, for MakeMaker
-
- @ISA = qw(Exporter);
-
+ $VERSION = do { my @r = (q$Revision: 1.1.1.8 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; # must be all one line, for MakeMaker
+
# your exported package globals go here,
# as well as any optionally exported functions
@EXPORT_OK = qw(&CleanEnv
# your exported package globals go here,
# as well as any optionally exported functions
@EXPORT_OK = qw(&CleanEnv
@@
-98,11
+99,6
@@
BEGIN {
=head1 METHODS
=head1 METHODS
-=begin testing
-
-ok(require RT::Interface::CLI);
-
-=end testing
=cut
=cut
@@
-224,7
+220,7
@@
sub GetMessageContent {
if ($edit) {
unless ($ENV{'EDITOR'}) {
if ($edit) {
unless ($ENV{'EDITOR'}) {
- $RT::Logger->crit('No $EDITOR variable defined'
. "\n"
);
+ $RT::Logger->crit('No $EDITOR variable defined');
return undef;
}
system ($ENV{'EDITOR'}, $filename);
return undef;
}
system ($ENV{'EDITOR'}, $filename);
@@
-247,7
+243,7
@@
sub debug {
my $val = shift;
my ($debug);
if ($val) {
my $val = shift;
my ($debug);
if ($val) {
- $RT::Logger->debug($val
."\n"
);
+ $RT::Logger->debug($val);
if ($debug) {
print STDERR "$val\n";
}
if ($debug) {
print STDERR "$val\n";
}