comparison: plugins/perl/perl.c
plugins/perl/perl.c
- changeset 5775
- 30c4753d2500
- parent 5676
- d3c2fdaf4821
- child 5872
- 754c63f29b77
equal
deleted
inserted
replaced
| 5774:a6f97556fe51 | 5775:30c4753d2500 |
|---|---|
| 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) { |
