1. OS (operating system) version (RHEL 5.8 32-bit)
2. Perl version (output from perl -v) (This is perl, v5.8.8 built for
i386-linux-thread-multi)
3. ARSystem version you are connecting to (7.6.04)
4. API version you compiled against (764sp1)
5. ARSperl version (1.93)
when running the script below, I get the following error output string. The
Change Manager - Ben Johnson and all of the values below work fine to create a
CRQ through the Web User Interface.
[ERROR] (The selected change manager is invalid. Reselect the change manager
using the menu provided, then reapply. If no change manager is available using
the menu, notify your administrator.) (ARERR #1441146) at ./testcreate.pl line
95.
thank you in advance for any assistance.
#!/usr/bin/perl
use ARS;
use Term::ReadPassword;
use Term::ReadLine;
use DBI;
$server = "remedy.example.com";
$port = "10005";
$term = new Term::ReadLine 'ProgramName';
$term->ornaments(0);
$login = $term->readline('username: ');
$passwd = read_password('password: ');
# login to the ARServer
($ctrl = ars_Login($server, $login, $passwd, "", "", $port)) || die "Can't
login to the server: $ars_errstr\n";
$schema = "CHG:ChangeInterface_Create";
$id1 = "1000000341"; # Support Group Name2
$id2 = "1000000000"; # Description
$id3 = "1000000568"; # Change Timing
$id4 = "1000000163"; # Impact
$id5 = "1000000162"; # Urgency
$id6 = "1000000180"; # Risk Level
# $id7 = "1000003264"; # Approval Status
$id8 = "1000000015"; # Support Group Name
$id9 = "1000000182"; # Infrastructure Change ID
$id10 = "1000000082"; # Company
$id11 = "1000000019"; # First Name
$id12 = "1000000018"; # Last Name
$id13 = "1000000001"; # Location Company
$id14 = "1000000063"; # Categorization Tier 1
$id15 = "1000000064"; # Categorization Tier 2
$id16 = "1000000065"; # Categorization Tier 3
$id17 = "1000001270"; # Product Cat Tier 1
$id18 = "1000001271"; # Product Cat Tier 2
$id19 = "1000001272"; # Product Cat Tier 3
$id20 = "1000002268"; # Product Name (2)
$id21 = "1000003229"; # ASGRP
$id22 = "1000003230"; # ASCHG
$id23 = "1000000403"; # CAB Manager ( Change Co-ord )
$id24 = "1000003234"; # ASGRPID
$id25 = "1000000079"; # Support Group ID
$id26 = "1000000427"; # Support Group ID 2
$id27 = "1000000010"; # Organization
$id28 = "1000000014"; # Support Organization
$id29 = "1000000251"; # Company3
$id30 = "301581400"; # TemplateID
$id31 = "1000003227"; # ASORG
$id32 = "1000003228"; # ASCPY
$id33 = "1000000076"; # z1D_Action
$id34 = "1000000181"; # Change Type
$val1 = "SE Services";
$val2 = "this is a test script-created CRQ";
$val3 = "6000";
$val4 = "4000";
$val5 = "4000";
$val6 = "0";
# $val7 = "0";
$val8 = "SE SVCS";
$val9 = "CRQ011111111111";
$val10 = "SVC Desk";
$val11 = "William";
$val12 = "Smith";
$val13 = "SVC Desk";
$val14 = "Non-Production";
$val15 = "Build";
$val16 = "Server: RH";
$val17 = "EIP";
$val18 = "ITFACPRG";
$val19 = "SRV";
$val20 = "SRV HW";
$val21 = "SE SVCS";
$val22 = "John Smith";
$val23 = "Ben Johnson";
$val24 = "SGP000000000205";
$val25 = "SGP000000000205";
$val26 = "SGP000000000205";
$val27 = "CIO";
$val28 = "ENG";
$val29 = "SVC Desk";
$val30 = "ID001a4a709742_7bXUwcOfKlQgnte";
$val31 = "ENG";
$val32 = "SVC Desk";
$val33 = "CREATE";
$val34 = "2000";
($entry_id = ars_CreateEntry($ctrl, $schema, $id1, $val1, $id2, $val2, $id3,
$val3, $id4, $val4, $id5, $val5, $id6, $val6, $id8, $val8, $id9, $val9, $id10,
$val10, $id11, $val11, $id12, $val12, $id13, $val13, $id14, $val14, $id15,
$val15, $id16, $val16, $id17, $val17, $id18, $val18, $id19, $val19, $id20,
$val20, $id21, $val21, $id22, $val22, $id23, $val23, $id27, $val27, $id28,
$val28, $id29, $val29, $id30, $val30, $id31, $val31, $id32, $val32, $id33,
$val33, $id34, $val34)) || die $ars_errstr;
print "Entry ID: $entry_id\n";
ars_Logoff($ctrl);
_______________________________________________________________________________
UNSUBSCRIBE or access ARSlist Archives at www.arslist.org
"Where the Answers Are, and have been for 20 years"
