Mercurial > pidgin
comparison src/perl.c @ 749:94edd99b7302
[gaim-migrate @ 759]
la la la. i suppose sooner or later i should document how to write a perl script.
committer: Tailor Script <tailor@pidgin.im>
author | Eric Warmenhoven <eric@warmenhoven.org> |
---|---|
date | Wed, 23 Aug 2000 19:43:09 +0000 |
parents | 3d2f14064083 |
children | c714def9cebb |
comparison
equal
deleted
inserted
replaced
748:c32d4fae9bbd | 749:94edd99b7302 |
---|---|
359 } else if (!strncasecmp(command, "back", 4)) { | 359 } else if (!strncasecmp(command, "back", 4)) { |
360 do_im_back(); | 360 do_im_back(); |
361 } else if (!strncasecmp(command, "idle", 4)) { | 361 } else if (!strncasecmp(command, "idle", 4)) { |
362 serv_set_idle(atoi(SvPV(ST(1), junk))); | 362 serv_set_idle(atoi(SvPV(ST(1), junk))); |
363 } else if (!strncasecmp(command, "warn", 4)) { | 363 } else if (!strncasecmp(command, "warn", 4)) { |
364 /* FIXME */ | 364 char *name = SvPV(ST(1), junk); |
365 serv_warn(name, 0); | |
365 } | 366 } |
366 | 367 |
367 XSRETURN(0); | 368 XSRETURN(0); |
368 } | 369 } |
369 | 370 |