Mercurial > pidgin
diff 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 |
line wrap: on
line diff
--- a/src/perl.c Wed Aug 23 18:30:35 2000 +0000 +++ b/src/perl.c Wed Aug 23 19:43:09 2000 +0000 @@ -361,7 +361,8 @@ } else if (!strncasecmp(command, "idle", 4)) { serv_set_idle(atoi(SvPV(ST(1), junk))); } else if (!strncasecmp(command, "warn", 4)) { - /* FIXME */ + char *name = SvPV(ST(1), junk); + serv_warn(name, 0); } XSRETURN(0);