[dev] New Ticket Number generator - Question

[Stefan Schmidt]

Hi,

I just tried to hack Date.pm to a new DateChecksum.pm (for an
additional checksum appended to the regular TTN, like in STTS2).
I did this, but in $HOME/var/log/procmail-2002-06.log there is a
line like this:
Undefined subroutine &Kernel::System::Ticket::Number::DateChecksum::GetTNByString 
called at /opt/OpenTRS/bin/..//Kernel/System/PostMaster.pm line 235, <STDIN> line 39.
procmail: Non-zero exitcode (255) from "/opt/OpenTRS//bin/PostMaster.pl"

Do I have to register the new Ticket hook anywhere or did I just a
stupid mistake during coding?

BTW: I attached the new module.

BTW2: Is there a specific reason, why the default TTN is smthn.
like that: 10001? Why the leading '1'? I want to create TTN's like
in STTS, rotating the TTN's on a daily basis via cron.

Stefan
-- 
Stefan Schmidt                   Email:   [EMAIL PROTECTED]
                                          [EMAIL PROTECTED]
Bremen                                    [EMAIL PROTECTED]
                                          [EMAIL PROTECTED]
# --
# Ticket/Number/DateChecksum.pm - a date ticket number generator
# Copyright (C) 2002 Martin Edenhofer <[EMAIL PROTECTED]>
# Copyright (C) 2002 Stefan Schmidt <[EMAIL PROTECTED]>
# --
# $Id: Date.pm,v 1.0 2002/06/30 10:46:56 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 ticket numbers like yyyymmddssID#####C (e. g. 2002062310100019)
# --

package Kernel::System::Ticket::Number::DateChecksum;

use strict;

use vars qw($VERSION);
$VERSION = '$Revision: 1.0 $';
$VERSION =~ s/^.*:\s(\d+\.\d+)\s.*$/$1/;

sub CreateTicketNr {
    my $Self = shift;
    my $JumpCounter = shift || 0;

    # --
    # get needed config options 
    # --
    $Self->{CounterLog} = $Self->{ConfigObject}->Get('CounterLog');
    $Self->{SystemID} = $Self->{ConfigObject}->Get('SystemID');

    my ($Sec, $Min, $Hour, $Day, $Month, $Year) = localtime(time);
    $Year = $Year+1900;
    $Month = $Month+1;
    $Month  = "0$Month" if ($Month <10);
    $Day = "0$Day" if ($Day <10);

    # --
    # read count
    # --
    open (COUNTER, "< $Self->{CounterLog}") || die "Can't open $Self->{CounterLog}";
    my $Count = <COUNTER>;
    close (COUNTER);
    if ($Self->{Debug} > 0) {
        $Self->{LogObject}->Log(
          Priority => 'debug',
          MSG => "Read counter: $Count",
        );
    }

    # --
    # count auto increment ($Count++)
    # --
    $Count++;
    $Count = $Count + $JumpCounter;

    # --
    # write new count
    # --
    if (open (COUNTER, "> $Self->{CounterLog}")) {
        flock (COUNTER, 2) || warn "Can't set file lock ($Self->{CounterLog}): $!";
        print COUNTER $Count . "\n";
        close (COUNTER);
        if ($Self->{Debug} > 0) {
            $Self->{LogObject}->Log(
              Priority => 'debug',
              MSG => "Write counter: $Count",
            );
        }
    }
    else {
        $Self->{LogObject}->Log(
            Priority => 'error',
            MSG => "Can't open $Self->{CounterLog}: $!",
        );
    }

    # --
    # pad ticket number with leading '0' to length 5
    # --
    while ( length( $Counter ) < 5 ) {
        $Counter = "0" . $Counter;
    }

    # --
    # new ticket number
    # --
    my $Tn = $Year.$Month.$Day.$Self->{SystemID} . $Count;

    # --
    # calculate a checksum
    # --
    my $chksum = 0;
    for ( $i = 0; $i<length($Tn); ++$i ) {
        $Digit = substr( $Tn, $i, 1 );
        $chksum = $chksum + ( $Digit * $Digit );
        $chksum %= 10 if ( $i % 2 == 0 );
    }
    $chksum %= 10;

    # --
    # add checksum to ticket number
    # --
    $Tn = $Tn . $chksum;

    # --
    # 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',
            MSG => "CounterLoopProtection is now $Self->{LoopProtectionCounter}!".
                   " Stoped CreateTicketNr()!",
          );
          return;
        }
        # --
        # create new ticket number again
        # --
        $Self->{LogObject}->Log(
          Priority => 'error',
          MSG => "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('TicketHook');

    # --
    # check ticket number
    # --
    if ($String =~ /$TicketHook:+.{0,1}(\d{8,40})/i) {
        return $1;
    }
    else {
        return;
    }
}
# --