Changeset 1993

Show
Ignore:
Timestamp:
04/19/08 00:41:10 (7 months ago)
Author:
mpaschal
Message:

Provide compatibility methods to redirect the old names for MT::App::CMS methods to the new method in the appropriate MT::CMS:: module
BugzID: 79236

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • branches/release-35/lib/MT/Compat/v3.pm

    r1174 r1993  
    1616our %app_ids; 
    1717our %api_map; 
     18our %cms_map; 
     19our %cms_rename_map; 
    1820BEGIN { 
    1921    %app_ids = ( 
     
    3234        'MT::add_plugin_action' => "Registry (path: application, [app_id], page_actions)", 
    3335        'MT::register_junk_filter' => "Registry (path: junk_filters)", 
     36    ); 
     37    %cms_map = ( 
     38        AddressBook => [ qw( send_notify entry_notify ) ], 
     39        Asset => [ qw( asset_userpic _write_upload upload_file build_asset_hasher start_upload complete_upload start_upload_entry build_asset_table _upload_file _set_start_upload_params complete_insert asset_list_filters _process_post_upload asset_insert_text ) ], 
     40        Blog => [ qw( update_welcome_message rebuild_pages start_rebuild_pages rebuild_confirm prepare_dynamic_publishing rebuild_phase cfg_archives dialog_select_weblog update_dynamicity rebuild_new_phase build_blog_table cfg_web_services make_blog_list cc_return RegistrationAffectsArchives cfg_blog cfg_archives_save handshake cfg_prefs save_favorite_blogs ) ], 
     41        Category => [ qw( category_add js_add_category move_category category_do_add ) ], 
     42        Comment => [ qw( trust_commenter_by_comment unapprove_item set_item_visible not_junk reply_preview do_reply map_comment_to_commenter handle_junk cfg_spam untrust_commenter build_comment_table trust_commenter cfg_system_feedback cfg_comments approve_item list_commenter unban_commenter empty_junk _prepare_reply build_junk_table cfg_registration dialog_post_comment untrust_commenter_by_comment build_commenter_table ban_commenter_by_comment save_commenter_perm ban_commenter save_cfg_system_feedback unban_commenter_by_comment reply ) ], 
     43        Common => [ qw( delete ) ], 
     44        Dashboard => [ qw( mt_blog_stats_widget mt_blog_stats_widget_entry_tab new_version_widget get_lmt_content mt_blog_stats_widget_comment_tab generate_dashboard_stats get_newsbox_content dashboard mt_news_widget generate_dashboard_stats_comment_tab this_is_you_widget create_dashboard_stats_file generate_dashboard_stats_entry_tab ) ], 
     45        Entry => [ qw( _finish_rebuild_ping cfg_entry draft_entries save_entries build_entry_table send_pings ping_continuation pinged_urls quickpost_js save_entry_prefs open_batch_editor update_entry_status publish_entries ) ], 
     46        Export => [ qw( start_export ) ], 
     47        Import => [ qw( do_import start_import ) ], 
     48        Log => [ qw( apply_log_filter build_log_table ) ], 
     49        Page => [ qw( CMSPostSave_page save_pages ) ], 
     50        Plugin => [ qw( cfg_plugins plugin_control build_plugin_table ) ], 
     51        Search => [ qw( do_search_replace _default_results_table_template search_replace ) ], 
     52        Tag => [ qw( js_tag_list add_tags_to_entries js_recent_entries_for_tag add_tags_to_assets js_tag_check build_tag_table remove_tags_from_assets remove_tags_from_entries list_tag_for rename_tag ) ], 
     53        Template => [ qw( refresh_all_templates add_map _generate_map_table build_template_table refresh_individual_templates _populate_archive_loop publish_index_templates reset_blog_templates delete_map dialog_refresh_templates ) ], 
     54        Tools => [ qw( save_cfg_system_general _backup_finisher convert_to_html do_page_action restore copy recover_profile_password cfg_system_general do_list_action restore_directory dialog_restore_upload system_check backup recover_password get_syscheck_content start_recover upgrade start_restore restore_file restore_upload_manifest adjust_sitepath move update_list_prefs recover_passwords restore_premature_cancel _log_dirty_restore backup_download start_backup _progress reset_password dialog_adjust_sitepath ) ], 
     55        TrackBack => [ qw( cfg_trackbacks build_ping_table ) ], 
     56        User => [ qw( _merge_default_assignments upload_userpic set_object_status save_cfg_system_users save_role grant_role dialog_select_sysadmin remove_user_assoc revoke_role remove_userpic build_author_table _delete_pseudo_association cfg_system_users dialog_grant_role edit_role list_member ) ], 
     57    ); 
     58    %cms_rename_map = ( 
     59        CMSViewPermissionFilter_asset     => 'Asset::can_view', 
     60        CMSViewPermissionFilter_author    => 'User::can_view', 
     61        CMSViewPermissionFilter_blog      => 'Blog::can_view', 
     62        CMSViewPermissionFilter_category  => 'Category::can_view', 
     63        CMSViewPermissionFilter_comment   => 'Comment::can_view', 
     64        CMSViewPermissionFilter_commenter => 'Comment::can_view_commenter', 
     65        CMSViewPermissionFilter_entry     => 'Entry::can_view', 
     66        CMSViewPermissionFilter_folder    => 'Folder::can_view', 
     67        CMSViewPermissionFilter_page      => 'Page::can_view', 
     68        CMSViewPermissionFilter_ping      => 'Ping::can_view', 
     69        CMSViewPermissionFilter_template  => 'Template::can_view', 
     70        #disable_object                    => '', 
     71        edit_object                       => 'Common::edit', 
     72        #enable_object                     => '', 
     73        export_log                        => 'Log::export', 
     74        export_notification               => 'AddressBook::export', 
     75        list_assets                       => 'Asset::list', 
     76        #list_associations                 => '', 
     77        list_authors                      => 'User::list', 
     78        list_blogs                        => 'Blog::list', 
     79        list_category                     => 'Category::list', 
     80        list_comments                     => 'Comment::list', 
     81        list_entries                      => 'Entry::list', 
     82        list_objects                      => 'Common::list', 
     83        list_pages                        => 'Page::list', 
     84        list_pings                        => 'Ping::list', 
     85        #list_roles                        => '', 
     86        #list_tag                          => '', 
     87        list_template                     => 'Template::list', 
     88        preview_entry                     => 'Entry::preview', 
     89        #reg_bm_js                         => '', 
     90        #reg_file                          => '', 
     91        reset_log                         => 'Log::reset', 
     92        #reset_plugin_config               => '', 
     93        save_asset                        => 'Asset::save', 
     94        save_category                     => 'Category::save', 
     95        save_entry                        => 'Entry::save', 
     96        save_object                       => 'Common::save', 
     97        #save_plugin_config                => '', 
     98        tools                             => 'Tools::system_check', 
     99        view_log                          => 'Log::view', 
     100        _cb_notjunktest_filter            => 'Common::not_junk_test', 
    34101    ); 
    35102 
     
    422489#*itemset_actions        = \&list_actions; 
    423490 
     491while (my ($module, $methods) = each %cms_map) { 
     492    for my $method (@$methods) { 
     493        my $shim = sub { 
     494            my $h = MT->handler_to_coderef(join q{::}, '$Core::MT::CMS', $module, $method); 
     495            return $h->(@_); 
     496        }; 
     497 
     498        no strict 'refs'; 
     499        *{$method} = $shim; 
     500    } 
     501} 
     502 
     503while (my ($method, $new_method) = each %cms_rename_map) { 
     504    my $shim = sub { 
     505        my $h = MT->handler_to_coderef(join q{::}, '$Core::MT::CMS', $new_method); 
     506        return $h->(@_); 
     507    }; 
     508 
     509    no strict 'refs'; 
     510    *{$method} = $shim; 
     511} 
     512 
    424513package MT::Author; 
    425514