/[weechat]/weechat/src/plugins/scripts/perl/weechat-perl.c
ViewVC logotype

Diff of /weechat/src/plugins/scripts/perl/weechat-perl.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by flashcode, Wed Oct 26 23:07:03 2005 UTC revision 1.7 by flashcode, Fri Oct 28 07:31:22 2005 UTC
# Line 77  weechat_perl_exec (t_weechat_plugin *plu Line 77  weechat_perl_exec (t_weechat_plugin *plu
77      SPAGAIN;      SPAGAIN;
78            
79      sv = GvSV (gv_fetchpv ("@", TRUE, SVt_PV));      sv = GvSV (gv_fetchpv ("@", TRUE, SVt_PV));
80      return_code = 1;      return_code = PLUGIN_RC_KO;
81      if (SvTRUE (sv))      if (SvTRUE (sv))
82      {      {
83          plugin->printf_server (plugin, "Perl error: %s", SvPV (sv, count));          plugin->printf_server (plugin, "Perl error: %s", SvPV (sv, count));
# Line 114  weechat_perl_handler (t_weechat_plugin * Line 114  weechat_perl_handler (t_weechat_plugin *
114      /* make gcc happy */      /* make gcc happy */
115      (void) command;      (void) command;
116            
117      weechat_perl_exec (plugin, (t_plugin_script *)handler_pointer,      return weechat_perl_exec (plugin, (t_plugin_script *)handler_pointer,
118                         handler_args, server, arguments);                                handler_args, server, arguments);
     return 1;  
119  }  }
120    
121  /*  /*
# Line 211  static XS (XS_weechat_print) Line 210  static XS (XS_weechat_print)
210          XSRETURN_NO;          XSRETURN_NO;
211      }      }
212            
213        message = SvPV (ST (0), integer);
214        
215      channel_name = NULL;      channel_name = NULL;
216      server_name = NULL;      server_name = NULL;
217            
# Line 221  static XS (XS_weechat_print) Line 222  static XS (XS_weechat_print)
222              server_name = SvPV (ST (2), integer);              server_name = SvPV (ST (2), integer);
223      }      }
224            
     message = SvPV (ST (0), integer);  
225      perl_plugin->printf (perl_plugin,      perl_plugin->printf (perl_plugin,
226                           server_name, channel_name,                           server_name, channel_name,
227                           "%s", message);                           "%s", message);
# Line 1072  weechat_plugin_init (t_weechat_plugin *p Line 1072  weechat_plugin_init (t_weechat_plugin *p
1072      weechat_script_auto_load (plugin, "perl", weechat_perl_load);      weechat_script_auto_load (plugin, "perl", weechat_perl_load);
1073            
1074      /* init ok */      /* init ok */
1075      return 1;      return PLUGIN_RC_OK;
1076  }  }
1077    
1078  /*  /*

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26