June 2002 - otrs - OTRS mailing lists

Group.pm addGroup, getGroupID, getUserId, addUser2Group setPassword
by Atif Ghaffar 05 Jun '02

05 Jun '02

hi guys. Here is a Group.pm and also some scripts. You may be wondering why all scripts are prefixed with otrs. I have /opt/OpenTRS/bin in my path. Other admins may also have it like that, so I dont with that a script overrided another system command. if an admin types otrs.something, he obviously wanted to run the otrs command. I follow the same scheme in ISPMan. So here are the scripts. otrs.addGroup: Updated. Using Group.pm Adds a group and returns the group id otrs.getGroupID: Returns numeric group id for the group Usage: otrs.getGroupID group_name otrs.getUserID: Returns numeric user id for the user otrs.addUser2Group: Usage: otrs.addUser2Group username groupname Adds the user to the group. If the user already existed in the group, it wont add again. otrs.addUser : Revised. It will accept -g groupname If a goupname is given it will also add the user to the group otrs.setPassword Changes the passord of a user Usage: otrs.setPassword username password Example: otrs.setPassword root@localhost some-pass Changed files: Group.pm (New file) User.pm (Added method GetUserIdByName best regards -- Atif Ghaffar ---------------------------. +41 78 845 31 64 ¦ tel aghaffar(a)developer.ch ¦ email http://atifghaffar.com ¦ www 8206786 ¦ icq #!/usr/bin/perl -w # -- # otrs.addGroup - Add Group from CLI package main; BEGIN{ use FindBin; unshift @INC, ($FindBin::Bin , "$FindBin::Bin/../"); use vars qw (%opts); use Getopt::Std; getopt('c', \%opts); unless ($ARGV[0]){ print "$FindBin::Script [-c comment] groupname"; print "\n"; exit; } } package main; use lib '/opt/OpenTRS/'; use strict; use Kernel::Config; use Kernel::System::Syslog; use Kernel::System::DB; use Kernel::System::Group; # -- # create common objects # -- my %CommonObject = (); $CommonObject{LogObject} = Kernel::System::Syslog->new(); $CommonObject{ConfigObject} = Kernel::Config->new(%CommonObject); $CommonObject{DBObject} = Kernel::System::DB->new(%CommonObject); $CommonObject{GroupObject} = Kernel::System::Group->new(%CommonObject); my %Param; undef %Param; #user id of the person adding the record $Param{UserID}='1'; #Validrecord $Param{ValidID}='1'; $Param{Comment}=$opts{'c'}; $Param{Name}=$ARGV[0]; if ( my $gid=$CommonObject{GroupObject}->GroupAdd(%Param) ){ print "Group added. group id is $gid\n"; } # -- exit (0); #!/usr/bin/perl -w # -- # otrs.addUser - Add User from CLI BEGIN{ use FindBin; unshift @INC, ($FindBin::Bin , "$FindBin::Bin/../"); use vars qw (%opts); use Getopt::Std; getopt('flpg', \%opts); unless ($ARGV[0]){ print "$FindBin::Script [-f firstname] [-l lastname] [-p password] [-g groupname] username\n"; print "\tif you define -g with a valid group name then the user will be added that group\n"; print "\n"; exit; } } use lib '/opt/OpenTRS/'; use strict; use Kernel::Config; use Kernel::System::Syslog; use Kernel::System::DB; use Kernel::System::User; # -- # create common objects # -- my %CommonObject = (); $CommonObject{LogObject} = Kernel::System::Syslog->new(); $CommonObject{ConfigObject} = Kernel::Config->new(%CommonObject); $CommonObject{DBObject} = Kernel::System::DB->new(%CommonObject); $CommonObject{UserObject} = Kernel::System::User->new(%CommonObject); my %Param; undef %Param; #user id of the person adding the record $Param{UserID}='1'; #Validrecord $Param{ValidID}='1'; $Param{Firstname}=$opts{'f'}; $Param{Lastname}=$opts{'l'}; $Param{Pw}=$opts{'p'}; $Param{Login}=$ARGV[0]; if ( $Param{UID}=$CommonObject{UserObject}->UserAdd(%Param) ){ print "User added. user id is $Param{UID}\n"; } if ($opts{'g'}) { # bring in the groups module require Kernel::System::Group; import Kernel::System::Group; $CommonObject{GroupObject} = Kernel::System::Group->new(%CommonObject); $Param{Group}=$opts{'g'}; if ($Param{GID}=$CommonObject{GroupObject}->GetGroupIdByName(%Param)){ print "Found Group.. GID is $Param{GID}" , "\n"; } else { print "Failed to get Group ID. Perhaps non-existent group..\n"; } if ($CommonObject{GroupObject}->MemberAdd(%Param)) { print "User added to group\n"; } else { print "Failed to add user to group\n"; } } # -- exit (0); #!/usr/bin/perl -w # -- # otrs.addUser - Add User from CLI use lib '/opt/OpenTRS/'; use strict; use Kernel::Config; use Kernel::System::Syslog; use Kernel::System::DB; use Kernel::System::User; use Kernel::System::Group; # -- # create common objects # -- my %CommonObject = (); $CommonObject{LogObject} = Kernel::System::Syslog->new(); $CommonObject{ConfigObject} = Kernel::Config->new(%CommonObject); $CommonObject{DBObject} = Kernel::System::DB->new(%CommonObject); $CommonObject{UserObject} = Kernel::System::User->new(%CommonObject); $CommonObject{GroupObject} = Kernel::System::Group->new(%CommonObject); my %Param; undef %Param; #user id of the person adding the record? #root@loclhost? right? $Param{UserID}='1'; #Validrecord $Param{ValidID}='1'; $Param{User}=$ARGV[0]; unless ($Param{UID}=$CommonObject{UserObject}->GetUserIdByName(%Param)){ print "Failed to get User ID. Perhaps non-existent user..\n"; exit; } $Param{Group}=$ARGV[1]; unless ($Param{GID}=$CommonObject{GroupObject}->GetGroupIdByName(%Param)){ print "Failed to get Group ID. Perhaps non-existent group..\n"; exit; } print "GID $Param{GID} \n"; print "UID $Param{UID} \n"; $CommonObject{GroupObject}->MemberAdd(%Param); # -- exit (0); #!/usr/bin/perl -w # -- # otrs.getGroupID - return numeric group id use lib '/opt/OpenTRS/'; use strict; use Kernel::Config; use Kernel::System::Syslog; use Kernel::System::DB; use Kernel::System::Group; # -- # create common objects # -- my %CommonObject = (); $CommonObject{LogObject} = Kernel::System::Syslog->new(); $CommonObject{ConfigObject} = Kernel::Config->new(%CommonObject); $CommonObject{DBObject} = Kernel::System::DB->new(%CommonObject); $CommonObject{GroupObject} = Kernel::System::Group->new(%CommonObject); my %Param; undef %Param; #user id of the person making the query $Param{UserID}='1'; $Param{Group}=$ARGV[0]; if (my $gid=$CommonObject{GroupObject}->GetGroupIdByName(%Param)){ print $gid , "\n"; } else { print "Failed to get Group ID. Perhaps non-existent group..\n"; } # -- exit (0); #!/usr/bin/perl -w # -- # otrs.getUserId - Returns numeric user id use lib '/opt/OpenTRS/'; use strict; use Kernel::Config; use Kernel::System::Syslog; use Kernel::System::DB; use Kernel::System::User; # -- # create common objects # -- my %CommonObject = (); $CommonObject{LogObject} = Kernel::System::Syslog->new(); $CommonObject{ConfigObject} = Kernel::Config->new(%CommonObject); $CommonObject{DBObject} = Kernel::System::DB->new(%CommonObject); $CommonObject{UserObject} = Kernel::System::User->new(%CommonObject); my %Param; undef %Param; #user id of the person making the query $Param{UserID}='1'; $Param{User}=$ARGV[0]; if (my $uid=$CommonObject{UserObject}->GetUserIdByName(%Param)){ print $uid , "\n"; } else { print "Failed to get User ID. Perhaps non-existent user..\n"; } # -- exit (0); #!/usr/bin/perl -w # -- # otrs.setPassword - Changes or Sets password for a user BEGIN{ use FindBin; unshift @INC, ($FindBin::Bin , "$FindBin::Bin/../"); unless ($ARGV[1]){ print "$FindBin::Script username password"; print "\n"; exit; } } use lib '/opt/OpenTRS/'; use strict; use Kernel::Config; use Kernel::System::Syslog; use Kernel::System::DB; use Kernel::System::User; # -- # create common objects # -- my %CommonObject = (); $CommonObject{LogObject} = Kernel::System::Syslog->new(); $CommonObject{ConfigObject} = Kernel::Config->new(%CommonObject); $CommonObject{DBObject} = Kernel::System::DB->new(%CommonObject); $CommonObject{UserObject} = Kernel::System::User->new(%CommonObject); my %Param; undef %Param; # user id of the person Changing the record $Param{UserID}='1'; $Param{UserLogin}=$ARGV[0]; $Param{PW}=$ARGV[1]; $CommonObject{UserObject}->SetPassword(%Param); # -- exit (0);

1 0

otrs.addUser
by Atif Ghaffar 05 Jun '02

05 Jun '02

hi, Here is my first attempt. Please correct, criticize , comment , etc. I am still not very sure if I did that right. best regards -- Atif Ghaffar ---------------------------. +41 78 845 31 64 ¦ tel aghaffar(a)developer.ch ¦ email http://atifghaffar.com ¦ www 8206786 ¦ icq #!/usr/bin/perl -w # -- # otrs.addUser - Add User from CLI BEGIN{ use FindBin; unshift @INC, ($FindBin::Bin , "$FindBin::Bin/../"); use vars qw (%opts); use Getopt::Std; getopt('flp', \%opts); unless ($ARGV[0]){ print "$FindBin::Script [-f firstname] [-l lastname] [-p password] username"; print "\n"; exit; } } use lib '/opt/OpenTRS/'; use strict; use Kernel::Config; use Kernel::System::Syslog; use Kernel::System::DB; use Kernel::System::User; # -- # create common objects # -- my %CommonObject = (); $CommonObject{LogObject} = Kernel::System::Syslog->new(); $CommonObject{ConfigObject} = Kernel::Config->new(%CommonObject); $CommonObject{DBObject} = Kernel::System::DB->new(%CommonObject); $CommonObject{UserObject} = Kernel::System::User->new(%CommonObject); my %Param; undef %Param; #user id of the person adding the record? #root@loclhost? right? $Param{UserID}='1'; #Validrecord $Param{ValidID}='1'; $Param{Firstname}=$opts{'f'}; $Param{Lastname}=$opts{'l'}; $Param{Pw}=$opts{'p'}; $Param{Login}=$ARGV[0]; $CommonObject{UserObject}->UserAdd(%Param); # -- exit (0);

2 2

UserID and ValidID
by Atif Ghaffar 04 Jun '02

04 Jun '02

Hi Guys, Can someone explain me what the ValidID and UserID is? I am assuming UserID is the numeric ID of the user, and ValidID? Is this the ID of the user creating the record? thanks for clearification. best regards -- Atif Ghaffar ---------------------------. +41 78 845 31 64 ¦ tel aghaffar(a)developer.ch ¦ email http://atifghaffar.com ¦ www 8206786 ¦ icq

2 3

Another patch from CVS
by Atif Ghaffar 04 Jun '02

04 Jun '02

Hmm, I dont know if this was a mistake or it was intentional. In some places "QueueID" was written as "OueueID" O instead of Q best regards. -- Atif Ghaffar ---------------------------. +41 78 845 31 64 ¦ tel aghaffar(a)developer.ch ¦ email http://atifghaffar.com ¦ www 8206786 ¦ icq Index: System/Queue.pm =================================================================== RCS file: /home/cvs/otrs/Kernel/System/Queue.pm,v retrieving revision 1.4 diff -u -3 -p -u -r1.4 Queue.pm --- System/Queue.pm 2002/05/26 10:12:31 1.4 +++ System/Queue.pm 2002/06/04 04:56:25 @@ -25,7 +25,7 @@ sub new { my $Self = {}; # allocate new hash for object bless ($Self, $Type); - $Self->{OueueID} = $Param{QueueID} || ''; #die "Got no QueueID!"; + $Self->{QueueID} = $Param{QueueID} || ''; #die "Got no QueueID!"; $Self->{DBObject} = $Param{DBObject} || die "Got no DBObject!"; return $Self; } @@ -36,7 +36,7 @@ sub GetSystemAddress { my %Adresss; my $SQL = "SELECT sa.value0, sa.value1 FROM system_address as sa, queue as sq " . " WHERE " . - " sq.id = $Self->{OueueID} " . + " sq.id = $Self->{QueueID} " . " and " . " sa.id = sq.system_address_id"; $Self->{DBObject}->Prepare(SQL => $SQL); @@ -53,7 +53,7 @@ sub GetSalutation { my $String = ''; my $SQL = "SELECT text FROM salutation as sa, queue as sq " . " WHERE " . - " sq.id = $Self->{OueueID} " . + " sq.id = $Self->{QueueID} " . " and " . " sq.salutation_id = sa.id"; $Self->{DBObject}->Prepare(SQL => $SQL); @@ -69,7 +69,7 @@ sub GetSignature { my $String = ''; my $SQL = "SELECT text FROM signature as si, queue as sq " . " WHERE " . - " sq.id = $Self->{OueueID} " . + " sq.id = $Self->{QueueID} " . " and " . " sq.signature_id = si.id"; $Self->{DBObject}->Prepare(SQL => $SQL); Index: System/PostMaster/AutoResponse.pm =================================================================== RCS file: /home/cvs/otrs/Kernel/System/PostMaster/AutoResponse.pm,v retrieving revision 1.2 diff -u -3 -p -u -r1.2 AutoResponse.pm --- System/PostMaster/AutoResponse.pm 2001/12/30 00:42:58 1.2 +++ System/PostMaster/AutoResponse.pm 2002/06/04 04:56:25 @@ -33,7 +33,7 @@ sub new { sub GetResponseData { my $Self = shift; my %Param = @_; - my $QueueID = $Param{OueueID}; + my $QueueID = $Param{QueueID}; my $Type = $Param{Type}; my %Data; Index: System/PostMaster/FollowUp.pm =================================================================== RCS file: /home/cvs/otrs/Kernel/System/PostMaster/FollowUp.pm,v retrieving revision 1.10 diff -u -3 -p -u -r1.10 FollowUp.pm --- System/PostMaster/FollowUp.pm 2002/05/26 10:14:17 1.10 +++ System/PostMaster/FollowUp.pm 2002/06/04 04:56:26 @@ -164,7 +164,7 @@ sub Run { DBObject => $DBObject, ); my %Data = $AutoResponse->GetResponseData( - OueueID => $QueueID, + QueueID => $QueueID, Type => $AutoResponseType, ); if ($Data{Text} && $Data{Realname} && $Data{Address} && !$GetParam{'X-OTRS-Loop'}) { Index: System/PostMaster/NewTicket.pm =================================================================== RCS file: /home/cvs/otrs/Kernel/System/PostMaster/NewTicket.pm,v retrieving revision 1.9 diff -u -3 -p -u -r1.9 NewTicket.pm --- System/PostMaster/NewTicket.pm 2002/05/26 22:52:47 1.9 +++ System/PostMaster/NewTicket.pm 2002/06/04 04:56:26 @@ -175,7 +175,7 @@ sub Run { DBObject => $DBObject, ); my %Data = $AutoResponse->GetResponseData( - OueueID => $QueueID, + QueueID => $QueueID, Type => $AutoResponseType, ); if ($Data{Text} && $Data{Realname} && $Data{Address} && !$GetParam{'X-OTRS-Loop'}) {

3 2

multi domain setup
by Atif Ghaffar 04 Jun '02

04 Jun '02

hi. before I reading the code, I thought I might ask. Does OTRS support multi domains? I want to setup OTRS on a domain as offer it as a service to all ISP clients. Anyone can have support(a)domain.tld to be forwarded to OTRS. I have not yet fully thought on how auth etc will be handled. Just would like to inquire if this is already thought of. If not, I'll start thinking/coding. Best regards. -- Atif Ghaffar ---------------------------. +41 78 845 31 64 ¦ tel aghaffar(a)developer.ch ¦ email http://atifghaffar.com ¦ www 8206786 ¦ icq

2 9

OpenTRS PostgreSQL support!
by Martin Edenhofer 04 Jun '02

04 Jun '02

Hi, today I tested OpenTRS with PostgreSQL. And after a few changes (mostly in OpenTRS-schema.postgresql.sql and initial_insert.sql) it works fine. If you want to use it, install 0.5 Beta5 and update Kernel/Modules/AgentQueueView.pm Kernel/Modules/AgentZoom.pm install/database/OpenTRS-schema.postgresql.sql install/database/initial_insert.sql from the current CVS tree. Bye, Martin -- Martin Edenhofer - http://martin.edenhofer.de/ -- "Security is a process, not a product." - Bruce Schneider with kind regards Martin -- Martin Edenhofer - <martin(a)edenhofer.de> - http://martin.edenhofer.de/ -- Old programmers never die. They just branch to a new address.

3 4

FP !!!!!!! First Patch! :)
by Atif Ghaffar 04 Jun '02

