1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
# --
# Ticket/Number/Date.pm - a date ticket number generator
# Copyright (C) 2001-2005 Martin Edenhofer <martin+code@otrs.org>
# --
# $Id: Date.pm,v 1.14 2005/11/04 14:40:19 rk Exp $
# --
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (GPL). If you
# did not receive this file, see http://www.gnu.org/licenses/gpl.txt.
# --
# Note:
# available objects are: ConfigObject, LogObject and DBObject
#
# Generates ticket numbers like yyyymmddss.... (e. g. 200206231010138)
# --
package Kernel::System::Ticket::Number::Date;
use strict;
use vars qw($VERSION);
$VERSION = '$Revision: 1.14 $';
$VERSION =~ s/^\$.*:\W(.*)\W.+?$/$1/;
sub CreateTicketNr {
my $Self = shift;
my $JumpCounter = shift || 0;
# get needed config options
my $CounterLog = $Self->{ConfigObject}->Get('Ticket::CounterLog');
my $SystemID = $Self->{ConfigObject}->Get('SystemID');
# get current time
my ($Sec, $Min, $Hour, $Day, $Month, $Year) = $Self->{TimeObject}->SystemTime2Date(
SystemTime => $Self->{TimeObject}->SystemTime(),
);
# read count
my $Count = 0;
if (-f $CounterLog) {
open (DATA, "< $CounterLog") || die "Can't open $CounterLog: $!";
my $Line = <DATA>;
($Count) = split(/;/, $Line);
close (DATA);
# just debug
if ($Self->{Debug} > 0) {
$Self->{LogObject}->Log(
Priority => 'debug',
Message => "Read counter from $CounterLog: $Count",
);
}
}
# count auto increment ($Count++)
$Count++;
$Count = $Count+$JumpCounter;
# write new count
if (open (DATA, "> $CounterLog")) {
flock (DATA, 2) || warn "Can't set file lock ($CounterLog): $!";
print DATA $Count."\n";
close (DATA);
if ($Self->{Debug} > 0) {
$Self->{LogObject}->Log(
Priority => 'debug',
Message => "Write counter: $Count",
);
}
}
else {
$Self->{LogObject}->Log(
Priority => 'error',
Message => "Can't write $CounterLog: $!",
);
die "Can't write $CounterLog: $!";
}
# create new ticket number
my $Tn = $Year.$Month.$Day.$SystemID.$Count;
# Check ticket number. If exists generate new one!
if ($Self->CheckTicketNr(Tn=>$Tn)) {
$Self->{LoopProtectionCounter}++;
if ($Self->{LoopProtectionCounter} >= 1000) {
# loop protection
$Self->{LogObject}->Log(
Priority => 'error',
Message => "CounterLoopProtection is now $Self->{LoopProtectionCounter}!".
" Stoped CreateTicketNr()!",
);
return;
}
# create new ticket number again
$Self->{LogObject}->Log(
Priority => 'notice',
Message => "Tn ($Tn) exists! Creating new one.",
);
$Tn = $Self->CreateTicketNr($Self->{LoopProtectionCounter});
}
return $Tn;
}
# --
sub GetTNByString {
my $Self = shift;
my $String = shift || return;
# get needed config options
my $TicketHook = $Self->{ConfigObject}->Get('Ticket::Hook');
my $TicketHookDivider = $Self->{ConfigObject}->Get('Ticket::HookDivider');
# check current setting
if ($String =~ /\Q$TicketHook$TicketHookDivider\E(\d{8,40})/i) {
return $1;
}
else {
# check default setting
if ($String =~ /\Q$TicketHook\E:+.{0,1}(\d{8,40})/i) {
return $1;
}
else {
return;
}
}
}
# --
1;
|
