1
0
mirror of https://github.com/moparisthebest/hexchat synced 2024-11-30 05:02:16 -05:00
hexchat/plugins/xdcc/xdcc.c
2011-02-28 18:59:32 +01:00

328 lines
6.4 KiB
C

/* xchat 2.0 plugin: simple xdcc server example */
#include <glib.h>
#include <string.h>
#include <stdlib.h>
#include <stdio.h>
#include "xchat-plugin.h"
#include "../../src/common/xchat.h"
static xchat_plugin *ph; /* plugin handle */
static int xdcc_on = 1;
static int xdcc_slots = 3;
static GSList *file_list = 0;
typedef struct fileoffer
{
char *file;
char *fullpath;
char *desc;
int downloads;
} fileoffer;
/* find the number of open dccs */
static int num_open_dccs(void)
{
xchat_list *list;
int num = 0;
list = xchat_list_get(ph, "dcc");
if(!list)
return 0;
while(xchat_list_next(ph, list))
{
/* check only ACTIVE dccs */
if(xchat_list_int(ph, list, "status") == 1)
{
/* check only SEND dccs */
if(xchat_list_int(ph, list, "type") == 0)
num++;
}
}
xchat_list_free(ph, list);
return num;
}
static void xdcc_get(char *nick, char *host, char *arg)
{
int num;
GSList *list;
fileoffer *offer;
if(arg[0] == '#')
arg++;
num = atoi(arg);
list = g_slist_nth(file_list, num - 1);
if(!list)
{
xchat_commandf(ph, "quote NOTICE %s :No such file number #%d!", nick, num);
return;
}
if(num_open_dccs() >= xdcc_slots)
{
xchat_commandf(ph, "quote NOTICE %s :All slots full. Try again later.", nick);
return;
}
offer = (fileoffer *) list->data;
offer->downloads++;
xchat_commandf(ph, "quote NOTICE %s :Sending offer #%d %s", nick, num, offer->file);
xchat_commandf(ph, "dcc send %s %s", nick, offer->fullpath);
}
static void xdcc_del(char *name)
{
GSList *list;
fileoffer *offer;
list = file_list;
while(list)
{
offer = (fileoffer *) list->data;
if(strcasecmp(name, offer->file) == 0)
{
file_list = g_slist_remove(file_list, offer);
xchat_printf(ph, "%s [%s] removed.\n", offer->file, offer->fullpath);
free(offer->file);
free(offer->desc);
free(offer->fullpath);
free(offer);
return;
}
list = list->next;
}
}
static void xdcc_add(char *name, char *fullpath, char *desc, int dl)
{
fileoffer *offer;
offer = (fileoffer *) malloc(sizeof(fileoffer));
offer->file = strdup(name);
offer->desc = strdup(desc);
offer->fullpath = strdup(fullpath);
offer->downloads = dl;
file_list = g_slist_append(file_list, offer);
}
static void xdcc_list(char *nick, char *host, char *arg, char *cmd)
{
GSList *list;
int i = 0;
fileoffer *offer;
xchat_commandf(ph, "%s %s :XDCC List:", cmd, nick);
list = file_list;
while(list)
{
i++;
offer = (fileoffer *) list->data;
xchat_commandf(ph, "%s %s :[#%d] %s - %s [%d dl]", cmd,
nick, i, offer->file, offer->desc, offer->downloads);
list = list->next;
}
if(i == 0)
xchat_commandf(ph, "%s %s :- list empty.", cmd, nick);
else
xchat_commandf(ph, "%s %s :%d files listed.", cmd, nick, i);
}
static int xdcc_command(char *word[], char *word_eol[], void *userdata)
{
if(strcasecmp(word[2], "ADD") == 0)
{
if(!word_eol[5][0])
xchat_print(ph, "Syntax: /XDCC ADD <name> <path> <description>\n");
else
{
if(access(word[4], R_OK) == 0)
{
xdcc_add(word[3], word[4], word_eol[5], 0);
xchat_printf(ph, "%s [%s] added.\n", word[3], word[4]);
}
else
xchat_printf(ph, "Cannot read %s\n", word[4]);
}
return XCHAT_EAT_XCHAT;
}
if(strcasecmp(word[2], "DEL") == 0)
{
xdcc_del(word[3]);
return XCHAT_EAT_XCHAT;
}
if(strcasecmp(word[2], "SLOTS") == 0)
{
if(word[3][0])
{
xdcc_slots = atoi(word[3]);
xchat_printf(ph, "XDCC slots set to %d\n", xdcc_slots);
} else
{
xchat_printf(ph, "XDCC slots: %d\n", xdcc_slots);
}
return XCHAT_EAT_XCHAT;
}
if(strcasecmp(word[2], "ON") == 0)
{
xdcc_on = TRUE;
xchat_print(ph, "XDCC now ON\n");
return XCHAT_EAT_XCHAT;
}
if(strcasecmp(word[2], "LIST") == 0)
{
xdcc_list("", "", "", "echo");
return XCHAT_EAT_XCHAT;
}
if(strcasecmp(word[2], "OFF") == 0)
{
xdcc_on = FALSE;
xchat_print(ph, "XDCC now OFF\n");
return XCHAT_EAT_XCHAT;
}
xchat_print(ph, "Syntax: XDCC ADD <name> <fullpath> <description>\n"
" XDCC DEL <name>\n"
" XDCC SLOTS <number>\n"
" XDCC LIST\n"
" XDCC ON\n"
" XDCC OFF\n\n");
return XCHAT_EAT_XCHAT;
}
static void xdcc_remote(char *from, char *msg)
{
char *ex, *nick, *host;
ex = strchr(from, '!');
if(!ex)
return;
ex[0] = 0;
nick = from;
host = ex + 1;
if(xdcc_on == 0)
{
xchat_commandf(ph, "notice %s XDCC is turned OFF!", from);
return;
}
if(strncasecmp(msg, "LIST", 4) == 0)
xdcc_list(nick, host, msg + 4, "quote notice");
else if(strncasecmp(msg, "GET ", 4) == 0)
xdcc_get(nick, host, msg + 4);
else
xchat_commandf(ph, "notice %s Unknown XDCC command!", from);
}
static int ctcp_cb(char *word[], void *userdata)
{
char *msg = word[1];
char *from = word[2];
if(strncasecmp(msg, "XDCC ", 5) == 0)
xdcc_remote(from, msg + 5);
return XCHAT_EAT_NONE;
}
static void xdcc_save(void)
{
char buf[512];
FILE *fp;
GSList *list;
fileoffer *offer;
snprintf(buf, sizeof(buf), "%s/xdcclist.conf", xchat_get_info(ph, "xchatdir"));
fp = fopen(buf, "w");
if(!fp)
return;
list = file_list;
while(list)
{
offer = (fileoffer *) list->data;
fprintf(fp, "%s\n%s\n%s\n%d\n\n\n", offer->file, offer->fullpath,
offer->desc, offer->downloads);
list = list->next;
}
fclose(fp);
}
static void xdcc_load(void)
{
char buf[512];
char file[128];
char path[128];
char desc[128];
char dl[128];
FILE *fp;
snprintf(buf, sizeof(buf), "%s/xdcclist.conf", xchat_get_info(ph, "xchatdir"));
fp = fopen(buf, "r");
if(!fp)
return;
while(fgets(file, sizeof(file), fp))
{
file[strlen(file)-1] = 0;
fgets(path, sizeof(path), fp);
path[strlen(path)-1] = 0;
fgets(desc, sizeof(desc), fp);
desc[strlen(desc)-1] = 0;
fgets(dl, sizeof(dl), fp);
dl[strlen(dl)-1] = 0;
fgets(buf, sizeof(buf), fp);
fgets(buf, sizeof(buf), fp);
xdcc_add(file, path, desc, atoi(dl));
}
fclose(fp);
}
int xchat_plugin_deinit(void)
{
xdcc_save();
xchat_print(ph, "XDCC List saved\n");
return 1;
}
int xchat_plugin_init(xchat_plugin *plugin_handle,
char **plugin_name, char **plugin_desc, char **plugin_version,
char *arg)
{
ph = plugin_handle;
*plugin_name = "XDCC";
*plugin_desc = "Very simple XDCC server";
*plugin_version = "0.1";
xchat_hook_command(ph, "XDCC", XCHAT_PRI_NORM, xdcc_command, 0, 0);
xchat_hook_print(ph, "CTCP Generic", XCHAT_PRI_NORM, ctcp_cb, 0);
xchat_hook_print(ph, "CTCP Generic to Channel", XCHAT_PRI_NORM, ctcp_cb, 0);
xdcc_load();
xchat_print(ph, "XDCC loaded. Type /XDCC for help.\n");
return 1;
}