Mercurial > pidgin
comparison plugins/perl/perl.c @ 5775:171fdd5493b9
[gaim-migrate @ 6200]
compile fix.
committer: Tailor Script <tailor@pidgin.im>
| author | Nathan Walp <nwalp@pidgin.im> |
|---|---|
| date | Fri, 06 Jun 2003 16:20:52 +0000 |
| parents | dae79aefac8d |
| children | 059d95c67cda |
comparison
equal
deleted
inserted
replaced
| 5774:e8f6209c4f59 | 5775:171fdd5493b9 |
|---|---|
| 745 char *message = SvPV(ST(1), junk); | 745 char *message = SvPV(ST(1), junk); |
| 746 static struct away_message a; | 746 static struct away_message a; |
| 747 g_snprintf(a.message, sizeof(a.message), "%s", message); | 747 g_snprintf(a.message, sizeof(a.message), "%s", message); |
| 748 do_away_message(NULL, &a); | 748 do_away_message(NULL, &a); |
| 749 } else if (!strncasecmp(command, "back", 4)) { | 749 } else if (!strncasecmp(command, "back", 4)) { |
| 750 do_im_back(); | 750 do_im_back(NULL, NULL); |
| 751 } else if (!strncasecmp(command, "idle", 4)) { | 751 } else if (!strncasecmp(command, "idle", 4)) { |
| 752 GList *c = gaim_connections_get_all(); | 752 GList *c = gaim_connections_get_all(); |
| 753 GaimConnection *gc; | 753 GaimConnection *gc; |
| 754 | 754 |
| 755 while (c) { | 755 while (c) { |