home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Database Designers / Rational Rose 2000 / Rational Setup.EXE / common / lib / CQPerlExt.pm < prev    next >
Encoding:
Perl POD Document  |  2000-03-14  |  116.5 KB  |  4,639 lines
  1. # This file was automatically generated by SWIG
  2. package CQPerlExt;
  3. require Exporter;
  4. require DynaLoader;
  5. @ISA = qw(Exporter DynaLoader);
  6. package CQPerlExtc;
  7. bootstrap CQPerlExt;
  8. var_CQPerlExt_init();
  9. @EXPORT = qw( );
  10.  
  11. # ---------- BASE METHODS -------------
  12.  
  13. package CQPerlExt;
  14.  
  15. sub TIEHASH {
  16.     my ($classname,$obj) = @_;
  17.     return bless $obj, $classname;
  18. }
  19.  
  20. sub CLEAR { }
  21.  
  22. sub this {
  23.     my $ptr = shift;
  24.     return tied(%$ptr);
  25. }
  26.  
  27.  
  28. # ------- FUNCTION WRAPPERS --------
  29.  
  30. package CQPerlExt;
  31.  
  32. *CQAdminSession_Build = *CQPerlExtc::CQAdminSession_Build;
  33. *CQAdminSession_Unbuild = *CQPerlExtc::CQAdminSession_Unbuild;
  34. *CQClearQuest_Build = *CQPerlExtc::CQClearQuest_Build;
  35. *CQClearQuest_Unbuild = *CQPerlExtc::CQClearQuest_Unbuild;
  36. *CQEmailRules_Build = *CQPerlExtc::CQEmailRules_Build;
  37. *CQEmailRules_Unbuild = *CQPerlExtc::CQEmailRules_Unbuild;
  38. *CQSession_Build = *CQPerlExtc::CQSession_Build;
  39. *CQSession_Unbuild = *CQPerlExtc::CQSession_Unbuild;
  40.  
  41. ############# Class : CQObject ##############
  42.  
  43. package CQObject;
  44. @ISA = qw( CQPerlExt );
  45. %OWNER = ();
  46. sub DISOWN {
  47.     my $self = shift;
  48.     my $ptr = tied(%$self);
  49.     delete $OWNER{$ptr};
  50.     };
  51.  
  52. sub ACQUIRE {
  53.     my $self = shift;
  54.     my $ptr = tied(%$self);
  55.     $OWNER{$ptr} = 1;
  56.     };
  57.  
  58.  
  59. ############# Class : CQAdminSession ##############
  60.  
  61. package CQAdminSession;
  62. @ISA = qw( CQPerlExt CQObject );
  63. %OWNER = ();
  64. *Build = *CQPerlExt::CQAdminSession_Build;
  65. *Unbuild = *CQPerlExt::CQAdminSession_Unbuild;
  66. sub Logon {
  67.     my @args = @_;
  68.     $args[0] = tied(%{$args[0]});
  69.     my $result = CQPerlExtc::CQAdminSession_Logon(@args);
  70.     return $result;
  71. }
  72. sub GetUsers {
  73.     my @args = @_;
  74.     $args[0] = tied(%{$args[0]});
  75.     my $result = CQPerlExtc::CQAdminSession_GetUsers(@args);
  76.     return $result;
  77. }
  78. sub GetGroups {
  79.     my @args = @_;
  80.     $args[0] = tied(%{$args[0]});
  81.     my $result = CQPerlExtc::CQAdminSession_GetGroups(@args);
  82.     return $result;
  83. }
  84. sub GetDatabases {
  85.     my @args = @_;
  86.     $args[0] = tied(%{$args[0]});
  87.     my $result = CQPerlExtc::CQAdminSession_GetDatabases(@args);
  88.     return $result;
  89. }
  90. sub GetSchemas {
  91.     my @args = @_;
  92.     $args[0] = tied(%{$args[0]});
  93.     my $result = CQPerlExtc::CQAdminSession_GetSchemas(@args);
  94.     return $result;
  95. }
  96. sub GetUser {
  97.     my @args = @_;
  98.     $args[0] = tied(%{$args[0]});
  99.     my $result = CQPerlExtc::CQAdminSession_GetUser(@args);
  100.     return $result;
  101. }
  102. sub GetGroup {
  103.     my @args = @_;
  104.     $args[0] = tied(%{$args[0]});
  105.     my $result = CQPerlExtc::CQAdminSession_GetGroup(@args);
  106.     return $result;
  107. }
  108. sub GetDatabase {
  109.     my @args = @_;
  110.     $args[0] = tied(%{$args[0]});
  111.     my $result = CQPerlExtc::CQAdminSession_GetDatabase(@args);
  112.     return $result;
  113. }
  114. sub CreateUser {
  115.     my @args = @_;
  116.     $args[0] = tied(%{$args[0]});
  117.     my $result = CQPerlExtc::CQAdminSession_CreateUser(@args);
  118.     return $result;
  119. }
  120. sub CreateGroup {
  121.     my @args = @_;
  122.     $args[0] = tied(%{$args[0]});
  123.     my $result = CQPerlExtc::CQAdminSession_CreateGroup(@args);
  124.     return $result;
  125. }
  126. sub CreateDatabase {
  127.     my @args = @_;
  128.     $args[0] = tied(%{$args[0]});
  129.     my $result = CQPerlExtc::CQAdminSession_CreateDatabase(@args);
  130.     return $result;
  131. }
  132. sub DeleteDatabase {
  133.     my @args = @_;
  134.     $args[0] = tied(%{$args[0]});
  135.     my $result = CQPerlExtc::CQAdminSession_DeleteDatabase(@args);
  136.     return $result;
  137. }
  138. sub InstallAddDbSet {
  139.     my @args = @_;
  140.     $args[0] = tied(%{$args[0]});
  141.     my $result = CQPerlExtc::CQAdminSession_InstallAddDbSet(@args);
  142.     return $result;
  143. }
  144. sub InstallDropDbSet {
  145.     my @args = @_;
  146.     $args[0] = tied(%{$args[0]});
  147.     my $result = CQPerlExtc::CQAdminSession_InstallDropDbSet(@args);
  148.     return $result;
  149. }
  150. sub GetLastSchemaRepoInfo {
  151.     my @args = @_;
  152.     $args[0] = tied(%{$args[0]});
  153.     my $result = CQPerlExtc::CQAdminSession_GetLastSchemaRepoInfo(@args);
  154.     return $result;
  155. }
  156. sub AddSchemaRepoLocationFile {
  157.     my @args = @_;
  158.     $args[0] = tied(%{$args[0]});
  159.     my $result = CQPerlExtc::CQAdminSession_AddSchemaRepoLocationFile(@args);
  160.     return $result;
  161. }
  162. sub DropSchemaRepoLocationFile {
  163.     my @args = @_;
  164.     $args[0] = tied(%{$args[0]});
  165.     my $result = CQPerlExtc::CQAdminSession_DropSchemaRepoLocationFile(@args);
  166.     return $result;
  167. }
  168. sub LookupSchemaRepoLocationFiles {
  169.     my @args = @_;
  170.     $args[0] = tied(%{$args[0]});
  171.     my $result = CQPerlExtc::CQAdminSession_LookupSchemaRepoLocationFiles(@args);
  172.     return $result;
  173. }
  174. sub RegisterSchemaRepoFromFile {
  175.     my @args = @_;
  176.     $args[0] = tied(%{$args[0]});
  177.     my $result = CQPerlExtc::CQAdminSession_RegisterSchemaRepoFromFile(@args);
  178.     return $result;
  179. }
  180. sub DISOWN {
  181.     my $self = shift;
  182.     my $ptr = tied(%$self);
  183.     delete $OWNER{$ptr};
  184.     };
  185.  
  186. sub ACQUIRE {
  187.     my $self = shift;
  188.     my $ptr = tied(%$self);
  189.     $OWNER{$ptr} = 1;
  190.     };
  191.  
  192.  
  193. ############# Class : CQAttachment ##############
  194.  
  195. package CQAttachment;
  196. @ISA = qw( CQPerlExt CQObject );
  197. %OWNER = ();
  198. %ITERATORS = ();
  199. sub GetFileName {
  200.     my @args = @_;
  201.     $args[0] = tied(%{$args[0]});
  202.     my $result = CQPerlExtc::CQAttachment_GetFileName(@args);
  203.     return $result;
  204. }
  205. sub GetFileSize {
  206.     my @args = @_;
  207.     $args[0] = tied(%{$args[0]});
  208.     my $result = CQPerlExtc::CQAttachment_GetFileSize(@args);
  209.     return $result;
  210. }
  211. sub GetDescription {
  212.     my @args = @_;
  213.     $args[0] = tied(%{$args[0]});
  214.     my $result = CQPerlExtc::CQAttachment_GetDescription(@args);
  215.     return $result;
  216. }
  217. sub SetDescription {
  218.     my @args = @_;
  219.     $args[0] = tied(%{$args[0]});
  220.     my $result = CQPerlExtc::CQAttachment_SetDescription(@args);
  221.     return $result;
  222. }
  223. sub GetDisplayName {
  224.     my @args = @_;
  225.     $args[0] = tied(%{$args[0]});
  226.     my $result = CQPerlExtc::CQAttachment_GetDisplayName(@args);
  227.     return $result;
  228. }
  229. sub Load {
  230.     my @args = @_;
  231.     $args[0] = tied(%{$args[0]});
  232.     my $result = CQPerlExtc::CQAttachment_Load(@args);
  233.     return $result;
  234. }
  235. sub DESTROY {
  236.     my $self = tied(%{$_[0]});
  237.     delete $ITERATORS{$self};
  238.     if (exists $OWNER{$self}) {
  239.         CQPerlExtc::delete_CQAttachment($self);
  240.         delete $OWNER{$self};
  241.     }
  242. }
  243.  
  244. sub CQInt_Id {
  245.     my @args = @_;
  246.     $args[0] = tied(%{$args[0]});
  247.     my $result = CQPerlExtc::CQAttachment_CQInt_Id(@args);
  248.     return $result;
  249. }
  250. sub DISOWN {
  251.     my $self = shift;
  252.     my $ptr = tied(%$self);
  253.     delete $OWNER{$ptr};
  254.     };
  255.  
  256. sub ACQUIRE {
  257.     my $self = shift;
  258.     my $ptr = tied(%$self);
  259.     $OWNER{$ptr} = 1;
  260.     };
  261.  
  262.  
  263. ############# Class : CQAttachments ##############
  264.  
  265. package CQAttachments;
  266. @ISA = qw( CQPerlExt CQObject );
  267. %OWNER = ();
  268. %ITERATORS = ();
  269. sub Count {
  270.     my @args = @_;
  271.     $args[0] = tied(%{$args[0]});
  272.     my $result = CQPerlExtc::CQAttachments_Count(@args);
  273.     return $result;
  274. }
  275. sub Item {
  276.     my @args = @_;
  277.     $args[0] = tied(%{$args[0]});
  278.     my $result = CQPerlExtc::CQAttachments_Item(@args);
  279.     return $result;
  280. }
  281. sub ItemByName {
  282.     my @args = @_;
  283.     $args[0] = tied(%{$args[0]});
  284.     my $result = CQPerlExtc::CQAttachments_ItemByName(@args);
  285.     return $result;
  286. }
  287. sub Add {
  288.     my @args = @_;
  289.     $args[0] = tied(%{$args[0]});
  290.     my $result = CQPerlExtc::CQAttachments_Add(@args);
  291.     return $result;
  292. }
  293. sub AddAttachment {
  294.     my @args = @_;
  295.     $args[0] = tied(%{$args[0]});
  296.     my $result = CQPerlExtc::CQAttachments_AddAttachment(@args);
  297.     return $result;
  298. }
  299. sub Delete {
  300.     my @args = @_;
  301.     $args[0] = tied(%{$args[0]});
  302.     my $result = CQPerlExtc::CQAttachments_Delete(@args);
  303.     return $result;
  304. }
  305. sub DESTROY {
  306.     my $self = tied(%{$_[0]});
  307.     delete $ITERATORS{$self};
  308.     if (exists $OWNER{$self}) {
  309.         CQPerlExtc::delete_CQAttachments($self);
  310.         delete $OWNER{$self};
  311.     }
  312. }
  313.  
  314. sub CQInt_Id {
  315.     my @args = @_;
  316.     $args[0] = tied(%{$args[0]});
  317.     my $result = CQPerlExtc::CQAttachments_CQInt_Id(@args);
  318.     return $result;
  319. }
  320. sub DISOWN {
  321.     my $self = shift;
  322.     my $ptr = tied(%$self);
  323.     delete $OWNER{$ptr};
  324.     };
  325.  
  326. sub ACQUIRE {
  327.     my $self = shift;
  328.     my $ptr = tied(%$self);
  329.     $OWNER{$ptr} = 1;
  330.     };
  331.  
  332.  
  333. ############# Class : CQAttachmentField ##############
  334.  
  335. package CQAttachmentField;
  336. @ISA = qw( CQPerlExt CQObject );
  337. %OWNER = ();
  338. %ITERATORS = ();
  339. sub GetDisplayNameHeader {
  340.     my @args = @_;
  341.     $args[0] = tied(%{$args[0]});
  342.     my $result = CQPerlExtc::CQAttachmentField_GetDisplayNameHeader(@args);
  343.     return $result;
  344. }
  345. sub GetAttachments {
  346.     my @args = @_;
  347.     $args[0] = tied(%{$args[0]});
  348.     my $result = CQPerlExtc::CQAttachmentField_GetAttachments(@args);
  349.     return $result;
  350. }
  351. sub GetFieldName {
  352.     my @args = @_;
  353.     $args[0] = tied(%{$args[0]});
  354.     my $result = CQPerlExtc::CQAttachmentField_GetFieldName(@args);
  355.     return $result;
  356. }
  357. sub DESTROY {
  358.     my $self = tied(%{$_[0]});
  359.     delete $ITERATORS{$self};
  360.     if (exists $OWNER{$self}) {
  361.         CQPerlExtc::delete_CQAttachmentField($self);
  362.         delete $OWNER{$self};
  363.     }
  364. }
  365.  
  366. sub CQInt_Id {
  367.     my @args = @_;
  368.     $args[0] = tied(%{$args[0]});
  369.     my $result = CQPerlExtc::CQAttachmentField_CQInt_Id(@args);
  370.     return $result;
  371. }
  372. sub DISOWN {
  373.     my $self = shift;
  374.     my $ptr = tied(%$self);
  375.     delete $OWNER{$ptr};
  376.     };
  377.  
  378. sub ACQUIRE {
  379.     my $self = shift;
  380.     my $ptr = tied(%$self);
  381.     $OWNER{$ptr} = 1;
  382.     };
  383.  
  384.  
  385. ############# Class : CQAttachmentFields ##############
  386.  
  387. package CQAttachmentFields;
  388. @ISA = qw( CQPerlExt CQObject );
  389. %OWNER = ();
  390. %ITERATORS = ();
  391. sub Count {
  392.     my @args = @_;
  393.     $args[0] = tied(%{$args[0]});
  394.     my $result = CQPerlExtc::CQAttachmentFields_Count(@args);
  395.     return $result;
  396. }
  397. sub Item {
  398.     my @args = @_;
  399.     $args[0] = tied(%{$args[0]});
  400.     my $result = CQPerlExtc::CQAttachmentFields_Item(@args);
  401.     return $result;
  402. }
  403. sub ItemByName {
  404.     my @args = @_;
  405.     $args[0] = tied(%{$args[0]});
  406.     my $result = CQPerlExtc::CQAttachmentFields_ItemByName(@args);
  407.     return $result;
  408. }
  409. sub Add {
  410.     my @args = @_;
  411.     $args[0] = tied(%{$args[0]});
  412.     my $result = CQPerlExtc::CQAttachmentFields_Add(@args);
  413.     return $result;
  414. }
  415. sub DESTROY {
  416.     my $self = tied(%{$_[0]});
  417.     delete $ITERATORS{$self};
  418.     if (exists $OWNER{$self}) {
  419.         CQPerlExtc::delete_CQAttachmentFields($self);
  420.         delete $OWNER{$self};
  421.     }
  422. }
  423.  
  424. sub CQInt_Id {
  425.     my @args = @_;
  426.     $args[0] = tied(%{$args[0]});
  427.     my $result = CQPerlExtc::CQAttachmentFields_CQInt_Id(@args);
  428.     return $result;
  429. }
  430. sub DISOWN {
  431.     my $self = shift;
  432.     my $ptr = tied(%$self);
  433.     delete $OWNER{$ptr};
  434.     };
  435.  
  436. sub ACQUIRE {
  437.     my $self = shift;
  438.     my $ptr = tied(%$self);
  439.     $OWNER{$ptr} = 1;
  440.     };
  441.  
  442.  
  443. ############# Class : CQClearQuest ##############
  444.  
  445. package CQClearQuest;
  446. @ISA = qw( CQPerlExt CQObject );
  447. %OWNER = ();
  448. *Build = *CQPerlExt::CQClearQuest_Build;
  449. *Unbuild = *CQPerlExt::CQClearQuest_Unbuild;
  450. sub CreateUserSession {
  451.     my @args = @_;
  452.     $args[0] = tied(%{$args[0]});
  453.     my $result = CQPerlExtc::CQClearQuest_CreateUserSession(@args);
  454.     return $result;
  455. }
  456. sub CreateAdminSession {
  457.     my @args = @_;
  458.     $args[0] = tied(%{$args[0]});
  459.     my $result = CQPerlExtc::CQClearQuest_CreateAdminSession(@args);
  460.     return $result;
  461. }
  462. sub CreateProductInfo {
  463.     my @args = @_;
  464.     $args[0] = tied(%{$args[0]});
  465.     my $result = CQPerlExtc::CQClearQuest_CreateProductInfo(@args);
  466.     return $result;
  467. }
  468. sub CreateEmailRules {
  469.     my @args = @_;
  470.     $args[0] = tied(%{$args[0]});
  471.     my $result = CQPerlExtc::CQClearQuest_CreateEmailRules(@args);
  472.     return $result;
  473. }
  474. sub DISOWN {
  475.     my $self = shift;
  476.     my $ptr = tied(%$self);
  477.     delete $OWNER{$ptr};
  478.     };
  479.  
  480. sub ACQUIRE {
  481.     my $self = shift;
  482.     my $ptr = tied(%$self);
  483.     $OWNER{$ptr} = 1;
  484.     };
  485.  
  486.  
  487. ############# Class : CQDatabase ##############
  488.  
  489. package CQDatabase;
  490. @ISA = qw( CQPerlExt CQObject );
  491. %OWNER = ();
  492. %ITERATORS = ();
  493. sub GetVendor {
  494.     my @args = @_;
  495.     $args[0] = tied(%{$args[0]});
  496.     my $result = CQPerlExtc::CQDatabase_GetVendor(@args);
  497.     return $result;
  498. }
  499. sub SetVendor {
  500.     my @args = @_;
  501.     $args[0] = tied(%{$args[0]});
  502.     my $result = CQPerlExtc::CQDatabase_SetVendor(@args);
  503.     return $result;
  504. }
  505. sub GetName {
  506.     my @args = @_;
  507.     $args[0] = tied(%{$args[0]});
  508.     my $result = CQPerlExtc::CQDatabase_GetName(@args);
  509.     return $result;
  510. }
  511. sub SetName {
  512.     my @args = @_;
  513.     $args[0] = tied(%{$args[0]});
  514.     my $result = CQPerlExtc::CQDatabase_SetName(@args);
  515.     return $result;
  516. }
  517. sub GetDescription {
  518.     my @args = @_;
  519.     $args[0] = tied(%{$args[0]});
  520.     my $result = CQPerlExtc::CQDatabase_GetDescription(@args);
  521.     return $result;
  522. }
  523. sub SetDescription {
  524.     my @args = @_;
  525.     $args[0] = tied(%{$args[0]});
  526.     my $result = CQPerlExtc::CQDatabase_SetDescription(@args);
  527.     return $result;
  528. }
  529. sub GetDatabaseName {
  530.     my @args = @_;
  531.     $args[0] = tied(%{$args[0]});
  532.     my $result = CQPerlExtc::CQDatabase_GetDatabaseName(@args);
  533.     return $result;
  534. }
  535. sub SetDatabaseName {
  536.     my @args = @_;
  537.     $args[0] = tied(%{$args[0]});
  538.     my $result = CQPerlExtc::CQDatabase_SetDatabaseName(@args);
  539.     return $result;
  540. }
  541. sub GetServer {
  542.     my @args = @_;
  543.     $args[0] = tied(%{$args[0]});
  544.     my $result = CQPerlExtc::CQDatabase_GetServer(@args);
  545.     return $result;
  546. }
  547. sub SetServer {
  548.     my @args = @_;
  549.     $args[0] = tied(%{$args[0]});
  550.     my $result = CQPerlExtc::CQDatabase_SetServer(@args);
  551.     return $result;
  552. }
  553. sub GetROLogin {
  554.     my @args = @_;
  555.     $args[0] = tied(%{$args[0]});
  556.     my $result = CQPerlExtc::CQDatabase_GetROLogin(@args);
  557.     return $result;
  558. }
  559. sub SetROLogin {
  560.     my @args = @_;
  561.     $args[0] = tied(%{$args[0]});
  562.     my $result = CQPerlExtc::CQDatabase_SetROLogin(@args);
  563.     return $result;
  564. }
  565. sub GetROPassword {
  566.     my @args = @_;
  567.     $args[0] = tied(%{$args[0]});
  568.     my $result = CQPerlExtc::CQDatabase_GetROPassword(@args);
  569.     return $result;
  570. }
  571. sub SetROPassword {
  572.     my @args = @_;
  573.     $args[0] = tied(%{$args[0]});
  574.     my $result = CQPerlExtc::CQDatabase_SetROPassword(@args);
  575.     return $result;
  576. }
  577. sub GetRWLogin {
  578.     my @args = @_;
  579.     $args[0] = tied(%{$args[0]});
  580.     my $result = CQPerlExtc::CQDatabase_GetRWLogin(@args);
  581.     return $result;
  582. }
  583. sub SetRWLogin {
  584.     my @args = @_;
  585.     $args[0] = tied(%{$args[0]});
  586.     my $result = CQPerlExtc::CQDatabase_SetRWLogin(@args);
  587.     return $result;
  588. }
  589. sub GetRWPassword {
  590.     my @args = @_;
  591.     $args[0] = tied(%{$args[0]});
  592.     my $result = CQPerlExtc::CQDatabase_GetRWPassword(@args);
  593.     return $result;
  594. }
  595. sub SetRWPassword {
  596.     my @args = @_;
  597.     $args[0] = tied(%{$args[0]});
  598.     my $result = CQPerlExtc::CQDatabase_SetRWPassword(@args);
  599.     return $result;
  600. }
  601. sub GetDBOLogin {
  602.     my @args = @_;
  603.     $args[0] = tied(%{$args[0]});
  604.     my $result = CQPerlExtc::CQDatabase_GetDBOLogin(@args);
  605.     return $result;
  606. }
  607. sub SetDBOLogin {
  608.     my @args = @_;
  609.     $args[0] = tied(%{$args[0]});
  610.     my $result = CQPerlExtc::CQDatabase_SetDBOLogin(@args);
  611.     return $result;
  612. }
  613. sub GetDBOPassword {
  614.     my @args = @_;
  615.     $args[0] = tied(%{$args[0]});
  616.     my $result = CQPerlExtc::CQDatabase_GetDBOPassword(@args);
  617.     return $result;
  618. }
  619. sub SetDBOPassword {
  620.     my @args = @_;
  621.     $args[0] = tied(%{$args[0]});
  622.     my $result = CQPerlExtc::CQDatabase_SetDBOPassword(@args);
  623.     return $result;
  624. }
  625. sub GetCheckTimeoutInterval {
  626.     my @args = @_;
  627.     $args[0] = tied(%{$args[0]});
  628.     my $result = CQPerlExtc::CQDatabase_GetCheckTimeoutInterval(@args);
  629.     return $result;
  630. }
  631. sub SetCheckTimeoutInterval {
  632.     my @args = @_;
  633.     $args[0] = tied(%{$args[0]});
  634.     my $result = CQPerlExtc::CQDatabase_SetCheckTimeoutInterval(@args);
  635.     return $result;
  636. }
  637. sub GetTimeoutInterval {
  638.     my @args = @_;
  639.     $args[0] = tied(%{$args[0]});
  640.     my $result = CQPerlExtc::CQDatabase_GetTimeoutInterval(@args);
  641.     return $result;
  642. }
  643. sub SetTimeoutInterval {
  644.     my @args = @_;
  645.     $args[0] = tied(%{$args[0]});
  646.     my $result = CQPerlExtc::CQDatabase_SetTimeoutInterval(@args);
  647.     return $result;
  648. }
  649. sub GetSubscribedUsers {
  650.     my @args = @_;
  651.     $args[0] = tied(%{$args[0]});
  652.     my $result = CQPerlExtc::CQDatabase_GetSubscribedUsers(@args);
  653.     return $result;
  654. }
  655. sub GetSubscribedGroups {
  656.     my @args = @_;
  657.     $args[0] = tied(%{$args[0]});
  658.     my $result = CQPerlExtc::CQDatabase_GetSubscribedGroups(@args);
  659.     return $result;
  660. }
  661. sub GetSchemaRev {
  662.     my @args = @_;
  663.     $args[0] = tied(%{$args[0]});
  664.     my $result = CQPerlExtc::CQDatabase_GetSchemaRev(@args);
  665.     return $result;
  666. }
  667. sub GetConnectHosts {
  668.     my @args = @_;
  669.     $args[0] = tied(%{$args[0]});
  670.     my $result = CQPerlExtc::CQDatabase_GetConnectHosts(@args);
  671.     return $result;
  672. }
  673. sub SetConnectHosts {
  674.     my @args = @_;
  675.     $args[0] = tied(%{$args[0]});
  676.     my $result = CQPerlExtc::CQDatabase_SetConnectHosts(@args);
  677.     return $result;
  678. }
  679. sub GetConnectProtocols {
  680.     my @args = @_;
  681.     $args[0] = tied(%{$args[0]});
  682.     my $result = CQPerlExtc::CQDatabase_GetConnectProtocols(@args);
  683.     return $result;
  684. }
  685. sub SetConnectProtocols {
  686.     my @args = @_;
  687.     $args[0] = tied(%{$args[0]});
  688.     my $result = CQPerlExtc::CQDatabase_SetConnectProtocols(@args);
  689.     return $result;
  690. }
  691. sub SetInitialSchemaRev {
  692.     my @args = @_;
  693.     $args[0] = tied(%{$args[0]});
  694.     my $result = CQPerlExtc::CQDatabase_SetInitialSchemaRev(@args);
  695.     return $result;
  696. }
  697. sub Upgrade {
  698.     my @args = @_;
  699.     $args[0] = tied(%{$args[0]});
  700.     my $result = CQPerlExtc::CQDatabase_Upgrade(@args);
  701.     return $result;
  702. }
  703. sub ApplyPropertyChanges {
  704.     my @args = @_;
  705.     $args[0] = tied(%{$args[0]});
  706.     my $result = CQPerlExtc::CQDatabase_ApplyPropertyChanges(@args);
  707.     return $result;
  708. }
  709. sub ApplyPropertyChangesWithCopy {
  710.     my @args = @_;
  711.     $args[0] = tied(%{$args[0]});
  712.     my $result = CQPerlExtc::CQDatabase_ApplyPropertyChangesWithCopy(@args);
  713.     return $result;
  714. }
  715. sub UpgradeMasterUserInfo {
  716.     my @args = @_;
  717.     $args[0] = tied(%{$args[0]});
  718.     my $result = CQPerlExtc::CQDatabase_UpgradeMasterUserInfo(@args);
  719.     return $result;
  720. }
  721. sub ApplyTimeoutValuesToDb {
  722.     my @args = @_;
  723.     $args[0] = tied(%{$args[0]});
  724.     my $result = CQPerlExtc::CQDatabase_ApplyTimeoutValuesToDb(@args);
  725.     return $result;
  726. }
  727. sub IsMaster {
  728.     my @args = @_;
  729.     $args[0] = tied(%{$args[0]});
  730.     my $result = CQPerlExtc::CQDatabase_IsMaster(@args);
  731.     return $result;
  732. }
  733. sub DESTROY {
  734.     my $self = tied(%{$_[0]});
  735.     delete $ITERATORS{$self};
  736.     if (exists $OWNER{$self}) {
  737.         CQPerlExtc::delete_CQDatabase($self);
  738.         delete $OWNER{$self};
  739.     }
  740. }
  741.  
  742. sub CQInt_Id {
  743.     my @args = @_;
  744.     $args[0] = tied(%{$args[0]});
  745.     my $result = CQPerlExtc::CQDatabase_CQInt_Id(@args);
  746.     return $result;
  747. }
  748. sub DISOWN {
  749.     my $self = shift;
  750.     my $ptr = tied(%$self);
  751.     delete $OWNER{$ptr};
  752.     };
  753.  
  754. sub ACQUIRE {
  755.     my $self = shift;
  756.     my $ptr = tied(%$self);
  757.     $OWNER{$ptr} = 1;
  758.     };
  759.  
  760.  
  761. ############# Class : CQDatabases ##############
  762.  
  763. package CQDatabases;
  764. @ISA = qw( CQPerlExt CQObject );
  765. %OWNER = ();
  766. %ITERATORS = ();
  767. sub Count {
  768.     my @args = @_;
  769.     $args[0] = tied(%{$args[0]});
  770.     my $result = CQPerlExtc::CQDatabases_Count(@args);
  771.     return $result;
  772. }
  773. sub Item {
  774.     my @args = @_;
  775.     $args[0] = tied(%{$args[0]});
  776.     my $result = CQPerlExtc::CQDatabases_Item(@args);
  777.     return $result;
  778. }
  779. sub ItemByName {
  780.     my @args = @_;
  781.     $args[0] = tied(%{$args[0]});
  782.     my $result = CQPerlExtc::CQDatabases_ItemByName(@args);
  783.     return $result;
  784. }
  785. sub Add {
  786.     my @args = @_;
  787.     $args[0] = tied(%{$args[0]});
  788.     my $result = CQPerlExtc::CQDatabases_Add(@args);
  789.     return $result;
  790. }
  791. sub DESTROY {
  792.     my $self = tied(%{$_[0]});
  793.     delete $ITERATORS{$self};
  794.     if (exists $OWNER{$self}) {
  795.         CQPerlExtc::delete_CQDatabases($self);
  796.         delete $OWNER{$self};
  797.     }
  798. }
  799.  
  800. sub CQInt_Id {
  801.     my @args = @_;
  802.     $args[0] = tied(%{$args[0]});
  803.     my $result = CQPerlExtc::CQDatabases_CQInt_Id(@args);
  804.     return $result;
  805. }
  806. sub DISOWN {
  807.     my $self = shift;
  808.     my $ptr = tied(%$self);
  809.     delete $OWNER{$ptr};
  810.     };
  811.  
  812. sub ACQUIRE {
  813.     my $self = shift;
  814.     my $ptr = tied(%$self);
  815.     $OWNER{$ptr} = 1;
  816.     };
  817.  
  818.  
  819. ############# Class : CQDatabaseDesc ##############
  820.  
  821. package CQDatabaseDesc;
  822. @ISA = qw( CQPerlExt CQObject );
  823. %OWNER = ();
  824. %ITERATORS = ();
  825. sub GetDatabaseName {
  826.     my @args = @_;
  827.     $args[0] = tied(%{$args[0]});
  828.     my $result = CQPerlExtc::CQDatabaseDesc_GetDatabaseName(@args);
  829.     return $result;
  830. }
  831. sub GetDatabaseSetName {
  832.     my @args = @_;
  833.     $args[0] = tied(%{$args[0]});
  834.     my $result = CQPerlExtc::CQDatabaseDesc_GetDatabaseSetName(@args);
  835.     return $result;
  836. }
  837. sub GetDatabaseConnectString {
  838.     my @args = @_;
  839.     $args[0] = tied(%{$args[0]});
  840.     my $result = CQPerlExtc::CQDatabaseDesc_GetDatabaseConnectString(@args);
  841.     return $result;
  842. }
  843. sub GetIsMaster {
  844.     my @args = @_;
  845.     $args[0] = tied(%{$args[0]});
  846.     my $result = CQPerlExtc::CQDatabaseDesc_GetIsMaster(@args);
  847.     return $result;
  848. }
  849. sub GetDescription {
  850.     my @args = @_;
  851.     $args[0] = tied(%{$args[0]});
  852.     my $result = CQPerlExtc::CQDatabaseDesc_GetDescription(@args);
  853.     return $result;
  854. }
  855. sub GetLogin {
  856.     my @args = @_;
  857.     $args[0] = tied(%{$args[0]});
  858.     my $result = CQPerlExtc::CQDatabaseDesc_GetLogin(@args);
  859.     return $result;
  860. }
  861. sub GetPassword {
  862.     my @args = @_;
  863.     $args[0] = tied(%{$args[0]});
  864.     my $result = CQPerlExtc::CQDatabaseDesc_GetPassword(@args);
  865.     return $result;
  866. }
  867. sub DESTROY {
  868.     my $self = tied(%{$_[0]});
  869.     delete $ITERATORS{$self};
  870.     if (exists $OWNER{$self}) {
  871.         CQPerlExtc::delete_CQDatabaseDesc($self);
  872.         delete $OWNER{$self};
  873.     }
  874. }
  875.  
  876. sub CQInt_Id {
  877.     my @args = @_;
  878.     $args[0] = tied(%{$args[0]});
  879.     my $result = CQPerlExtc::CQDatabaseDesc_CQInt_Id(@args);
  880.     return $result;
  881. }
  882. sub DISOWN {
  883.     my $self = shift;
  884.     my $ptr = tied(%$self);
  885.     delete $OWNER{$ptr};
  886.     };
  887.  
  888. sub ACQUIRE {
  889.     my $self = shift;
  890.     my $ptr = tied(%$self);
  891.     $OWNER{$ptr} = 1;
  892.     };
  893.  
  894.  
  895. ############# Class : CQDatabaseDescs ##############
  896.  
  897. package CQDatabaseDescs;
  898. @ISA = qw( CQPerlExt CQObject );
  899. %OWNER = ();
  900. %ITERATORS = ();
  901. sub Count {
  902.     my @args = @_;
  903.     $args[0] = tied(%{$args[0]});
  904.     my $result = CQPerlExtc::CQDatabaseDescs_Count(@args);
  905.     return $result;
  906. }
  907. sub Item {
  908.     my @args = @_;
  909.     $args[0] = tied(%{$args[0]});
  910.     my $result = CQPerlExtc::CQDatabaseDescs_Item(@args);
  911.     return $result;
  912. }
  913. sub ItemByName {
  914.     my @args = @_;
  915.     $args[0] = tied(%{$args[0]});
  916.     my $result = CQPerlExtc::CQDatabaseDescs_ItemByName(@args);
  917.     return $result;
  918. }
  919. sub Add {
  920.     my @args = @_;
  921.     $args[0] = tied(%{$args[0]});
  922.     my $result = CQPerlExtc::CQDatabaseDescs_Add(@args);
  923.     return $result;
  924. }
  925. sub DESTROY {
  926.     my $self = tied(%{$_[0]});
  927.     delete $ITERATORS{$self};
  928.     if (exists $OWNER{$self}) {
  929.         CQPerlExtc::delete_CQDatabaseDescs($self);
  930.         delete $OWNER{$self};
  931.     }
  932. }
  933.  
  934. sub CQInt_Id {
  935.     my @args = @_;
  936.     $args[0] = tied(%{$args[0]});
  937.     my $result = CQPerlExtc::CQDatabaseDescs_CQInt_Id(@args);
  938.     return $result;
  939. }
  940. sub DISOWN {
  941.     my $self = shift;
  942.     my $ptr = tied(%$self);
  943.     delete $OWNER{$ptr};
  944.     };
  945.  
  946. sub ACQUIRE {
  947.     my $self = shift;
  948.     my $ptr = tied(%$self);
  949.     $OWNER{$ptr} = 1;
  950.     };
  951.  
  952.  
  953. ############# Class : CQEmailRules ##############
  954.  
  955. package CQEmailRules;
  956. @ISA = qw( CQPerlExt CQObject );
  957. %OWNER = ();
  958. %ITERATORS = ();
  959. sub new {
  960.     my $self = shift;
  961.     my @args = @_;
  962.     $self = CQPerlExtc::new_CQEmailRules(@args);
  963.     return undef if (!defined($self));
  964.     bless $self, "CQEmailRules";
  965.     $OWNER{$self} = 1;
  966.     my %retval;
  967.     tie %retval, "CQEmailRules", $self;
  968.     return bless \%retval,"CQEmailRules";
  969. }
  970.  
  971. *Build = *CQPerlExt::CQEmailRules_Build;
  972. *Unbuild = *CQPerlExt::CQEmailRules_Unbuild;
  973. sub GetRule {
  974.     my @args = @_;
  975.     $args[0] = tied(%{$args[0]});
  976.     my $result = CQPerlExtc::CQEmailRules_GetRule(@args);
  977.     return $result;
  978. }
  979. sub SetSession {
  980.     my @args = @_;
  981.     $args[0] = tied(%{$args[0]});
  982.     my $result = CQPerlExtc::CQEmailRules_SetSession(@args);
  983.     return $result;
  984. }
  985. sub ProcessEmailRules {
  986.     my @args = @_;
  987.     $args[0] = tied(%{$args[0]});
  988.     my $result = CQPerlExtc::CQEmailRules_ProcessEmailRules(@args);
  989.     return $result;
  990. }
  991. sub GetPublicQueries {
  992.     my @args = @_;
  993.     $args[0] = tied(%{$args[0]});
  994.     my $result = CQPerlExtc::CQEmailRules_GetPublicQueries(@args);
  995.     return $result;
  996. }
  997. sub ClearSession {
  998.     my @args = @_;
  999.     $args[0] = tied(%{$args[0]});
  1000.     my $result = CQPerlExtc::CQEmailRules_ClearSession(@args);
  1001.     return $result;
  1002. }
  1003. sub ResetCache {
  1004.     my @args = @_;
  1005.     $args[0] = tied(%{$args[0]});
  1006.     my $result = CQPerlExtc::CQEmailRules_ResetCache(@args);
  1007.     return $result;
  1008. }
  1009. sub DESTROY {
  1010.     my $self = tied(%{$_[0]});
  1011.     delete $ITERATORS{$self};
  1012.     if (exists $OWNER{$self}) {
  1013.         CQPerlExtc::delete_CQEmailRules($self);
  1014.         delete $OWNER{$self};
  1015.     }
  1016. }
  1017.  
  1018. sub CQInt_Id {
  1019.     my @args = @_;
  1020.     $args[0] = tied(%{$args[0]});
  1021.     my $result = CQPerlExtc::CQEmailRules_CQInt_Id(@args);
  1022.     return $result;
  1023. }
  1024. sub DISOWN {
  1025.     my $self = shift;
  1026.     my $ptr = tied(%$self);
  1027.     delete $OWNER{$ptr};
  1028.     };
  1029.  
  1030. sub ACQUIRE {
  1031.     my $self = shift;
  1032.     my $ptr = tied(%$self);
  1033.     $OWNER{$ptr} = 1;
  1034.     };
  1035.  
  1036.  
  1037. ############# Class : CQEntity ##############
  1038.  
  1039. package CQEntity;
  1040. @ISA = qw( CQPerlExt CQObject );
  1041. %OWNER = ();
  1042. %ITERATORS = ();
  1043. sub GetAttachmentFields {
  1044.     my @args = @_;
  1045.     $args[0] = tied(%{$args[0]});
  1046.     my $result = CQPerlExtc::CQEntity_GetAttachmentFields(@args);
  1047.     return $result;
  1048. }
  1049. sub GetHistoryFields {
  1050.     my @args = @_;
  1051.     $args[0] = tied(%{$args[0]});
  1052.     my $result = CQPerlExtc::CQEntity_GetHistoryFields(@args);
  1053.     return $result;
  1054. }
  1055. sub GetEntityDefName {
  1056.     my @args = @_;
  1057.     $args[0] = tied(%{$args[0]});
  1058.     my $result = CQPerlExtc::CQEntity_GetEntityDefName(@args);
  1059.     return $result;
  1060. }
  1061. sub GetFieldNames {
  1062.     my @args = @_;
  1063.     $args[0] = tied(%{$args[0]});
  1064.     my $result = CQPerlExtc::CQEntity_GetFieldNames(@args);
  1065.     return $result;
  1066. }
  1067. sub IsEditable {
  1068.     my @args = @_;
  1069.     $args[0] = tied(%{$args[0]});
  1070.     my $result = CQPerlExtc::CQEntity_IsEditable(@args);
  1071.     return $result;
  1072. }
  1073. sub Revert {
  1074.     my @args = @_;
  1075.     $args[0] = tied(%{$args[0]});
  1076.     my $result = CQPerlExtc::CQEntity_Revert(@args);
  1077.     return $result;
  1078. }
  1079. sub GetFieldType {
  1080.     my @args = @_;
  1081.     $args[0] = tied(%{$args[0]});
  1082.     my $result = CQPerlExtc::CQEntity_GetFieldType(@args);
  1083.     return $result;
  1084. }
  1085. sub GetFieldRequiredness {
  1086.     my @args = @_;
  1087.     $args[0] = tied(%{$args[0]});
  1088.     my $result = CQPerlExtc::CQEntity_GetFieldRequiredness(@args);
  1089.     return $result;
  1090. }
  1091. sub SetFieldValue {
  1092.     my @args = @_;
  1093.     $args[0] = tied(%{$args[0]});
  1094.     my $result = CQPerlExtc::CQEntity_SetFieldValue(@args);
  1095.     return $result;
  1096. }
  1097. sub GetFieldChoiceList {
  1098.     my @args = @_;
  1099.     $args[0] = tied(%{$args[0]});
  1100.     my $result = CQPerlExtc::CQEntity_GetFieldChoiceList(@args);
  1101.     return $result;
  1102. }
  1103. sub GetDisplayName {
  1104.     my @args = @_;
  1105.     $args[0] = tied(%{$args[0]});
  1106.     my $result = CQPerlExtc::CQEntity_GetDisplayName(@args);
  1107.     return $result;
  1108. }
  1109. sub GetType {
  1110.     my @args = @_;
  1111.     $args[0] = tied(%{$args[0]});
  1112.     my $result = CQPerlExtc::CQEntity_GetType(@args);
  1113.     return $result;
  1114. }
  1115. sub LookupStateName {
  1116.     my @args = @_;
  1117.     $args[0] = tied(%{$args[0]});
  1118.     my $result = CQPerlExtc::CQEntity_LookupStateName(@args);
  1119.     return $result;
  1120. }
  1121. sub GetDbId {
  1122.     my @args = @_;
  1123.     $args[0] = tied(%{$args[0]});
  1124.     my $result = CQPerlExtc::CQEntity_GetDbId(@args);
  1125.     return $result;
  1126. }
  1127. sub IsDuplicate {
  1128.     my @args = @_;
  1129.     $args[0] = tied(%{$args[0]});
  1130.     my $result = CQPerlExtc::CQEntity_IsDuplicate(@args);
  1131.     return $result;
  1132. }
  1133. sub GetOriginal {
  1134.     my @args = @_;
  1135.     $args[0] = tied(%{$args[0]});
  1136.     my $result = CQPerlExtc::CQEntity_GetOriginal(@args);
  1137.     return $result;
  1138. }
  1139. sub GetOriginalId {
  1140.     my @args = @_;
  1141.     $args[0] = tied(%{$args[0]});
  1142.     my $result = CQPerlExtc::CQEntity_GetOriginalId(@args);
  1143.     return $result;
  1144. }
  1145. sub GetLegalActionDefNames {
  1146.     my @args = @_;
  1147.     $args[0] = tied(%{$args[0]});
  1148.     my $result = CQPerlExtc::CQEntity_GetLegalActionDefNames(@args);
  1149.     return $result;
  1150. }
  1151. sub GetSession {
  1152.     my @args = @_;
  1153.     $args[0] = tied(%{$args[0]});
  1154.     my $result = CQPerlExtc::CQEntity_GetSession(@args);
  1155.     return $result;
  1156. }
  1157. sub HasDuplicates {
  1158.     my @args = @_;
  1159.     $args[0] = tied(%{$args[0]});
  1160.     my $result = CQPerlExtc::CQEntity_HasDuplicates(@args);
  1161.     return $result;
  1162. }
  1163. sub IsOriginal {
  1164.     my @args = @_;
  1165.     $args[0] = tied(%{$args[0]});
  1166.     my $result = CQPerlExtc::CQEntity_IsOriginal(@args);
  1167.     return $result;
  1168. }
  1169. sub GetDuplicates {
  1170.     my @args = @_;
  1171.     $args[0] = tied(%{$args[0]});
  1172.     my $result = CQPerlExtc::CQEntity_GetDuplicates(@args);
  1173.     return $result;
  1174. }
  1175. sub GetAllDuplicates {
  1176.     my @args = @_;
  1177.     $args[0] = tied(%{$args[0]});
  1178.     my $result = CQPerlExtc::CQEntity_GetAllDuplicates(@args);
  1179.     return $result;
  1180. }
  1181. sub Commit {
  1182.     my @args = @_;
  1183.     $args[0] = tied(%{$args[0]});
  1184.     my $result = CQPerlExtc::CQEntity_Commit(@args);
  1185.     return $result;
  1186. }
  1187. sub Validate {
  1188.     my @args = @_;
  1189.     $args[0] = tied(%{$args[0]});
  1190.     my $result = CQPerlExtc::CQEntity_Validate(@args);
  1191.     return $result;
  1192. }
  1193. sub AddFieldValue {
  1194.     my @args = @_;
  1195.     $args[0] = tied(%{$args[0]});
  1196.     my $result = CQPerlExtc::CQEntity_AddFieldValue(@args);
  1197.     return $result;
  1198. }
  1199. sub DeleteFieldValue {
  1200.     my @args = @_;
  1201.     $args[0] = tied(%{$args[0]});
  1202.     my $result = CQPerlExtc::CQEntity_DeleteFieldValue(@args);
  1203.     return $result;
  1204. }
  1205. sub GetFieldValue {
  1206.     my @args = @_;
  1207.     $args[0] = tied(%{$args[0]});
  1208.     my $result = CQPerlExtc::CQEntity_GetFieldValue(@args);
  1209.     return $result;
  1210. }
  1211. sub GetFieldOriginalValue {
  1212.     my @args = @_;
  1213.     $args[0] = tied(%{$args[0]});
  1214.     my $result = CQPerlExtc::CQEntity_GetFieldOriginalValue(@args);
  1215.     return $result;
  1216. }
  1217. sub GetAllFieldValues {
  1218.     my @args = @_;
  1219.     $args[0] = tied(%{$args[0]});
  1220.     my $result = CQPerlExtc::CQEntity_GetAllFieldValues(@args);
  1221.     return $result;
  1222. }
  1223. sub GetInvalidFieldValues {
  1224.     my @args = @_;
  1225.     $args[0] = tied(%{$args[0]});
  1226.     my $result = CQPerlExtc::CQEntity_GetInvalidFieldValues(@args);
  1227.     return $result;
  1228. }
  1229. sub GetFieldsUpdatedThisSetValue {
  1230.     my @args = @_;
  1231.     $args[0] = tied(%{$args[0]});
  1232.     my $result = CQPerlExtc::CQEntity_GetFieldsUpdatedThisSetValue(@args);
  1233.     return $result;
  1234. }
  1235. sub GetFieldsUpdatedThisGroup {
  1236.     my @args = @_;
  1237.     $args[0] = tied(%{$args[0]});
  1238.     my $result = CQPerlExtc::CQEntity_GetFieldsUpdatedThisGroup(@args);
  1239.     return $result;
  1240. }
  1241. sub GetFieldsUpdatedThisAction {
  1242.     my @args = @_;
  1243.     $args[0] = tied(%{$args[0]});
  1244.     my $result = CQPerlExtc::CQEntity_GetFieldsUpdatedThisAction(@args);
  1245.     return $result;
  1246. }
  1247. sub BeginNewFieldUpdateGroup {
  1248.     my @args = @_;
  1249.     $args[0] = tied(%{$args[0]});
  1250.     my $result = CQPerlExtc::CQEntity_BeginNewFieldUpdateGroup(@args);
  1251.     return $result;
  1252. }
  1253. sub GetFieldChoiceType {
  1254.     my @args = @_;
  1255.     $args[0] = tied(%{$args[0]});
  1256.     my $result = CQPerlExtc::CQEntity_GetFieldChoiceType(@args);
  1257.     return $result;
  1258. }
  1259. sub FireNamedHook {
  1260.     my @args = @_;
  1261.     $args[0] = tied(%{$args[0]});
  1262.     my $result = CQPerlExtc::CQEntity_FireNamedHook(@args);
  1263.     return $result;
  1264. }
  1265. sub SetFieldRequirednessForCurrentAction {
  1266.     my @args = @_;
  1267.     $args[0] = tied(%{$args[0]});
  1268.     my $result = CQPerlExtc::CQEntity_SetFieldRequirednessForCurrentAction(@args);
  1269.     return $result;
  1270. }
  1271. sub GetFieldMaxLength {
  1272.     my @args = @_;
  1273.     $args[0] = tied(%{$args[0]});
  1274.     my $result = CQPerlExtc::CQEntity_GetFieldMaxLength(@args);
  1275.     return $result;
  1276. }
  1277. sub GetActionName {
  1278.     my @args = @_;
  1279.     $args[0] = tied(%{$args[0]});
  1280.     my $result = CQPerlExtc::CQEntity_GetActionName(@args);
  1281.     return $result;
  1282. }
  1283. sub GetActionType {
  1284.     my @args = @_;
  1285.     $args[0] = tied(%{$args[0]});
  1286.     my $result = CQPerlExtc::CQEntity_GetActionType(@args);
  1287.     return $result;
  1288. }
  1289. sub GetFieldReferencedEntityDefName {
  1290.     my @args = @_;
  1291.     $args[0] = tied(%{$args[0]});
  1292.     my $result = CQPerlExtc::CQEntity_GetFieldReferencedEntityDefName(@args);
  1293.     return $result;
  1294. }
  1295. sub GetDefaultActionName {
  1296.     my @args = @_;
  1297.     $args[0] = tied(%{$args[0]});
  1298.     my $result = CQPerlExtc::CQEntity_GetDefaultActionName(@args);
  1299.     return $result;
  1300. }
  1301. sub SetFieldChoiceList {
  1302.     my @args = @_;
  1303.     $args[0] = tied(%{$args[0]});
  1304.     my $result = CQPerlExtc::CQEntity_SetFieldChoiceList(@args);
  1305.     return $result;
  1306. }
  1307. sub InvalidateFieldChoiceList {
  1308.     my @args = @_;
  1309.     $args[0] = tied(%{$args[0]});
  1310.     my $result = CQPerlExtc::CQEntity_InvalidateFieldChoiceList(@args);
  1311.     return $result;
  1312. }
  1313. sub Reload {
  1314.     my @args = @_;
  1315.     $args[0] = tied(%{$args[0]});
  1316.     my $result = CQPerlExtc::CQEntity_Reload(@args);
  1317.     return $result;
  1318. }
  1319. sub DESTROY {
  1320.     my $self = tied(%{$_[0]});
  1321.     delete $ITERATORS{$self};
  1322.     if (exists $OWNER{$self}) {
  1323.         CQPerlExtc::delete_CQEntity($self);
  1324.         delete $OWNER{$self};
  1325.     }
  1326. }
  1327.  
  1328. sub CQInt_Id {
  1329.     my @args = @_;
  1330.     $args[0] = tied(%{$args[0]});
  1331.     my $result = CQPerlExtc::CQEntity_CQInt_Id(@args);
  1332.     return $result;
  1333. }
  1334. sub DISOWN {
  1335.     my $self = shift;
  1336.     my $ptr = tied(%$self);
  1337.     delete $OWNER{$ptr};
  1338.     };
  1339.  
  1340. sub ACQUIRE {
  1341.     my $self = shift;
  1342.     my $ptr = tied(%$self);
  1343.     $OWNER{$ptr} = 1;
  1344.     };
  1345.  
  1346.  
  1347. ############# Class : CQEntityDef ##############
  1348.  
  1349. package CQEntityDef;
  1350. @ISA = qw( CQPerlExt CQObject );
  1351. %OWNER = ();
  1352. %ITERATORS = ();
  1353. sub GetName {
  1354.     my @args = @_;
  1355.     $args[0] = tied(%{$args[0]});
  1356.     my $result = CQPerlExtc::CQEntityDef_GetName(@args);
  1357.     return $result;
  1358. }
  1359. sub GetFieldDefNames {
  1360.     my @args = @_;
  1361.     $args[0] = tied(%{$args[0]});
  1362.     my $result = CQPerlExtc::CQEntityDef_GetFieldDefNames(@args);
  1363.     return $result;
  1364. }
  1365. sub GetActionDefNames {
  1366.     my @args = @_;
  1367.     $args[0] = tied(%{$args[0]});
  1368.     my $result = CQPerlExtc::CQEntityDef_GetActionDefNames(@args);
  1369.     return $result;
  1370. }
  1371. sub GetStateDefNames {
  1372.     my @args = @_;
  1373.     $args[0] = tied(%{$args[0]});
  1374.     my $result = CQPerlExtc::CQEntityDef_GetStateDefNames(@args);
  1375.     return $result;
  1376. }
  1377. sub GetLocalFieldPathNames {
  1378.     my @args = @_;
  1379.     $args[0] = tied(%{$args[0]});
  1380.     my $result = CQPerlExtc::CQEntityDef_GetLocalFieldPathNames(@args);
  1381.     return $result;
  1382. }
  1383. sub GetHookDefNames {
  1384.     my @args = @_;
  1385.     $args[0] = tied(%{$args[0]});
  1386.     my $result = CQPerlExtc::CQEntityDef_GetHookDefNames(@args);
  1387.     return $result;
  1388. }
  1389. sub GetFieldDefType {
  1390.     my @args = @_;
  1391.     $args[0] = tied(%{$args[0]});
  1392.     my $result = CQPerlExtc::CQEntityDef_GetFieldDefType(@args);
  1393.     return $result;
  1394. }
  1395. sub GetActionDefType {
  1396.     my @args = @_;
  1397.     $args[0] = tied(%{$args[0]});
  1398.     my $result = CQPerlExtc::CQEntityDef_GetActionDefType(@args);
  1399.     return $result;
  1400. }
  1401. sub GetType {
  1402.     my @args = @_;
  1403.     $args[0] = tied(%{$args[0]});
  1404.     my $result = CQPerlExtc::CQEntityDef_GetType(@args);
  1405.     return $result;
  1406. }
  1407. sub IsFieldDefName {
  1408.     my @args = @_;
  1409.     $args[0] = tied(%{$args[0]});
  1410.     my $result = CQPerlExtc::CQEntityDef_IsFieldDefName(@args);
  1411.     return $result;
  1412. }
  1413. sub IsActionDefName {
  1414.     my @args = @_;
  1415.     $args[0] = tied(%{$args[0]});
  1416.     my $result = CQPerlExtc::CQEntityDef_IsActionDefName(@args);
  1417.     return $result;
  1418. }
  1419. sub IsStateDefName {
  1420.     my @args = @_;
  1421.     $args[0] = tied(%{$args[0]});
  1422.     my $result = CQPerlExtc::CQEntityDef_IsStateDefName(@args);
  1423.     return $result;
  1424. }
  1425. sub IsSystemOwnedFieldDefName {
  1426.     my @args = @_;
  1427.     $args[0] = tied(%{$args[0]});
  1428.     my $result = CQPerlExtc::CQEntityDef_IsSystemOwnedFieldDefName(@args);
  1429.     return $result;
  1430. }
  1431. sub GetFieldReferenceEntityDef {
  1432.     my @args = @_;
  1433.     $args[0] = tied(%{$args[0]});
  1434.     my $result = CQPerlExtc::CQEntityDef_GetFieldReferenceEntityDef(@args);
  1435.     return $result;
  1436. }
  1437. sub DoesTransitionExist {
  1438.     my @args = @_;
  1439.     $args[0] = tied(%{$args[0]});
  1440.     my $result = CQPerlExtc::CQEntityDef_DoesTransitionExist(@args);
  1441.     return $result;
  1442. }
  1443. sub IsFamily {
  1444.     my @args = @_;
  1445.     $args[0] = tied(%{$args[0]});
  1446.     my $result = CQPerlExtc::CQEntityDef_IsFamily(@args);
  1447.     return $result;
  1448. }
  1449. sub GetActionDestStateName {
  1450.     my @args = @_;
  1451.     $args[0] = tied(%{$args[0]});
  1452.     my $result = CQPerlExtc::CQEntityDef_GetActionDestStateName(@args);
  1453.     return $result;
  1454. }
  1455. sub GetActionSourceStateNames {
  1456.     my @args = @_;
  1457.     $args[0] = tied(%{$args[0]});
  1458.     my $result = CQPerlExtc::CQEntityDef_GetActionSourceStateNames(@args);
  1459.     return $result;
  1460. }
  1461. sub GetDbName {
  1462.     my @args = @_;
  1463.     $args[0] = tied(%{$args[0]});
  1464.     my $result = CQPerlExtc::CQEntityDef_GetDbName(@args);
  1465.     return $result;
  1466. }
  1467. sub DESTROY {
  1468.     my $self = tied(%{$_[0]});
  1469.     delete $ITERATORS{$self};
  1470.     if (exists $OWNER{$self}) {
  1471.         CQPerlExtc::delete_CQEntityDef($self);
  1472.         delete $OWNER{$self};
  1473.     }
  1474. }
  1475.  
  1476. sub CQInt_Id {
  1477.     my @args = @_;
  1478.     $args[0] = tied(%{$args[0]});
  1479.     my $result = CQPerlExtc::CQEntityDef_CQInt_Id(@args);
  1480.     return $result;
  1481. }
  1482. sub DISOWN {
  1483.     my $self = shift;
  1484.     my $ptr = tied(%$self);
  1485.     delete $OWNER{$ptr};
  1486.     };
  1487.  
  1488. sub ACQUIRE {
  1489.     my $self = shift;
  1490.     my $ptr = tied(%$self);
  1491.     $OWNER{$ptr} = 1;
  1492.     };
  1493.  
  1494.  
  1495. ############# Class : CQEntityDefs ##############
  1496.  
  1497. package CQEntityDefs;
  1498. @ISA = qw( CQPerlExt CQObject );
  1499. %OWNER = ();
  1500. %ITERATORS = ();
  1501. sub Count {
  1502.     my @args = @_;
  1503.     $args[0] = tied(%{$args[0]});
  1504.     my $result = CQPerlExtc::CQEntityDefs_Count(@args);
  1505.     return $result;
  1506. }
  1507. sub Item {
  1508.     my @args = @_;
  1509.     $args[0] = tied(%{$args[0]});
  1510.     my $result = CQPerlExtc::CQEntityDefs_Item(@args);
  1511.     return $result;
  1512. }
  1513. sub ItemByName {
  1514.     my @args = @_;
  1515.     $args[0] = tied(%{$args[0]});
  1516.     my $result = CQPerlExtc::CQEntityDefs_ItemByName(@args);
  1517.     return $result;
  1518. }
  1519. sub Add {
  1520.     my @args = @_;
  1521.     $args[0] = tied(%{$args[0]});
  1522.     my $result = CQPerlExtc::CQEntityDefs_Add(@args);
  1523.     return $result;
  1524. }
  1525. sub DESTROY {
  1526.     my $self = tied(%{$_[0]});
  1527.     delete $ITERATORS{$self};
  1528.     if (exists $OWNER{$self}) {
  1529.         CQPerlExtc::delete_CQEntityDefs($self);
  1530.         delete $OWNER{$self};
  1531.     }
  1532. }
  1533.  
  1534. sub CQInt_Id {
  1535.     my @args = @_;
  1536.     $args[0] = tied(%{$args[0]});
  1537.     my $result = CQPerlExtc::CQEntityDefs_CQInt_Id(@args);
  1538.     return $result;
  1539. }
  1540. sub DISOWN {
  1541.     my $self = shift;
  1542.     my $ptr = tied(%$self);
  1543.     delete $OWNER{$ptr};
  1544.     };
  1545.  
  1546. sub ACQUIRE {
  1547.     my $self = shift;
  1548.     my $ptr = tied(%$self);
  1549.     $OWNER{$ptr} = 1;
  1550.     };
  1551.  
  1552.  
  1553. ############# Class : CQEventObject ##############
  1554.  
  1555. package CQEventObject;
  1556. @ISA = qw( CQPerlExt CQObject );
  1557. %OWNER = ();
  1558. sub EventType {
  1559.     my @args = @_;
  1560.     $args[0] = tied(%{$args[0]});
  1561.     my $result = CQPerlExtc::CQEventObject_EventType(@args);
  1562.     return $result;
  1563. }
  1564. sub ItemName {
  1565.     my @args = @_;
  1566.     $args[0] = tied(%{$args[0]});
  1567.     my $result = CQPerlExtc::CQEventObject_ItemName(@args);
  1568.     return $result;
  1569. }
  1570. sub StringItem {
  1571.     my @args = @_;
  1572.     $args[0] = tied(%{$args[0]});
  1573.     my $result = CQPerlExtc::CQEventObject_StringItem(@args);
  1574.     return $result;
  1575. }
  1576. sub EditText {
  1577.     my @args = @_;
  1578.     $args[0] = tied(%{$args[0]});
  1579.     my $result = CQPerlExtc::CQEventObject_EditText(@args);
  1580.     return $result;
  1581. }
  1582. sub CheckState {
  1583.     my @args = @_;
  1584.     $args[0] = tied(%{$args[0]});
  1585.     my $result = CQPerlExtc::CQEventObject_CheckState(@args);
  1586.     return $result;
  1587. }
  1588. sub DISOWN {
  1589.     my $self = shift;
  1590.     my $ptr = tied(%$self);
  1591.     delete $OWNER{$ptr};
  1592.     };
  1593.  
  1594. sub ACQUIRE {
  1595.     my $self = shift;
  1596.     my $ptr = tied(%$self);
  1597.     $OWNER{$ptr} = 1;
  1598.     };
  1599.  
  1600.  
  1601. ############# Class : CQFieldInfo ##############
  1602.  
  1603. package CQFieldInfo;
  1604. @ISA = qw( CQPerlExt CQObject );
  1605. %OWNER = ();
  1606. %ITERATORS = ();
  1607. sub GetName {
  1608.     my @args = @_;
  1609.     $args[0] = tied(%{$args[0]});
  1610.     my $result = CQPerlExtc::CQFieldInfo_GetName(@args);
  1611.     return $result;
  1612. }
  1613. sub GetType {
  1614.     my @args = @_;
  1615.     $args[0] = tied(%{$args[0]});
  1616.     my $result = CQPerlExtc::CQFieldInfo_GetType(@args);
  1617.     return $result;
  1618. }
  1619. sub GetRequiredness {
  1620.     my @args = @_;
  1621.     $args[0] = tied(%{$args[0]});
  1622.     my $result = CQPerlExtc::CQFieldInfo_GetRequiredness(@args);
  1623.     return $result;
  1624. }
  1625. sub GetValueStatus {
  1626.     my @args = @_;
  1627.     $args[0] = tied(%{$args[0]});
  1628.     my $result = CQPerlExtc::CQFieldInfo_GetValueStatus(@args);
  1629.     return $result;
  1630. }
  1631. sub GetValidationStatus {
  1632.     my @args = @_;
  1633.     $args[0] = tied(%{$args[0]});
  1634.     my $result = CQPerlExtc::CQFieldInfo_GetValidationStatus(@args);
  1635.     return $result;
  1636. }
  1637. sub GetMessageText {
  1638.     my @args = @_;
  1639.     $args[0] = tied(%{$args[0]});
  1640.     my $result = CQPerlExtc::CQFieldInfo_GetMessageText(@args);
  1641.     return $result;
  1642. }
  1643. sub GetValue {
  1644.     my @args = @_;
  1645.     $args[0] = tied(%{$args[0]});
  1646.     my $result = CQPerlExtc::CQFieldInfo_GetValue(@args);
  1647.     return $result;
  1648. }
  1649. sub GetValueAsList {
  1650.     my @args = @_;
  1651.     $args[0] = tied(%{$args[0]});
  1652.     my $result = CQPerlExtc::CQFieldInfo_GetValueAsList(@args);
  1653.     return $result;
  1654. }
  1655. sub ValidityChangedThisSetValue {
  1656.     my @args = @_;
  1657.     $args[0] = tied(%{$args[0]});
  1658.     my $result = CQPerlExtc::CQFieldInfo_ValidityChangedThisSetValue(@args);
  1659.     return $result;
  1660. }
  1661. sub ValueChangedThisSetValue {
  1662.     my @args = @_;
  1663.     $args[0] = tied(%{$args[0]});
  1664.     my $result = CQPerlExtc::CQFieldInfo_ValueChangedThisSetValue(@args);
  1665.     return $result;
  1666. }
  1667. sub ValueChangedThisGroup {
  1668.     my @args = @_;
  1669.     $args[0] = tied(%{$args[0]});
  1670.     my $result = CQPerlExtc::CQFieldInfo_ValueChangedThisGroup(@args);
  1671.     return $result;
  1672. }
  1673. sub ValueChangedThisAction {
  1674.     my @args = @_;
  1675.     $args[0] = tied(%{$args[0]});
  1676.     my $result = CQPerlExtc::CQFieldInfo_ValueChangedThisAction(@args);
  1677.     return $result;
  1678. }
  1679. sub ValidityChangedThisGroup {
  1680.     my @args = @_;
  1681.     $args[0] = tied(%{$args[0]});
  1682.     my $result = CQPerlExtc::CQFieldInfo_ValidityChangedThisGroup(@args);
  1683.     return $result;
  1684. }
  1685. sub ValidityChangedThisAction {
  1686.     my @args = @_;
  1687.     $args[0] = tied(%{$args[0]});
  1688.     my $result = CQPerlExtc::CQFieldInfo_ValidityChangedThisAction(@args);
  1689.     return $result;
  1690. }
  1691. sub DESTROY {
  1692.     my $self = tied(%{$_[0]});
  1693.     delete $ITERATORS{$self};
  1694.     if (exists $OWNER{$self}) {
  1695.         CQPerlExtc::delete_CQFieldInfo($self);
  1696.         delete $OWNER{$self};
  1697.     }
  1698. }
  1699.  
  1700. sub CQInt_Id {
  1701.     my @args = @_;
  1702.     $args[0] = tied(%{$args[0]});
  1703.     my $result = CQPerlExtc::CQFieldInfo_CQInt_Id(@args);
  1704.     return $result;
  1705. }
  1706. sub DISOWN {
  1707.     my $self = shift;
  1708.     my $ptr = tied(%$self);
  1709.     delete $OWNER{$ptr};
  1710.     };
  1711.  
  1712. sub ACQUIRE {
  1713.     my $self = shift;
  1714.     my $ptr = tied(%$self);
  1715.     $OWNER{$ptr} = 1;
  1716.     };
  1717.  
  1718.  
  1719. ############# Class : CQFieldInfos ##############
  1720.  
  1721. package CQFieldInfos;
  1722. @ISA = qw( CQPerlExt CQObject );
  1723. %OWNER = ();
  1724. %ITERATORS = ();
  1725. sub Count {
  1726.     my @args = @_;
  1727.     $args[0] = tied(%{$args[0]});
  1728.     my $result = CQPerlExtc::CQFieldInfos_Count(@args);
  1729.     return $result;
  1730. }
  1731. sub Item {
  1732.     my @args = @_;
  1733.     $args[0] = tied(%{$args[0]});
  1734.     my $result = CQPerlExtc::CQFieldInfos_Item(@args);
  1735.     return $result;
  1736. }
  1737. sub ItemByName {
  1738.     my @args = @_;
  1739.     $args[0] = tied(%{$args[0]});
  1740.     my $result = CQPerlExtc::CQFieldInfos_ItemByName(@args);
  1741.     return $result;
  1742. }
  1743. sub Add {
  1744.     my @args = @_;
  1745.     $args[0] = tied(%{$args[0]});
  1746.     my $result = CQPerlExtc::CQFieldInfos_Add(@args);
  1747.     return $result;
  1748. }
  1749. sub DESTROY {
  1750.     my $self = tied(%{$_[0]});
  1751.     delete $ITERATORS{$self};
  1752.     if (exists $OWNER{$self}) {
  1753.         CQPerlExtc::delete_CQFieldInfos($self);
  1754.         delete $OWNER{$self};
  1755.     }
  1756. }
  1757.  
  1758. sub CQInt_Id {
  1759.     my @args = @_;
  1760.     $args[0] = tied(%{$args[0]});
  1761.     my $result = CQPerlExtc::CQFieldInfos_CQInt_Id(@args);
  1762.     return $result;
  1763. }
  1764. sub DISOWN {
  1765.     my $self = shift;
  1766.     my $ptr = tied(%$self);
  1767.     delete $OWNER{$ptr};
  1768.     };
  1769.  
  1770. sub ACQUIRE {
  1771.     my $self = shift;
  1772.     my $ptr = tied(%$self);
  1773.     $OWNER{$ptr} = 1;
  1774.     };
  1775.  
  1776.  
  1777. ############# Class : CQFieldFilter ##############
  1778.  
  1779. package CQFieldFilter;
  1780. @ISA = qw( CQPerlExt CQObject );
  1781. %OWNER = ();
  1782. sub GetFieldPath {
  1783.     my @args = @_;
  1784.     $args[0] = tied(%{$args[0]});
  1785.     my $result = CQPerlExtc::CQFieldFilter_GetFieldPath(@args);
  1786.     return $result;
  1787. }
  1788. sub GetCompOp {
  1789.     my @args = @_;
  1790.     $args[0] = tied(%{$args[0]});
  1791.     my $result = CQPerlExtc::CQFieldFilter_GetCompOp(@args);
  1792.     return $result;
  1793. }
  1794. sub SetCompOp {
  1795.     my @args = @_;
  1796.     $args[0] = tied(%{$args[0]});
  1797.     my $result = CQPerlExtc::CQFieldFilter_SetCompOp(@args);
  1798.     return $result;
  1799. }
  1800. sub GetValues {
  1801.     my @args = @_;
  1802.     $args[0] = tied(%{$args[0]});
  1803.     my $result = CQPerlExtc::CQFieldFilter_GetValues(@args);
  1804.     return $result;
  1805. }
  1806. sub SetValues {
  1807.     my @args = @_;
  1808.     $args[0] = tied(%{$args[0]});
  1809.     my $result = CQPerlExtc::CQFieldFilter_SetValues(@args);
  1810.     return $result;
  1811. }
  1812. sub GetStringExpression {
  1813.     my @args = @_;
  1814.     $args[0] = tied(%{$args[0]});
  1815.     my $result = CQPerlExtc::CQFieldFilter_GetStringExpression(@args);
  1816.     return $result;
  1817. }
  1818. sub GetPrompt {
  1819.     my @args = @_;
  1820.     $args[0] = tied(%{$args[0]});
  1821.     my $result = CQPerlExtc::CQFieldFilter_GetPrompt(@args);
  1822.     return $result;
  1823. }
  1824. sub SetPrompt {
  1825.     my @args = @_;
  1826.     $args[0] = tied(%{$args[0]});
  1827.     my $result = CQPerlExtc::CQFieldFilter_SetPrompt(@args);
  1828.     return $result;
  1829. }
  1830. sub GetFieldType {
  1831.     my @args = @_;
  1832.     $args[0] = tied(%{$args[0]});
  1833.     my $result = CQPerlExtc::CQFieldFilter_GetFieldType(@args);
  1834.     return $result;
  1835. }
  1836. sub IsLegalCompOp {
  1837.     my @args = @_;
  1838.     $args[0] = tied(%{$args[0]});
  1839.     my $result = CQPerlExtc::CQFieldFilter_IsLegalCompOp(@args);
  1840.     return $result;
  1841. }
  1842. sub GetChoiceList {
  1843.     my @args = @_;
  1844.     $args[0] = tied(%{$args[0]});
  1845.     my $result = CQPerlExtc::CQFieldFilter_GetChoiceList(@args);
  1846.     return $result;
  1847. }
  1848. sub DISOWN {
  1849.     my $self = shift;
  1850.     my $ptr = tied(%$self);
  1851.     delete $OWNER{$ptr};
  1852.     };
  1853.  
  1854. sub ACQUIRE {
  1855.     my $self = shift;
  1856.     my $ptr = tied(%$self);
  1857.     $OWNER{$ptr} = 1;
  1858.     };
  1859.  
  1860.  
  1861. ############# Class : CQFieldFilters ##############
  1862.  
  1863. package CQFieldFilters;
  1864. @ISA = qw( CQPerlExt CQObject );
  1865. %OWNER = ();
  1866. sub Count {
  1867.     my @args = @_;
  1868.     $args[0] = tied(%{$args[0]});
  1869.     my $result = CQPerlExtc::CQFieldFilters_Count(@args);
  1870.     return $result;
  1871. }
  1872. sub Item {
  1873.     my @args = @_;
  1874.     $args[0] = tied(%{$args[0]});
  1875.     my $result = CQPerlExtc::CQFieldFilters_Item(@args);
  1876.     return $result;
  1877. }
  1878. sub ItemByName {
  1879.     my @args = @_;
  1880.     $args[0] = tied(%{$args[0]});
  1881.     my $result = CQPerlExtc::CQFieldFilters_ItemByName(@args);
  1882.     return $result;
  1883. }
  1884. sub AddFieldFilter {
  1885.     my @args = @_;
  1886.     $args[0] = tied(%{$args[0]});
  1887.     my $result = CQPerlExtc::CQFieldFilters_AddFieldFilter(@args);
  1888.     return $result;
  1889. }
  1890. sub Remove {
  1891.     my @args = @_;
  1892.     $args[0] = tied(%{$args[0]});
  1893.     my $result = CQPerlExtc::CQFieldFilters_Remove(@args);
  1894.     return $result;
  1895. }
  1896. sub DISOWN {
  1897.     my $self = shift;
  1898.     my $ptr = tied(%$self);
  1899.     delete $OWNER{$ptr};
  1900.     };
  1901.  
  1902. sub ACQUIRE {
  1903.     my $self = shift;
  1904.     my $ptr = tied(%$self);
  1905.     $OWNER{$ptr} = 1;
  1906.     };
  1907.  
  1908.  
  1909. ############# Class : CQFilterNode ##############
  1910.  
  1911. package CQFilterNode;
  1912. @ISA = qw( CQPerlExt CQObject );
  1913. %OWNER = ();
  1914. sub GetBoolOp {
  1915.     my @args = @_;
  1916.     $args[0] = tied(%{$args[0]});
  1917.     my $result = CQPerlExtc::CQFilterNode_GetBoolOp(@args);
  1918.     return $result;
  1919. }
  1920. sub SetBoolOp {
  1921.     my @args = @_;
  1922.     $args[0] = tied(%{$args[0]});
  1923.     my $result = CQPerlExtc::CQFilterNode_SetBoolOp(@args);
  1924.     return $result;
  1925. }
  1926. sub GetParent {
  1927.     my @args = @_;
  1928.     $args[0] = tied(%{$args[0]});
  1929.     my $result = CQPerlExtc::CQFilterNode_GetParent(@args);
  1930.     return $result;
  1931. }
  1932. sub SetParent {
  1933.     my @args = @_;
  1934.     $args[0] = tied(%{$args[0]});
  1935.     my $result = CQPerlExtc::CQFilterNode_SetParent(@args);
  1936.     return $result;
  1937. }
  1938. sub GetChildCount {
  1939.     my @args = @_;
  1940.     $args[0] = tied(%{$args[0]});
  1941.     my $result = CQPerlExtc::CQFilterNode_GetChildCount(@args);
  1942.     return $result;
  1943. }
  1944. sub GetFieldFilters {
  1945.     my @args = @_;
  1946.     $args[0] = tied(%{$args[0]});
  1947.     my $result = CQPerlExtc::CQFilterNode_GetFieldFilters(@args);
  1948.     return $result;
  1949. }
  1950. sub AddChild {
  1951.     my @args = @_;
  1952.     $args[0] = tied(%{$args[0]});
  1953.     my $result = CQPerlExtc::CQFilterNode_AddChild(@args);
  1954.     return $result;
  1955. }
  1956. sub GetChild {
  1957.     my @args = @_;
  1958.     $args[0] = tied(%{$args[0]});
  1959.     my $result = CQPerlExtc::CQFilterNode_GetChild(@args);
  1960.     return $result;
  1961. }
  1962. sub DeleteChildByIndex {
  1963.     my @args = @_;
  1964.     $args[0] = tied(%{$args[0]});
  1965.     my $result = CQPerlExtc::CQFilterNode_DeleteChildByIndex(@args);
  1966.     return $result;
  1967. }
  1968. sub DISOWN {
  1969.     my $self = shift;
  1970.     my $ptr = tied(%$self);
  1971.     delete $OWNER{$ptr};
  1972.     };
  1973.  
  1974. sub ACQUIRE {
  1975.     my $self = shift;
  1976.     my $ptr = tied(%$self);
  1977.     $OWNER{$ptr} = 1;
  1978.     };
  1979.  
  1980.  
  1981. ############# Class : CQGroup ##############
  1982.  
  1983. package CQGroup;
  1984. @ISA = qw( CQPerlExt CQObject );
  1985. %OWNER = ();
  1986. %ITERATORS = ();
  1987. sub GetName {
  1988.     my @args = @_;
  1989.     $args[0] = tied(%{$args[0]});
  1990.     my $result = CQPerlExtc::CQGroup_GetName(@args);
  1991.     return $result;
  1992. }
  1993. sub SetName {
  1994.     my @args = @_;
  1995.     $args[0] = tied(%{$args[0]});
  1996.     my $result = CQPerlExtc::CQGroup_SetName(@args);
  1997.     return $result;
  1998. }
  1999. sub GetActive {
  2000.     my @args = @_;
  2001.     $args[0] = tied(%{$args[0]});
  2002.     my $result = CQPerlExtc::CQGroup_GetActive(@args);
  2003.     return $result;
  2004. }
  2005. sub SetActive {
  2006.     my @args = @_;
  2007.     $args[0] = tied(%{$args[0]});
  2008.     my $result = CQPerlExtc::CQGroup_SetActive(@args);
  2009.     return $result;
  2010. }
  2011. sub GetUsers {
  2012.     my @args = @_;
  2013.     $args[0] = tied(%{$args[0]});
  2014.     my $result = CQPerlExtc::CQGroup_GetUsers(@args);
  2015.     return $result;
  2016. }
  2017. sub GetDatabases {
  2018.     my @args = @_;
  2019.     $args[0] = tied(%{$args[0]});
  2020.     my $result = CQPerlExtc::CQGroup_GetDatabases(@args);
  2021.     return $result;
  2022. }
  2023. sub GetSubscribedDatabases {
  2024.     my @args = @_;
  2025.     $args[0] = tied(%{$args[0]});
  2026.     my $result = CQPerlExtc::CQGroup_GetSubscribedDatabases(@args);
  2027.     return $result;
  2028. }
  2029. sub AddUser {
  2030.     my @args = @_;
  2031.     $args[0] = tied(%{$args[0]});
  2032.     my $result = CQPerlExtc::CQGroup_AddUser(@args);
  2033.     return $result;
  2034. }
  2035. sub SubscribeDatabase {
  2036.     my @args = @_;
  2037.     $args[0] = tied(%{$args[0]});
  2038.     my $result = CQPerlExtc::CQGroup_SubscribeDatabase(@args);
  2039.     return $result;
  2040. }
  2041. sub UnsubscribeDatabase {
  2042.     my @args = @_;
  2043.     $args[0] = tied(%{$args[0]});
  2044.     my $result = CQPerlExtc::CQGroup_UnsubscribeDatabase(@args);
  2045.     return $result;
  2046. }
  2047. sub UnsubscribeAllDatabases {
  2048.     my @args = @_;
  2049.     $args[0] = tied(%{$args[0]});
  2050.     my $result = CQPerlExtc::CQGroup_UnsubscribeAllDatabases(@args);
  2051.     return $result;
  2052. }
  2053. sub IsSubscribedToAllDatabases {
  2054.     my @args = @_;
  2055.     $args[0] = tied(%{$args[0]});
  2056.     my $result = CQPerlExtc::CQGroup_IsSubscribedToAllDatabases(@args);
  2057.     return $result;
  2058. }
  2059. sub SetSubscribedToAllDatabases {
  2060.     my @args = @_;
  2061.     $args[0] = tied(%{$args[0]});
  2062.     my $result = CQPerlExtc::CQGroup_SetSubscribedToAllDatabases(@args);
  2063.     return $result;
  2064. }
  2065. sub DESTROY {
  2066.     my $self = tied(%{$_[0]});
  2067.     delete $ITERATORS{$self};
  2068.     if (exists $OWNER{$self}) {
  2069.         CQPerlExtc::delete_CQGroup($self);
  2070.         delete $OWNER{$self};
  2071.     }
  2072. }
  2073.  
  2074. sub CQInt_Id {
  2075.     my @args = @_;
  2076.     $args[0] = tied(%{$args[0]});
  2077.     my $result = CQPerlExtc::CQGroup_CQInt_Id(@args);
  2078.     return $result;
  2079. }
  2080. sub DISOWN {
  2081.     my $self = shift;
  2082.     my $ptr = tied(%$self);
  2083.     delete $OWNER{$ptr};
  2084.     };
  2085.  
  2086. sub ACQUIRE {
  2087.     my $self = shift;
  2088.     my $ptr = tied(%$self);
  2089.     $OWNER{$ptr} = 1;
  2090.     };
  2091.  
  2092.  
  2093. ############# Class : CQGroups ##############
  2094.  
  2095. package CQGroups;
  2096. @ISA = qw( CQPerlExt CQObject );
  2097. %OWNER = ();
  2098. %ITERATORS = ();
  2099. sub Count {
  2100.     my @args = @_;
  2101.     $args[0] = tied(%{$args[0]});
  2102.     my $result = CQPerlExtc::CQGroups_Count(@args);
  2103.     return $result;
  2104. }
  2105. sub Item {
  2106.     my @args = @_;
  2107.     $args[0] = tied(%{$args[0]});
  2108.     my $result = CQPerlExtc::CQGroups_Item(@args);
  2109.     return $result;
  2110. }
  2111. sub ItemByName {
  2112.     my @args = @_;
  2113.     $args[0] = tied(%{$args[0]});
  2114.     my $result = CQPerlExtc::CQGroups_ItemByName(@args);
  2115.     return $result;
  2116. }
  2117. sub Add {
  2118.     my @args = @_;
  2119.     $args[0] = tied(%{$args[0]});
  2120.     my $result = CQPerlExtc::CQGroups_Add(@args);
  2121.     return $result;
  2122. }
  2123. sub DESTROY {
  2124.     my $self = tied(%{$_[0]});
  2125.     delete $ITERATORS{$self};
  2126.     if (exists $OWNER{$self}) {
  2127.         CQPerlExtc::delete_CQGroups($self);
  2128.         delete $OWNER{$self};
  2129.     }
  2130. }
  2131.  
  2132. sub CQInt_Id {
  2133.     my @args = @_;
  2134.     $args[0] = tied(%{$args[0]});
  2135.     my $result = CQPerlExtc::CQGroups_CQInt_Id(@args);
  2136.     return $result;
  2137. }
  2138. sub DISOWN {
  2139.     my $self = shift;
  2140.     my $ptr = tied(%$self);
  2141.     delete $OWNER{$ptr};
  2142.     };
  2143.  
  2144. sub ACQUIRE {
  2145.     my $self = shift;
  2146.     my $ptr = tied(%$self);
  2147.     $OWNER{$ptr} = 1;
  2148.     };
  2149.  
  2150.  
  2151. ############# Class : CQHistory ##############
  2152.  
  2153. package CQHistory;
  2154. @ISA = qw( CQPerlExt CQObject );
  2155. %OWNER = ();
  2156. %ITERATORS = ();
  2157. sub GetValue {
  2158.     my @args = @_;
  2159.     $args[0] = tied(%{$args[0]});
  2160.     my $result = CQPerlExtc::CQHistory_GetValue(@args);
  2161.     return $result;
  2162. }
  2163. sub DESTROY {
  2164.     my $self = tied(%{$_[0]});
  2165.     delete $ITERATORS{$self};
  2166.     if (exists $OWNER{$self}) {
  2167.         CQPerlExtc::delete_CQHistory($self);
  2168.         delete $OWNER{$self};
  2169.     }
  2170. }
  2171.  
  2172. sub CQInt_Id {
  2173.     my @args = @_;
  2174.     $args[0] = tied(%{$args[0]});
  2175.     my $result = CQPerlExtc::CQHistory_CQInt_Id(@args);
  2176.     return $result;
  2177. }
  2178. sub DISOWN {
  2179.     my $self = shift;
  2180.     my $ptr = tied(%$self);
  2181.     delete $OWNER{$ptr};
  2182.     };
  2183.  
  2184. sub ACQUIRE {
  2185.     my $self = shift;
  2186.     my $ptr = tied(%$self);
  2187.     $OWNER{$ptr} = 1;
  2188.     };
  2189.  
  2190.  
  2191. ############# Class : CQHistories ##############
  2192.  
  2193. package CQHistories;
  2194. @ISA = qw( CQPerlExt CQObject );
  2195. %OWNER = ();
  2196. %ITERATORS = ();
  2197. sub Count {
  2198.     my @args = @_;
  2199.     $args[0] = tied(%{$args[0]});
  2200.     my $result = CQPerlExtc::CQHistories_Count(@args);
  2201.     return $result;
  2202. }
  2203. sub Item {
  2204.     my @args = @_;
  2205.     $args[0] = tied(%{$args[0]});
  2206.     my $result = CQPerlExtc::CQHistories_Item(@args);
  2207.     return $result;
  2208. }
  2209. sub ItemByName {
  2210.     my @args = @_;
  2211.     $args[0] = tied(%{$args[0]});
  2212.     my $result = CQPerlExtc::CQHistories_ItemByName(@args);
  2213.     return $result;
  2214. }
  2215. sub Add {
  2216.     my @args = @_;
  2217.     $args[0] = tied(%{$args[0]});
  2218.     my $result = CQPerlExtc::CQHistories_Add(@args);
  2219.     return $result;
  2220. }
  2221. sub DESTROY {
  2222.     my $self = tied(%{$_[0]});
  2223.     delete $ITERATORS{$self};
  2224.     if (exists $OWNER{$self}) {
  2225.         CQPerlExtc::delete_CQHistories($self);
  2226.         delete $OWNER{$self};
  2227.     }
  2228. }
  2229.  
  2230. sub CQInt_Id {
  2231.     my @args = @_;
  2232.     $args[0] = tied(%{$args[0]});
  2233.     my $result = CQPerlExtc::CQHistories_CQInt_Id(@args);
  2234.     return $result;
  2235. }
  2236. sub DISOWN {
  2237.     my $self = shift;
  2238.     my $ptr = tied(%$self);
  2239.     delete $OWNER{$ptr};
  2240.     };
  2241.  
  2242. sub ACQUIRE {
  2243.     my $self = shift;
  2244.     my $ptr = tied(%$self);
  2245.     $OWNER{$ptr} = 1;
  2246.     };
  2247.  
  2248.  
  2249. ############# Class : CQHistoryField ##############
  2250.  
  2251. package CQHistoryField;
  2252. @ISA = qw( CQPerlExt CQObject );
  2253. %OWNER = ();
  2254. %ITERATORS = ();
  2255. sub GetDisplayNameHeader {
  2256.     my @args = @_;
  2257.     $args[0] = tied(%{$args[0]});
  2258.     my $result = CQPerlExtc::CQHistoryField_GetDisplayNameHeader(@args);
  2259.     return $result;
  2260. }
  2261. sub GetHistories {
  2262.     my @args = @_;
  2263.     $args[0] = tied(%{$args[0]});
  2264.     my $result = CQPerlExtc::CQHistoryField_GetHistories(@args);
  2265.     return $result;
  2266. }
  2267. sub GetFieldName {
  2268.     my @args = @_;
  2269.     $args[0] = tied(%{$args[0]});
  2270.     my $result = CQPerlExtc::CQHistoryField_GetFieldName(@args);
  2271.     return $result;
  2272. }
  2273. sub DESTROY {
  2274.     my $self = tied(%{$_[0]});
  2275.     delete $ITERATORS{$self};
  2276.     if (exists $OWNER{$self}) {
  2277.         CQPerlExtc::delete_CQHistoryField($self);
  2278.         delete $OWNER{$self};
  2279.     }
  2280. }
  2281.  
  2282. sub CQInt_Id {
  2283.     my @args = @_;
  2284.     $args[0] = tied(%{$args[0]});
  2285.     my $result = CQPerlExtc::CQHistoryField_CQInt_Id(@args);
  2286.     return $result;
  2287. }
  2288. sub DISOWN {
  2289.     my $self = shift;
  2290.     my $ptr = tied(%$self);
  2291.     delete $OWNER{$ptr};
  2292.     };
  2293.  
  2294. sub ACQUIRE {
  2295.     my $self = shift;
  2296.     my $ptr = tied(%$self);
  2297.     $OWNER{$ptr} = 1;
  2298.     };
  2299.  
  2300.  
  2301. ############# Class : CQHistoryFields ##############
  2302.  
  2303. package CQHistoryFields;
  2304. @ISA = qw( CQPerlExt CQObject );
  2305. %OWNER = ();
  2306. %ITERATORS = ();
  2307. sub Count {
  2308.     my @args = @_;
  2309.     $args[0] = tied(%{$args[0]});
  2310.     my $result = CQPerlExtc::CQHistoryFields_Count(@args);
  2311.     return $result;
  2312. }
  2313. sub Item {
  2314.     my @args = @_;
  2315.     $args[0] = tied(%{$args[0]});
  2316.     my $result = CQPerlExtc::CQHistoryFields_Item(@args);
  2317.     return $result;
  2318. }
  2319. sub ItemByName {
  2320.     my @args = @_;
  2321.     $args[0] = tied(%{$args[0]});
  2322.     my $result = CQPerlExtc::CQHistoryFields_ItemByName(@args);
  2323.     return $result;
  2324. }
  2325. sub Add {
  2326.     my @args = @_;
  2327.     $args[0] = tied(%{$args[0]});
  2328.     my $result = CQPerlExtc::CQHistoryFields_Add(@args);
  2329.     return $result;
  2330. }
  2331. sub DESTROY {
  2332.     my $self = tied(%{$_[0]});
  2333.     delete $ITERATORS{$self};
  2334.     if (exists $OWNER{$self}) {
  2335.         CQPerlExtc::delete_CQHistoryFields($self);
  2336.         delete $OWNER{$self};
  2337.     }
  2338. }
  2339.  
  2340. sub CQInt_Id {
  2341.     my @args = @_;
  2342.     $args[0] = tied(%{$args[0]});
  2343.     my $result = CQPerlExtc::CQHistoryFields_CQInt_Id(@args);
  2344.     return $result;
  2345. }
  2346. sub DISOWN {
  2347.     my $self = shift;
  2348.     my $ptr = tied(%$self);
  2349.     delete $OWNER{$ptr};
  2350.     };
  2351.  
  2352. sub ACQUIRE {
  2353.     my $self = shift;
  2354.     my $ptr = tied(%$self);
  2355.     $OWNER{$ptr} = 1;
  2356.     };
  2357.  
  2358.  
  2359. ############# Class : CQLink ##############
  2360.  
  2361. package CQLink;
  2362. @ISA = qw( CQPerlExt CQObject );
  2363. %OWNER = ();
  2364. %ITERATORS = ();
  2365. sub GetParentEntityDef {
  2366.     my @args = @_;
  2367.     $args[0] = tied(%{$args[0]});
  2368.     my $result = CQPerlExtc::CQLink_GetParentEntityDef(@args);
  2369.     return $result;
  2370. }
  2371. sub GetParentEntityDefName {
  2372.     my @args = @_;
  2373.     $args[0] = tied(%{$args[0]});
  2374.     my $result = CQPerlExtc::CQLink_GetParentEntityDefName(@args);
  2375.     return $result;
  2376. }
  2377. sub GetParentEntity {
  2378.     my @args = @_;
  2379.     $args[0] = tied(%{$args[0]});
  2380.     my $result = CQPerlExtc::CQLink_GetParentEntity(@args);
  2381.     return $result;
  2382. }
  2383. sub GetParentEntityId {
  2384.     my @args = @_;
  2385.     $args[0] = tied(%{$args[0]});
  2386.     my $result = CQPerlExtc::CQLink_GetParentEntityId(@args);
  2387.     return $result;
  2388. }
  2389. sub GetChildEntityDef {
  2390.     my @args = @_;
  2391.     $args[0] = tied(%{$args[0]});
  2392.     my $result = CQPerlExtc::CQLink_GetChildEntityDef(@args);
  2393.     return $result;
  2394. }
  2395. sub GetChildEntityDefName {
  2396.     my @args = @_;
  2397.     $args[0] = tied(%{$args[0]});
  2398.     my $result = CQPerlExtc::CQLink_GetChildEntityDefName(@args);
  2399.     return $result;
  2400. }
  2401. sub GetChildEntity {
  2402.     my @args = @_;
  2403.     $args[0] = tied(%{$args[0]});
  2404.     my $result = CQPerlExtc::CQLink_GetChildEntity(@args);
  2405.     return $result;
  2406. }
  2407. sub GetChildEntityId {
  2408.     my @args = @_;
  2409.     $args[0] = tied(%{$args[0]});
  2410.     my $result = CQPerlExtc::CQLink_GetChildEntityId(@args);
  2411.     return $result;
  2412. }
  2413. sub DESTROY {
  2414.     my $self = tied(%{$_[0]});
  2415.     delete $ITERATORS{$self};
  2416.     if (exists $OWNER{$self}) {
  2417.         CQPerlExtc::delete_CQLink($self);
  2418.         delete $OWNER{$self};
  2419.     }
  2420. }
  2421.  
  2422. sub CQInt_Id {
  2423.     my @args = @_;
  2424.     $args[0] = tied(%{$args[0]});
  2425.     my $result = CQPerlExtc::CQLink_CQInt_Id(@args);
  2426.     return $result;
  2427. }
  2428. sub DISOWN {
  2429.     my $self = shift;
  2430.     my $ptr = tied(%$self);
  2431.     delete $OWNER{$ptr};
  2432.     };
  2433.  
  2434. sub ACQUIRE {
  2435.     my $self = shift;
  2436.     my $ptr = tied(%$self);
  2437.     $OWNER{$ptr} = 1;
  2438.     };
  2439.  
  2440.  
  2441. ############# Class : CQLinks ##############
  2442.  
  2443. package CQLinks;
  2444. @ISA = qw( CQPerlExt CQObject );
  2445. %OWNER = ();
  2446. %ITERATORS = ();
  2447. sub Count {
  2448.     my @args = @_;
  2449.     $args[0] = tied(%{$args[0]});
  2450.     my $result = CQPerlExtc::CQLinks_Count(@args);
  2451.     return $result;
  2452. }
  2453. sub Item {
  2454.     my @args = @_;
  2455.     $args[0] = tied(%{$args[0]});
  2456.     my $result = CQPerlExtc::CQLinks_Item(@args);
  2457.     return $result;
  2458. }
  2459. sub ItemByName {
  2460.     my @args = @_;
  2461.     $args[0] = tied(%{$args[0]});
  2462.     my $result = CQPerlExtc::CQLinks_ItemByName(@args);
  2463.     return $result;
  2464. }
  2465. sub Add {
  2466.     my @args = @_;
  2467.     $args[0] = tied(%{$args[0]});
  2468.     my $result = CQPerlExtc::CQLinks_Add(@args);
  2469.     return $result;
  2470. }
  2471. sub DESTROY {
  2472.     my $self = tied(%{$_[0]});
  2473.     delete $ITERATORS{$self};
  2474.     if (exists $OWNER{$self}) {
  2475.         CQPerlExtc::delete_CQLinks($self);
  2476.         delete $OWNER{$self};
  2477.     }
  2478. }
  2479.  
  2480. sub CQInt_Id {
  2481.     my @args = @_;
  2482.     $args[0] = tied(%{$args[0]});
  2483.     my $result = CQPerlExtc::CQLinks_CQInt_Id(@args);
  2484.     return $result;
  2485. }
  2486. sub DISOWN {
  2487.     my $self = shift;
  2488.     my $ptr = tied(%$self);
  2489.     delete $OWNER{$ptr};
  2490.     };
  2491.  
  2492. sub ACQUIRE {
  2493.     my $self = shift;
  2494.     my $ptr = tied(%$self);
  2495.     $OWNER{$ptr} = 1;
  2496.     };
  2497.  
  2498.  
  2499. ############# Class : CQPackageRev ##############
  2500.  
  2501. package CQPackageRev;
  2502. @ISA = qw( CQPerlExt CQObject );
  2503. %OWNER = ();
  2504. %ITERATORS = ();
  2505. sub GetRevString {
  2506.     my @args = @_;
  2507.     $args[0] = tied(%{$args[0]});
  2508.     my $result = CQPerlExtc::CQPackageRev_GetRevString(@args);
  2509.     return $result;
  2510. }
  2511. sub GetPackageName {
  2512.     my @args = @_;
  2513.     $args[0] = tied(%{$args[0]});
  2514.     my $result = CQPerlExtc::CQPackageRev_GetPackageName(@args);
  2515.     return $result;
  2516. }
  2517. sub DESTROY {
  2518.     my $self = tied(%{$_[0]});
  2519.     delete $ITERATORS{$self};
  2520.     if (exists $OWNER{$self}) {
  2521.         CQPerlExtc::delete_CQPackageRev($self);
  2522.         delete $OWNER{$self};
  2523.     }
  2524. }
  2525.  
  2526. sub CQInt_Id {
  2527.     my @args = @_;
  2528.     $args[0] = tied(%{$args[0]});
  2529.     my $result = CQPerlExtc::CQPackageRev_CQInt_Id(@args);
  2530.     return $result;
  2531. }
  2532. sub DISOWN {
  2533.     my $self = shift;
  2534.     my $ptr = tied(%$self);
  2535.     delete $OWNER{$ptr};
  2536.     };
  2537.  
  2538. sub ACQUIRE {
  2539.     my $self = shift;
  2540.     my $ptr = tied(%$self);
  2541.     $OWNER{$ptr} = 1;
  2542.     };
  2543.  
  2544.  
  2545. ############# Class : CQPackageRevs ##############
  2546.  
  2547. package CQPackageRevs;
  2548. @ISA = qw( CQPerlExt CQObject );
  2549. %OWNER = ();
  2550. %ITERATORS = ();
  2551. sub Count {
  2552.     my @args = @_;
  2553.     $args[0] = tied(%{$args[0]});
  2554.     my $result = CQPerlExtc::CQPackageRevs_Count(@args);
  2555.     return $result;
  2556. }
  2557. sub Item {
  2558.     my @args = @_;
  2559.     $args[0] = tied(%{$args[0]});
  2560.     my $result = CQPerlExtc::CQPackageRevs_Item(@args);
  2561.     return $result;
  2562. }
  2563. sub ItemByName {
  2564.     my @args = @_;
  2565.     $args[0] = tied(%{$args[0]});
  2566.     my $result = CQPerlExtc::CQPackageRevs_ItemByName(@args);
  2567.     return $result;
  2568. }
  2569. sub Add {
  2570.     my @args = @_;
  2571.     $args[0] = tied(%{$args[0]});
  2572.     my $result = CQPerlExtc::CQPackageRevs_Add(@args);
  2573.     return $result;
  2574. }
  2575. sub DESTROY {
  2576.     my $self = tied(%{$_[0]});
  2577.     delete $ITERATORS{$self};
  2578.     if (exists $OWNER{$self}) {
  2579.         CQPerlExtc::delete_CQPackageRevs($self);
  2580.         delete $OWNER{$self};
  2581.     }
  2582. }
  2583.  
  2584. sub CQInt_Id {
  2585.     my @args = @_;
  2586.     $args[0] = tied(%{$args[0]});
  2587.     my $result = CQPerlExtc::CQPackageRevs_CQInt_Id(@args);
  2588.     return $result;
  2589. }
  2590. sub DISOWN {
  2591.     my $self = shift;
  2592.     my $ptr = tied(%$self);
  2593.     delete $OWNER{$ptr};
  2594.     };
  2595.  
  2596. sub ACQUIRE {
  2597.     my $self = shift;
  2598.     my $ptr = tied(%$self);
  2599.     $OWNER{$ptr} = 1;
  2600.     };
  2601.  
  2602.  
  2603. ############# Class : CQProductInfo ##############
  2604.  
  2605. package CQProductInfo;
  2606. @ISA = qw( CQPerlExt CQObject );
  2607. %OWNER = ();
  2608. %ITERATORS = ();
  2609. sub GetFullProductVersion {
  2610.     my @args = @_;
  2611.     $args[0] = tied(%{$args[0]});
  2612.     my $result = CQPerlExtc::CQProductInfo_GetFullProductVersion(@args);
  2613.     return $result;
  2614. }
  2615. sub GetProductVersion {
  2616.     my @args = @_;
  2617.     $args[0] = tied(%{$args[0]});
  2618.     my $result = CQPerlExtc::CQProductInfo_GetProductVersion(@args);
  2619.     return $result;
  2620. }
  2621. sub GetPatchVersion {
  2622.     my @args = @_;
  2623.     $args[0] = tied(%{$args[0]});
  2624.     my $result = CQPerlExtc::CQProductInfo_GetPatchVersion(@args);
  2625.     return $result;
  2626. }
  2627. sub GetLicenseVersion {
  2628.     my @args = @_;
  2629.     $args[0] = tied(%{$args[0]});
  2630.     my $result = CQPerlExtc::CQProductInfo_GetLicenseVersion(@args);
  2631.     return $result;
  2632. }
  2633. sub GetLicenseFeature {
  2634.     my @args = @_;
  2635.     $args[0] = tied(%{$args[0]});
  2636.     my $result = CQPerlExtc::CQProductInfo_GetLicenseFeature(@args);
  2637.     return $result;
  2638. }
  2639. sub GetWebLicenseVersion {
  2640.     my @args = @_;
  2641.     $args[0] = tied(%{$args[0]});
  2642.     my $result = CQPerlExtc::CQProductInfo_GetWebLicenseVersion(@args);
  2643.     return $result;
  2644. }
  2645. sub GetCompanyName {
  2646.     my @args = @_;
  2647.     $args[0] = tied(%{$args[0]});
  2648.     my $result = CQPerlExtc::CQProductInfo_GetCompanyName(@args);
  2649.     return $result;
  2650. }
  2651. sub GetCompanyFullName {
  2652.     my @args = @_;
  2653.     $args[0] = tied(%{$args[0]});
  2654.     my $result = CQPerlExtc::CQProductInfo_GetCompanyFullName(@args);
  2655.     return $result;
  2656. }
  2657. sub GetCompanyEmailAddress {
  2658.     my @args = @_;
  2659.     $args[0] = tied(%{$args[0]});
  2660.     my $result = CQPerlExtc::CQProductInfo_GetCompanyEmailAddress(@args);
  2661.     return $result;
  2662. }
  2663. sub GetCompanyWebAddress {
  2664.     my @args = @_;
  2665.     $args[0] = tied(%{$args[0]});
  2666.     my $result = CQPerlExtc::CQProductInfo_GetCompanyWebAddress(@args);
  2667.     return $result;
  2668. }
  2669. sub GetBuildNumber {
  2670.     my @args = @_;
  2671.     $args[0] = tied(%{$args[0]});
  2672.     my $result = CQPerlExtc::CQProductInfo_GetBuildNumber(@args);
  2673.     return $result;
  2674. }
  2675. sub GetStageLabel {
  2676.     my @args = @_;
  2677.     $args[0] = tied(%{$args[0]});
  2678.     my $result = CQPerlExtc::CQProductInfo_GetStageLabel(@args);
  2679.     return $result;
  2680. }
  2681. sub GetDefaultDbSetName {
  2682.     my @args = @_;
  2683.     $args[0] = tied(%{$args[0]});
  2684.     my $result = CQPerlExtc::CQProductInfo_GetDefaultDbSetName(@args);
  2685.     return $result;
  2686. }
  2687. sub GetObjectModelVersionMajor {
  2688.     my @args = @_;
  2689.     $args[0] = tied(%{$args[0]});
  2690.     my $result = CQPerlExtc::CQProductInfo_GetObjectModelVersionMajor(@args);
  2691.     return $result;
  2692. }
  2693. sub GetObjectModelVersionMinor {
  2694.     my @args = @_;
  2695.     $args[0] = tied(%{$args[0]});
  2696.     my $result = CQPerlExtc::CQProductInfo_GetObjectModelVersionMinor(@args);
  2697.     return $result;
  2698. }
  2699. sub DESTROY {
  2700.     my $self = tied(%{$_[0]});
  2701.     delete $ITERATORS{$self};
  2702.     if (exists $OWNER{$self}) {
  2703.         CQPerlExtc::delete_CQProductInfo($self);
  2704.         delete $OWNER{$self};
  2705.     }
  2706. }
  2707.  
  2708. sub CQInt_Id {
  2709.     my @args = @_;
  2710.     $args[0] = tied(%{$args[0]});
  2711.     my $result = CQPerlExtc::CQProductInfo_CQInt_Id(@args);
  2712.     return $result;
  2713. }
  2714. sub DISOWN {
  2715.     my $self = shift;
  2716.     my $ptr = tied(%$self);
  2717.     delete $OWNER{$ptr};
  2718.     };
  2719.  
  2720. sub ACQUIRE {
  2721.     my $self = shift;
  2722.     my $ptr = tied(%$self);
  2723.     $OWNER{$ptr} = 1;
  2724.     };
  2725.  
  2726.  
  2727. ############# Class : CQQueryDef ##############
  2728.  
  2729. package CQQueryDef;
  2730. @ISA = qw( CQPerlExt CQObject );
  2731. %OWNER = ();
  2732. %ITERATORS = ();
  2733. sub GetQueryType {
  2734.     my @args = @_;
  2735.     $args[0] = tied(%{$args[0]});
  2736.     my $result = CQPerlExtc::CQQueryDef_GetQueryType(@args);
  2737.     return $result;
  2738. }
  2739. sub GetSQL {
  2740.     my @args = @_;
  2741.     $args[0] = tied(%{$args[0]});
  2742.     my $result = CQPerlExtc::CQQueryDef_GetSQL(@args);
  2743.     return $result;
  2744. }
  2745. sub SetSQL {
  2746.     my @args = @_;
  2747.     $args[0] = tied(%{$args[0]});
  2748.     my $result = CQPerlExtc::CQQueryDef_SetSQL(@args);
  2749.     return $result;
  2750. }
  2751. sub GetIsDirty {
  2752.     my @args = @_;
  2753.     $args[0] = tied(%{$args[0]});
  2754.     my $result = CQPerlExtc::CQQueryDef_GetIsDirty(@args);
  2755.     return $result;
  2756. }
  2757. sub GetIsAggregated {
  2758.     my @args = @_;
  2759.     $args[0] = tied(%{$args[0]});
  2760.     my $result = CQPerlExtc::CQQueryDef_GetIsAggregated(@args);
  2761.     return $result;
  2762. }
  2763. sub GetIsMultiType {
  2764.     my @args = @_;
  2765.     $args[0] = tied(%{$args[0]});
  2766.     my $result = CQPerlExtc::CQQueryDef_GetIsMultiType(@args);
  2767.     return $result;
  2768. }
  2769. sub GetName {
  2770.     my @args = @_;
  2771.     $args[0] = tied(%{$args[0]});
  2772.     my $result = CQPerlExtc::CQQueryDef_GetName(@args);
  2773.     return $result;
  2774. }
  2775. sub SetName {
  2776.     my @args = @_;
  2777.     $args[0] = tied(%{$args[0]});
  2778.     my $result = CQPerlExtc::CQQueryDef_SetName(@args);
  2779.     return $result;
  2780. }
  2781. sub Save {
  2782.     my @args = @_;
  2783.     $args[0] = tied(%{$args[0]});
  2784.     my $result = CQPerlExtc::CQQueryDef_Save(@args);
  2785.     return $result;
  2786. }
  2787. sub BuildField {
  2788.     my @args = @_;
  2789.     $args[0] = tied(%{$args[0]});
  2790.     my $result = CQPerlExtc::CQQueryDef_BuildField(@args);
  2791.     return $result;
  2792. }
  2793. sub BuildFilterOperator {
  2794.     my @args = @_;
  2795.     $args[0] = tied(%{$args[0]});
  2796.     my $result = CQPerlExtc::CQQueryDef_BuildFilterOperator(@args);
  2797.     return $result;
  2798. }
  2799. sub GetQueryFilter {
  2800.     my @args = @_;
  2801.     $args[0] = tied(%{$args[0]});
  2802.     my $result = CQPerlExtc::CQQueryDef_GetQueryFilter(@args);
  2803.     return $result;
  2804. }
  2805. sub GetQueryFieldDefs {
  2806.     my @args = @_;
  2807.     $args[0] = tied(%{$args[0]});
  2808.     my $result = CQPerlExtc::CQQueryDef_GetQueryFieldDefs(@args);
  2809.     return $result;
  2810. }
  2811. sub BuildUniqueKeyField {
  2812.     my @args = @_;
  2813.     $args[0] = tied(%{$args[0]});
  2814.     my $result = CQPerlExtc::CQQueryDef_BuildUniqueKeyField(@args);
  2815.     return $result;
  2816. }
  2817. sub BuildUniqueKeyFilter {
  2818.     my @args = @_;
  2819.     $args[0] = tied(%{$args[0]});
  2820.     my $result = CQPerlExtc::CQQueryDef_BuildUniqueKeyFilter(@args);
  2821.     return $result;
  2822. }
  2823. sub GetFieldByPosition {
  2824.     my @args = @_;
  2825.     $args[0] = tied(%{$args[0]});
  2826.     my $result = CQPerlExtc::CQQueryDef_GetFieldByPosition(@args);
  2827.     return $result;
  2828. }
  2829. sub DESTROY {
  2830.     my $self = tied(%{$_[0]});
  2831.     delete $ITERATORS{$self};
  2832.     if (exists $OWNER{$self}) {
  2833.         CQPerlExtc::delete_CQQueryDef($self);
  2834.         delete $OWNER{$self};
  2835.     }
  2836. }
  2837.  
  2838. sub CQInt_Id {
  2839.     my @args = @_;
  2840.     $args[0] = tied(%{$args[0]});
  2841.     my $result = CQPerlExtc::CQQueryDef_CQInt_Id(@args);
  2842.     return $result;
  2843. }
  2844. sub DISOWN {
  2845.     my $self = shift;
  2846.     my $ptr = tied(%$self);
  2847.     delete $OWNER{$ptr};
  2848.     };
  2849.  
  2850. sub ACQUIRE {
  2851.     my $self = shift;
  2852.     my $ptr = tied(%$self);
  2853.     $OWNER{$ptr} = 1;
  2854.     };
  2855.  
  2856.  
  2857. ############# Class : CQQueryDefs ##############
  2858.  
  2859. package CQQueryDefs;
  2860. @ISA = qw( CQPerlExt CQObject );
  2861. %OWNER = ();
  2862. sub Count {
  2863.     my @args = @_;
  2864.     $args[0] = tied(%{$args[0]});
  2865.     my $result = CQPerlExtc::CQQueryDefs_Count(@args);
  2866.     return $result;
  2867. }
  2868. sub Item {
  2869.     my @args = @_;
  2870.     $args[0] = tied(%{$args[0]});
  2871.     my $result = CQPerlExtc::CQQueryDefs_Item(@args);
  2872.     return $result;
  2873. }
  2874. sub ItemByName {
  2875.     my @args = @_;
  2876.     $args[0] = tied(%{$args[0]});
  2877.     my $result = CQPerlExtc::CQQueryDefs_ItemByName(@args);
  2878.     return $result;
  2879. }
  2880. sub AddQueryDef {
  2881.     my @args = @_;
  2882.     $args[0] = tied(%{$args[0]});
  2883.     my $result = CQPerlExtc::CQQueryDefs_AddQueryDef(@args);
  2884.     return $result;
  2885. }
  2886. sub Load {
  2887.     my @args = @_;
  2888.     $args[0] = tied(%{$args[0]});
  2889.     my $result = CQPerlExtc::CQQueryDefs_Load(@args);
  2890.     return $result;
  2891. }
  2892. sub Remove {
  2893.     my @args = @_;
  2894.     $args[0] = tied(%{$args[0]});
  2895.     my $result = CQPerlExtc::CQQueryDefs_Remove(@args);
  2896.     return $result;
  2897. }
  2898. sub DISOWN {
  2899.     my $self = shift;
  2900.     my $ptr = tied(%$self);
  2901.     delete $OWNER{$ptr};
  2902.     };
  2903.  
  2904. sub ACQUIRE {
  2905.     my $self = shift;
  2906.     my $ptr = tied(%$self);
  2907.     $OWNER{$ptr} = 1;
  2908.     };
  2909.  
  2910.  
  2911. ############# Class : CQQueryFieldDef ##############
  2912.  
  2913. package CQQueryFieldDef;
  2914. @ISA = qw( CQPerlExt CQObject );
  2915. %OWNER = ();
  2916. sub GetFieldPathName {
  2917.     my @args = @_;
  2918.     $args[0] = tied(%{$args[0]});
  2919.     my $result = CQPerlExtc::CQQueryFieldDef_GetFieldPathName(@args);
  2920.     return $result;
  2921. }
  2922. sub SetFieldPathName {
  2923.     my @args = @_;
  2924.     $args[0] = tied(%{$args[0]});
  2925.     my $result = CQPerlExtc::CQQueryFieldDef_SetFieldPathName(@args);
  2926.     return $result;
  2927. }
  2928. sub GetDataType {
  2929.     my @args = @_;
  2930.     $args[0] = tied(%{$args[0]});
  2931.     my $result = CQPerlExtc::CQQueryFieldDef_GetDataType(@args);
  2932.     return $result;
  2933. }
  2934. sub GetFieldType {
  2935.     my @args = @_;
  2936.     $args[0] = tied(%{$args[0]});
  2937.     my $result = CQPerlExtc::CQQueryFieldDef_GetFieldType(@args);
  2938.     return $result;
  2939. }
  2940. sub GetFunction {
  2941.     my @args = @_;
  2942.     $args[0] = tied(%{$args[0]});
  2943.     my $result = CQPerlExtc::CQQueryFieldDef_GetFunction(@args);
  2944.     return $result;
  2945. }
  2946. sub SetFunction {
  2947.     my @args = @_;
  2948.     $args[0] = tied(%{$args[0]});
  2949.     my $result = CQPerlExtc::CQQueryFieldDef_SetFunction(@args);
  2950.     return $result;
  2951. }
  2952. sub GetAggregateFunction {
  2953.     my @args = @_;
  2954.     $args[0] = tied(%{$args[0]});
  2955.     my $result = CQPerlExtc::CQQueryFieldDef_GetAggregateFunction(@args);
  2956.     return $result;
  2957. }
  2958. sub SetAggregateFunction {
  2959.     my @args = @_;
  2960.     $args[0] = tied(%{$args[0]});
  2961.     my $result = CQPerlExtc::CQQueryFieldDef_SetAggregateFunction(@args);
  2962.     return $result;
  2963. }
  2964. sub GetIsShown {
  2965.     my @args = @_;
  2966.     $args[0] = tied(%{$args[0]});
  2967.     my $result = CQPerlExtc::CQQueryFieldDef_GetIsShown(@args);
  2968.     return $result;
  2969. }
  2970. sub SetIsShown {
  2971.     my @args = @_;
  2972.     $args[0] = tied(%{$args[0]});
  2973.     my $result = CQPerlExtc::CQQueryFieldDef_SetIsShown(@args);
  2974.     return $result;
  2975. }
  2976. sub GetLabel {
  2977.     my @args = @_;
  2978.     $args[0] = tied(%{$args[0]});
  2979.     my $result = CQPerlExtc::CQQueryFieldDef_GetLabel(@args);
  2980.     return $result;
  2981. }
  2982. sub SetLabel {
  2983.     my @args = @_;
  2984.     $args[0] = tied(%{$args[0]});
  2985.     my $result = CQPerlExtc::CQQueryFieldDef_SetLabel(@args);
  2986.     return $result;
  2987. }
  2988. sub GetSortType {
  2989.     my @args = @_;
  2990.     $args[0] = tied(%{$args[0]});
  2991.     my $result = CQPerlExtc::CQQueryFieldDef_GetSortType(@args);
  2992.     return $result;
  2993. }
  2994. sub SetSortType {
  2995.     my @args = @_;
  2996.     $args[0] = tied(%{$args[0]});
  2997.     my $result = CQPerlExtc::CQQueryFieldDef_SetSortType(@args);
  2998.     return $result;
  2999. }
  3000. sub GetSortOrder {
  3001.     my @args = @_;
  3002.     $args[0] = tied(%{$args[0]});
  3003.     my $result = CQPerlExtc::CQQueryFieldDef_GetSortOrder(@args);
  3004.     return $result;
  3005. }
  3006. sub SetSortOrder {
  3007.     my @args = @_;
  3008.     $args[0] = tied(%{$args[0]});
  3009.     my $result = CQPerlExtc::CQQueryFieldDef_SetSortOrder(@args);
  3010.     return $result;
  3011. }
  3012. sub GetIsGroupBy {
  3013.     my @args = @_;
  3014.     $args[0] = tied(%{$args[0]});
  3015.     my $result = CQPerlExtc::CQQueryFieldDef_GetIsGroupBy(@args);
  3016.     return $result;
  3017. }
  3018. sub SetIsGroupBy {
  3019.     my @args = @_;
  3020.     $args[0] = tied(%{$args[0]});
  3021.     my $result = CQPerlExtc::CQQueryFieldDef_SetIsGroupBy(@args);
  3022.     return $result;
  3023. }
  3024. sub GetChoiceList {
  3025.     my @args = @_;
  3026.     $args[0] = tied(%{$args[0]});
  3027.     my $result = CQPerlExtc::CQQueryFieldDef_GetChoiceList(@args);
  3028.     return $result;
  3029. }
  3030. sub GetIsLegalForFilter {
  3031.     my @args = @_;
  3032.     $args[0] = tied(%{$args[0]});
  3033.     my $result = CQPerlExtc::CQQueryFieldDef_GetIsLegalForFilter(@args);
  3034.     return $result;
  3035. }
  3036. sub GetDescription {
  3037.     my @args = @_;
  3038.     $args[0] = tied(%{$args[0]});
  3039.     my $result = CQPerlExtc::CQQueryFieldDef_GetDescription(@args);
  3040.     return $result;
  3041. }
  3042. sub DISOWN {
  3043.     my $self = shift;
  3044.     my $ptr = tied(%$self);
  3045.     delete $OWNER{$ptr};
  3046.     };
  3047.  
  3048. sub ACQUIRE {
  3049.     my $self = shift;
  3050.     my $ptr = tied(%$self);
  3051.     $OWNER{$ptr} = 1;
  3052.     };
  3053.  
  3054.  
  3055. ############# Class : CQQueryFieldDefs ##############
  3056.  
  3057. package CQQueryFieldDefs;
  3058. @ISA = qw( CQPerlExt CQObject );
  3059. %OWNER = ();
  3060. sub Count {
  3061.     my @args = @_;
  3062.     $args[0] = tied(%{$args[0]});
  3063.     my $result = CQPerlExtc::CQQueryFieldDefs_Count(@args);
  3064.     return $result;
  3065. }
  3066. sub Item {
  3067.     my @args = @_;
  3068.     $args[0] = tied(%{$args[0]});
  3069.     my $result = CQPerlExtc::CQQueryFieldDefs_Item(@args);
  3070.     return $result;
  3071. }
  3072. sub ItemByName {
  3073.     my @args = @_;
  3074.     $args[0] = tied(%{$args[0]});
  3075.     my $result = CQPerlExtc::CQQueryFieldDefs_ItemByName(@args);
  3076.     return $result;
  3077. }
  3078. sub AddNew {
  3079.     my @args = @_;
  3080.     $args[0] = tied(%{$args[0]});
  3081.     my $result = CQPerlExtc::CQQueryFieldDefs_AddNew(@args);
  3082.     return $result;
  3083. }
  3084. sub AddByFieldPath {
  3085.     my @args = @_;
  3086.     $args[0] = tied(%{$args[0]});
  3087.     my $result = CQPerlExtc::CQQueryFieldDefs_AddByFieldPath(@args);
  3088.     return $result;
  3089. }
  3090. sub AddUniqueKey {
  3091.     my @args = @_;
  3092.     $args[0] = tied(%{$args[0]});
  3093.     my $result = CQPerlExtc::CQQueryFieldDefs_AddUniqueKey(@args);
  3094.     return $result;
  3095. }
  3096. sub Remove {
  3097.     my @args = @_;
  3098.     $args[0] = tied(%{$args[0]});
  3099.     my $result = CQPerlExtc::CQQueryFieldDefs_Remove(@args);
  3100.     return $result;
  3101. }
  3102. sub DISOWN {
  3103.     my $self = shift;
  3104.     my $ptr = tied(%$self);
  3105.     delete $OWNER{$ptr};
  3106.     };
  3107.  
  3108. sub ACQUIRE {
  3109.     my $self = shift;
  3110.     my $ptr = tied(%$self);
  3111.     $OWNER{$ptr} = 1;
  3112.     };
  3113.  
  3114.  
  3115. ############# Class : CQQueryFilterNode ##############
  3116.  
  3117. package CQQueryFilterNode;
  3118. @ISA = qw( CQPerlExt CQObject );
  3119. %OWNER = ();
  3120. %ITERATORS = ();
  3121. sub BuildFilterOperator {
  3122.     my @args = @_;
  3123.     $args[0] = tied(%{$args[0]});
  3124.     my $result = CQPerlExtc::CQQueryFilterNode_BuildFilterOperator(@args);
  3125.     return $result;
  3126. }
  3127. sub BuildFilter {
  3128.     my @args = @_;
  3129.     $args[0] = tied(%{$args[0]});
  3130.     my $result = CQPerlExtc::CQQueryFilterNode_BuildFilter(@args);
  3131.     return $result;
  3132. }
  3133. sub DESTROY {
  3134.     my $self = tied(%{$_[0]});
  3135.     delete $ITERATORS{$self};
  3136.     if (exists $OWNER{$self}) {
  3137.         CQPerlExtc::delete_CQQueryFilterNode($self);
  3138.         delete $OWNER{$self};
  3139.     }
  3140. }
  3141.  
  3142. sub CQInt_Id {
  3143.     my @args = @_;
  3144.     $args[0] = tied(%{$args[0]});
  3145.     my $result = CQPerlExtc::CQQueryFilterNode_CQInt_Id(@args);
  3146.     return $result;
  3147. }
  3148. sub DISOWN {
  3149.     my $self = shift;
  3150.     my $ptr = tied(%$self);
  3151.     delete $OWNER{$ptr};
  3152.     };
  3153.  
  3154. sub ACQUIRE {
  3155.     my $self = shift;
  3156.     my $ptr = tied(%$self);
  3157.     $OWNER{$ptr} = 1;
  3158.     };
  3159.  
  3160.  
  3161. ############# Class : CQSession ##############
  3162.  
  3163. package CQSession;
  3164. @ISA = qw( CQPerlExt CQObject );
  3165. %OWNER = ();
  3166. *Build = *CQPerlExt::CQSession_Build;
  3167. *Unbuild = *CQPerlExt::CQSession_Unbuild;
  3168. sub UserLogon {
  3169.     my @args = @_;
  3170.     $args[0] = tied(%{$args[0]});
  3171.     my $result = CQPerlExtc::CQSession_UserLogon(@args);
  3172.     return $result;
  3173. }
  3174. sub BuildEntity {
  3175.     my @args = @_;
  3176.     $args[0] = tied(%{$args[0]});
  3177.     my $result = CQPerlExtc::CQSession_BuildEntity(@args);
  3178.     return $result;
  3179. }
  3180. sub BeginTransaction {
  3181.     my @args = @_;
  3182.     $args[0] = tied(%{$args[0]});
  3183.     my $result = CQPerlExtc::CQSession_BeginTransaction(@args);
  3184.     return $result;
  3185. }
  3186. sub EndTransaction {
  3187.     my @args = @_;
  3188.     $args[0] = tied(%{$args[0]});
  3189.     my $result = CQPerlExtc::CQSession_EndTransaction(@args);
  3190.     return $result;
  3191. }
  3192. sub IsMetadataReadonly {
  3193.     my @args = @_;
  3194.     $args[0] = tied(%{$args[0]});
  3195.     my $result = CQPerlExtc::CQSession_IsMetadataReadonly(@args);
  3196.     return $result;
  3197. }
  3198. sub EditEntity {
  3199.     my @args = @_;
  3200.     $args[0] = tied(%{$args[0]});
  3201.     my $result = CQPerlExtc::CQSession_EditEntity(@args);
  3202.     return $result;
  3203. }
  3204. sub OpenQueryDef {
  3205.     my @args = @_;
  3206.     $args[0] = tied(%{$args[0]});
  3207.     my $result = CQPerlExtc::CQSession_OpenQueryDef(@args);
  3208.     return $result;
  3209. }
  3210. sub GetEntity {
  3211.     my @args = @_;
  3212.     $args[0] = tied(%{$args[0]});
  3213.     my $result = CQPerlExtc::CQSession_GetEntity(@args);
  3214.     return $result;
  3215. }
  3216. sub GetEntityByDbId {
  3217.     my @args = @_;
  3218.     $args[0] = tied(%{$args[0]});
  3219.     my $result = CQPerlExtc::CQSession_GetEntityByDbId(@args);
  3220.     return $result;
  3221. }
  3222. sub MarkEntityAsDuplicate {
  3223.     my @args = @_;
  3224.     $args[0] = tied(%{$args[0]});
  3225.     my $result = CQPerlExtc::CQSession_MarkEntityAsDuplicate(@args);
  3226.     return $result;
  3227. }
  3228. sub UnmarkEntityAsDuplicate {
  3229.     my @args = @_;
  3230.     $args[0] = tied(%{$args[0]});
  3231.     my $result = CQPerlExtc::CQSession_UnmarkEntityAsDuplicate(@args);
  3232.     return $result;
  3233. }
  3234. sub OutputDebugString {
  3235.     my @args = @_;
  3236.     $args[0] = tied(%{$args[0]});
  3237.     my $result = CQPerlExtc::CQSession_OutputDebugString(@args);
  3238.     return $result;
  3239. }
  3240. sub GetUserLoginName {
  3241.     my @args = @_;
  3242.     $args[0] = tied(%{$args[0]});
  3243.     my $result = CQPerlExtc::CQSession_GetUserLoginName(@args);
  3244.     return $result;
  3245. }
  3246. sub GetUserFullName {
  3247.     my @args = @_;
  3248.     $args[0] = tied(%{$args[0]});
  3249.     my $result = CQPerlExtc::CQSession_GetUserFullName(@args);
  3250.     return $result;
  3251. }
  3252. sub GetUserEmail {
  3253.     my @args = @_;
  3254.     $args[0] = tied(%{$args[0]});
  3255.     my $result = CQPerlExtc::CQSession_GetUserEmail(@args);
  3256.     return $result;
  3257. }
  3258. sub GetUserPhone {
  3259.     my @args = @_;
  3260.     $args[0] = tied(%{$args[0]});
  3261.     my $result = CQPerlExtc::CQSession_GetUserPhone(@args);
  3262.     return $result;
  3263. }
  3264. sub GetUserMiscInfo {
  3265.     my @args = @_;
  3266.     $args[0] = tied(%{$args[0]});
  3267.     my $result = CQPerlExtc::CQSession_GetUserMiscInfo(@args);
  3268.     return $result;
  3269. }
  3270. sub GetDefaultEntityDef {
  3271.     my @args = @_;
  3272.     $args[0] = tied(%{$args[0]});
  3273.     my $result = CQPerlExtc::CQSession_GetDefaultEntityDef(@args);
  3274.     return $result;
  3275. }
  3276. sub HasValue {
  3277.     my @args = @_;
  3278.     $args[0] = tied(%{$args[0]});
  3279.     my $result = CQPerlExtc::CQSession_HasValue(@args);
  3280.     return $result;
  3281. }
  3282. sub AddListMember {
  3283.     my @args = @_;
  3284.     $args[0] = tied(%{$args[0]});
  3285.     my $result = CQPerlExtc::CQSession_AddListMember(@args);
  3286.     return $result;
  3287. }
  3288. sub DeleteListMember {
  3289.     my @args = @_;
  3290.     $args[0] = tied(%{$args[0]});
  3291.     my $result = CQPerlExtc::CQSession_DeleteListMember(@args);
  3292.     return $result;
  3293. }
  3294. sub GetUserEncryptedPassword {
  3295.     my @args = @_;
  3296.     $args[0] = tied(%{$args[0]});
  3297.     my $result = CQPerlExtc::CQSession_GetUserEncryptedPassword(@args);
  3298.     return $result;
  3299. }
  3300. sub DeleteEntity {
  3301.     my @args = @_;
  3302.     $args[0] = tied(%{$args[0]});
  3303.     my $result = CQPerlExtc::CQSession_DeleteEntity(@args);
  3304.     return $result;
  3305. }
  3306. sub ClearNameValues {
  3307.     my @args = @_;
  3308.     $args[0] = tied(%{$args[0]});
  3309.     my $result = CQPerlExtc::CQSession_ClearNameValues(@args);
  3310.     return $result;
  3311. }
  3312. sub GetAuxEntityDefNames {
  3313.     my @args = @_;
  3314.     $args[0] = tied(%{$args[0]});
  3315.     my $result = CQPerlExtc::CQSession_GetAuxEntityDefNames(@args);
  3316.     return $result;
  3317. }
  3318. sub GetReqEntityDefNames {
  3319.     my @args = @_;
  3320.     $args[0] = tied(%{$args[0]});
  3321.     my $result = CQPerlExtc::CQSession_GetReqEntityDefNames(@args);
  3322.     return $result;
  3323. }
  3324. sub GetEntityDefNames {
  3325.     my @args = @_;
  3326.     $args[0] = tied(%{$args[0]});
  3327.     my $result = CQPerlExtc::CQSession_GetEntityDefNames(@args);
  3328.     return $result;
  3329. }
  3330. sub GetSubmitEntityDefNames {
  3331.     my @args = @_;
  3332.     $args[0] = tied(%{$args[0]});
  3333.     my $result = CQPerlExtc::CQSession_GetSubmitEntityDefNames(@args);
  3334.     return $result;
  3335. }
  3336. sub GetQueryEntityDefNames {
  3337.     my @args = @_;
  3338.     $args[0] = tied(%{$args[0]});
  3339.     my $result = CQPerlExtc::CQSession_GetQueryEntityDefNames(@args);
  3340.     return $result;
  3341. }
  3342. sub GetListDefNames {
  3343.     my @args = @_;
  3344.     $args[0] = tied(%{$args[0]});
  3345.     my $result = CQPerlExtc::CQSession_GetListDefNames(@args);
  3346.     return $result;
  3347. }
  3348. sub GetListMembers {
  3349.     my @args = @_;
  3350.     $args[0] = tied(%{$args[0]});
  3351.     my $result = CQPerlExtc::CQSession_GetListMembers(@args);
  3352.     return $result;
  3353. }
  3354. sub GetUserGroups {
  3355.     my @args = @_;
  3356.     $args[0] = tied(%{$args[0]});
  3357.     my $result = CQPerlExtc::CQSession_GetUserGroups(@args);
  3358.     return $result;
  3359. }
  3360. sub GetInstalledDbSets {
  3361.     my @args = @_;
  3362.     $args[0] = tied(%{$args[0]});
  3363.     my $result = CQPerlExtc::CQSession_GetInstalledDbSets(@args);
  3364.     return $result;
  3365. }
  3366. sub GetInstalledMasterDbs {
  3367.     my @args = @_;
  3368.     $args[0] = tied(%{$args[0]});
  3369.     my $result = CQPerlExtc::CQSession_GetInstalledMasterDbs(@args);
  3370.     return $result;
  3371. }
  3372. sub GetEntityDef {
  3373.     my @args = @_;
  3374.     $args[0] = tied(%{$args[0]});
  3375.     my $result = CQPerlExtc::CQSession_GetEntityDef(@args);
  3376.     return $result;
  3377. }
  3378. sub BuildResultSet {
  3379.     my @args = @_;
  3380.     $args[0] = tied(%{$args[0]});
  3381.     my $result = CQPerlExtc::CQSession_BuildResultSet(@args);
  3382.     return $result;
  3383. }
  3384. sub BuildSQLQuery {
  3385.     my @args = @_;
  3386.     $args[0] = tied(%{$args[0]});
  3387.     my $result = CQPerlExtc::CQSession_BuildSQLQuery(@args);
  3388.     return $result;
  3389. }
  3390. sub BuildQuery {
  3391.     my @args = @_;
  3392.     $args[0] = tied(%{$args[0]});
  3393.     my $result = CQPerlExtc::CQSession_BuildQuery(@args);
  3394.     return $result;
  3395. }
  3396. sub GetSessionDatabase {
  3397.     my @args = @_;
  3398.     $args[0] = tied(%{$args[0]});
  3399.     my $result = CQPerlExtc::CQSession_GetSessionDatabase(@args);
  3400.     return $result;
  3401. }
  3402. sub SetListMembers {
  3403.     my @args = @_;
  3404.     $args[0] = tied(%{$args[0]});
  3405.     my $result = CQPerlExtc::CQSession_SetListMembers(@args);
  3406.     return $result;
  3407. }
  3408. sub GetNameValue {
  3409.     my @args = @_;
  3410.     $args[0] = tied(%{$args[0]});
  3411.     my $result = CQPerlExtc::CQSession_GetNameValue(@args);
  3412.     return $result;
  3413. }
  3414. sub SetNameValue {
  3415.     my @args = @_;
  3416.     $args[0] = tied(%{$args[0]});
  3417.     my $result = CQPerlExtc::CQSession_SetNameValue(@args);
  3418.     return $result;
  3419. }
  3420. sub GetWorkSpace {
  3421.     my @args = @_;
  3422.     $args[0] = tied(%{$args[0]});
  3423.     my $result = CQPerlExtc::CQSession_GetWorkSpace(@args);
  3424.     return $result;
  3425. }
  3426. sub GetAccessibleDatabases {
  3427.     my @args = @_;
  3428.     $args[0] = tied(%{$args[0]});
  3429.     my $result = CQPerlExtc::CQSession_GetAccessibleDatabases(@args);
  3430.     return $result;
  3431. }
  3432. sub AddSchemaRepoLocationFile {
  3433.     my @args = @_;
  3434.     $args[0] = tied(%{$args[0]});
  3435.     my $result = CQPerlExtc::CQSession_AddSchemaRepoLocationFile(@args);
  3436.     return $result;
  3437. }
  3438. sub DropSchemaRepoLocationFile {
  3439.     my @args = @_;
  3440.     $args[0] = tied(%{$args[0]});
  3441.     my $result = CQPerlExtc::CQSession_DropSchemaRepoLocationFile(@args);
  3442.     return $result;
  3443. }
  3444. sub LookupSchemaRepoLocationFiles {
  3445.     my @args = @_;
  3446.     $args[0] = tied(%{$args[0]});
  3447.     my $result = CQPerlExtc::CQSession_LookupSchemaRepoLocationFiles(@args);
  3448.     return $result;
  3449. }
  3450. sub RegisterSchemaRepoFromFile {
  3451.     my @args = @_;
  3452.     $args[0] = tied(%{$args[0]});
  3453.     my $result = CQPerlExtc::CQSession_RegisterSchemaRepoFromFile(@args);
  3454.     return $result;
  3455. }
  3456. sub GetEntityDefFamilyNames {
  3457.     my @args = @_;
  3458.     $args[0] = tied(%{$args[0]});
  3459.     my $result = CQPerlExtc::CQSession_GetEntityDefFamilyNames(@args);
  3460.     return $result;
  3461. }
  3462. sub GetEntityDefFamily {
  3463.     my @args = @_;
  3464.     $args[0] = tied(%{$args[0]});
  3465.     my $result = CQPerlExtc::CQSession_GetEntityDefFamily(@args);
  3466.     return $result;
  3467. }
  3468. sub GetQueryEntityDefFamilyNames {
  3469.     my @args = @_;
  3470.     $args[0] = tied(%{$args[0]});
  3471.     my $result = CQPerlExtc::CQSession_GetQueryEntityDefFamilyNames(@args);
  3472.     return $result;
  3473. }
  3474. sub IsEmailEnabled {
  3475.     my @args = @_;
  3476.     $args[0] = tied(%{$args[0]});
  3477.     my $result = CQPerlExtc::CQSession_IsEmailEnabled(@args);
  3478.     return $result;
  3479. }
  3480. sub GetEnabledPackageRevs {
  3481.     my @args = @_;
  3482.     $args[0] = tied(%{$args[0]});
  3483.     my $result = CQPerlExtc::CQSession_GetEnabledPackageRevs(@args);
  3484.     return $result;
  3485. }
  3486. sub GetEnabledEntityDefs {
  3487.     my @args = @_;
  3488.     $args[0] = tied(%{$args[0]});
  3489.     my $result = CQPerlExtc::CQSession_GetEnabledEntityDefs(@args);
  3490.     return $result;
  3491. }
  3492. sub FireRecordScriptAlias {
  3493.     my @args = @_;
  3494.     $args[0] = tied(%{$args[0]});
  3495.     my $result = CQPerlExtc::CQSession_FireRecordScriptAlias(@args);
  3496.     return $result;
  3497. }
  3498. sub GetQueryDefs {
  3499.     my @args = @_;
  3500.     $args[0] = tied(%{$args[0]});
  3501.     my $result = CQPerlExtc::CQSession_GetQueryDefs(@args);
  3502.     return $result;
  3503. }
  3504. sub EmitMessage {
  3505.     my @args = @_;
  3506.     $args[0] = tied(%{$args[0]});
  3507.     my $result = CQPerlExtc::CQSession_EmitMessage(@args);
  3508.     return $result;
  3509. }
  3510. sub GetNextMessage {
  3511.     my @args = @_;
  3512.     $args[0] = tied(%{$args[0]});
  3513.     my $result = CQPerlExtc::CQSession_GetNextMessage(@args);
  3514.     return $result;
  3515. }
  3516. sub GetMessageCount {
  3517.     my @args = @_;
  3518.     $args[0] = tied(%{$args[0]});
  3519.     my $result = CQPerlExtc::CQSession_GetMessageCount(@args);
  3520.     return $result;
  3521. }
  3522. sub ClearMessages {
  3523.     my @args = @_;
  3524.     $args[0] = tied(%{$args[0]});
  3525.     my $result = CQPerlExtc::CQSession_ClearMessages(@args);
  3526.     return $result;
  3527. }
  3528. sub OutputDebugMessage {
  3529.     my @args = @_;
  3530.     $args[0] = tied(%{$args[0]});
  3531.     my $result = CQPerlExtc::CQSession_OutputDebugMessage(@args);
  3532.     return $result;
  3533. }
  3534. sub CQInt_Id {
  3535.     my @args = @_;
  3536.     $args[0] = tied(%{$args[0]});
  3537.     my $result = CQPerlExtc::CQSession_CQInt_Id(@args);
  3538.     return $result;
  3539. }
  3540. sub DISOWN {
  3541.     my $self = shift;
  3542.     my $ptr = tied(%$self);
  3543.     delete $OWNER{$ptr};
  3544.     };
  3545.  
  3546. sub ACQUIRE {
  3547.     my $self = shift;
  3548.     my $ptr = tied(%$self);
  3549.     $OWNER{$ptr} = 1;
  3550.     };
  3551.  
  3552.  
  3553. ############# Class : CQSchema ##############
  3554.  
  3555. package CQSchema;
  3556. @ISA = qw( CQPerlExt CQObject );
  3557. %OWNER = ();
  3558. %ITERATORS = ();
  3559. sub GetName {
  3560.     my @args = @_;
  3561.     $args[0] = tied(%{$args[0]});
  3562.     my $result = CQPerlExtc::CQSchema_GetName(@args);
  3563.     return $result;
  3564. }
  3565. sub GetSchemaRevs {
  3566.     my @args = @_;
  3567.     $args[0] = tied(%{$args[0]});
  3568.     my $result = CQPerlExtc::CQSchema_GetSchemaRevs(@args);
  3569.     return $result;
  3570. }
  3571. sub DESTROY {
  3572.     my $self = tied(%{$_[0]});
  3573.     delete $ITERATORS{$self};
  3574.     if (exists $OWNER{$self}) {
  3575.         CQPerlExtc::delete_CQSchema($self);
  3576.         delete $OWNER{$self};
  3577.     }
  3578. }
  3579.  
  3580. sub CQInt_Id {
  3581.     my @args = @_;
  3582.     $args[0] = tied(%{$args[0]});
  3583.     my $result = CQPerlExtc::CQSchema_CQInt_Id(@args);
  3584.     return $result;
  3585. }
  3586. sub DISOWN {
  3587.     my $self = shift;
  3588.     my $ptr = tied(%$self);
  3589.     delete $OWNER{$ptr};
  3590.     };
  3591.  
  3592. sub ACQUIRE {
  3593.     my $self = shift;
  3594.     my $ptr = tied(%$self);
  3595.     $OWNER{$ptr} = 1;
  3596.     };
  3597.  
  3598.  
  3599. ############# Class : CQSchemas ##############
  3600.  
  3601. package CQSchemas;
  3602. @ISA = qw( CQPerlExt CQObject );
  3603. %OWNER = ();
  3604. %ITERATORS = ();
  3605. sub Count {
  3606.     my @args = @_;
  3607.     $args[0] = tied(%{$args[0]});
  3608.     my $result = CQPerlExtc::CQSchemas_Count(@args);
  3609.     return $result;
  3610. }
  3611. sub Item {
  3612.     my @args = @_;
  3613.     $args[0] = tied(%{$args[0]});
  3614.     my $result = CQPerlExtc::CQSchemas_Item(@args);
  3615.     return $result;
  3616. }
  3617. sub ItemByName {
  3618.     my @args = @_;
  3619.     $args[0] = tied(%{$args[0]});
  3620.     my $result = CQPerlExtc::CQSchemas_ItemByName(@args);
  3621.     return $result;
  3622. }
  3623. sub Add {
  3624.     my @args = @_;
  3625.     $args[0] = tied(%{$args[0]});
  3626.     my $result = CQPerlExtc::CQSchemas_Add(@args);
  3627.     return $result;
  3628. }
  3629. sub DESTROY {
  3630.     my $self = tied(%{$_[0]});
  3631.     delete $ITERATORS{$self};
  3632.     if (exists $OWNER{$self}) {
  3633.         CQPerlExtc::delete_CQSchemas($self);
  3634.         delete $OWNER{$self};
  3635.     }
  3636. }
  3637.  
  3638. sub CQInt_Id {
  3639.     my @args = @_;
  3640.     $args[0] = tied(%{$args[0]});
  3641.     my $result = CQPerlExtc::CQSchemas_CQInt_Id(@args);
  3642.     return $result;
  3643. }
  3644. sub DISOWN {
  3645.     my $self = shift;
  3646.     my $ptr = tied(%$self);
  3647.     delete $OWNER{$ptr};
  3648.     };
  3649.  
  3650. sub ACQUIRE {
  3651.     my $self = shift;
  3652.     my $ptr = tied(%$self);
  3653.     $OWNER{$ptr} = 1;
  3654.     };
  3655.  
  3656.  
  3657. ############# Class : CQSchemaRev ##############
  3658.  
  3659. package CQSchemaRev;
  3660. @ISA = qw( CQPerlExt CQObject );
  3661. %OWNER = ();
  3662. %ITERATORS = ();
  3663. sub GetRevID {
  3664.     my @args = @_;
  3665.     $args[0] = tied(%{$args[0]});
  3666.     my $result = CQPerlExtc::CQSchemaRev_GetRevID(@args);
  3667.     return $result;
  3668. }
  3669. sub GetDescription {
  3670.     my @args = @_;
  3671.     $args[0] = tied(%{$args[0]});
  3672.     my $result = CQPerlExtc::CQSchemaRev_GetDescription(@args);
  3673.     return $result;
  3674. }
  3675. sub GetSchema {
  3676.     my @args = @_;
  3677.     $args[0] = tied(%{$args[0]});
  3678.     my $result = CQPerlExtc::CQSchemaRev_GetSchema(@args);
  3679.     return $result;
  3680. }
  3681. sub GetEnabledEntityDefs {
  3682.     my @args = @_;
  3683.     $args[0] = tied(%{$args[0]});
  3684.     my $result = CQPerlExtc::CQSchemaRev_GetEnabledEntityDefs(@args);
  3685.     return $result;
  3686. }
  3687. sub GetEnabledPackageRevs {
  3688.     my @args = @_;
  3689.     $args[0] = tied(%{$args[0]});
  3690.     my $result = CQPerlExtc::CQSchemaRev_GetEnabledPackageRevs(@args);
  3691.     return $result;
  3692. }
  3693. sub DESTROY {
  3694.     my $self = tied(%{$_[0]});
  3695.     delete $ITERATORS{$self};
  3696.     if (exists $OWNER{$self}) {
  3697.         CQPerlExtc::delete_CQSchemaRev($self);
  3698.         delete $OWNER{$self};
  3699.     }
  3700. }
  3701.  
  3702. sub CQInt_Id {
  3703.     my @args = @_;
  3704.     $args[0] = tied(%{$args[0]});
  3705.     my $result = CQPerlExtc::CQSchemaRev_CQInt_Id(@args);
  3706.     return $result;
  3707. }
  3708. sub DISOWN {
  3709.     my $self = shift;
  3710.     my $ptr = tied(%$self);
  3711.     delete $OWNER{$ptr};
  3712.     };
  3713.  
  3714. sub ACQUIRE {
  3715.     my $self = shift;
  3716.     my $ptr = tied(%$self);
  3717.     $OWNER{$ptr} = 1;
  3718.     };
  3719.  
  3720.  
  3721. ############# Class : CQSchemaRevs ##############
  3722.  
  3723. package CQSchemaRevs;
  3724. @ISA = qw( CQPerlExt CQObject );
  3725. %OWNER = ();
  3726. %ITERATORS = ();
  3727. sub Count {
  3728.     my @args = @_;
  3729.     $args[0] = tied(%{$args[0]});
  3730.     my $result = CQPerlExtc::CQSchemaRevs_Count(@args);
  3731.     return $result;
  3732. }
  3733. sub Item {
  3734.     my @args = @_;
  3735.     $args[0] = tied(%{$args[0]});
  3736.     my $result = CQPerlExtc::CQSchemaRevs_Item(@args);
  3737.     return $result;
  3738. }
  3739. sub ItemByName {
  3740.     my @args = @_;
  3741.     $args[0] = tied(%{$args[0]});
  3742.     my $result = CQPerlExtc::CQSchemaRevs_ItemByName(@args);
  3743.     return $result;
  3744. }
  3745. sub Add {
  3746.     my @args = @_;
  3747.     $args[0] = tied(%{$args[0]});
  3748.     my $result = CQPerlExtc::CQSchemaRevs_Add(@args);
  3749.     return $result;
  3750. }
  3751. sub DESTROY {
  3752.     my $self = tied(%{$_[0]});
  3753.     delete $ITERATORS{$self};
  3754.     if (exists $OWNER{$self}) {
  3755.         CQPerlExtc::delete_CQSchemaRevs($self);
  3756.         delete $OWNER{$self};
  3757.     }
  3758. }
  3759.  
  3760. sub CQInt_Id {
  3761.     my @args = @_;
  3762.     $args[0] = tied(%{$args[0]});
  3763.     my $result = CQPerlExtc::CQSchemaRevs_CQInt_Id(@args);
  3764.     return $result;
  3765. }
  3766. sub DISOWN {
  3767.     my $self = shift;
  3768.     my $ptr = tied(%$self);
  3769.     delete $OWNER{$ptr};
  3770.     };
  3771.  
  3772. sub ACQUIRE {
  3773.     my $self = shift;
  3774.     my $ptr = tied(%$self);
  3775.     $OWNER{$ptr} = 1;
  3776.     };
  3777.  
  3778.  
  3779. ############# Class : CQResultSet ##############
  3780.  
  3781. package CQResultSet;
  3782. @ISA = qw( CQPerlExt CQObject );
  3783. %OWNER = ();
  3784. %ITERATORS = ();
  3785. sub GetColumnType {
  3786.     my @args = @_;
  3787.     $args[0] = tied(%{$args[0]});
  3788.     my $result = CQPerlExtc::CQResultSet_GetColumnType(@args);
  3789.     return $result;
  3790. }
  3791. sub GetColumnLabel {
  3792.     my @args = @_;
  3793.     $args[0] = tied(%{$args[0]});
  3794.     my $result = CQPerlExtc::CQResultSet_GetColumnLabel(@args);
  3795.     return $result;
  3796. }
  3797. sub GetNumberOfColumns {
  3798.     my @args = @_;
  3799.     $args[0] = tied(%{$args[0]});
  3800.     my $result = CQPerlExtc::CQResultSet_GetNumberOfColumns(@args);
  3801.     return $result;
  3802. }
  3803. sub GetColumnValue {
  3804.     my @args = @_;
  3805.     $args[0] = tied(%{$args[0]});
  3806.     my $result = CQPerlExtc::CQResultSet_GetColumnValue(@args);
  3807.     return $result;
  3808. }
  3809. sub MoveNext {
  3810.     my @args = @_;
  3811.     $args[0] = tied(%{$args[0]});
  3812.     my $result = CQPerlExtc::CQResultSet_MoveNext(@args);
  3813.     return $result;
  3814. }
  3815. sub Execute {
  3816.     my @args = @_;
  3817.     $args[0] = tied(%{$args[0]});
  3818.     my $result = CQPerlExtc::CQResultSet_Execute(@args);
  3819.     return $result;
  3820. }
  3821. sub GetNumberOfParams {
  3822.     my @args = @_;
  3823.     $args[0] = tied(%{$args[0]});
  3824.     my $result = CQPerlExtc::CQResultSet_GetNumberOfParams(@args);
  3825.     return $result;
  3826. }
  3827. sub GetParamPrompt {
  3828.     my @args = @_;
  3829.     $args[0] = tied(%{$args[0]});
  3830.     my $result = CQPerlExtc::CQResultSet_GetParamPrompt(@args);
  3831.     return $result;
  3832. }
  3833. sub GetParamFieldType {
  3834.     my @args = @_;
  3835.     $args[0] = tied(%{$args[0]});
  3836.     my $result = CQPerlExtc::CQResultSet_GetParamFieldType(@args);
  3837.     return $result;
  3838. }
  3839. sub GetParamLabel {
  3840.     my @args = @_;
  3841.     $args[0] = tied(%{$args[0]});
  3842.     my $result = CQPerlExtc::CQResultSet_GetParamLabel(@args);
  3843.     return $result;
  3844. }
  3845. sub GetParamChoiceList {
  3846.     my @args = @_;
  3847.     $args[0] = tied(%{$args[0]});
  3848.     my $result = CQPerlExtc::CQResultSet_GetParamChoiceList(@args);
  3849.     return $result;
  3850. }
  3851. sub AddParamValue {
  3852.     my @args = @_;
  3853.     $args[0] = tied(%{$args[0]});
  3854.     my $result = CQPerlExtc::CQResultSet_AddParamValue(@args);
  3855.     return $result;
  3856. }
  3857. sub ClearParamValues {
  3858.     my @args = @_;
  3859.     $args[0] = tied(%{$args[0]});
  3860.     my $result = CQPerlExtc::CQResultSet_ClearParamValues(@args);
  3861.     return $result;
  3862. }
  3863. sub GetParamComparisonOperator {
  3864.     my @args = @_;
  3865.     $args[0] = tied(%{$args[0]});
  3866.     my $result = CQPerlExtc::CQResultSet_GetParamComparisonOperator(@args);
  3867.     return $result;
  3868. }
  3869. sub GetSQL {
  3870.     my @args = @_;
  3871.     $args[0] = tied(%{$args[0]});
  3872.     my $result = CQPerlExtc::CQResultSet_GetSQL(@args);
  3873.     return $result;
  3874. }
  3875. sub LookupPrimaryEntityDefName {
  3876.     my @args = @_;
  3877.     $args[0] = tied(%{$args[0]});
  3878.     my $result = CQPerlExtc::CQResultSet_LookupPrimaryEntityDefName(@args);
  3879.     return $result;
  3880. }
  3881. sub GetMaxRowsInMemory {
  3882.     my @args = @_;
  3883.     $args[0] = tied(%{$args[0]});
  3884.     my $result = CQPerlExtc::CQResultSet_GetMaxRowsInMemory(@args);
  3885.     return $result;
  3886. }
  3887. sub SetMaxRowsInMemory {
  3888.     my @args = @_;
  3889.     $args[0] = tied(%{$args[0]});
  3890.     my $result = CQPerlExtc::CQResultSet_SetMaxRowsInMemory(@args);
  3891.     return $result;
  3892. }
  3893. sub MoveAbsolute {
  3894.     my @args = @_;
  3895.     $args[0] = tied(%{$args[0]});
  3896.     my $result = CQPerlExtc::CQResultSet_MoveAbsolute(@args);
  3897.     return $result;
  3898. }
  3899. sub ExecuteAndCountRecords {
  3900.     my @args = @_;
  3901.     $args[0] = tied(%{$args[0]});
  3902.     my $result = CQPerlExtc::CQResultSet_ExecuteAndCountRecords(@args);
  3903.     return $result;
  3904. }
  3905. sub GetRecordCount {
  3906.     my @args = @_;
  3907.     $args[0] = tied(%{$args[0]});
  3908.     my $result = CQPerlExtc::CQResultSet_GetRecordCount(@args);
  3909.     return $result;
  3910. }
  3911. sub GetRowEntityDefName {
  3912.     my @args = @_;
  3913.     $args[0] = tied(%{$args[0]});
  3914.     my $result = CQPerlExtc::CQResultSet_GetRowEntityDefName(@args);
  3915.     return $result;
  3916. }
  3917. sub EnableRecordCount {
  3918.     my @args = @_;
  3919.     $args[0] = tied(%{$args[0]});
  3920.     my $result = CQPerlExtc::CQResultSet_EnableRecordCount(@args);
  3921.     return $result;
  3922. }
  3923. sub DESTROY {
  3924.     my $self = tied(%{$_[0]});
  3925.     delete $ITERATORS{$self};
  3926.     if (exists $OWNER{$self}) {
  3927.         CQPerlExtc::delete_CQResultSet($self);
  3928.         delete $OWNER{$self};
  3929.     }
  3930. }
  3931.  
  3932. sub CQInt_Id {
  3933.     my @args = @_;
  3934.     $args[0] = tied(%{$args[0]});
  3935.     my $result = CQPerlExtc::CQResultSet_CQInt_Id(@args);
  3936.     return $result;
  3937. }
  3938. sub DISOWN {
  3939.     my $self = shift;
  3940.     my $ptr = tied(%$self);
  3941.     delete $OWNER{$ptr};
  3942.     };
  3943.  
  3944. sub ACQUIRE {
  3945.     my $self = shift;
  3946.     my $ptr = tied(%$self);
  3947.     $OWNER{$ptr} = 1;
  3948.     };
  3949.  
  3950.  
  3951. ############# Class : CQUser ##############
  3952.  
  3953. package CQUser;
  3954. @ISA = qw( CQPerlExt CQObject );
  3955. %OWNER = ();
  3956. %ITERATORS = ();
  3957. sub GetName {
  3958.     my @args = @_;
  3959.     $args[0] = tied(%{$args[0]});
  3960.     my $result = CQPerlExtc::CQUser_GetName(@args);
  3961.     return $result;
  3962. }
  3963. sub GetEmail {
  3964.     my @args = @_;
  3965.     $args[0] = tied(%{$args[0]});
  3966.     my $result = CQPerlExtc::CQUser_GetEmail(@args);
  3967.     return $result;
  3968. }
  3969. sub SetEmail {
  3970.     my @args = @_;
  3971.     $args[0] = tied(%{$args[0]});
  3972.     my $result = CQPerlExtc::CQUser_SetEmail(@args);
  3973.     return $result;
  3974. }
  3975. sub GetFullName {
  3976.     my @args = @_;
  3977.     $args[0] = tied(%{$args[0]});
  3978.     my $result = CQPerlExtc::CQUser_GetFullName(@args);
  3979.     return $result;
  3980. }
  3981. sub SetFullName {
  3982.     my @args = @_;
  3983.     $args[0] = tied(%{$args[0]});
  3984.     my $result = CQPerlExtc::CQUser_SetFullName(@args);
  3985.     return $result;
  3986. }
  3987. sub GetPhone {
  3988.     my @args = @_;
  3989.     $args[0] = tied(%{$args[0]});
  3990.     my $result = CQPerlExtc::CQUser_GetPhone(@args);
  3991.     return $result;
  3992. }
  3993. sub SetPhone {
  3994.     my @args = @_;
  3995.     $args[0] = tied(%{$args[0]});
  3996.     my $result = CQPerlExtc::CQUser_SetPhone(@args);
  3997.     return $result;
  3998. }
  3999. sub GetMiscInfo {
  4000.     my @args = @_;
  4001.     $args[0] = tied(%{$args[0]});
  4002.     my $result = CQPerlExtc::CQUser_GetMiscInfo(@args);
  4003.     return $result;
  4004. }
  4005. sub SetMiscInfo {
  4006.     my @args = @_;
  4007.     $args[0] = tied(%{$args[0]});
  4008.     my $result = CQPerlExtc::CQUser_SetMiscInfo(@args);
  4009.     return $result;
  4010. }
  4011. sub GetPassword {
  4012.     my @args = @_;
  4013.     $args[0] = tied(%{$args[0]});
  4014.     my $result = CQPerlExtc::CQUser_GetPassword(@args);
  4015.     return $result;
  4016. }
  4017. sub SetPassword {
  4018.     my @args = @_;
  4019.     $args[0] = tied(%{$args[0]});
  4020.     my $result = CQPerlExtc::CQUser_SetPassword(@args);
  4021.     return $result;
  4022. }
  4023. sub GetSuperUser {
  4024.     my @args = @_;
  4025.     $args[0] = tied(%{$args[0]});
  4026.     my $result = CQPerlExtc::CQUser_GetSuperUser(@args);
  4027.     return $result;
  4028. }
  4029. sub SetSuperUser {
  4030.     my @args = @_;
  4031.     $args[0] = tied(%{$args[0]});
  4032.     my $result = CQPerlExtc::CQUser_SetSuperUser(@args);
  4033.     return $result;
  4034. }
  4035. sub GetAppBuilder {
  4036.     my @args = @_;
  4037.     $args[0] = tied(%{$args[0]});
  4038.     my $result = CQPerlExtc::CQUser_GetAppBuilder(@args);
  4039.     return $result;
  4040. }
  4041. sub SetAppBuilder {
  4042.     my @args = @_;
  4043.     $args[0] = tied(%{$args[0]});
  4044.     my $result = CQPerlExtc::CQUser_SetAppBuilder(@args);
  4045.     return $result;
  4046. }
  4047. sub GetUserMaintainer {
  4048.     my @args = @_;
  4049.     $args[0] = tied(%{$args[0]});
  4050.     my $result = CQPerlExtc::CQUser_GetUserMaintainer(@args);
  4051.     return $result;
  4052. }
  4053. sub SetUserMaintainer {
  4054.     my @args = @_;
  4055.     $args[0] = tied(%{$args[0]});
  4056.     my $result = CQPerlExtc::CQUser_SetUserMaintainer(@args);
  4057.     return $result;
  4058. }
  4059. sub GetActive {
  4060.     my @args = @_;
  4061.     $args[0] = tied(%{$args[0]});
  4062.     my $result = CQPerlExtc::CQUser_GetActive(@args);
  4063.     return $result;
  4064. }
  4065. sub SetActive {
  4066.     my @args = @_;
  4067.     $args[0] = tied(%{$args[0]});
  4068.     my $result = CQPerlExtc::CQUser_SetActive(@args);
  4069.     return $result;
  4070. }
  4071. sub GetGroups {
  4072.     my @args = @_;
  4073.     $args[0] = tied(%{$args[0]});
  4074.     my $result = CQPerlExtc::CQUser_GetGroups(@args);
  4075.     return $result;
  4076. }
  4077. sub GetSubscribedDatabases {
  4078.     my @args = @_;
  4079.     $args[0] = tied(%{$args[0]});
  4080.     my $result = CQPerlExtc::CQUser_GetSubscribedDatabases(@args);
  4081.     return $result;
  4082. }
  4083. sub SubscribeDatabase {
  4084.     my @args = @_;
  4085.     $args[0] = tied(%{$args[0]});
  4086.     my $result = CQPerlExtc::CQUser_SubscribeDatabase(@args);
  4087.     return $result;
  4088. }
  4089. sub UnsubscribeDatabase {
  4090.     my @args = @_;
  4091.     $args[0] = tied(%{$args[0]});
  4092.     my $result = CQPerlExtc::CQUser_UnsubscribeDatabase(@args);
  4093.     return $result;
  4094. }
  4095. sub UnsubscribeAllDatabases {
  4096.     my @args = @_;
  4097.     $args[0] = tied(%{$args[0]});
  4098.     my $result = CQPerlExtc::CQUser_UnsubscribeAllDatabases(@args);
  4099.     return $result;
  4100. }
  4101. sub IsSubscribedToAllDatabases {
  4102.     my @args = @_;
  4103.     $args[0] = tied(%{$args[0]});
  4104.     my $result = CQPerlExtc::CQUser_IsSubscribedToAllDatabases(@args);
  4105.     return $result;
  4106. }
  4107. sub SetSubscribedToAllDatabases {
  4108.     my @args = @_;
  4109.     $args[0] = tied(%{$args[0]});
  4110.     my $result = CQPerlExtc::CQUser_SetSubscribedToAllDatabases(@args);
  4111.     return $result;
  4112. }
  4113. sub DESTROY {
  4114.     my $self = tied(%{$_[0]});
  4115.     delete $ITERATORS{$self};
  4116.     if (exists $OWNER{$self}) {
  4117.         CQPerlExtc::delete_CQUser($self);
  4118.         delete $OWNER{$self};
  4119.     }
  4120. }
  4121.  
  4122. sub CQInt_Id {
  4123.     my @args = @_;
  4124.     $args[0] = tied(%{$args[0]});
  4125.     my $result = CQPerlExtc::CQUser_CQInt_Id(@args);
  4126.     return $result;
  4127. }
  4128. sub DISOWN {
  4129.     my $self = shift;
  4130.     my $ptr = tied(%$self);
  4131.     delete $OWNER{$ptr};
  4132.     };
  4133.  
  4134. sub ACQUIRE {
  4135.     my $self = shift;
  4136.     my $ptr = tied(%$self);
  4137.     $OWNER{$ptr} = 1;
  4138.     };
  4139.  
  4140.  
  4141. ############# Class : CQUsers ##############
  4142.  
  4143. package CQUsers;
  4144. @ISA = qw( CQPerlExt CQObject );
  4145. %OWNER = ();
  4146. %ITERATORS = ();
  4147. sub Count {
  4148.     my @args = @_;
  4149.     $args[0] = tied(%{$args[0]});
  4150.     my $result = CQPerlExtc::CQUsers_Count(@args);
  4151.     return $result;
  4152. }
  4153. sub Item {
  4154.     my @args = @_;
  4155.     $args[0] = tied(%{$args[0]});
  4156.     my $result = CQPerlExtc::CQUsers_Item(@args);
  4157.     return $result;
  4158. }
  4159. sub ItemByName {
  4160.     my @args = @_;
  4161.     $args[0] = tied(%{$args[0]});
  4162.     my $result = CQPerlExtc::CQUsers_ItemByName(@args);
  4163.     return $result;
  4164. }
  4165. sub Add {
  4166.     my @args = @_;
  4167.     $args[0] = tied(%{$args[0]});
  4168.     my $result = CQPerlExtc::CQUsers_Add(@args);
  4169.     return $result;
  4170. }
  4171. sub DESTROY {
  4172.     my $self = tied(%{$_[0]});
  4173.     delete $ITERATORS{$self};
  4174.     if (exists $OWNER{$self}) {
  4175.         CQPerlExtc::delete_CQUsers($self);
  4176.         delete $OWNER{$self};
  4177.     }
  4178. }
  4179.  
  4180. sub CQInt_Id {
  4181.     my @args = @_;
  4182.     $args[0] = tied(%{$args[0]});
  4183.     my $result = CQPerlExtc::CQUsers_CQInt_Id(@args);
  4184.     return $result;
  4185. }
  4186. sub DISOWN {
  4187.     my $self = shift;
  4188.     my $ptr = tied(%$self);
  4189.     delete $OWNER{$ptr};
  4190.     };
  4191.  
  4192. sub ACQUIRE {
  4193.     my $self = shift;
  4194.     my $ptr = tied(%$self);
  4195.     $OWNER{$ptr} = 1;
  4196.     };
  4197.  
  4198.  
  4199. ############# Class : CQWorkSpaceMgr ##############
  4200.  
  4201. package CQWorkSpaceMgr;
  4202. @ISA = qw( CQPerlExt CQObject );
  4203. %OWNER = ();
  4204. %ITERATORS = ();
  4205. sub new {
  4206.     my $self = shift;
  4207.     my @args = @_;
  4208.     $self = CQPerlExtc::new_CQWorkSpaceMgr(@args);
  4209.     return undef if (!defined($self));
  4210.     bless $self, "CQWorkSpaceMgr";
  4211.     $OWNER{$self} = 1;
  4212.     my %retval;
  4213.     tie %retval, "CQWorkSpaceMgr", $self;
  4214.     return bless \%retval,"CQWorkSpaceMgr";
  4215. }
  4216.  
  4217. sub DESTROY {
  4218.     my $self = tied(%{$_[0]});
  4219.     delete $ITERATORS{$self};
  4220.     if (exists $OWNER{$self}) {
  4221.         CQPerlExtc::delete_CQWorkSpaceMgr($self);
  4222.         delete $OWNER{$self};
  4223.     }
  4224. }
  4225.  
  4226. sub SetSession {
  4227.     my @args = @_;
  4228.     $args[0] = tied(%{$args[0]});
  4229.     my $result = CQPerlExtc::CQWorkSpaceMgr_SetSession(@args);
  4230.     return $result;
  4231. }
  4232. sub GetQueryList {
  4233.     my @args = @_;
  4234.     $args[0] = tied(%{$args[0]});
  4235.     my $result = CQPerlExtc::CQWorkSpaceMgr_GetQueryList(@args);
  4236.     return $result;
  4237. }
  4238. sub GetQueryDef {
  4239.     my @args = @_;
  4240.     $args[0] = tied(%{$args[0]});
  4241.     my $result = CQPerlExtc::CQWorkSpaceMgr_GetQueryDef(@args);
  4242.     return $result;
  4243. }
  4244. sub SetUserName {
  4245.     my @args = @_;
  4246.     $args[0] = tied(%{$args[0]});
  4247.     my $result = CQPerlExtc::CQWorkSpaceMgr_SetUserName(@args);
  4248.     return $result;
  4249. }
  4250. sub NormalizeDateTimeString {
  4251.     my @args = @_;
  4252.     $args[0] = tied(%{$args[0]});
  4253.     my $result = CQPerlExtc::CQWorkSpaceMgr_NormalizeDateTimeString(@args);
  4254.     return $result;
  4255. }
  4256. sub SetDateTimeFmtString {
  4257.     my @args = @_;
  4258.     $args[0] = tied(%{$args[0]});
  4259.     my $result = CQPerlExtc::CQWorkSpaceMgr_SetDateTimeFmtString(@args);
  4260.     return $result;
  4261. }
  4262. sub ValidateQueryDefName {
  4263.     my @args = @_;
  4264.     $args[0] = tied(%{$args[0]});
  4265.     my $result = CQPerlExtc::CQWorkSpaceMgr_ValidateQueryDefName(@args);
  4266.     return $result;
  4267. }
  4268. sub SaveQueryDef {
  4269.     my @args = @_;
  4270.     $args[0] = tied(%{$args[0]});
  4271.     my $result = CQPerlExtc::CQWorkSpaceMgr_SaveQueryDef(@args);
  4272.     return $result;
  4273. }
  4274. sub GetAllQueriesList {
  4275.     my @args = @_;
  4276.     $args[0] = tied(%{$args[0]});
  4277.     my $result = CQPerlExtc::CQWorkSpaceMgr_GetAllQueriesList(@args);
  4278.     return $result;
  4279. }
  4280. sub GetChartList {
  4281.     my @args = @_;
  4282.     $args[0] = tied(%{$args[0]});
  4283.     my $result = CQPerlExtc::CQWorkSpaceMgr_GetChartList(@args);
  4284.     return $result;
  4285. }
  4286. sub GetChartDef {
  4287.     my @args = @_;
  4288.     $args[0] = tied(%{$args[0]});
  4289.     my $result = CQPerlExtc::CQWorkSpaceMgr_GetChartDef(@args);
  4290.     return $result;
  4291. }
  4292. sub GetChartMgr {
  4293.     my @args = @_;
  4294.     $args[0] = tied(%{$args[0]});
  4295.     my $result = CQPerlExtc::CQWorkSpaceMgr_GetChartMgr(@args);
  4296.     return $result;
  4297. }
  4298. sub GetReportMgr {
  4299.     my @args = @_;
  4300.     $args[0] = tied(%{$args[0]});
  4301.     my $result = CQPerlExtc::CQWorkSpaceMgr_GetReportMgr(@args);
  4302.     return $result;
  4303. }
  4304. sub GetReportList {
  4305.     my @args = @_;
  4306.     $args[0] = tied(%{$args[0]});
  4307.     my $result = CQPerlExtc::CQWorkSpaceMgr_GetReportList(@args);
  4308.     return $result;
  4309. }
  4310. sub GetIsRefreshOnGet {
  4311.     my @args = @_;
  4312.     $args[0] = tied(%{$args[0]});
  4313.     my $result = CQPerlExtc::CQWorkSpaceMgr_GetIsRefreshOnGet(@args);
  4314.     return $result;
  4315. }
  4316. sub SetIsRefreshOnGet {
  4317.     my @args = @_;
  4318.     $args[0] = tied(%{$args[0]});
  4319.     my $result = CQPerlExtc::CQWorkSpaceMgr_SetIsRefreshOnGet(@args);
  4320.     return $result;
  4321. }
  4322. sub DISOWN {
  4323.     my $self = shift;
  4324.     my $ptr = tied(%$self);
  4325.     delete $OWNER{$ptr};
  4326.     };
  4327.  
  4328. sub ACQUIRE {
  4329.     my $self = shift;
  4330.     my $ptr = tied(%$self);
  4331.     $OWNER{$ptr} = 1;
  4332.     };
  4333.  
  4334.  
  4335. ############# Class : CQChartMgr ##############
  4336.  
  4337. package CQChartMgr;
  4338. @ISA = qw( CQPerlExt CQObject );
  4339. %OWNER = ();
  4340. %ITERATORS = ();
  4341. sub GetQuality {
  4342.     my @args = @_;
  4343.     $args[0] = tied(%{$args[0]});
  4344.     my $result = CQPerlExtc::CQChartMgr_GetQuality(@args);
  4345.     return $result;
  4346. }
  4347. sub SetQuality {
  4348.     my @args = @_;
  4349.     $args[0] = tied(%{$args[0]});
  4350.     my $result = CQPerlExtc::CQChartMgr_SetQuality(@args);
  4351.     return $result;
  4352. }
  4353. sub GetProgressive {
  4354.     my @args = @_;
  4355.     $args[0] = tied(%{$args[0]});
  4356.     my $result = CQPerlExtc::CQChartMgr_GetProgressive(@args);
  4357.     return $result;
  4358. }
  4359. sub SetProgressive {
  4360.     my @args = @_;
  4361.     $args[0] = tied(%{$args[0]});
  4362.     my $result = CQPerlExtc::CQChartMgr_SetProgressive(@args);
  4363.     return $result;
  4364. }
  4365. sub GetGrayScale {
  4366.     my @args = @_;
  4367.     $args[0] = tied(%{$args[0]});
  4368.     my $result = CQPerlExtc::CQChartMgr_GetGrayScale(@args);
  4369.     return $result;
  4370. }
  4371. sub SetGrayScale {
  4372.     my @args = @_;
  4373.     $args[0] = tied(%{$args[0]});
  4374.     my $result = CQPerlExtc::CQChartMgr_SetGrayScale(@args);
  4375.     return $result;
  4376. }
  4377. sub GetOptimizeCompression {
  4378.     my @args = @_;
  4379.     $args[0] = tied(%{$args[0]});
  4380.     my $result = CQPerlExtc::CQChartMgr_GetOptimizeCompression(@args);
  4381.     return $result;
  4382. }
  4383. sub SetOptimizeCompression {
  4384.     my @args = @_;
  4385.     $args[0] = tied(%{$args[0]});
  4386.     my $result = CQPerlExtc::CQChartMgr_SetOptimizeCompression(@args);
  4387.     return $result;
  4388. }
  4389. sub GetInterlaced {
  4390.     my @args = @_;
  4391.     $args[0] = tied(%{$args[0]});
  4392.     my $result = CQPerlExtc::CQChartMgr_GetInterlaced(@args);
  4393.     return $result;
  4394. }
  4395. sub SetInterlaced {
  4396.     my @args = @_;
  4397.     $args[0] = tied(%{$args[0]});
  4398.     my $result = CQPerlExtc::CQChartMgr_SetInterlaced(@args);
  4399.     return $result;
  4400. }
  4401. sub GetWidth {
  4402.     my @args = @_;
  4403.     $args[0] = tied(%{$args[0]});
  4404.     my $result = CQPerlExtc::CQChartMgr_GetWidth(@args);
  4405.     return $result;
  4406. }
  4407. sub SetWidth {
  4408.     my @args = @_;
  4409.     $args[0] = tied(%{$args[0]});
  4410.     my $result = CQPerlExtc::CQChartMgr_SetWidth(@args);
  4411.     return $result;
  4412. }
  4413. sub GetHeight {
  4414.     my @args = @_;
  4415.     $args[0] = tied(%{$args[0]});
  4416.     my $result = CQPerlExtc::CQChartMgr_GetHeight(@args);
  4417.     return $result;
  4418. }
  4419. sub SetHeight {
  4420.     my @args = @_;
  4421.     $args[0] = tied(%{$args[0]});
  4422.     my $result = CQPerlExtc::CQChartMgr_SetHeight(@args);
  4423.     return $result;
  4424. }
  4425. sub SetResultSet {
  4426.     my @args = @_;
  4427.     $args[0] = tied(%{$args[0]});
  4428.     my $result = CQPerlExtc::CQChartMgr_SetResultSet(@args);
  4429.     return $result;
  4430. }
  4431. sub MakeJPEG {
  4432.     my @args = @_;
  4433.     $args[0] = tied(%{$args[0]});
  4434.     my $result = CQPerlExtc::CQChartMgr_MakeJPEG(@args);
  4435.     return $result;
  4436. }
  4437. sub MakePNG {
  4438.     my @args = @_;
  4439.     $args[0] = tied(%{$args[0]});
  4440.     my $result = CQPerlExtc::CQChartMgr_MakePNG(@args);
  4441.     return $result;
  4442. }
  4443. sub DESTROY {
  4444.     my $self = tied(%{$_[0]});
  4445.     delete $ITERATORS{$self};
  4446.     if (exists $OWNER{$self}) {
  4447.         CQPerlExtc::delete_CQChartMgr($self);
  4448.         delete $OWNER{$self};
  4449.     }
  4450. }
  4451.  
  4452. sub CQInt_Id {
  4453.     my @args = @_;
  4454.     $args[0] = tied(%{$args[0]});
  4455.     my $result = CQPerlExtc::CQChartMgr_CQInt_Id(@args);
  4456.     return $result;
  4457. }
  4458. sub DISOWN {
  4459.     my $self = shift;
  4460.     my $ptr = tied(%$self);
  4461.     delete $OWNER{$ptr};
  4462.     };
  4463.  
  4464. sub ACQUIRE {
  4465.     my $self = shift;
  4466.     my $ptr = tied(%$self);
  4467.     $OWNER{$ptr} = 1;
  4468.     };
  4469.  
  4470.  
  4471. ############# Class : CQReportMgr ##############
  4472.  
  4473. package CQReportMgr;
  4474. @ISA = qw( CQPerlExt CQObject );
  4475. %OWNER = ();
  4476. %ITERATORS = ();
  4477. sub GetQueryDef {
  4478.     my @args = @_;
  4479.     $args[0] = tied(%{$args[0]});
  4480.     my $result = CQPerlExtc::CQReportMgr_GetQueryDef(@args);
  4481.     return $result;
  4482. }
  4483. sub SetHTMLFileName {
  4484.     my @args = @_;
  4485.     $args[0] = tied(%{$args[0]});
  4486.     my $result = CQPerlExtc::CQReportMgr_SetHTMLFileName(@args);
  4487.     return $result;
  4488. }
  4489. sub ExecuteReport {
  4490.     my @args = @_;
  4491.     $args[0] = tied(%{$args[0]});
  4492.     my $result = CQPerlExtc::CQReportMgr_ExecuteReport(@args);
  4493.     return $result;
  4494. }
  4495. sub GetReportPrintJobStatus {
  4496.     my @args = @_;
  4497.     $args[0] = tied(%{$args[0]});
  4498.     my $result = CQPerlExtc::CQReportMgr_GetReportPrintJobStatus(@args);
  4499.     return $result;
  4500. }
  4501. sub DESTROY {
  4502.     my $self = tied(%{$_[0]});
  4503.     delete $ITERATORS{$self};
  4504.     if (exists $OWNER{$self}) {
  4505.         CQPerlExtc::delete_CQReportMgr($self);
  4506.         delete $OWNER{$self};
  4507.     }
  4508. }
  4509.  
  4510. sub CQInt_Id {
  4511.     my @args = @_;
  4512.     $args[0] = tied(%{$args[0]});
  4513.     my $result = CQPerlExtc::CQReportMgr_CQInt_Id(@args);
  4514.     return $result;
  4515. }
  4516. sub DISOWN {
  4517.     my $self = shift;
  4518.     my $ptr = tied(%$self);
  4519.     delete $OWNER{$ptr};
  4520.     };
  4521.  
  4522. sub ACQUIRE {
  4523.     my $self = shift;
  4524.     my $ptr = tied(%$self);
  4525.     $OWNER{$ptr} = 1;
  4526.     };
  4527.  
  4528.  
  4529. # ------- VARIABLE STUBS --------
  4530.  
  4531. package CQPerlExt;
  4532.  
  4533. *CQ_OBJECTMODEL_VERSION_MAJOR = *CQPerlExtc::CQ_OBJECTMODEL_VERSION_MAJOR;
  4534. *CQ_OBJECTMODEL_VERSION_MINOR = *CQPerlExtc::CQ_OBJECTMODEL_VERSION_MINOR;
  4535. *CQ_SHARED_SESSION = *CQPerlExtc::CQ_SHARED_SESSION;
  4536. *CQ_PRIVATE_SESSION = *CQPerlExtc::CQ_PRIVATE_SESSION;
  4537. *CQ_ADMIN_SESSION = *CQPerlExtc::CQ_ADMIN_SESSION;
  4538. *CQ_SHARED_METADATA_SESSION = *CQPerlExtc::CQ_SHARED_METADATA_SESSION;
  4539. *CQ_REQ_ENTITY = *CQPerlExtc::CQ_REQ_ENTITY;
  4540. *CQ_AUX_ENTITY = *CQPerlExtc::CQ_AUX_ENTITY;
  4541. *CQ_ANY_ENTITY = *CQPerlExtc::CQ_ANY_ENTITY;
  4542. *CQ_MANDATORY = *CQPerlExtc::CQ_MANDATORY;
  4543. *CQ_OPTIONAL = *CQPerlExtc::CQ_OPTIONAL;
  4544. *CQ_READONLY = *CQPerlExtc::CQ_READONLY;
  4545. *CQ_USE_HOOK = *CQPerlExtc::CQ_USE_HOOK;
  4546. *CQ_SHORT_STRING = *CQPerlExtc::CQ_SHORT_STRING;
  4547. *CQ_MULTILINE_STRING = *CQPerlExtc::CQ_MULTILINE_STRING;
  4548. *CQ_INT = *CQPerlExtc::CQ_INT;
  4549. *CQ_DATE_TIME = *CQPerlExtc::CQ_DATE_TIME;
  4550. *CQ_REFERENCE = *CQPerlExtc::CQ_REFERENCE;
  4551. *CQ_REFERENCE_LIST = *CQPerlExtc::CQ_REFERENCE_LIST;
  4552. *CQ_ATTACHMENT_LIST = *CQPerlExtc::CQ_ATTACHMENT_LIST;
  4553. *CQ_ID = *CQPerlExtc::CQ_ID;
  4554. *CQ_STATE = *CQPerlExtc::CQ_STATE;
  4555. *CQ_JOURNAL = *CQPerlExtc::CQ_JOURNAL;
  4556. *CQ_DBID = *CQPerlExtc::CQ_DBID;
  4557. *CQ_STATETYPE = *CQPerlExtc::CQ_STATETYPE;
  4558. *CQ_RECORDTYPE = *CQPerlExtc::CQ_RECORDTYPE;
  4559. *CQ_BUTTON_CLICK = *CQPerlExtc::CQ_BUTTON_CLICK;
  4560. *CQ_SUBDIALOG_BUTTON_CLICK = *CQPerlExtc::CQ_SUBDIALOG_BUTTON_CLICK;
  4561. *CQ_ITEM_SELECTION = *CQPerlExtc::CQ_ITEM_SELECTION;
  4562. *CQ_ITEM_DBLCLICK = *CQPerlExtc::CQ_ITEM_DBLCLICK;
  4563. *CQ_CONTEXMENU_ITEM_SELECTION = *CQPerlExtc::CQ_CONTEXMENU_ITEM_SELECTION;
  4564. *CQ_CONTEXMENU_ITEM_CONDITION = *CQPerlExtc::CQ_CONTEXMENU_ITEM_CONDITION;
  4565. *CQ_SUBMIT = *CQPerlExtc::CQ_SUBMIT;
  4566. *CQ_MODIFY = *CQPerlExtc::CQ_MODIFY;
  4567. *CQ_CHANGE_STATE = *CQPerlExtc::CQ_CHANGE_STATE;
  4568. *CQ_DUPLICATE = *CQPerlExtc::CQ_DUPLICATE;
  4569. *CQ_UNDUPLICATE = *CQPerlExtc::CQ_UNDUPLICATE;
  4570. *CQ_IMPORT = *CQPerlExtc::CQ_IMPORT;
  4571. *CQ_DELETE = *CQPerlExtc::CQ_DELETE;
  4572. *CQ_BASE = *CQPerlExtc::CQ_BASE;
  4573. *CQ_RECORD_SCRIPT_ALIAS = *CQPerlExtc::CQ_RECORD_SCRIPT_ALIAS;
  4574. *CQ_CLOSED_CHOICE = *CQPerlExtc::CQ_CLOSED_CHOICE;
  4575. *CQ_OPEN_CHOICE = *CQPerlExtc::CQ_OPEN_CHOICE;
  4576. *CQ_SQL_SERVER = *CQPerlExtc::CQ_SQL_SERVER;
  4577. *CQ_MS_ACCESS = *CQPerlExtc::CQ_MS_ACCESS;
  4578. *CQ_SQL_ANYWHERE = *CQPerlExtc::CQ_SQL_ANYWHERE;
  4579. *CQ_ORACLE = *CQPerlExtc::CQ_ORACLE;
  4580. *CQ_DB2 = *CQPerlExtc::CQ_DB2;
  4581. *CQ_ATTACHMENTS_DBID_UK_SEQ = *CQPerlExtc::CQ_ATTACHMENTS_DBID_UK_SEQ;
  4582. *CQ_ATTACHMENTS_FILENAME_UK_SEQ = *CQPerlExtc::CQ_ATTACHMENTS_FILENAME_UK_SEQ;
  4583. *CQ_ATTACHMENTS_FILESIZE_UK_SEQ = *CQPerlExtc::CQ_ATTACHMENTS_FILESIZE_UK_SEQ;
  4584. *CQ_ATTACHMENTS_DESCRIPTION_UK_SEQ = *CQPerlExtc::CQ_ATTACHMENTS_DESCRIPTION_UK_SEQ;
  4585. *CQ_HISTORY_DBID_UK_SEQ = *CQPerlExtc::CQ_HISTORY_DBID_UK_SEQ;
  4586. *CQ_HISTORY_ACTION_TIMESTAMP_UK_SEQ = *CQPerlExtc::CQ_HISTORY_ACTION_TIMESTAMP_UK_SEQ;
  4587. *CQ_HISTORY_USER_NAME_UK_SEQ = *CQPerlExtc::CQ_HISTORY_USER_NAME_UK_SEQ;
  4588. *CQ_HISTORY_ACTION_NAME_UK_SEQ = *CQPerlExtc::CQ_HISTORY_ACTION_NAME_UK_SEQ;
  4589. *CQ_HISTORY_OLD_STATE_UK_SEQ = *CQPerlExtc::CQ_HISTORY_OLD_STATE_UK_SEQ;
  4590. *CQ_HISTORY_NEW_STATE_UK_SEQ = *CQPerlExtc::CQ_HISTORY_NEW_STATE_UK_SEQ;
  4591. *CQ_TEXT_MSG = *CQPerlExtc::CQ_TEXT_MSG;
  4592. *CQ_WARNING_MSG = *CQPerlExtc::CQ_WARNING_MSG;
  4593. *CQ_ERROR_MSG = *CQPerlExtc::CQ_ERROR_MSG;
  4594. *CQ_EXCEPTION_MSG = *CQPerlExtc::CQ_EXCEPTION_MSG;
  4595. *CQ_DEBUG_MSG = *CQPerlExtc::CQ_DEBUG_MSG;
  4596. *CQ_HAS_NO_VALUE = *CQPerlExtc::CQ_HAS_NO_VALUE;
  4597. *CQ_HAS_VALUE = *CQPerlExtc::CQ_HAS_VALUE;
  4598. *CQ_VALUE_NOT_AVAILABLE = *CQPerlExtc::CQ_VALUE_NOT_AVAILABLE;
  4599. *CQ_KNOWN_VALID = *CQPerlExtc::CQ_KNOWN_VALID;
  4600. *CQ_KNOWN_INVALID = *CQPerlExtc::CQ_KNOWN_INVALID;
  4601. *CQ_NEEDS_VALIDATION = *CQPerlExtc::CQ_NEEDS_VALIDATION;
  4602. *CQ_BOOL_OP_AND = *CQPerlExtc::CQ_BOOL_OP_AND;
  4603. *CQ_BOOL_OP_OR = *CQPerlExtc::CQ_BOOL_OP_OR;
  4604. *CQ_COMP_OP_EQ = *CQPerlExtc::CQ_COMP_OP_EQ;
  4605. *CQ_COMP_OP_NEQ = *CQPerlExtc::CQ_COMP_OP_NEQ;
  4606. *CQ_COMP_OP_LT = *CQPerlExtc::CQ_COMP_OP_LT;
  4607. *CQ_COMP_OP_LTE = *CQPerlExtc::CQ_COMP_OP_LTE;
  4608. *CQ_COMP_OP_GT = *CQPerlExtc::CQ_COMP_OP_GT;
  4609. *CQ_COMP_OP_GTE = *CQPerlExtc::CQ_COMP_OP_GTE;
  4610. *CQ_COMP_OP_LIKE = *CQPerlExtc::CQ_COMP_OP_LIKE;
  4611. *CQ_COMP_OP_NOT_LIKE = *CQPerlExtc::CQ_COMP_OP_NOT_LIKE;
  4612. *CQ_COMP_OP_BETWEEN = *CQPerlExtc::CQ_COMP_OP_BETWEEN;
  4613. *CQ_COMP_OP_NOT_BETWEEN = *CQPerlExtc::CQ_COMP_OP_NOT_BETWEEN;
  4614. *CQ_COMP_OP_IS_NULL = *CQPerlExtc::CQ_COMP_OP_IS_NULL;
  4615. *CQ_COMP_OP_IS_NOT_NULL = *CQPerlExtc::CQ_COMP_OP_IS_NOT_NULL;
  4616. *CQ_COMP_OP_IN = *CQPerlExtc::CQ_COMP_OP_IN;
  4617. *CQ_COMP_OP_NOT_IN = *CQPerlExtc::CQ_COMP_OP_NOT_IN;
  4618. *CQ_DB_AGGR_COUNT = *CQPerlExtc::CQ_DB_AGGR_COUNT;
  4619. *CQ_DB_AGGR_SUM = *CQPerlExtc::CQ_DB_AGGR_SUM;
  4620. *CQ_DB_AGGR_AVG = *CQPerlExtc::CQ_DB_AGGR_AVG;
  4621. *CQ_DB_AGGR_MIN = *CQPerlExtc::CQ_DB_AGGR_MIN;
  4622. *CQ_DB_AGGR_MAX = *CQPerlExtc::CQ_DB_AGGR_MAX;
  4623. *CQ_DB_DAY_FUNC = *CQPerlExtc::CQ_DB_DAY_FUNC;
  4624. *CQ_DB_WEEK_FUNC = *CQPerlExtc::CQ_DB_WEEK_FUNC;
  4625. *CQ_DB_MONTH_FUNC = *CQPerlExtc::CQ_DB_MONTH_FUNC;
  4626. *CQ_DB_YEAR_FUNC = *CQPerlExtc::CQ_DB_YEAR_FUNC;
  4627. *CQ_SORT_ASC = *CQPerlExtc::CQ_SORT_ASC;
  4628. *CQ_SORT_DESC = *CQPerlExtc::CQ_SORT_DESC;
  4629. *CQ_SUCCESS = *CQPerlExtc::CQ_SUCCESS;
  4630. *CQ_NO_DATA_FOUND = *CQPerlExtc::CQ_NO_DATA_FOUND;
  4631. *CQ_MAX_ROWS_EXCEEDED = *CQPerlExtc::CQ_MAX_ROWS_EXCEEDED;
  4632. *CQ_ROW_DELETED = *CQPerlExtc::CQ_ROW_DELETED;
  4633. *CQ_LIST_QUERY = *CQPerlExtc::CQ_LIST_QUERY;
  4634. *CQ_REPORT_QUERY = *CQPerlExtc::CQ_REPORT_QUERY;
  4635. *CQ_CHART_QUERY = *CQPerlExtc::CQ_CHART_QUERY;
  4636. *CQ_CURSOR_FORWARD_ONLY = *CQPerlExtc::CQ_CURSOR_FORWARD_ONLY;
  4637. *CQ_CURSOR_SCROLLING = *CQPerlExtc::CQ_CURSOR_SCROLLING;
  4638. 1;
  4639.