snac2/snac.c
2023-05-09 14:18:15 +02:00

152 lines
2.8 KiB
C

/* snac - A simple, minimalistic ActivityPub instance */
/* copyright (c) 2022 - 2023 grunfink / MIT license */
#define XS_IMPLEMENTATION
#include "xs.h"
#include "xs_io.h"
#include "xs_unicode.h"
#include "xs_json.h"
#include "xs_encdec.h"
#include "xs_curl.h"
#include "xs_openssl.h"
#include "xs_socket.h"
#include "xs_httpd.h"
#include "xs_mime.h"
#include "xs_regex.h"
#include "xs_set.h"
#include "xs_time.h"
#include "xs_glob.h"
#include "snac.h"
#include <sys/time.h>
#include <sys/stat.h>
d_char *srv_basedir = NULL;
d_char *srv_config = NULL;
d_char *srv_baseurl = NULL;
int srv_running = 0;
int dbglevel = 0;
int mkdirx(const char *pathname)
/* creates a directory with special permissions */
{
int ret;
if ((ret = mkdir(pathname, DIR_PERM)) != -1)
ret = chmod(pathname, DIR_PERM);
return ret;
}
int valid_status(int status)
/* is this HTTP status valid? */
{
return status >= 200 && status <= 299;
}
d_char *tid(int offset)
/* returns a time-based Id */
{
struct timeval tv;
gettimeofday(&tv, NULL);
return xs_fmt("%10d.%06d", tv.tv_sec + offset, tv.tv_usec);
}
double ftime(void)
/* returns the UNIX time as a float */
{
xs *ntid = tid(0);
return atof(ntid);
}
int validate_uid(const char *uid)
/* returns if uid is a valid identifier */
{
while (*uid) {
if (!(isalnum(*uid) || *uid == '_'))
return 0;
uid++;
}
return 1;
}
void srv_debug(int level, d_char *str)
/* logs a debug message */
{
if (xs_str_in(str, srv_basedir) != -1) {
/* replace basedir with ~ */
str = xs_replace_i(str, srv_basedir, "~");
}
if (dbglevel >= level) {
xs *tm = xs_str_localtime(0, "%H:%M:%S");
fprintf(stderr, "%s %s\n", tm, str);
}
xs_free(str);
}
void snac_debug(snac *snac, int level, d_char *str)
/* prints a user debugging information */
{
xs *o_str = str;
d_char *msg = xs_fmt("[%s] %s", snac->uid, o_str);
if (xs_str_in(msg, snac->basedir) != -1) {
/* replace long basedir references with ~ */
msg = xs_replace_i(msg, snac->basedir, "~");
}
srv_debug(level, msg);
}
d_char *hash_password(const char *uid, const char *passwd, const char *nonce)
/* hashes a password */
{
xs *d_nonce = NULL;
xs *combi;
xs *hash;
if (nonce == NULL) {
d_nonce = xs_fmt("%08x", random());
nonce = d_nonce;
}
combi = xs_fmt("%s:%s:%s", nonce, uid, passwd);
hash = xs_sha1_hex(combi, strlen(combi));
return xs_fmt("%s:%s", nonce, hash);
}
int check_password(const char *uid, const char *passwd, const char *hash)
/* checks a password */
{
int ret = 0;
xs *spl = xs_split_n(hash, ":", 1);
if (xs_list_len(spl) == 2) {
xs *n_hash = hash_password(uid, passwd, xs_list_get(spl, 0));
ret = (strcmp(hash, n_hash) == 0);
}
return ret;
}