root/lang/perl/tiarra/branches/module-reload/main/ReloadTrigger.pm @ 12334

# -----------------------------------------------------------------------------
# $Id$
# -----------------------------------------------------------------------------
# confやモジュールのリロードの引き金。
# -----------------------------------------------------------------------------
package ReloadTrigger;
use strict;
use warnings;
use RunLoop;
use Configuration;
use ModuleManager;
use Timer;

sub reload_conf_if_updated {
    # confファイルが更新されていたらリロードし、
    # Tiarra内のそれぞれのクラスにconfの更新を通知する。
    # モジュール側で更新された場合になにかの処理をするには、
    # Configuration::Hook の reloaded を使ってください。
    if (Configuration->shared_conf->check_if_updated) {
        Configuration->shared_conf->load;
        RunLoop->shared_loop->update_networks;
        ModuleManager->shared_manager->update_modules;
    }
}

sub reload_mods_if_updated {
    ModuleManager->shared_manager->reload_modules_if_modified;
}

sub reload_all_if_updated {
    if (Configuration->shared_conf->check_if_updated) {
        Configuration->shared_conf->load;
        RunLoop->shared_loop->update_networks;
    }
    ModuleManager->shared_manager->update_modules(
        check_module_update => 1,
       );
}

sub _install_reload_timer {
    Timer->new(
        Name => __PACKAGE__.'/reload',
        After => 0,
        Code => sub {
            reload_all_if_updated;
        }
       )->install;
}

1;