add /lingr update_room_info for updating room infos

typester · Mar 21, 2013 · 3409f23 · 3409f23
1 parent ef4ac2f
commit 3409f23
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/lingr.pl b/lingr.pl
@@ -171,6 +171,15 @@ sub sig_complete_word {
     }
 }
 
+sub cmd_update_room_info {
+    unless ($lingr) {
+        Irssi::print("Lingr: ERROR: lingr session does not started");
+        return;
+    }
+
+    $lingr->update_room_info;
+}
+
 sub cmd_update_theme {
     Irssi::theme_register([
         'pubmsg'        => Irssi::current_theme()->get_format('fe-common/core', 'pubmsg'),
@@ -186,6 +195,7 @@ sub cmd_update_theme {
 Irssi::command_bind('lingr start', \&cmd_start);
 Irssi::command_bind('lingr stop', \&cmd_stop);
 Irssi::command_bind('lingr update_theme', \&cmd_update_theme);
+Irssi::command_bind('lingr update_room_info', \&cmd_update_room_info);
 
 Irssi::settings_add_str('lingr', 'lingr_user', q[]);
 Irssi::settings_add_str('lingr', 'lingr_password', q[]);