{"id":24399,"date":"2015-06-24T10:02:34","date_gmt":"2015-06-24T08:02:34","guid":{"rendered":"https:\/\/mamchenkov.net\/wordpress\/?p=24399"},"modified":"2015-06-24T10:02:34","modified_gmt":"2015-06-24T08:02:34","slug":"rt-initialdata-and-perls-nested-map","status":"publish","type":"post","link":"https:\/\/mamchenkov.net\/wordpress\/2015\/06\/24\/rt-initialdata-and-perls-nested-map\/","title":{"rendered":"RT initialdata and Perl’s nested map"},"content":{"rendered":"\n

Request Tracker<\/a> (aka RT) comes with a very powerful, yet not too widely known tool – initialdata<\/a>. \u00a0This helps with automating\u00a0configuration of the new system and data migration. \u00a0Combined with the power of Perl’s map()<\/a> function, some really awesome things can be done in a jiffy.<\/p>\n

Here is a snippet I’ve used recently, to set a list of access rights to a list of queues:<\/p>\n

\r\npush @ACL, map {\r\n  my $queue = $_;\r\n  map {\r\n    {\r\n      GroupDomain => 'SystemInternal',\r\n      GroupType => 'Everyone',\r\n      Queue => $queue,\r\n      Right => $_,\r\n    }\r\n  } qw(\r\n    CreateTicket\r\n    ReplyToTicket\r\n  )\r\n} qw(\r\n  dpt-Support-EN\r\n  dpt-Support-RU\r\n  dpt-Support-FR\r\n);\r\n<\/pre>\n\n","protected":false},"excerpt":{"rendered":"\n
Request Tracker (aka RT) comes with a very powerful, yet not too widely known tool – initialdata. \u00a0This helps with automating\u00a0configuration of the new system and data migration. \u00a0Combined with the power of Perl’s map() function, some really awesome things can be done in a jiffy. Here is a snippet I’ve used recently, to set … Continue reading RT initialdata and Perl’s nested map<\/span><\/a><\/p>\n\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_feature_clip_id":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"RT initialdata and Perl's nested map #RT #Perl #SysAdmin #WebDev","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2},"jetpack_post_was_ever_published":false,"_links_to":"","_links_to_target":""},"categories":[1,18,133,62,1334],"tags":[1754,36,3150,1330],"keyring_services":[],"class_list":["post-24399","post","type-post","status-publish","format-standard","hentry","category-general","category-programming","category-sysadmin","category-technology","category-web-work","tag-data-migration","tag-perl","tag-request-tracker","tag-web-development"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t