Context Navigation

CMS.pm @ 1908

Visit:

Revision 1908, 122.5 kB (checked in by fumiakiy, 20 months ago)
Fixed uploading userpic from edit_author screen. BugId:79319
Property svn:keywords set to `Author Date Id Revision`

Line
1	# Movable Type (r) Open Source (C) 2001-2008 Six Apart, Ltd.
2	# This program is distributed under the terms of the
3	# GNU General Public License, version 2.
4	#
5	# $Id$
6
7	package MT::App::CMS;
8
9	use strict;
10	use base qw( MT::App );
11
12	use MT::Util qw( format_ts epoch2ts perl_sha1_digest_hex perl_sha1_digest
13	remove_html );
14
15	sub LISTING_DATE_FORMAT () { '%b %e, %Y' }
16	sub LISTING_DATETIME_FORMAT () { '%b %e, %Y' }
17	sub LISTING_TIMESTAMP_FORMAT () { "%Y-%m-%d %I:%M:%S%p" }
18	sub NEW_PHASE () { 1 }
19
20	sub id { 'cms' }
21
22	sub init {
23	my $app = shift;
24	$app->SUPER::init(@_) or return;
25	$app->{state_params} = [
26	'_type', 'id', 'tab', 'offset',
27	'filter', 'filter_val', 'blog_id', 'is_power_edit',
28	'filter_key', 'type'
29	];
30	$app->{template_dir} = 'cms';
31	$app->{plugin_template_path} = '';
32	$app->{is_admin} = 1;
33	$app->{default_mode} = 'dashboard';
34	$app;
35	}
36
37	sub core_methods {
38	my $app = shift;
39	my $pkg = '$Core::MT::CMS::';
40	return {
41	'tools' => "${pkg}Tools::system_check",
42	'dashboard' => "${pkg}Dashboard::dashboard",
43	'menu' => '${pkg}Dashboard::dashboard',
44	'admin' => '${pkg}Dashboard::dashboard',
45
46	## Generic handlers
47	'save' => "${pkg}Common::save",
48	'edit' => "${pkg}Common::edit",
49	'view' => "${pkg}Common::edit",
50	'list' => "${pkg}Common::list",
51	'delete' => "${pkg}Common::delete",
52	'search_replace' => "${pkg}Search::search_replace",
53
54	## Edit methods
55	'edit_role' => "${pkg}User::edit_role",
56
57	## Listing methods
58	'list_ping' => "${pkg}TrackBack::list",
59	'list_entry' => "${pkg}Entry::list",
60	'list_template' => "${pkg}Template::list",
61	'list_page' => "${pkg}Page::list",
62	'list_comment' => {
63	handler => "${pkg}Comment::list",
64	permission => 'view_feedback',
65	},
66	'list_member' => "${pkg}User::list_member",
67	'list_user' => "${pkg}User::list",
68	'list_author' => "${pkg}User::list",
69	'list_commenter' => "${pkg}Comment::list_commenter",
70	'list_asset' => "${pkg}Asset::list",
71	'list_blog' => "${pkg}Blog::list",
72	'list_category' => "${pkg}Category::list",
73	'list_tag' => "${pkg}Tag::list",
74	'list_association' => "${pkg}User::list_association",
75	'list_role' => "${pkg}User::list_role",
76
77	'asset_insert' => "${pkg}Asset::insert",
78	'asset_userpic' => "${pkg}Asset::asset_userpic",
79	'save_commenter_perm' => "${pkg}Comment::save_commenter_perm",
80	'trust_commenter' => "${pkg}Comment::trust_commenter",
81	'ban_commenter' => "${pkg}Comment::ban_commenter",
82	'approve_item' => "${pkg}Comment::approve_item",
83	'unapprove_item' => "${pkg}Comment::unapprove_item",
84	'preview_entry' => "${pkg}Entry::preview",
85
86	## Blog configuration screens
87	'cfg_archives' => "${pkg}Blog::cfg_archives",
88	'cfg_prefs' => "${pkg}Blog::cfg_prefs",
89	'cfg_plugins' => "${pkg}Plugin::cfg_plugins",
90	'cfg_comments' => "${pkg}Comment::cfg_comments",
91	'cfg_trackbacks' => "${pkg}TrackBack::cfg_trackbacks",
92	'cfg_registration' => "${pkg}Comment::cfg_registration",
93	'cfg_spam' => "${pkg}Comment::cfg_spam",
94	'cfg_entry' => "${pkg}Entry::cfg_entry",
95	'cfg_web_services' => "${pkg}Blog::cfg_web_services",
96
97	## Save
98	'save_cat' => "${pkg}Category::save",
99	'save_entries' => "${pkg}Entry::save_entries",
100	'save_pages' => "${pkg}Page::save_pages",
101	'save_entry' => "${pkg}Entry::save",
102	'save_role' => "${pkg}User::save_role",
103
104	## Delete
105	'delete_entry' => "${pkg}Entry::delete",
106
107	## List actions
108	'enable_object' => "${pkg}User::enable",
109	'disable_object' => "${pkg}User::disable",
110	'list_action' => "${pkg}Tools::do_list_action",
111	'empty_junk' => "${pkg}Comment::empty_junk",
112	'handle_junk' => "${pkg}Comment::handle_junk",
113	'not_junk' => "${pkg}Comment::not_junk",
114
115	'ping' => "${pkg}Entry::send_pings",
116	'rebuild_phase' => "${pkg}Blog::rebuild_phase",
117	'rebuild' => "${pkg}Blog::rebuild_pages",
118	'rebuild_new_phase' => "${pkg}Blog::rebuild_new_phase",
119	'start_rebuild' => "${pkg}Blog::start_rebuild_pages",
120	'rebuild_confirm' => "${pkg}Blog::rebuild_confirm",
121	'entry_notify' => "${pkg}AddressBook::entry_notify",
122	'send_notify' => "${pkg}AddressBook::send_notify",
123	'start_upload' => "${pkg}Asset::start_upload",
124	'upload_file' => "${pkg}Asset::upload_file",
125	'upload_userpic' => "${pkg}User::upload_userpic",
126	'complete_insert' => "${pkg}Asset::complete_insert",
127	'complete_upload' => "${pkg}Asset::complete_upload",
128	'start_upload_entry' => "${pkg}Asset::start_upload_entry",
129	'logout' => {
130	code => sub { $_[0]->SUPER::logout(@_) },
131	requires_login => 0,
132	},
133	'start_recover' => {
134	code => "${pkg}Tools::start_recover",
135	requires_login => 0,
136	},
137	'recover' => {
138	code => "${pkg}Tools::recover_password",
139	requires_login => 0,
140	},
141
142	'view_log' => "${pkg}Log::view",
143	'list_log' => "${pkg}Log::view",
144	'reset_log' => "${pkg}Log::reset",
145	'export_log' => "${pkg}Log::export",
146	'export_notification' => "${pkg}AddressBook::export",
147	'start_import' => "${pkg}Import::start_import",
148	'start_export' => "${pkg}Export::start_export",
149	'export' => "${pkg}Export::export",
150	'import' => "${pkg}Import::do_import",
151	'pinged_urls' => "${pkg}Entry::pinged_urls",
152	'save_entry_prefs' => "${pkg}Entry::save_entry_prefs",
153	'save_favorite_blogs' => "${pkg}Blog::save_favorite_blogs",
154	'folder_add' => "${pkg}Category::category_add",
155	'category_add' => "${pkg}Category::category_add",
156	'category_do_add' => "${pkg}Category::category_do_add",
157	'cc_return' => "${pkg}Blog::cc_return",
158	'reset_blog_templates' => "${pkg}Template::reset_blog_templates",
159	'handshake' => "${pkg}Blog::handshake",
160	'itemset_action' => "${pkg}Tools::do_list_action",
161	'page_action' => "${pkg}Tools::do_page_action",
162	'cfg_system' => "${pkg}Tools::cfg_system_general",
163	'cfg_system_users' => "${pkg}User::cfg_system_users",
164	'cfg_system_feedback' => "${pkg}Comment::cfg_system_feedback",
165	'save_plugin_config' => "${pkg}Plugin::save_config",
166	'reset_plugin_config' => "${pkg}Plugin::reset_config",
167	'save_cfg_system_feedback' => "${pkg}Comment::save_cfg_system_feedback",
168	'save_cfg_system_general' => "${pkg}Tools::save_cfg_system_general",
169	'save_cfg_system_users' => "${pkg}User::save_cfg_system_users",
170	'update_welcome_message' => "${pkg}Blog::update_welcome_message",
171	'upgrade' => {
172	code => "${pkg}Tools::upgrade",
173	requires_login => 0,
174	},
175	'plugin_control' => "${pkg}Plugin::plugin_control",
176	'recover_profile_password' => "${pkg}User::recover_profile_password",
177	'rename_tag' => "${pkg}Tag::rename_tag",
178	'remove_user_assoc' => "${pkg}User::remove_user_assoc",
179	'revoke_role' => "${pkg}User::revoke_role",
180	'grant_role' => "${pkg}User::grant_role",
181	'start_backup' => "${pkg}Tools::start_backup",
182	'start_restore' => "${pkg}Tools::start_restore",
183	'backup' => "${pkg}Tools::backup",
184	'backup_download' => "${pkg}Tools::backup_download",
185	'restore' => "${pkg}Tools::restore",
186	'restore_premature_cancel' => "${pkg}Tools::restore_premature_cancel",
187	'adjust_sitepath' => "${pkg}Tools::adjust_sitepath",
188	'system_check' => "${pkg}Tools::system_check",
189	'dialog_refresh_templates' => "${pkg}Template::dialog_refresh_templates",
190	'dialog_publishing_profile' => "${pkg}Template::dialog_publishing_profile",
191	'refresh_all_templates' => "${pkg}Template::refresh_all_templates",
192	'preview_template' => "${pkg}Template::preview",
193	'publish_index_templates' => "${pkg}Template::publish_index_templates",
194	'publish_archive_templates'=> "${pkg}Template::publish_archive_templates",
195
196	## Comment Replies
197	reply => "${pkg}Comment::reply",
198	do_reply => "${pkg}Comment::do_reply",
199	reply_preview => "${pkg}Comment::reply_preview",
200
201	## Dialogs
202	'dialog_restore_upload' => "${pkg}Tools::dialog_restore_upload",
203	'dialog_adjust_sitepath' => "${pkg}Tools::dialog_adjust_sitepath",
204	'dialog_post_comment' => "${pkg}Comment::dialog_post_comment",
205	'dialog_select_weblog' => "${pkg}Blog::dialog_select_weblog",
206	'dialog_select_sysadmin' => "${pkg}User::dialog_select_sysadmin",
207	'dialog_grant_role' => "${pkg}User::dialog_grant_role",
208	'dialog_select_author' => "${pkg}User::dialog_select_author",
209
210	## AJAX handlers
211	'delete_map' => "${pkg}Template::delete_map",
212	'add_map' => "${pkg}Template::add_map",
213	'js_tag_check' => "${pkg}Tag::js_tag_check",
214	'js_tag_list' => "${pkg}Tag::js_tag_list",
215	'convert_to_html' => "${pkg}Tools::convert_to_html",
216	'update_list_prefs' => "${pkg}Tools::update_list_prefs",
217	'js_add_category' => "${pkg}Category::js_add_category",
218	'remove_userpic' => "${pkg}User::remove_userpic",
219
220	# declared in MT::App
221	'update_widget_prefs' => sub { return shift->update_widget_prefs(@_) },
222
223	'js_recent_entries_for_tag' => "${pkg}Tag::js_recent_entries_for_tag",
224
225	## DEPRECATED ##
226	'list_pings' => "${pkg}TrackBack::list",
227	'list_entries' => "${pkg}Entry::list",
228	'list_pages' => "${pkg}Page::list",
229	'list_comments' => {
230	handler => "${pkg}Comment::list",
231	permission => 'view_feedback',
232	},
233	'list_authors' => "${pkg}User::list",
234	'list_assets' => "${pkg}Asset::list",
235	'list_cat' => "${pkg}Category::list",
236	'list_blogs' => "${pkg}Blog::list",
237	'list_associations' => "${pkg}User::list_association",
238	'list_roles' => "${pkg}User::list_role",
239	};
240	}
241
242	sub core_widgets {
243	my $app = shift;
244	my $pkg = '$Core::MT::CMS::';
245	return {
246	new_install => {
247	template => 'widget/new_install.tmpl',
248	set => 'main', # forces this widget to the main group
249	singular => 1,
250	},
251	new_user => {
252	template => 'widget/new_user.tmpl',
253	set => 'main', # forces this widget to the main group
254	singular => 1,
255	},
256	new_version => {
257	template => 'widget/new_version.tmpl',
258	set => 'main',
259	singular => 1,
260	handler => "${pkg}Dashboard::new_version_widget",
261	},
262	this_is_you => {
263	label => 'This is You',
264	template => 'widget/this_is_you.tmpl',
265	handler => "${pkg}Dashboard::this_is_you_widget",
266	set => 'sidebar',
267	singular => 1,
268	},
269	mt_shortcuts => {
270	label => 'Handy Shortcuts',
271	template => 'widget/mt_shortcuts.tmpl',
272	singular => 1,
273	set => 'sidebar',
274	},
275	mt_news => {
276	label => 'Movable Type News',
277	template => 'widget/mt_news.tmpl',
278	handler => "${pkg}Dashboard::mt_news_widget",
279	singular => 1,
280	set => 'sidebar',
281	},
282	blog_stats => {
283	label => 'Blog Stats',
284	template => 'widget/blog_stats.tmpl',
285	handler => "${pkg}Dashboard::mt_blog_stats_widget",
286	singular => 1,
287	set => 'main',
288	},
289	};
290	}
291
292	sub core_blog_stats_tabs {
293	my $app = shift;
294	my $pkg = '$Core::MT::CMS::';
295	return {
296	entry => {
297	label => 'Entries',
298	template => 'widget/blog_stats_entry.tmpl',
299	handler => "${pkg}Dashboard::mt_blog_stats_widget_entry_tab",
300	stats => "${pkg}Dashboard::generate_dashboard_stats_entry_tab",
301	},
302	comment => {
303	label => 'Comments',
304	template => 'widget/blog_stats_comment.tmpl',
305	handler => "${pkg}Dashboard::mt_blog_stats_widget_comment_tab",
306	stats => "${pkg}Dashboard::generate_dashboard_stats_comment_tab",
307	},
308	tag_cloud => {
309	label => 'Tag Cloud',
310	handler => "${pkg}Dashboard::mt_blog_stats_tag_cloud_tab",
311	template => 'widget/blog_stats_tag_cloud.tmpl',
312	},
313	};
314	}
315
316	sub core_page_actions {
317	return {
318	list_templates => {
319	refresh_all_blog_templates => {
320	label => "Refresh Blog Templates",
321	dialog => 'dialog_refresh_templates',
322	condition => sub {
323	MT->app->blog,
324	},
325	order => 1000,
326	},
327	refresh_global_templates => {
328	label => "Refresh Global Templates",
329	handler => '$Core::MT::CMS::Template::refresh_all_templates',
330	condition => sub {
331	! MT->app->blog,
332	},
333	order => 1000,
334	continue_prompt => MT->translate('This action will restore your global templates to factory settings without creating a backup. Click OK to continue or Cancel to abort.'),
335	},
336	publishing_profile => {
337	label => "Use Publishing Profile",
338	dialog => 'dialog_publishing_profile',
339	condition => sub {
340	MT->app->blog,
341	},
342	order => 1100,
343	},
344	},
345	};
346	}
347
348	sub init_plugins {
349	my $app = shift;
350
351	# This has to be done prior to plugin initialization since we
352	# may have plugins that register themselves using some of the
353	# older callback names. The callback aliases are declared
354	# in init_core_callbacks.
355	$app->init_core_callbacks();
356	$app->SUPER::init_plugins(@_);
357	}
358
359	sub init_request {
360	my $app = shift;
361	$app->SUPER::init_request(@_);
362	$app->set_no_cache;
363	$app->{requires_login} = 1
364	unless exists $app->{requires_login}; # by default, we require login
365
366	my $mode = $app->mode;
367
368	# Global 'blog_id' parameter check; if we get something
369	# other than an integer, die
370	if (my $blog_id = $app->param('blog_id')) {
371	if ($blog_id ne int($blog_id)) {
372	die $app->translate("Invalid request");
373	}
374	}
375
376	unless (defined $app->{upgrade_required}) {
377	$app->{upgrade_required} = 0;
378	if ( ( $mode ne 'logout' )
379	&& ( $mode ne 'start_recover' )
380	&& ( $mode ne 'recover' )
381	&& ( $mode ne 'upgrade' ) )
382	{
383	my $schema = $app->config('SchemaVersion');
384	my $version = $app->config('MTVersion');
385	if ( !$schema \|\| ( $schema < $app->schema_version )
386	\|\| ( ( !$version \|\| ( $version < $app->version_number ) )
387	&& $app->config->NotifyUpgrade ) ) {
388	$app->{upgrade_required} = 1;
389	}
390	else {
391	foreach my $plugin (@MT::Components) {
392	if ( $plugin->needs_upgrade ) {
393	$app->{upgrade_required} = 1;
394	last;
395	}
396	}
397	}
398	}
399	}
400
401	if ($app->{upgrade_required}) {
402	$app->{requires_login} = 0;
403	$app->mode('upgrade');
404	}
405	}
406
407	sub core_list_actions {
408	my $app = shift;
409	my $pkg = '$Core::MT::CMS::';
410	return {
411	'entry' => {
412	'set_published' => {
413	label => "Publish Entries",
414	order => 100,
415	code => "${pkg}Entry::publish_entries",
416	permission => 'edit_all_posts,publish_post',
417	condition => sub {
418	return 0 if $app->mode eq 'view';
419	return $app->blog && $app->blog->site_path ? 1 : 0;
420	}
421	},
422	'set_draft' => {
423	label => "Unpublish Entries",
424	order => 200,
425	code => "${pkg}Entry::draft_entries",
426	permission => 'edit_all_posts,publish_post',
427	condition => sub {
428	return 0 if $app->mode eq 'view';
429	return $app->blog && $app->blog->site_path ? 1 : 0;
430	}
431	},
432	'add_tags' => {
433	label => "Add Tags...",
434	order => 300,
435	code => "${pkg}Tag::add_tags_to_entries",
436	input => 1,
437	input_label => 'Tags to add to selected entries',
438	permission => 'edit_all_posts',
439	condition => sub {
440	return $app->mode ne 'view';
441	}
442	},
443	'remove_tags' => {
444	label => "Remove Tags...",
445	order => 400,
446	code => "${pkg}Tag::remove_tags_from_entries",
447	input => 1,
448	input_label => 'Tags to remove from selected entries',
449	permission => 'edit_all_posts',
450	condition => sub {
451	return $app->mode ne 'view';
452	}
453	},
454	'open_batch_editor' => {
455	label => "Batch Edit Entries",
456	code => "${pkg}Entry::open_batch_editor",
457	order => 500,
458	condition => sub {
459	return 0 if $app->mode eq 'view';
460	$app->param('blog_id')
461	&& ( $app->user->is_superuser()
462	\|\| $app->permissions->can_edit_all_posts );
463	},
464	},
465	},
466	'page' => {
467	'set_published' => {
468	label => "Publish Pages",
469	order => 100,
470	code => "${pkg}Entry::publish_entries",
471	permission => 'manage_pages',
472	condition => sub {
473	return 0 if $app->mode eq 'view';
474	return $app->blog && $app->blog->site_path ? 1 : 0;
475	},
476	},
477	'set_draft' => {
478	label => "Unpublish Pages",
479	order => 200,
480	code => "${pkg}Entry::draft_entries",
481	permission => 'manage_pages',
482	condition => sub {
483	return 0 if $app->mode eq 'view';
484	return $app->blog && $app->blog->site_path ? 1 : 0;
485	},
486	},
487	'add_tags' => {
488	label => "Add Tags...",
489	order => 300,
490	code => "${pkg}Tag::add_tags_to_entries",
491	input => 1,
492	input_label => 'Tags to add to selected pages',
493	permission => 'manage_pages',
494	condition => sub {
495	return $app->mode ne 'view';
496	},
497	},
498	'remove_tags' => {
499	label => "Remove Tags...",
500	order => 400,
501	code => "${pkg}Tag::remove_tags_from_entries",
502	input => 1,
503	input_label => 'Tags to remove from selected pages',
504	permission => 'manage_pages',
505	condition => sub {
506	return $app->mode ne 'view';
507	},
508	},
509	'open_batch_editor' => {
510	label => "Batch Edit Pages",
511	code => "${pkg}Entry::open_batch_editor",
512	order => 500,
513	condition => sub {
514	return 0 if $app->mode eq 'view';
515	$app->param('blog_id')
516	&& ( $app->user->is_superuser()
517	\|\| $app->permissions->can_manage_pages );
518	},
519	},
520	},
521	'asset' => {
522	'add_tags' => {
523	label => "Add Tags...",
524	order => 100,
525	code => "${pkg}Tag::add_tags_to_assets",
526	input => 1,
527	input_label => 'Tags to add to selected assets',
528	permission => 'edit_assets',
529	},
530	'remove_tags' => {
531	label => "Remove Tags...",
532	order => 200,
533	code => "${pkg}Tag::remove_tags_from_assets",
534	input => 1,
535	input_label => 'Tags to remove from selected assets',
536	permission => 'edit_assets',
537	},
538	},
539	'ping' => {
540	'unapprove_ping' => {
541	label => "Unpublish TrackBack(s)",
542	order => 100,
543	code => "${pkg}Comment::unapprove_item",
544	permission => 'manage_feedback,publish_post',
545	},
546	},
547	'comment' => {
548	'unapprove_comment' => {
549	label => "Unpublish Comment(s)",
550	order => 100,
551	code => "${pkg}Comment::unapprove_item",
552	permission => 'manage_feedback,publish_post',
553	condition => sub {
554	return 1;
555	},
556	},
557	'trust_commenter' => {
558	label => "Trust Commenter(s)",
559	order => 200,
560	code => "${pkg}Comment::trust_commenter_by_comment",
561	permission => 'manage_feedback',
562	},
563	'untrust_commenter' => {
564	label => "Untrust Commenter(s)",
565	order => 300,
566	code => "${pkg}Comment::untrust_commenter_by_comment",
567	permission => 'manage_feedback',
568	},
569	'ban_commenter' => {
570	label => "Ban Commenter(s)",
571	order => 400,
572	code => "${pkg}Comment::ban_commenter_by_comment",
573	permission => 'manage_feedback',
574	},
575	'unban_commenter' => {
576	label => "Unban Commenter(s)",
577	order => 500,
578	code => "${pkg}Comment::unban_commenter_by_comment",
579	permission => 'manage_feedback',
580	},
581	},
582	'commenter' => {
583	'untrust' => {
584	label => "Untrust Commenter(s)",
585	order => 100,
586	code => "{$pkg}Comment::untrust_commenter",
587	permission => 'manage_feedback',
588	},
589	'unban' => {
590	label => "Unban Commenter(s)",
591	order => 200,
592	code => "${pkg}Comment::unban_commenter",
593	permission => 'manage_feedback',
594	},
595	},
596	'author' => {
597	'recover_passwords' => {
598	label => "Recover Password(s)",
599	order => 100,
600	continue_prompt_handler => sub {
601	MT->translate("_WARNING_PASSWORD_RESET_MULTI");
602	},
603	code => "${pkg}Tools::recover_passwords",
604	condition => sub {
605	( $app->user->is_superuser()
606	&& MT::Auth->can_recover_password );
607	},
608	},
609	'delete_user' => {
610	label => "Delete",
611	order => 200,
612	continue_prompt_handler => sub {
613	$app->config->ExternalUserManagement
614	? MT->translate("_WARNING_DELETE_USER_EUM")
615	: MT->translate("_WARNING_DELETE_USER");
616	},
617	code => "${pkg}Common::delete",
618	condition => sub {
619	$app->user->is_superuser();
620	},
621	},
622	},
623	'blog' => {
624	refresh_blog_templates => {
625	label => "Refresh Template(s)",
626	code => sub {
627	my $app = MT->app;
628	$app->param('backup', 1);
629	require MT::CMS::Template;
630	MT::CMS::Template::refresh_all_templates($app, @_)
631	},
632	},
633	},
634	'template' => {
635	refresh_tmpl_templates => {
636	label => "Refresh Template(s)",
637	code => "${pkg}Template::refresh_individual_templates",
638	permission => 'edit_templates',
639	order => 100,
640	},
641	publish_index_templates => {
642	label => "Publish Template(s)",
643	code => "${pkg}Template::publish_index_templates",
644	permission => 'rebuild',
645	condition => sub {
646	my $app = MT->app;
647	my $tmpl_type = $app->param('filter_key');
648	return $app->mode eq 'itemset_action' ? 1
649	: !$app->blog ? 0
650	: !$tmpl_type ? 0
651	: $tmpl_type eq 'index_templates' ? 1
652	: 0
653	;
654	},
655	order => 200,
656	},
657	publish_archive_templates => {
658	label => "Publish Template(s)",
659	code => "${pkg}Template::publish_archive_templates",
660	permission => 'rebuild',
661	condition => sub {
662	my $app = MT->app;
663	my $tmpl_type = $app->param('filter_key');
664	return $app->mode eq 'itemset_action' ? 1
665	: !$app->blog ? 0
666	: !$tmpl_type ? 0
667	: $tmpl_type eq 'archive_templates' ? 1
668	: 0;
669	},
670	order => 300,
671	},
672	copy_templates => {
673	label => "Clone Template(s)",
674	code => "${pkg}Template::clone_templates",
675	permission => 'edit_templates',
676	condition => sub {
677	my $app = MT->app;
678	my $tmpl_type = $app->param('filter_key') \|\| '';
679	return $tmpl_type eq 'system_templates' ? 0
680	: $tmpl_type eq 'email_templates' ? 0
681	: 1;
682	},
683	order => 400,
684	},
685	},
686	};
687	}
688
689	sub _entry_label {
690	my $app = MT->instance;
691	my $type = $app->param('type') \|\| 'entry';
692	$app->model($type)->class_label_plural;
693	}
694
695	sub core_list_filters {
696	my $app = shift;
697	return {
698	asset => sub {
699	require MT::CMS::Asset;
700	return MT::CMS::Asset::asset_list_filters($app, @_);
701	},
702	entry => {
703	published => {
704	label => sub {
705	$app->translate( 'Published [_1]', _entry_label );
706	},
707	order => 100,
708	handler => sub {
709	my ( $terms, $args ) = @_;
710	$terms->{status} = 2;
711	},
712	},
713	unpublished => {
714	label => sub {
715	$app->translate( 'Unpublished [_1]', _entry_label );
716	},
717	order => 200,
718	handler => sub {
719	my ( $terms, $args ) = @_;
720	$terms->{status} = 1;
721	},
722	},
723	scheduled => {
724	label => sub {
725	$app->translate( 'Scheduled [_1]', _entry_label );
726	},
727	order => 300,
728	handler => sub {
729	my ( $terms, $args ) = @_;
730	$terms->{status} = 4;
731	},
732	},
733	my_posts => {
734	label => sub {
735	$app->translate( 'My [_1]', _entry_label );
736	},
737	order => 400,
738	handler => sub {
739	my ( $terms, $args ) = @_;
740	$terms->{author_id} = $app->user->id;
741	},
742	},
743	received_comments_in_last_7_days => {
744	label => sub {
745	$app->translate( '[_1] with comments in the last 7 days',
746	_entry_label );
747	},
748	order => 500,
749	handler => sub {
750	my ( $terms, $args ) = @_;
751	my $ts = time - 10 * 24 * 60 * 60;
752	$ts = epoch2ts( MT->app->blog, $ts );
753	$args->{join} = MT::Comment->join_on(
754	'entry_id',
755	{
756	created_on => [ $ts, undef ],
757	junk_status => MT::Comment::NOT_JUNK(),
758	},
759	{ range_incl => { created_on => 1 }, unique => 1 }
760	);
761	# Since we're selecting content from the mt_entry
762	# table, but we want to sort by the joined
763	# 'comment_created_on' column, we have to specify the
764	# sort column as a reference and a full field name,
765	# to prevent MT from adding a 'entry_' prefix to
766	# the column name.
767	$args->{sort} = [ { column => \'comment_created_on' } ];
768	$args->{direction} = 'descend';
769	},
770	},
771	_by_date => {
772	label => sub {
773	my $app = MT->instance;
774	my $val = $app->param('filter_val');
775	my ( $from, $to ) = split /-/, $val;
776	$from = undef unless $from =~ m/^\d{8}$/;
777	$to = undef unless $to =~ m/^\d{8}$/;
778	my $format = '%x';
779	$from = format_ts(
780	$format, $from . '000000',
781	undef, MT->current_language
782	) if $from;
783	$to = format_ts(
784	$format, $to . '000000',
785	undef, MT->current_language
786	) if $to;
787	my $label = _entry_label;
788
789	if ( $from && $to ) {
790	return $app->translate(
791	'[_1] posted between [_2] and [_3]',
792	$label, $from, $to );
793	}
794	elsif ($from) {
795	return $app->translate( "[_1] posted since [_2]",
796	$label, $from );
797	}
798	elsif ($to) {
799	return $app->translate( "[_1] posted on or before [_2]",
800	$label, $to );
801	}
802	},
803	handler => sub {
804	my ( $terms, $args ) = @_;
805	my $val = $app->param('filter_val');
806	my ( $from, $to ) = split /-/, $val;
807	$from = undef unless $from =~ m/^\d{8}$/;
808	$from .= '000000';
809	$to = undef unless $to =~ m/^\d{8}$/;
810	$to .= '235959';
811	$terms->{authored_on} =
812	[ MT::Object::ts2db($from), MT::Object::ts2db($to) ];
813	$args->{range_incl}{authored_on} = 1;
814	},
815	},
816	},
817	ping => {
818	default => {
819	label => 'Non-spam TrackBacks',
820	order => 100,
821	handler => sub {
822	my ( $terms, $args ) = @_;
823	require MT::TBPing;
824	$terms->{junk_status} = MT::TBPing::NOT_JUNK();
825	},
826	},
827	my_posts => {
828	label => 'TrackBacks on my entries',
829	order => 200,
830	handler => sub {
831	my ( $terms, $args ) = @_;
832	require MT::Entry;
833	my $app = MT->instance;
834	require MT::TBPing;
835	require MT::Trackback;
836	$terms->{junk_status} = MT::TBPing::NOT_JUNK();
837	$args->{join} = MT::Trackback->join_on(
838	undef,
839	{
840	id => \'= tbping_tb_id',
841	},
842	{
843	join => MT::Entry->join_on(
844	undef,
845	{
846	id => \'= trackback_entry_id',
847	author_id => $app->user->id
848	}
849	)
850	},
851	);
852	},
853	},
854	published => {
855	label => 'Published TrackBacks',
856	order => 200,
857	handler => sub {
858	my ( $terms, $args ) = @_;
859	$terms->{visible} = 1;
860	},
861	},
862	unpublished => {
863	label => 'Unpublished TrackBacks',
864	order => 300,
865	handler => sub {
866	my ( $terms, $args ) = @_;
867	require MT::TBPing;
868	$terms->{junk_status} = MT::TBPing::NOT_JUNK();
869	$terms->{visible} = 0;
870	},
871	},
872	spam => {
873	label => 'TrackBacks marked as Spam',
874	order => 400,
875	handler => sub {
876	my ( $terms, $args ) = @_;
877	require MT::TBPing;
878	$terms->{junk_status} = MT::TBPing::NOT_JUNK();
879	},
880	},
881	last_7_days => {
882	label => 'All TrackBacks in the last 7 days',
883	order => 700,
884	handler => sub {
885	my ( $terms, $args ) = @_;
886	my $ts = time - 7 * 24 * 60 * 60;
887	$ts = epoch2ts( MT->app->blog, $ts );
888	$terms->{created_on} = [ $ts, undef ];
889	$args->{range_incl}{created_on} = 1;
890	$terms->{junk_status} = MT::TBPing::NOT_JUNK();
891	},
892	},
893	},
894	comment => {
895	default => {
896	label => 'Non-spam Comments',
897	order => 100,
898	handler => sub {
899	my ( $terms, $args ) = @_;
900	require MT::Comment;
901	$terms->{junk_status} = MT::Comment::NOT_JUNK();
902	},
903	},
904	my_posts => {
905	label => 'Comments on my entries',
906	order => 200,
907	handler => sub {
908	my ( $terms, $args ) = @_;
909	require MT::Entry;
910	require MT::Comment;
911	my $app = MT->instance;
912	$terms->{junk_status} = MT::Comment::NOT_JUNK();
913	# This join syntax employs a hack that allows us
914	# to do joins on abitrary columns. Typically,
915	# objectdriver joins are applied with the primary
916	# key column of the driving table (here,
917	# mt_comment.comment_id), but we actually want to
918	# join to the mt_entry table where the entry_id
919	# matches to mt_comment.comment_entry_id (not the
920	# primary key). So by specifying NO 'join' column
921	# (which is always compared with the primary key),
922	# we specify the actual join conditions in the
923	# terms. And using a reference for the
924	# 'comment_entry_id' column name, to pass that
925	# on directly to the SQL statement that is generated.
926	$args->{join} = MT::Entry->join_on(
927	undef,
928	{
929	id => \'= comment_entry_id',
930	author_id => $app->user->id
931	}
932	);
933	},
934	},
935	unpublished => {
936	label => 'Pending comments',
937	order => 300,
938	handler => sub {
939	my ( $terms, $args ) = @_;
940	require MT::Comment;
941	$terms->{junk_status} = MT::Comment::NOT_JUNK();
942	$terms->{visible} = 0;
943	},
944	},
945	spam => {
946	label => 'Spam Comments',
947	order => 400,
948	handler => sub {
949	my ( $terms, $args ) = @_;
950	require MT::Comment;
951	$terms->{junk_status} = MT::Comment::JUNK();
952	},
953	},
954	published => {
955	label => 'Published comments',
956	order => 500,
957	handler => sub {
958	my ( $terms, $args ) = @_;
959	$terms->{visible} = 1;
960	},
961	},
962	last_7_days => {
963	label => 'Comments in the last 7 days',
964	order => 700,
965	handler => sub {
966	my ( $terms, $args ) = @_;
967	require MT::Comment;
968	my $ts = time - 7 * 24 * 60 * 60;
969	$ts = epoch2ts( MT->app->blog, $ts );
970	$terms->{created_on} = [ $ts, undef ];
971	$args->{range_incl}{created_on} = 1;
972	$terms->{junk_status} = MT::Comment::NOT_JUNK();
973	},
974	},
975	_comments_by_user => {
976	label => sub {
977	my $app = MT->app;
978	my $user_id = $app->param('filter_val');
979	my $user = MT::Author->load($user_id);
980	require MT::Author;
981	return $app->translate(
982	"All comments by [_1] '[_2]'",
983	(
984	$user->type == MT::Author::COMMENTER()
985	? $app->translate("Commenter")
986	: $app->translate("Author")
987	),
988	(
989	$user->nickname
990	? $user->nickname . ' (' . $user->name . ')'
991	: $user->name
992	)
993	);
994	},
995	handler => sub {
996	my ( $terms, $args ) = @_;
997	my $cmtr_id = int( MT->app->param('filter_val') );
998	$terms->{commenter_id} = $cmtr_id;
999	},
1000	},
1001	_comments_by_entry => {
1002	label => sub {
1003	my $entry_id = MT->app->param('filter_val');
1004	my $entry = MT::Entry->load($entry_id);
1005	return MT->translate( "All comments for [_1] '[_2]'",
1006	$entry->class_label, $entry->title );
1007	},
1008	handler => sub {
1009	my ( $terms, $args ) = @_;
1010	require MT::Comment;
1011	my $entry_id = int( MT->app->param('filter_val') );
1012	$terms->{entry_id} = $entry_id;
1013	$terms->{junk_status} = MT::Comment::NOT_JUNK();
1014	},
1015	},
1016	_by_date => {
1017	label => sub {
1018	my $app = MT->instance;
1019	my $val = $app->param('filter_val');
1020	my ( $from, $to ) = split /-/, $val;
1021	$from = undef unless $from =~ m/^\d{8}$/;
1022	$to = undef unless $to =~ m/^\d{8}$/;
1023	my $format = '%x';
1024	$from = format_ts(
1025	$format, $from . '000000',
1026	undef, MT->current_language
1027	) if $from;
1028	$to = format_ts(
1029	$format, $to . '000000',
1030	undef, MT->current_language
1031	) if $to;
1032
1033	if ( $from && $to ) {
1034	return $app->translate(
1035	'Comments posted between [_1] and [_2]',
1036	$from, $to );
1037	}
1038	elsif ($from) {
1039	return $app->translate( "Comments posted since [_1]",
1040	$from );
1041	}
1042	elsif ($to) {
1043	return $app->translate(
1044	"Comments posted on or before [_1]", $to );
1045	}
1046	},
1047	handler => sub {
1048	my ( $terms, $args ) = @_;
1049	require MT::Comment;
1050	my $val = $app->param('filter_val');
1051	my ( $from, $to ) = split /-/, $val;
1052	$from = undef unless $from =~ m/^\d{8}$/;
1053	$from .= '000000';
1054	$to = undef unless $to =~ m/^\d{8}$/;
1055	$to .= '235959';
1056	$terms->{junk_status} = MT::Comment::NOT_JUNK();
1057	$terms->{created_on} =
1058	[ MT::Object::ts2db($from), MT::Object::ts2db($to) ];
1059	$args->{range_incl}{created_on} = 1;
1060	},
1061	},
1062	},
1063	template => {
1064	index_templates => {
1065	label => "Index Templates",
1066	order => 100,
1067	handler => sub {
1068	my ( $terms, $args ) = @_;
1069	# FIXME: enumeration of types
1070	$terms->{type} = 'index';
1071	},
1072	condition => sub {
1073	$app->param('blog_id');
1074	},
1075	},
1076	archive_templates => {
1077	label => "Archive Templates",
1078	order => 200,
1079	handler => sub {
1080	my ( $terms, $args ) = @_;
1081	$terms->{type} =
1082	[ 'individual', 'page', 'archive', 'category' ];
1083	},
1084	condition => sub {
1085	$app->param('blog_id');
1086	},
1087	},
1088	module_templates => {
1089	label => "Template Modules",
1090	order => 400,
1091	handler => sub {
1092	my ($terms) = @_;
1093	$terms->{type} = 'custom';
1094	},
1095	},
1096	email_templates => {
1097	label => "E-mail Templates",
1098	order => 300,
1099	handler => sub {
1100	my ($terms) = @_;
1101	$terms->{type} = 'email';
1102	},
1103	condition => sub {
1104	!$app->param('blog_id');
1105	},
1106	},
1107	system_templates => {
1108	label => "System Templates",
1109	order => 200,
1110	handler => sub {
1111	my ($terms) = @_;
1112	my $scope;
1113	my $set;
1114	if ( my $blog_id = $app->param('blog_id') ) {
1115	my $blog = $app->model('blog')->load($blog_id);
1116	$set = $blog->template_set;
1117	$scope .= 'system';
1118	}
1119	else {
1120	$terms->{blog_id} = 0;
1121	$scope = 'global:system';
1122	}
1123	my @tmpl_path = ( $set && ($set ne 'mt_blog')) ? ("template_sets", $set, 'templates', $scope) : ("default_templates", $scope);
1124	my $sys_tmpl = MT->registry(@tmpl_path) \|\| {};
1125	$terms->{type} = [ keys %$sys_tmpl ];
1126	},
1127	condition => sub {
1128	$app->param('blog_id');
1129	},
1130	},
1131	},
1132	tag => {
1133	entry => {
1134	label => 'Tags with entries',
1135	order => 100,
1136	},
1137	page => {
1138	label => 'Tags with pages',
1139	order => 200,
1140	},
1141	asset => {
1142	label => 'Tags with assets',
1143	order => 300,
1144	},
1145	},
1146	sys_user => {
1147	enabled => {
1148	label => 'Enabled Users',
1149	order => 100,
1150	handler => sub {
1151	my ($terms) = @_;
1152	$terms->{status} = 1;
1153	},
1154	},
1155	disabled => {
1156	label => "Disabled Users",
1157	order => 200,
1158	handler => sub {
1159	my ($terms) = @_;
1160	$terms->{status} = 2;
1161	},
1162	},
1163	pending => {
1164	label => "Pending Users",
1165	order => 300,
1166	handler => sub {
1167	my ($terms) = @_;
1168	$terms->{status} = 3;
1169	},
1170	},
1171	},
1172	user => {
1173	author => {
1174	label => 'Authors',
1175	order => 100,
1176	handler => sub {
1177	my ($terms) = @_;
1178	require MT::Author;
1179	$terms->{type} = MT::Author::AUTHOR();
1180	},
1181	},
1182	commenter => {
1183	label => 'Commenters',
1184	order => 200,
1185	handler => sub {
1186	my ($terms) = @_;
1187	require MT::Author;
1188	$terms->{type} = MT::Author::COMMENTER();
1189	},
1190	},
1191	},
1192	};
1193	}
1194
1195	sub core_menus {
1196	my $app = shift;
1197	return {
1198	'create' => {
1199	label => "Create",
1200	order => 100,
1201	},
1202	'manage' => {
1203	label => "Manage",
1204	order => 200,
1205	},
1206	'design' => {
1207	label => "Design",
1208	order => 300,
1209	},
1210	'prefs' => {
1211	label => "Preferences",
1212	order => 400,
1213	},
1214	'tools' => {
1215	label => "Tools",
1216	order => 500,
1217	},
1218
1219	'create:blog' => {
1220	label => "Blog",
1221	order => 100,
1222	view => "system",
1223	},
1224	'create:blog' => {
1225	label => "Blog",
1226	order => 200,
1227	view => "system",
1228	mode => "view",
1229	args => { _type => "blog" },
1230	permission => "create_blog",
1231	},
1232	'create:user' => {
1233	label => "User",
1234	order => 200,
1235	view => "system",
1236	mode => "view",
1237	args => { _type => "author" },
1238	permission => "administer",
1239	condition => sub {
1240	return !MT->config->ExternalUserManagement;
1241	},
1242	},
1243	'create:entry' => {
1244	label => "Entry",
1245	order => 100,
1246	mode => 'view',
1247	args => { _type => 'entry' },
1248	permission => 'create_post',
1249	view => "blog",
1250	},
1251	'create:page' => {
1252	label => "Page",
1253	order => 200,
1254	mode => 'view',
1255	args => { _type => 'page' },
1256	permission => 'manage_pages',
1257	view => "blog",
1258	},
1259	'create:file' => {
1260	label => "Upload File",
1261	order => 300,
1262	dialog => 'start_upload',
1263	permission => 'upload,edit_assets',
1264	view => "blog",
1265	},
1266
1267	'manage:blog' => {
1268	label => "Blogs",
1269	mode => "list_blog",
1270	order => 100,
1271	view => "system",
1272	},
1273	'manage:user' => {
1274	label => "Users",
1275	mode => "list_user",
1276	order => 200,
1277	permission => "administer",
1278	view => "system",
1279	},
1280	'manage:entry' => {
1281	label => "Entries",
1282	mode => 'list_entry',
1283	order => 1000,
1284	condition => sub {
1285	return 1 if $app->user->is_superuser;
1286	if ( $app->param('blog_id') ) {
1287	my $perms = $app->user->permissions($app->param('blog_id'));
1288	return 1 if $perms->can_create_post \|\| $perms->can_publish_post \|\| $perms->can_edit_all_posts;
1289	}
1290	else {
1291	require MT::Permission;
1292	my @blogs =
1293	map { $_->blog_id }
1294	grep { $_->can_create_post \|\| $_->can_publish_post \|\| $_->can_edit_all_posts }
1295	MT::Permission->load( { author_id => $app->user->id } );
1296	return 1 if @blogs;
1297	}
1298	return 0;
1299	},
1300	#permission => 'create_post,publish_post,edit_all_posts',
1301	},
1302	'manage:comment' => {
1303	label => "Comments",
1304	mode => 'list_comment',
1305	order => 2000,
1306	condition => sub {
1307	return 1 if $app->user->is_superuser;
1308	if ( $app->param('blog_id') ) {
1309	my $perms = $app->user->permissions($app->param('blog_id'));
1310	return 1 if $perms->can_create_post \|\| $perms->can_manage_feedback \|\| $perms->can_edit_all_posts \|\| $perms->can_comment;
1311	}
1312	else {
1313	require MT::Permission;
1314	my @blogs =
1315	map { $_->blog_id }
1316	grep { $_->can_create_post \|\| $_->can_manage_feedback \|\| $_->can_edit_all_posts \|\| $_->can_comment }
1317	MT::Permission->load( { author_id => $app->user->id } );
1318	return 1 if @blogs;
1319	}
1320	return 0;
1321	},
1322	#permission => 'create_post,edit_all_posts,manage_feedback,comment',
1323	},
1324	'manage:asset' => {
1325	label => "Assets",
1326	mode => 'list_asset',
1327	order => 3000,
1328	permission => 'edit_assets',
1329	},
1330	'manage:page' => {
1331	label => "Pages",
1332	mode => 'list_pages',
1333	order => 4000,
1334	permission => 'manage_pages',
1335	},
1336	'manage:ping' => {
1337	label => "TrackBacks",
1338	mode => 'list_pings',
1339	order => 5000,
1340	permission => 'create_post,edit_all_posts,manage_feedback',
1341	},
1342	'manage:category' => {
1343	label => "Categories",
1344	mode => 'list_cat',
1345	order => 6000,
1346	permission => 'edit_categories',
1347	view => "blog",
1348	},
1349	'manage:folder' => {
1350	label => "Folders",
1351	mode => 'list_cat',
1352	args => { _type => 'folder' },
1353	order => 7000,
1354	permission => 'manage_pages',
1355	view => "blog",
1356	},
1357	'manage:tag' => {
1358	label => "Tags",
1359	mode => 'list_tag',
1360	order => 8000,
1361	permission => 'edit_tags',
1362	system_permission => 'administer',
1363	},
1364	'manage:blog_user' => {
1365	label => "Users",
1366	mode => 'list_member',
1367	order => 9000,
1368	view => "blog",
1369	permission => 'administer_blog',
1370	system_permission => 'administer',
1371	},
1372	'manage:notification' => {
1373	label => "Address Book",
1374	mode => 'list',
1375	args => { _type => 'notification' },
1376	order => 10000,
1377	permission => 'edit_notifications',
1378	view => "blog",
1379	condition => sub {
1380	return $app->config->EnableAddressBook;
1381	},
1382	},
1383
1384	'design:template' => {
1385	label => "Templates",
1386	mode => 'list',
1387	args => { _type => 'template' },
1388	order => 100,
1389	permission => 'edit_templates',
1390	system_permission => 'edit_templates',
1391	},
1392
1393	'prefs:general' => {
1394	label => "General",
1395	order => 100,
1396	mode => "cfg_system",
1397	view => "system",
1398	permission => "administer",
1399	},
1400	'prefs:user' => {
1401	label => "User",
1402	order => 200,
1403	mode => "cfg_system_users",
1404	view => "system",
1405	permission => "administer",
1406	},
1407	'prefs:feedback' => {
1408	label => "Feedback",
1409	order => 300,
1410	mode => "cfg_system_feedback",
1411	view => "system",
1412	permission => "administer",
1413	},
1414	'prefs:settings' => {
1415	label => "General",
1416	mode => 'cfg_prefs',
1417	order => 100,
1418	permission => 'administer_blog,edit_config,set_publish_paths',
1419	system_permission => 'administer',
1420	view => "blog",
1421	},
1422	'prefs:publishing' => {
1423	label => "Publishing",
1424	mode => 'cfg_archives',
1425	order => 110,
1426	permission => 'administer_blog,edit_config,set_publish_paths',
1427	system_permission => 'administer',
1428	view => "blog",
1429	},
1430	'prefs:entry' => {
1431	label => "Entry",
1432	mode => 'cfg_entry',
1433	order => 120,
1434	permission => 'administer_blog,edit_config,set_publish_paths',
1435	system_permission => 'administer',
1436	view => "blog",
1437	},
1438	'prefs:comment' => {
1439	label => "Comment",
1440	mode => 'cfg_comments',
1441	order => 130,
1442	permission => 'administer_blog,edit_config,set_publish_paths',
1443	system_permission => 'administer',
1444	view => "blog",
1445	},
1446	'prefs:trackback' => {
1447	label => "TrackBack",
1448	mode => 'cfg_trackbacks',
1449	order => 140,
1450	permission => 'administer_blog,edit_config,set_publish_paths',
1451	system_permission => 'administer',
1452	view => "blog",
1453	},
1454	'prefs:registration' => {
1455	label => "Registration",
1456	mode => 'cfg_registration',
1457	order => 150,
1458	permission => 'administer_blog,edit_config,set_publish_paths',
1459	system_permission => 'administer',
1460	view => "blog",
1461	},
1462	'prefs:spam' => {
1463	label => "Spam",
1464	mode => 'cfg_spam',
1465	order => 160,
1466	permission => 'administer_blog,edit_config,set_publish_paths',
1467	system_permission => 'administer',
1468	view => "blog",
1469	},
1470	'prefs:web_services' => {
1471	label => "Web Services",
1472	mode => 'cfg_web_services',
1473	order => 170,
1474	permission => 'administer_blog,edit_config,set_publish_paths',
1475	system_permission => 'administer',
1476	view => "blog",
1477	},
1478
1479	'tools:plugins' => {
1480	label => "Plugins",
1481	order => 100,
1482	mode => "cfg_plugins",
1483	permission => "administer_blog",
1484	system_permission => "manage_plugins",
1485	},
1486	'tools:activity_log' => {
1487	label => "Activity Log",
1488	order => 200,
1489	mode => "view_log",
1490	permission => "view_blog_log",
1491	system_permission => "view_log",
1492	},
1493	'tools:import' => {
1494	label => "Import",
1495	order => 300,
1496	mode => "start_import",
1497	view => "blog",
1498	permission => "administer_blog",
1499	},
1500	'tools:export' => {
1501	label => "Export",
1502	order => 400,
1503	mode => "start_export",
1504	view => "blog",
1505	permission => "administer_blog",
1506	},
1507	'tools:backup' => {
1508	label => "Backup",
1509	order => 500,
1510	mode => "start_backup",
1511	permission => "administer_blog",
1512	},
1513	'tools:restore' => {
1514	label => "Restore",
1515	order => 600,
1516	mode => "start_restore",
1517	permission => "administer_blog",
1518	view => "system",
1519	},
1520	'tools:system_information' => {
1521	label => "System Information",
1522	order => 700,
1523	mode => "tools",
1524	view => "system",
1525	},
1526	'tools:ip_info' => {
1527	label => "IP Banning",
1528	mode => 'list',
1529	args => { _type => 'banlist' },
1530	order => 900,
1531	permission => 'manage_feedback',
1532	condition => sub {
1533	$app->config->ShowIPInformation;
1534	},
1535	view => "blog",
1536	},
1537
1538	# System menu which is actually separate
1539	# in the CMS navigation
1540	'system' => {
1541	label => "System Overview",
1542	mode => 'dashboard',
1543	order => 10000,
1544	},
1545	'system:user' => {
1546	label => "Users",
1547	mode => 'list_authors',
1548	order => 100,
1549	permission => 'administer_blog',
1550	system_permission => 'administer',
1551	},
1552	'system:blog' => {
1553	label => "Blogs",
1554	mode => 'list_blogs',
1555	order => 200,
1556	},
1557	'system:template' => {
1558	label => "Global Templates",
1559	mode => 'list_template',
1560	order => 250,
1561	system_permission => 'edit_templates',
1562	},
1563	'system:settings' => {
1564	label => "Settings",
1565	mode => 'cfg_system',
1566	order => 300,
1567	system_permission => 'administer',
1568	},
1569	'system:plugins' => {
1570	label => "Plugins",
1571	mode => 'cfg_plugins',
1572	order => 400,
1573	system_permission => 'manage_plugins',
1574	},
1575	'system:log' => {
1576	label => "Activity Log",
1577	mode => 'view_log',
1578	order => 500,
1579	system_permission => 'view_log',
1580	},
1581	'system:tools' => {
1582	label => "Tools",
1583	mode => 'tools',
1584	order => 600,
1585	system_permission => 'administer',
1586	},
1587	};
1588	}
1589
1590	sub init_core_callbacks {
1591	my $app = shift;
1592	my $pkg = 'cms_';
1593	my $pfx = '$Core::MT::CMS::';
1594	$app->_register_core_callbacks(
1595	{
1596	# notification callbacks
1597	$pkg . 'save_permission_filter.notification' => "${pfx}AddressBook::can_save",
1598	$pkg . 'save_filter.notification' => "${pfx}AddressBook::save_filter",
1599	$pkg . 'post_delete.notification' => "${pfx}AddressBook::post_delete",
1600
1601	# banlist callbacks
1602	$pkg . 'save_permission_filter.banlist' => "${pfx}BanList::can_save",
1603	$pkg . 'save_filter.banlist' => "${pfx}BanList::save_filter",
1604
1605	# associations
1606	$pkg . 'delete_permission_filter.association' => "${pfx}User::can_delete_association",
1607
1608	# user callbacks
1609	$pkg . 'edit.author' => "${pfx}User::edit",
1610	$pkg . 'view_permission_filter.author' => "${pfx}User::can_view",
1611	$pkg . 'save_permission_filter.author' => "${pfx}User::can_save",
1612	$pkg . 'delete_permission_filter.author' => "${pfx}User::can_delete",
1613	$pkg . 'save_filter.author' => "${pfx}User::save_filter",
1614	$pkg . 'pre_save.author' => "${pfx}User::pre_save",
1615	$pkg . 'post_save.author' => "${pfx}User::post_save",
1616	$pkg . 'post_delete.author' => "${pfx}User::post_delete",
1617
1618	# blog callbacks
1619	$pkg . 'edit.blog' => "${pfx}Blog::edit",
1620	$pkg
1621	. 'view_permission_filter.blog' => "${pfx}Blog::can_view",
1622	$pkg
1623	. 'save_permission_filter.blog' => "${pfx}Blog::can_save",
1624	$pkg
1625	. 'delete_permission_filter.blog' => "${pfx}Blog::can_delete",
1626	$pkg . 'pre_save.blog' => "${pfx}Blog::pre_save",
1627	$pkg . 'post_save.blog' => "${pfx}Blog::post_save",
1628	$pkg . 'save_filter.blog' => "${pfx}Blog::save_filter",
1629	$pkg . 'post_delete.blog' => "${pfx}Blog::post_delete",
1630
1631	# folder callbacks
1632	$pkg . 'edit.folder' => "${pfx}Folder::edit",
1633	$pkg . 'view_permission_filter.folder' => "${pfx}Folder::can_view",
1634	$pkg . 'save_permission_filter.folder' => "${pfx}Folder::can_save",
1635	$pkg . 'delete_permission_filter.folder' => "${pfx}Folder::can_delete",
1636	$pkg . 'pre_save.folder' => "${pfx}Folder::pre_save",
1637	$pkg . 'post_save.folder' => "${pfx}Folder::post_save",
1638	$pkg . 'save_filter.folder' => "${pfx}Folder::save_filter",
1639	$pkg . 'post_delete.folder' => "${pfx}Folder::post_delete",
1640
1641	# category callbacks
1642	$pkg . 'edit.category' => "${pfx}Category::edit",
1643	$pkg . 'view_permission_filter.category' => "${pfx}Category::can_view",
1644	$pkg . 'save_permission_filter.category' => "${pfx}Category::can_save",
1645	$pkg . 'delete_permission_filter.category' => "${pfx}Category::can_delete",
1646	$pkg . 'pre_save.category' => "${pfx}Category::pre_save",
1647	$pkg . 'post_save.category' => "${pfx}Category::post_save",
1648	$pkg . 'save_filter.category' => "${pfx}Category::save_filter",
1649	$pkg . 'post_delete.category' => "${pfx}Category::post_delete",
1650
1651	# comment callbacks
1652	$pkg . 'edit.comment' => "${pfx}Comment::edit",
1653	$pkg . 'view_permission_filter.comment' => "${pfx}Comment::can_view",
1654	$pkg . 'save_permission_filter.comment' => "${pfx}Comment::can_save",
1655	$pkg . 'delete_permission_filter.comment' => "${pfx}Comment::can_delete",
1656	$pkg . 'pre_save.comment' => "${pfx}Comment::pre_save",
1657	$pkg . 'post_save.comment' => "${pfx}Comment::post_save",
1658	$pkg . 'post_delete.comment' => "${pfx}Comment::post_delete",
1659
1660	# commenter callbacks
1661	$pkg . 'edit.commenter' => "${pfx}Comment::edit_commenter",
1662	$pkg . 'view_permission_filter.commenter' => "${pfx}Comment::can_view_commenter",
1663	$pkg . 'delete_permission_filter.commenter' => "${pfx}Comment::can_delete_commenter",
1664
1665	# entry callbacks
1666	$pkg . 'edit.entry' => "${pfx}Entry::edit",
1667	$pkg . 'view_permission_filter.entry' => "${pfx}Entry::can_view",
1668	$pkg . 'delete_permission_filter.entry' => "${pfx}Entry::can_delete",
1669	$pkg . 'pre_save.entry' => "${pfx}Entry::pre_save",
1670	$pkg . 'post_save.entry' => "${pfx}Entry::post_save",
1671	$pkg . 'post_delete.entry' => "${pfx}Entry::post_delete",
1672
1673	# page callbacks
1674	$pkg . 'edit.page' => "${pfx}Page::edit",
1675	$pkg . 'view_permission_filter.page' => "${pfx}Page::can_view",
1676	$pkg . 'delete_permission_filter.page' => "${pfx}Page::can_delete",
1677	$pkg . 'pre_save.page' => "${pfx}Page::pre_save",
1678	$pkg . 'post_save.page' => "${pfx}Page::post_save",
1679	$pkg . 'post_delete.page' => "${pfx}Page::post_delete",
1680
1681	# ping callbacks
1682	$pkg . 'edit.ping' => "${pfx}TrackBack::edit",
1683	$pkg . 'view_permission_filter.ping' => "${pfx}TrackBack::can_view",
1684	$pkg . 'save_permission_filter.ping' => "${pfx}TrackBack::can_save",
1685	$pkg . 'delete_permission_filter.ping' => "${pfx}TrackBack::can_delete",
1686	$pkg . 'pre_save.ping' => "${pfx}TrackBack::pre_save",
1687	$pkg . 'post_save.ping' => "${pfx}TrackBack::post_save",
1688	$pkg . 'post_delete.ping' => "${pfx}TrackBack::post_delete",
1689
1690	# template callbacks
1691	$pkg . 'edit.template' => "${pfx}Template::edit",
1692	$pkg . 'view_permission_filter.template' => "${pfx}Template::can_view",
1693	$pkg . 'save_permission_filter.template' => "${pfx}Template::can_save",
1694	$pkg . 'delete_permission_filter.template' => "${pfx}Template::can_delete",
1695	$pkg . 'pre_save.template' => "${pfx}Template::pre_save",
1696	$pkg . 'post_save.template' => "${pfx}Template::post_save",
1697	$pkg . 'post_delete.template' => "${pfx}Template::post_delete",
1698
1699	# tags
1700	$pkg . 'delete_permission_filter.tag' => "${pfx}Tag::can_delete",
1701	$pkg . 'post_delete.tag' => "${pfx}Tag::post_delete",
1702
1703	# junk-related callbacks
1704	#'HandleJunk' => \&_builtin_spam_handler,
1705	#'HandleNotJunk' => \&_builtin_spam_unhandler,
1706	$pkg . 'not_junk_test' => "${pfx}Common::not_junk_test",
1707
1708	# assets
1709	$pkg . 'edit.asset' => "${pfx}Asset::edit",
1710	$pkg . 'view_permission_filter.asset' => "${pfx}Asset::can_view",
1711	$pkg . 'delete_permission_filter.asset' => "${pfx}Asset::can_delete",
1712	$pkg . 'pre_save.asset' => "${pfx}Asset::pre_save",
1713	$pkg . 'post_save.asset' => "${pfx}Asset::post_save",
1714	$pkg . 'post_delete.asset' => "${pfx}Asset::post_delete",
1715	'template_param.edit_asset' => "${pfx}Asset::template_param_edit",
1716	}
1717	);
1718	}
1719
1720	sub user_can_admin_commenters {
1721	my $app = shift;
1722	my $perms = $app->permissions;
1723	$app->user->is_superuser()
1724	\|\| ( $perms
1725	&& ( $perms->can_administer_blog \|\| $perms->can_manage_feedback ) );
1726	}
1727
1728	sub validate_magic {
1729	my $app = shift;
1730	if ( my $feed_token = $app->param('feed_token') ) {
1731	return unless $app->user;
1732	my $pw = $app->user->api_password;
1733	return undef if ( $pw \|\| '' ) eq '';
1734	my $auth_token = perl_sha1_digest_hex( 'feed:' . $pw );
1735	return $feed_token eq $auth_token;
1736	}
1737	else {
1738	return $app->SUPER::validate_magic(@_);
1739	}
1740	}
1741
1742	sub is_authorized {
1743	my $app = shift;
1744	my $blog_id = $app->param('blog_id');
1745	$app->permissions(undef);
1746	return 1 unless $blog_id;
1747	return unless my $user = $app->user;
1748	my $perms = $app->permissions( $user->permissions($blog_id) );
1749	$perms
1750	? 1
1751	: $app->error(
1752	$app->translate("You are not authorized to log in to this blog.") );
1753	}
1754
1755	sub set_default_tmpl_params {
1756	my $app = shift;
1757	$app->SUPER::set_default_tmpl_params(@_);
1758	my ($tmpl) = @_;
1759	my $param = {};
1760
1761	my $mode = $app->mode;
1762	my $auth_mode = $app->config('AuthenticationModule');
1763	my ($pref) = split /\s+/, $auth_mode;
1764
1765	# TODO - remove after testing or after new IA is defined
1766	$param->{app_layout_fixed} = 0;
1767	$param->{athena_nav} = 1;
1768
1769	$param->{"auth_mode_$pref"} = 1;
1770	$param->{mt_news} = $app->config('NewsURL');
1771	$param->{mt_support} = $app->config('SupportURL');
1772	my $lang = lc MT->current_language \|\| 'en_us';
1773	$param->{language_id} = ( $lang !~ /en[_-]us/ ) ? $lang : '';
1774	$param->{mode} = $app->mode;
1775
1776	my $blog_id = $app->param('blog_id') \|\| 0;
1777	my $blog;
1778	my $blog_class = $app->model('blog');
1779	$blog \|\|= $blog_class->load($blog_id) if $blog_id;
1780	if ( my $auth = $app->user ) {
1781	$param->{is_administrator} = $auth->is_superuser;
1782	$param->{can_create_blog} = $auth->can_create_blog;
1783	$param->{can_view_log} \|\|= $auth->can_view_log;
1784	$param->{can_manage_plugins} = $auth->can_manage_plugins;
1785	$param->{can_edit_templates} = $auth->can_edit_templates;
1786	$param->{can_publish_feedbacks} = $auth->is_superuser;
1787	$param->{can_search_replace} = $auth->is_superuser;
1788	$param->{has_authors_button} = $auth->is_superuser;
1789	$param->{author_id} = $auth->id;
1790	$param->{author_name} = $auth->name;
1791	$param->{author_display_name} = $auth->nickname \|\| $auth->name;
1792	}
1793
1794	if ( my $perms = $app->permissions ) {
1795	my $perm_hash = $perms->to_hash;
1796	foreach my $perm_name ( keys %$perm_hash ) {
1797	my $perm_token = $perm_name;
1798	$perm_token =~ s/^permission\.//;
1799	$param->{$perm_token} = $perm_hash->{$perm_name}
1800	if defined $perm_hash->{$perm_name};
1801	}
1802	$param->{can_edit_entries} = $param->{can_create_post}
1803	\|\| $param->{can_edit_all_entries}
1804	\|\| $param->{can_publish_post};
1805	$param->{can_search_replace} = $param->{can_edit_all_posts};
1806	$param->{can_edit_authors} = $param->{can_administer_blog};
1807	$param->{can_access_assets} = $param->{can_create_post}
1808	\|\| $param->{can_edit_all_posts}
1809	\|\| $param->{can_edit_assets};
1810	$param->{can_edit_commenters} = $param->{can_manage_feedback};
1811	$param->{has_manage_label} = $param->{can_edit_templates}
1812	\|\| $param->{can_administer_blog}
1813	\|\| $param->{can_edit_categories}
1814	\|\| $param->{can_edit_config}
1815	\|\| $param->{can_edit_tags}
1816	\|\| $param->{can_set_publish_paths}
1817	\|\| $param->{show_ip_info};
1818	$param->{has_posting_label} = $param->{can_create_post}
1819	\|\| $param->{can_edit_entries}
1820	\|\| $param->{can_access_assets};
1821	$param->{has_community_label} = $param->{can_edit_entries}
1822	\|\| $param->{can_edit_notifications};
1823	$param->{can_publish_feedbacks} = $param->{can_manage_feedback}
1824	\|\| $param->{can_publish_post}
1825	\|\| $param->{can_edit_all_posts};
1826	$param->{can_view_log} = $param->{can_view_blog_log};
1827	$param->{can_publish_post} = $param->{can_publish_post}
1828	\|\| $param->{can_edit_all_posts};
1829	$param->{show_ip_info} = $app->config->ShowIPInformation
1830	&& $param->{can_manage_feedback};
1831	}
1832
1833	my $static_app_url = $app->static_path;
1834	$param->{help_url} = $app->help_url() \|\| $static_app_url . 'docs/';
1835
1836	$param->{show_ip_info} \|\|= $app->config('ShowIPInformation');
1837	my $type = $app->param('_type') \|\| '';
1838
1839	$param->{ "mode_$mode" . ( $type ? "_$type" : '' ) } = 1;
1840	$param->{return_args} \|\|= $app->make_return_args;
1841	$tmpl->param($param);
1842	}
1843
1844	sub build_page {
1845	my $app = shift;
1846	my ( $page, $param ) = @_;
1847	$param \|\|= {};
1848
1849	my $blog_id = $app->param('blog_id') \|\| 0;
1850	my $blog;
1851	my $blog_class = $app->model('blog');
1852	$blog \|\|= $blog_class->load($blog_id) if $blog_id;
1853	if ( $blog_id && $page ne 'login.tmpl' ) {
1854	if ($blog) {
1855	$param->{blog_name} = $blog->name;
1856	$param->{blog_id} = $blog->id;
1857	$param->{blog_url} = $blog->site_url;
1858	$param->{blog_template_set} = $blog->template_set;
1859	}
1860	else {
1861	$app->error( $app->translate( "No such blog [_1]", $blog_id ) );
1862	}
1863	}
1864	if ( $page ne 'login.tmpl' ) {
1865	if ( ref $app eq 'MT::App::CMS' ) {
1866	$param->{system_overview_nav} = 1
1867	unless $blog_id
1868	\|\| exists $param->{system_overview_nav}
1869	\|\| $param->{no_breadcrumbs};
1870	$param->{quick_search} = 1 unless defined $param->{quick_search};
1871	}
1872	}
1873
1874	$app->build_blog_selector($param);
1875	$app->build_menus($param);
1876	if (!ref($page) \|\| ($page->isa('MT::Template') && !$page->param('page_actions'))) {
1877	$param->{page_actions} \|\|= $app->page_actions( $app->mode );
1878	}
1879
1880	$app->SUPER::build_page( $page, $param );
1881	}
1882
1883	sub build_blog_selector {
1884	my $app = shift;
1885	my ($param) = @_;
1886
1887	return if exists $param->{top_blog_loop};
1888
1889	my $blog = $app->blog;
1890	my $blog_id = $blog->id if $blog;
1891	$param->{dynamic_all} = $blog->custom_dynamic_templates eq 'all' if $blog;
1892
1893	my $blog_class = $app->model('blog');
1894	my $auth = $app->user or return;
1895
1896	# Any access to a blog will put it on the top of your
1897	# recently used blogs list (the blog selector)
1898	$app->add_to_favorite_blogs($blog_id) if $blog_id;
1899
1900	my %args;
1901	$args{join} =
1902	MT::Permission->join_on( 'blog_id',
1903	{ author_id => $auth->id, permissions => { not => "'comment'" } } );
1904	$args{limit} = 11; # don't load more than 11
1905	my @blogs = $blog_class->load( undef, \%args );
1906
1907	my @fav_blogs = @{ $auth->favorite_blogs \|\| [] };
1908	@fav_blogs = grep { $_ != $blog_id } @fav_blogs if $blog_id;
1909
1910	# Special case for when a user only has access to a single blog.
1911	if ( (!defined($app->param('blog_id'))) && ( @blogs == 1 ) && ( scalar @fav_blogs <= 1 ) ) {
1912
1913	# User only has visibility to a single blog. Don't
1914	# bother giving them a dashboard link for 'all blogs', or
1915	# to 'select a blog'.
1916	$param->{single_blog_mode} = 1;
1917	my $blog = $blogs[0];
1918	$blog_id = $blog->id;
1919	my $perms = MT::Permission->load(
1920	{
1921	blog_id => $blog_id,
1922	author_id => $auth->id
1923	}
1924	);
1925	if ( !$app->blog ) {
1926	if ( $app->mode eq 'dashboard' ) {
1927	$app->param( 'blog_id', $blog_id );
1928	$param->{blog_id} = $blog_id;
1929	$param->{blog_name} = $blog->name;
1930	$app->permissions($perms);
1931	$app->blog($blog);
1932	}
1933	else {
1934	@fav_blogs = ($blog_id);
1935	$blog_id = undef;
1936	}
1937	}
1938	}
1939	elsif ( @blogs && ( @blogs <= 10 ) ) {
1940
1941	# This user only has visibility to 10 or fewer blogs;
1942	# no need to reference their 'favorite' blogs list.
1943	my @ids = map { $_->id } @blogs;
1944	if ($blog_id) {
1945	@ids = grep { $_ != $blog_id } @ids;
1946	}
1947	@fav_blogs = @ids;
1948	if ( $auth->is_superuser ) {
1949
1950	# Better check to see if there are more than
1951	# 10 blogs in the system; if so, a superuser
1952	# will still want the 'Select a blog...' chooser.
1953	# Otherwise, hide it.
1954	my $all_blog_count = $blog_class->count();
1955	if ( $all_blog_count < 11 ) {
1956	$param->{selector_hide_chooser} = 1;
1957	}
1958	}
1959	else {
1960
1961	# This user is not a superuser and only has
1962	# 10 blogs, so they don't need a 'select blog'
1963	# link...
1964	$param->{selector_hide_chooser} = 1;
1965	}
1966	}
1967	$param->{selector_hide_chooser} \|\|= 0;
1968
1969	# Logic for populating the blog selector control
1970	# * Pull list of 'favorite blogs' from user record
1971	# * Load all of those blogs so we can display them
1972	# * Exclude the current blog from the favorite list so it isn't
1973	# shown twice.
1974	@blogs = $blog_class->load( { id => \@fav_blogs } ) if @fav_blogs;
1975	my %blogs = map { $_->id => $_ } @blogs;
1976	@blogs = ();
1977	foreach my $id (@fav_blogs) {
1978	push @blogs, $blogs{$id} if $blogs{$id};
1979	}
1980
1981	my @data;
1982	if (@blogs) {
1983	my @perms = grep { !$_->is_empty } MT::Permission->load(
1984	{
1985	author_id => $auth->id,
1986	blog_id => \@fav_blogs,
1987	}
1988	);
1989	my %perms = map { $_->blog_id => $_ } @perms;
1990	for my $blog (@blogs) {
1991	my $perm = $perms{ $blog->id };
1992	next
1993	unless $auth->is_superuser \|\| ( $perm && !$perm->is_empty );
1994	push @data,
1995	{
1996	top_blog_id => $blog->id,
1997	top_blog_name => $blog->name
1998	};
1999	$data[-1]{top_blog_selected} = 1
2000	if $blog_id && ( $blog->id == $blog_id );
2001	}
2002	}
2003	$param->{top_blog_loop} = \@data;
2004	if ( !$app->user->can_create_blog
2005	&& ( $param->{single_blog_mode} \|\| scalar(@data) <= 1 ) )
2006	{
2007	$param->{no_submenu} = 1;
2008	}
2009	}
2010
2011	sub build_menus {
2012	my $app = shift;
2013	my ($param) = @_;
2014	return if exists $param->{top_nav_loop};
2015
2016	my $menus = $app->registry('menus');
2017	my $blog = $app->blog;
2018	my $blog_id = $blog->id if $blog;
2019
2020	my @top_ids = grep { !/:/ } keys %$menus;
2021	my @top;
2022	my @sys;
2023	my $user = $app->user
2024	or return;
2025	my $perms = $app->permissions \|\| $user->permissions;
2026	my $view = $blog_id ? "blog" : "system";
2027
2028	my $hide_disabled_options = $app->config('HideDisabledMenus') \|\| 0;
2029
2030	my $admin =
2031	$user->is_superuser(); # \|\| ($perms && $perms->has('administer_blog'));
2032
2033	foreach my $id (@top_ids) {
2034	my $menu = $menus->{$id};
2035	next if $menu->{view} && $menu->{view} ne $view;
2036	if (my $cond = $menu->{condition}) {
2037	if (!ref($cond)) {
2038	$cond = $menu->{condition} = $app->handler_to_coderef($cond);
2039	}
2040	next unless $cond->();
2041	}
2042
2043	$menu->{allowed} = 1;
2044	$menu->{'id'} = $id;
2045
2046	my @sub_ids = grep { m/^$id:/ } keys %$menus;
2047	my @sub;
2048	foreach my $sub_id (@sub_ids) {
2049	my $sub = $menus->{$sub_id};
2050	next
2051	if $sub->{view}
2052	&& ( $sub->{view} ne $view );
2053	$sub->{'id'} = $sub_id;
2054	if (my $cond = $sub->{condition}) {
2055	if (!ref($cond)) {
2056	$cond = $sub->{condition} = $app->handler_to_coderef($cond);
2057	}
2058	next unless $cond->();
2059	}
2060	push @sub, $sub;
2061	}
2062
2063	if (
2064	my $p =
2065	$blog_id
2066	? $menu->{permission}
2067	\|\| $menu->{system_permission}
2068	: $menu->{system_permission}
2069	\|\| $menu->{permission}
2070	)
2071	{
2072	my $allowed = 0;
2073	my @p = split /,/, $p;
2074	foreach my $p (@p) {
2075	my $perm = 'can_' . $p;
2076	$allowed = 1, last if ( $perms && $perms->$perm() ) \|\| $admin;
2077	}
2078	$menu->{allowed} = $allowed;
2079	}
2080	elsif ( !$perms && !$blog_id ) {
2081	$menu->{allowed} = 0 if $menu->{system_permission} && !$admin;
2082	}
2083
2084	next if $hide_disabled_options && (! $menu->{allowed});
2085
2086	if (@sub) {
2087	if ( $id eq 'system' ) {
2088	push @sys, $menu;
2089	}
2090	else {
2091	push @top, $menu;
2092	}
2093
2094	my $has_sub = 0;
2095	foreach my $sub (@sub) {
2096	my $sys_only = $sub->{id} =~ m/^system:/;
2097	$sub->{allowed} = 1;
2098	if ( $sub->{mode} ) {
2099	$sub->{link} = $app->uri(
2100	mode => $sub->{mode},
2101	args => {
2102	%{ $sub->{args} \|\| {} },
2103	(
2104	$blog_id
2105	&& !$sys_only ? ( blog_id => $blog_id ) : ()
2106	)
2107	}
2108	);
2109	}
2110	$sub->{allowed} = 0
2111	if $sub->{view} && ( $sub->{view} ne $view );
2112	if ( $sub->{allowed} ) {
2113	my $sub_perms =
2114	( $sys_only \|\| ( $sub->{view} \|\| '' ) eq 'system' )
2115	? $app->user->permissions(0)
2116	: $perms;
2117	if (
2118	$sub_perms
2119	&& (
2120	my $p =
2121	$blog_id
2122	? $sub->{permission}
2123	\|\| $sub->{system_permission}
2124	: $sub->{system_permission}
2125	\|\| $sub->{permission}
2126	)
2127	)
2128	{
2129	my $allowed = 0;
2130	my @p = split /,/, $p;
2131	foreach my $p (@p) {
2132	my $perm = 'can_' . $p;
2133	$allowed = 1, last
2134	if ( $sub_perms && $sub_perms->$perm() )
2135	\|\| $admin;
2136	}
2137	$sub->{allowed} = $allowed;
2138	}
2139	elsif ( !$sub_perms && !$blog_id ) {
2140	$sub->{allowed} = 0
2141	if ( $sub->{system_permission} \|\| $sub->{permission} )
2142	&& !$admin;
2143	}
2144	$has_sub = 1 if $sub->{allowed};
2145	}
2146	}
2147	if ( $menu->{mode} ) {
2148	my $sys_only = 1 if $menu->{id} eq 'system';
2149	$menu->{link} = $app->uri(
2150	mode => $menu->{mode},
2151	args => {
2152	%{ $menu->{args} \|\| {} },
2153	(
2154	$blog_id
2155	&& !$sys_only ? ( blog_id => $blog_id ) : ()
2156	)
2157	}
2158	);
2159	}
2160	@sub = sort { $a->{order} <=> $b->{order} } @sub;
2161
2162	@sub = grep { $_->{allowed} } @sub if $hide_disabled_options;
2163	if ( !$menu->{mode} ) {
2164	$menu->{link} = $sub[0]->{link};
2165	}
2166	$menu->{sub_nav_loop} = \@sub;
2167
2168	if ( $menu->{allowed} ) {
2169	$menu->{allowed} = 0 unless $has_sub;
2170	}
2171	}
2172	}
2173
2174	@top = grep { $_->{allowed} } @top if $hide_disabled_options;
2175	@sys = grep { $_->{allowed} } @sys if $hide_disabled_options;
2176	@top = sort { $a->{order} <=> $b->{order} } @top;
2177	$param->{top_nav_loop} = \@top;
2178	$param->{sys_nav_loop} = \@sys;
2179	}
2180
2181	sub return_to_dashboard {
2182	my $app = shift;
2183	my (%param) = @_;
2184	$param{redirect} = 1 unless %param;
2185	my $blog_id = $app->param('blog_id');
2186	$param{blog_id} = $blog_id if $blog_id;
2187	return $app->redirect( $app->uri( mode => 'dashboard', args => \%param ) );
2188	}
2189
2190	sub list_pref {
2191	my $app = shift;
2192	my ($list) = @_;
2193	my $updating = $app->mode eq 'update_list_prefs';
2194	unless ($updating) {
2195	my $pref = $app->request("list_pref_$list");
2196	return $pref if defined $pref;
2197	}
2198
2199	my $cookie = $app->cookie_val('mt_list_pref') \|\| '';
2200	my $mode = $app->mode;
2201
2202	# defaults:
2203	my $d = $app->config->DefaultListPrefs \|\| {};
2204	my %default = (
2205	Rows => 25,
2206	Format => 'Compact',
2207	SortOrder => 'Ascend', # Ascend\|Descend
2208	Button => 'Above', # Above\|Below\|Both
2209	DateFormat => 'Relative', # Relative\|Full
2210	);
2211	if ( ( $list eq 'comment' ) \|\| ( $list eq 'ping' ) ) {
2212	$default{Format} = 'expanded';
2213	}
2214	$default{$_} = lc( $d->{$_} ) for keys %$d;
2215	my $list_pref;
2216	if ( $list eq 'main_menu' ) {
2217	$list_pref = {
2218	'sort' => 'name',
2219	order => $default{SortOrder} \|\| 'ascend',
2220	view => $default{Format} \|\| 'compact',
2221	dates => $default{DateFormat} \|\| 'relative',
2222	};
2223	}
2224	else {
2225	$list_pref = {
2226	rows => $default{Rows} \|\| 25,
2227	view => $default{Format} \|\| 'compact',
2228	bar => $default{Button} \|\| 'above',
2229	dates => $default{DateFormat} \|\| 'relative',
2230	};
2231	}
2232	my @list_prefs = split /;/, $cookie;
2233	my $new_cookie = '';
2234	foreach my $pref (@list_prefs) {
2235	my ( $name, $prefs ) = $pref =~ m/^(\w+):(.*)$/;
2236	next unless $name && $prefs;
2237	if ( $name eq $list ) {
2238	my @prefs = split /,/, $prefs;
2239	foreach (@prefs) {
2240	my ( $k, $v ) = split /=/;
2241	$list_pref->{$k} = $v if exists $list_pref->{$k};
2242	}
2243	}
2244	else {
2245	$new_cookie .= ( $new_cookie ne '' ? ';' : '' ) . $pref;
2246	}
2247	}
2248
2249	if ($updating) {
2250	my $updated = 0;
2251	if ( my $limit = $app->param('limit') ) {
2252	$limit = 20 if $limit eq 'none';
2253	$list_pref->{rows} = $limit > 0 ? $limit : 20;
2254	$updated = 1;
2255	}
2256	if ( my $view = $app->param('verbosity') ) {
2257	if ( $view =~ m!^compact\|expanded$! ) {
2258	$list_pref->{view} = $view;
2259	$updated = 1;
2260	}
2261	}
2262	if ( my $bar = $app->param('actions') ) {
2263	if ( $bar =~ m!^above\|below\|both$! ) {
2264	$list_pref->{bar} = $bar;
2265	$updated = 1;
2266	}
2267	}
2268	if ( my $ord = $app->param('order') ) {
2269	if ( $ord =~ m!^ascend\|descend$! ) {
2270	$list_pref->{order} = $ord;
2271	$updated = 1;
2272	}
2273	}
2274	if ( my $sort = $app->param('sort') ) {
2275	if ( $sort =~ m!^name\|created\|updated$! ) {
2276	$list_pref->{'sort'} = $sort;
2277	$updated = 1;
2278	}
2279	}
2280	if ( my $dates = $app->param('dates') ) {
2281	if ( $dates =~ m!^relative\|full$! ) {
2282	$list_pref->{'dates'} = $dates;
2283	$updated = 1;
2284	}
2285	}
2286
2287	if ($updated) {
2288	my @list_prefs;
2289	foreach ( keys %$list_pref ) {
2290	push @list_prefs, $_ . '=' . $list_pref->{$_};
2291	}
2292	my $prefs = join ',', @list_prefs;
2293	$new_cookie .=
2294	( $new_cookie ne '' ? ';' : '' ) . $list . ':' . $prefs;
2295	$app->bake_cookie(
2296	-name => 'mt_list_pref',
2297	-value => $new_cookie,
2298	-expires => '+10y'
2299	);
2300	}
2301	}
2302
2303	if ( $list_pref->{rows} ) {
2304	$list_pref->{ "limit_" . $list_pref->{rows} } = $list_pref->{rows};
2305	}
2306	if ( $list_pref->{view} ) {
2307	$list_pref->{ "view_" . $list_pref->{view} } = 1;
2308	}
2309	if ( $list_pref->{dates} ) {
2310	$list_pref->{ "dates_" . $list_pref->{dates} } = 1;
2311	}
2312	if ( $list_pref->{bar} ) {
2313	if ( lc $list_pref->{bar} eq 'both' ) {
2314	$list_pref->{"position_actions_both"} = 1;
2315	$list_pref->{"position_actions_top"} = 1;
2316	$list_pref->{"position_actions_bottom"} = 1;
2317	}
2318	elsif ( lc $list_pref->{bar} eq 'below' ) {
2319	$list_pref->{"position_actions_bottom"} = 1;
2320	}
2321	elsif ( lc $list_pref->{bar} eq 'above' ) {
2322	$list_pref->{"position_actions_top"} = 1;
2323	}
2324	}
2325	if ( $list_pref->{'sort'} ) {
2326	$list_pref->{ 'sort_' . $list_pref->{'sort'} } = 1;
2327	}
2328	if ( $list_pref->{'order'} ) {
2329	$list_pref->{ 'order_' . $list_pref->{'order'} } = 1;
2330	}
2331	$app->request( "list_pref_$list", $list_pref );
2332	}
2333
2334	sub make_feed_link {
2335	my $app = shift;
2336	my ( $view, $params ) = @_;
2337	my $user = $app->user;
2338	return if ( $user->api_password \|\| '' ) eq '';
2339
2340	$params \|\|= {};
2341	$params->{view} = $view;
2342	$params->{username} = $user->name;
2343	$params->{token} = perl_sha1_digest_hex( 'feed:' . $user->api_password );
2344	$app->base
2345	. $app->mt_path
2346	. $app->config('ActivityFeedScript')
2347	. $app->uri_params( args => $params );
2348	}
2349
2350	sub show_error {
2351	my $app = shift;
2352	my ($param) = @_;
2353
2354	# handle legacy scalar error string signature
2355	$param = { error => $param } unless ref($param) eq 'HASH';
2356
2357	my $mode = $app->mode;
2358	if ( $mode eq 'rebuild' ) {
2359
2360	my $r = MT::Request->instance;
2361	if (my $tmpl = $r->cache('build_template')) {
2362	# this is the template that likely caused the rebuild error
2363	push @{ $param->{button_loop} \|\|= [] }, {
2364	link => $app->uri( mode => 'view', args => { blog_id => $tmpl->blog_id, '_type' => 'template', id => $tmpl->id }),
2365	label => $app->translate("Edit Template"),
2366	};
2367	}
2368
2369	my $blog_id = $app->param('blog_id');
2370	my $url = $app->uri(
2371	mode => 'rebuild_confirm',
2372	args => { blog_id => $blog_id }
2373	);
2374	$param->{goback} \|\|= qq{window.location='$url'};
2375	$param->{value} \|\|= $app->translate('Go Back');
2376	}
2377
2378	return $app->SUPER::show_error($param);
2379	}
2380
2381	sub load_default_entry_prefs {
2382	my $app = shift;
2383	my $prefs;
2384	require MT::Permission;
2385	my $blog_id;
2386	$blog_id = $app->blog->id if $app->blog;
2387	my $perm = MT::Permission->load( { blog_id => $blog_id, author_id => 0 } );
2388	my %default = %{ $app->config->DefaultEntryPrefs };
2389	if ( $perm && $perm->entry_prefs ) {
2390	$prefs = $perm->entry_prefs;
2391	}
2392	else {
2393	if ( lc( $default{type} ) eq 'custom' ) {
2394	my %map = (
2395	Category => 'category',
2396	Excerpt => 'excerpt',
2397	Keywords => 'keywords',
2398	Tags => 'tags',
2399	Publishing => 'publishing',
2400	Feedback => 'feedback',
2401	);
2402	my @p;
2403	foreach my $p ( keys %map ) {
2404	push @p, $map{$p} . ':' . ( $default{$p} \|\| $default{ lc $p } )
2405	if ( $default{$p} \|\| $default{ lc $p } );
2406	}
2407	$prefs = join ',', @p;
2408	$prefs \|\|= 'Custom';
2409	}
2410	elsif ( lc( $default{type} ) ne 'default' ) {
2411	$prefs = 'Advanced';
2412	}
2413	$default{button} = 'Bottom' if lc( $default{button} ) eq 'below';
2414	$default{button} = 'Top' if lc( $default{button} ) eq 'above';
2415	$prefs .= '\|' . $default{button} if $prefs;
2416	}
2417	$prefs \|\|= 'Default\|Bottom';
2418	return $prefs;
2419	}
2420
2421	sub load_template_prefs {
2422	my $app = shift;
2423	my ($prefs) = @_;
2424	my %param;
2425
2426	if ( !$prefs ) {
2427	$prefs = '';
2428	}
2429	my @p = split /,/, $prefs;
2430	for my $p (@p) {
2431	if ( $p =~ m/^(.+?):(\d+)$/ ) {
2432	$param{ 'disp_prefs_height_' . $1 } = $2;
2433	}
2434	}
2435	\%param;
2436	}
2437
2438	sub _parse_entry_prefs {
2439	my $app = shift;
2440	my ( $prefs, $param ) = @_;
2441
2442	my @p = split /,/, $prefs;
2443	for my $p (@p) {
2444	if ( $p =~ m/^(.+?):(\d+)$/ ) {
2445	my ( $name, $num ) = ( $1, $2 );
2446	if ($num) {
2447	$param->{ 'disp_prefs_height_' . $name } = $num;
2448	}
2449	$param->{ 'disp_prefs_show_' . $name } = 1;
2450	}
2451	else {
2452	$p = 'Default' if lc($p) eq 'basic';
2453	if ( ( lc($p) eq 'advanced' ) \|\| ( lc($p) eq 'default' ) ) {
2454	$param->{ 'disp_prefs_' . $p } = 1;
2455	foreach my $def (
2456	qw(title body category tags keywords feedback publishing ))
2457	{
2458	$param->{ 'disp_prefs_show_' . $def } = 1;
2459	}
2460	if ( lc($p) eq 'advanced' ) {
2461	foreach my $def (qw(excerpt feedback)) {
2462	$param->{ 'disp_prefs_show_' . $def } = 1;
2463	}
2464	}
2465	}
2466	else {
2467	$param->{ 'disp_prefs_show_' . $p } = 1;
2468	}
2469	}
2470	}
2471	}
2472
2473	sub load_entry_prefs {
2474	my $app = shift;
2475	my ($prefs) = @_;
2476	my %param;
2477	my $pos;
2478	my $is_from_db = 1;
2479
2480	# defaults:
2481	if ( !$prefs ) {
2482	$prefs = $app->load_default_entry_prefs;
2483	( $prefs, $pos ) = split /\\|/, $prefs;
2484	$is_from_db = 0;
2485	$app->_parse_entry_prefs( $prefs, \%param );
2486	my @fields;
2487	foreach ( keys %param ) {
2488	if (m/^disp_prefs_show_(.+)/) {
2489	push @fields, { name => $1 };
2490	}
2491	}
2492	$param{disp_prefs_default_fields} = \@fields;
2493	}
2494	else {
2495	( $prefs, $pos ) = split /\\|/, $prefs;
2496	}
2497	$app->_parse_entry_prefs( $prefs, \%param );
2498	if ($is_from_db) {
2499	my $default_prefs = $app->load_default_entry_prefs;
2500	( $default_prefs, my ($default_pos) ) = split /\\|/, $default_prefs;
2501	$pos \|\|= $default_pos;
2502	$app->_parse_entry_prefs( $default_prefs, \my %def_param );
2503	my @fields;
2504	foreach ( keys %def_param ) {
2505	if (m/^disp_prefs_show_(.+)/) {
2506	push @fields, { name => $1 };
2507	}
2508	}
2509	if ( $prefs eq 'Default' ) {
2510	foreach my $p ( keys %param ) {
2511	delete $param{$p} if $p =~ m/^disp_prefs_show_/;
2512	}
2513	}
2514	if ( $param{disp_prefs_Default} ) {
2515
2516	# apply default settings
2517	%param = ( %def_param, %param );
2518	}
2519	$param{disp_prefs_default_fields} = \@fields;
2520	}
2521	$pos \|\|= 'Bottom';
2522	if ( !exists $param{'disp_prefs_Default'}
2523	&& !exists $param{'disp_prefs_Advanced'} )
2524	{
2525	$param{'disp_prefs_Custom'} = 1;
2526	}
2527	if ( lc $pos eq 'both' ) {
2528	$param{'position_actions_top'} = 1;
2529	$param{'position_actions_bottom'} = 1;
2530	$param{'position_actions_both'} = 1;
2531	}
2532	else {
2533	$param{ 'position_actions_' . $pos } = 1;
2534	}
2535	\%param;
2536	}
2537
2538	sub _convert_word_chars {
2539	my ( $app, $s ) = @_;
2540	return '' unless $s;
2541	return $s if 'utf-8' ne lc( $app->charset );
2542
2543	my $blog = $app->blog;
2544	my $smart_replace = $blog ? $blog->smart_replace
2545	: MT->config->NwcSmartReplace;
2546	return $s if $smart_replace == 2;