04 Jun '02

Or Shall I say Frist Patch?? best regards -- Atif Ghaffar ---------------------------. +41 78 845 31 64 ¦ tel aghaffar(a)developer.ch ¦ email http://atifghaffar.com ¦ www 8206786 ¦ icq Index: Config.pm =================================================================== RCS file: /home/cvs/otrs/Kernel/Config.pm,v retrieving revision 1.34 diff -u -3 -p -r1.34 Config.pm --- Config.pm 2002/05/30 15:34:17 1.34 +++ Config.pm 2002/06/03 23:50:44 @@ -148,7 +148,7 @@ sub Load { 'ID', 'Salutation', 'Login', - 'Fristname', + 'Firstname', 'Lastname', 'ValidID', 'Pw', Index: Output/HTML/Lite/AdminUserForm.dtl =================================================================== RCS file: /home/cvs/otrs/Kernel/Output/HTML/Lite/AdminUserForm.dtl,v retrieving revision 1.5 diff -u -3 -p -r1.5 AdminUserForm.dtl --- Output/HTML/Lite/AdminUserForm.dtl 2002/05/26 18:16:43 1.5 +++ Output/HTML/Lite/AdminUserForm.dtl 2002/06/03 23:50:45 @@ -64,7 +64,7 @@ </tr> <tr> <td>$Text{"Firstname"}: </td> - <td> <input type="text" name="Fristname" value="$Data{"UserFirstname"}" size="35" maxlength="50"></td> + <td> <input type="text" name="Firstname" value="$Data{"UserFirstname"}" size="35" maxlength="50"></td> </tr> <tr> <td>$Text{"Lastname"}: </td> Index: Output/HTML/Standard/AdminUserForm.dtl =================================================================== RCS file: /home/cvs/otrs/Kernel/Output/HTML/Standard/AdminUserForm.dtl,v retrieving revision 1.8 diff -u -3 -p -r1.8 AdminUserForm.dtl --- Output/HTML/Standard/AdminUserForm.dtl 2002/05/26 18:15:54 1.8 +++ Output/HTML/Standard/AdminUserForm.dtl 2002/06/03 23:50:45 @@ -64,7 +64,7 @@ </tr> <tr> <td>$Text{"Firstname"}: </td> - <td> <input type="text" name="Fristname" value="$Data{"UserFirstname"}" size="35" maxlength="50"></td> + <td> <input type="text" name="Firstname" value="$Data{"UserFirstname"}" size="35" maxlength="50"></td> </tr> <tr> <td>$Text{"Lastname"}: </td> Index: System/User.pm =================================================================== RCS file: /home/cvs/otrs/Kernel/System/User.pm,v retrieving revision 1.5 diff -u -3 -p -r1.5 User.pm --- System/User.pm 2002/05/12 22:05:10 1.5 +++ System/User.pm 2002/06/03 23:50:45 @@ -252,7 +252,7 @@ sub UserAdd { " valid_id, create_time, create_by, change_time, change_by)" . " VALUES " . " ('$Param{Salutation}', " . - " '$Param{Fristname}', " . + " '$Param{Firstname}', " . " '$Param{Lastname}', " . " '$Param{Login}', " . " '$Param{Pw}', " . @@ -315,7 +315,7 @@ sub UserUpdate { # -- my $SQL = "UPDATE $Self->{UserTable} SET " . " salutation = '$Param{Salutation}', " . - " first_name = '$Param{Fristname}'," . + " first_name = '$Param{Firstname}'," . " last_name = '$Param{Lastname}', " . " $Self->{UserTableUser} = '$Param{Login}', " . " valid_id = $Param{ValidID}, " .

2 1

[BUG] on table user_preference
by Bruno Arliguy 01 Jun '02

01 Jun '02

in the file "OpenTRS-schema.mysql.sql", the table "user_preferences" is describe like this : CREATE TABLE user_preferences ( user_id INTEGER NOT NULL, preferences_key VARCHAR (100) NOT NULL, preferences_value VARCHAR (250), PRIMARY KEY(user_id) ); it's better to describe like this : CREATE TABLE user_preferences ( user_id INTEGER NOT NULL, preferences_key VARCHAR (100) NOT NULL, preferences_value VARCHAR (250), PRIMARY KEY(user_id,preferences_key) ); else we can't save user preference because there is an "ERROR 1062: Duplicate entry '2' for key 1" in this table

2 1