← Back to branch summary

~ubuntu-branches/ubuntu/natty/otrs2/natty-updates

« back to all changes in this revision

Viewing changes to bin/otrs.getTicketThread

  • Committer: Package Import Robot
  • Author(s): Torsten Werner
  • Date: 2007-04-14 17:58:55 UTC
  • mto: (20.1.1 squeeze)
  • mto: This revision was merged to the branch mainline in revision 6.
  • Revision ID: package-import@ubuntu.com-20070414175855-9ne0w01yu1q44ch0
Tags: upstream-2.1.7
Import upstream version 2.1.7

Show diffs side-by-side

added added

removed removed

Lines of Context:
bin/otrs.getTicketThread
1
1
#!/usr/bin/perl -w
2
2
# --
3
3
# bin/otrs.getTicketThread - to print the whole ticket thread to STDOUT
4
 
# Copyright (C) 2001-2004 Martin Edenhofer <martin+code@otrs.org>
 
4
# Copyright (C) 2001-2006 OTRS GmbH, http://otrs.org/
5
5
# --
6
 
# $Id: otrs.getTicketThread,v 1.4 2004/09/29 09:38:06 martin Exp $
 
6
# $Id: otrs.getTicketThread,v 1.8 2006/12/07 15:20:56 martin Exp $
7
7
# --
8
8
# This program is free software; you can redistribute it and/or modify
9
9
# it under the terms of the GNU General Public License as published by
29
29
use strict;
30
30
 
31
31
use vars qw($VERSION);
32
 
$VERSION = '$Revision: 1.4 $';
 
32
$VERSION = '$Revision: 1.8 $';
33
33
$VERSION =~ s/^\$.*:\W(.*)\W.+?$/$1/;
34
34
 
35
35
use Kernel::Config;
36
36
use Kernel::System::Time;
37
37
use Kernel::System::Log;
 
38
use Kernel::System::Main;
38
39
use Kernel::System::DB;
39
40
use Kernel::System::Ticket;
40
41
use Kernel::System::User;
41
42
 
42
 
# --
43
43
# common objects
44
 
# --
45
44
my %CommonObject = ();
46
45
$CommonObject{ConfigObject} = Kernel::Config->new();
47
 
$CommonObject{TimeObject} = Kernel::System::Time->new(%CommonObject);
48
46
$CommonObject{LogObject} = Kernel::System::Log->new(
49
47
    LogPrefix => 'OTRS-getTicketThread',
50
48
    %CommonObject,
51
49
);
 
50
$CommonObject{TimeObject} = Kernel::System::Time->new(%CommonObject);
 
51
$CommonObject{MainObject} = Kernel::System::Main->new(%CommonObject);
52
52
$CommonObject{DBObject} = Kernel::System::DB->new(%CommonObject);
53
53
$CommonObject{TicketObject} = Kernel::System::Ticket->new(%CommonObject);
54
54
$CommonObject{UserObject} = Kernel::System::User->new(%CommonObject);
74
74
    print "Body:\n";
75
75
    print "$Article{Body}\n";
76
76
    print "---------------------------------------------------------------------\n";
77
 
} 
 
77
}