Ich habe versucht, mit der Hilfe ein entsprechendes Skript zu schreiben. Leider sind dort noch einige Fehler vorhanden, die ich leider nicht ausmachen kann.
Es wäre sehr nett, wenn jemand drüber gucken könnte.
#! /usr/bin/perluse strict;
use warnings;
use DBI;
# username
my $user = otrs;
# userpasswort
my $pass = some-pass;
# datenbankname
my $bd = otrs;
# DatabaseHost
my $host = localhost;
# $Driver oder DatabaseDNS
my $driver = "DBI:mysql:database=<OTRS_CONFIG_Database>;host=<OTRS_CONFIG_DatabaseHost>;";
my $dbh = DBI->connect($driver,$user,$pass) or die $DBI::errstr;
# Systemdatum
# Jahr
my $Year = now.getYear();
# Monat
my $Month = now.getMonth();
# Tag
my $Day = now.getDay();
# GKZ-Abfrage vorbereiten
my $GKZ = Select customer_id from customer_user;
my $GKZ_sth = $dhb->prepare($GKZ) or die $DBI::errstr;
# GKZ-Abfrage ausführen
$GKZ_sth->execute() or die $DBI::errstr;
# GKZ-Ergebnisse "abholen"
my @GKZ_Ergebnisse;
while (my @GKZ_row = $GKZ_sth-> fetchrow_array())
{
push (@GKZ_Ergebnisse, \@GKZ_row);
}
# Fachgebiet (Queue) -Abfrage vorbereiten
my $Queue = Select queue_id from queue;
my $Queue_sth = $dhb->prepare($Queue) or die $DBI::errstr;
# Fachgebiet (Queue) -Abfrage ausführen
$Queue_sth->execute() or die $DBI::errstr;
# Fachgebiet (Queue) -Ergebnisse "abholen"
my @Queue_Ergebnisse;
while (my @Queue_row = $Queue_sth-> fetchrow_array())
{
push (@Queue_Ergebnisse, \@Queue_row);
}
my $gernerated_nr = join('-',$Year,$Month,$Day,$GKZ,$Queue...)
print $generated_nr;
Nummer generieren
