What are you passing for the CAB Manager? I recall at some point, you either need to pass the login ID or the full name. When you test through the web interface, you're going directly to the Chg:Infrastructure Change form. When you're using the integration, it's most likely passing data to the CHG:ChangeInterface_Create form. You should navigate to that form and try to input your values directly there. You will most likely run into the same error.
Sent from my iPhone > On Sep 27, 2014, at 6:09 PM, Tim Lank <[email protected]> wrote: > > ** > 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); > _ARSlist: "Where the Answers Are" and have been for 20 years_ _______________________________________________________________________________ UNSUBSCRIBE or access ARSlist Archives at www.arslist.org "Where the Answers Are, and have been for 20 years"
