diff options
Diffstat (limited to 'rt/sbin/rt-attributes-viewer')
| -rwxr-xr-x | rt/sbin/rt-attributes-viewer | 44 |
1 files changed, 28 insertions, 16 deletions
diff --git a/rt/sbin/rt-attributes-viewer b/rt/sbin/rt-attributes-viewer index 1ae83217b..b95f0884b 100755 --- a/rt/sbin/rt-attributes-viewer +++ b/rt/sbin/rt-attributes-viewer @@ -3,7 +3,7 @@ # # COPYRIGHT: # -# This software is Copyright (c) 1996-2011 Best Practical Solutions, LLC +# This software is Copyright (c) 1996-2012 Best Practical Solutions, LLC # <sales@bestpractical.com> # # (Except where explicitly superseded by other copyright notices) @@ -52,7 +52,7 @@ use warnings; # fix lib paths, some may be relative BEGIN { require File::Spec; - my @libs = ("lib", "local/lib"); + my @libs = ("/opt/rt3/lib", "/opt/rt3/local/lib"); my $bin_path; for my $lib (@libs) { @@ -73,21 +73,16 @@ BEGIN { } } -my $id = shift; -usage() unless $id; - -sub usage { - print STDERR <<END; -Usage: $0 <attribute id> - -Description: +use Getopt::Long; +my %opt; +GetOptions( \%opt, 'help|h', ); -This script deserializes and print content of an attribute defined -by <attribute id>. May be useful for developers and for troubleshooting -problems. +my $id = shift; -END - exit 1; +if ( $opt{help} || !$id ) { + require Pod::Usage; + Pod::Usage::pod2usage({ verbose => 2 }); + exit; } require RT; @@ -95,7 +90,7 @@ RT::LoadConfig(); RT::Init(); require RT::Attribute; -my $attr = RT::Attribute->new( do { no warnings 'once'; $RT::SystemUser } ); +my $attr = RT::Attribute->new( RT->SystemUser ); $attr->Load( $id ); unless ( $attr->id ) { print STDERR "Couldn't load attribute #$id\n"; @@ -108,3 +103,20 @@ $res{$_} = $attr->$_() foreach qw(ObjectType ObjectId Name Description Content C use Data::Dumper; print "Content of attribute #$id: ". Dumper( \%res ); +__END__ + +=head1 NAME + +rt-attributes-viewer - show the content of an attribute + +=head1 SYNOPSIS + + # show the content of attribute 2 + rt-attributes-viewer 2 + +=head1 DESCRIPTION + +This script deserializes and print content of an attribute defined +by <attribute id>. May be useful for developers and for troubleshooting +problems. + |