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
118
119
|
# --
# Ticket/Number/AutoIncrement.pm - a ticket number auto increment generator
# Copyright (C) 2001-2005 Martin Edenhofer <martin+code@otrs.org>
# --
# $Id: AutoIncrement.pm,v 1.14 2005/05/15 09:12:23 martin 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 auto increment ticket numbers like ss.... (e. g. 1010138, 1010139, ...)
# --
package Kernel::System::Ticket::Number::AutoIncrement;
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');
my $MinSize = $Self->{ConfigObject}->Get('Ticket::NumberGenerator::AutoIncrement::MinCounterSize') || $Self->{ConfigObject}->Get('Ticket::NumberGenerator::MinCounterSize') || 5;
# read count
my $Count = 0;
if (-f $CounterLog) {
open (DATA, "< $CounterLog") || die "Can't open $CounterLog: $!";
my $Line = <DATA>;
($Count) = split(/;/, $Line);
close (DATA);
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: $!";
}
# pad ticket number with leading '0' to length $MinSize (config option)
while (length($Count) < $MinSize) {
$Count = "0".$Count;
}
# create new ticket number
my $Tn = $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 $SystemID = $Self->{ConfigObject}->Get('SystemID');
my $TicketHook = $Self->{ConfigObject}->Get('Ticket::Hook');
my $TicketHookDivider = $Self->{ConfigObject}->Get('Ticket::HookDivider');
my $MinSize = $Self->{ConfigObject}->Get('Ticket::NumberGenerator::AutoIncrement::MinCounterSize') || $Self->{ConfigObject}->Get('Ticket::NumberGenerator::MinCounterSize') || 5;
my $MaxSize = $MinSize + 5;
# check ticket number
if ($String =~ /\Q$TicketHook$TicketHookDivider\E($SystemID\d{$MinSize,$MaxSize})/i) {
return $1;
}
else {
if ($String =~ /$TicketHook+.{0,2}($SystemID\d{$MinSize,$MaxSize})/i) {
return $1;
}
else {
return;
}
}
}
# --
1;
|
