From 0c3c8d97316d4bb76a12d8c5fd77c2d95fcd0921 Mon Sep 17 00:00:00 2001 From: rgl Date: Sun, 5 Jan 2020 11:52:01 +0100 Subject: initial commit. --- filmoteca.c | 1125 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 1125 insertions(+) create mode 100644 filmoteca.c (limited to 'filmoteca.c') diff --git a/filmoteca.c b/filmoteca.c new file mode 100644 index 0000000..8013cf3 --- /dev/null +++ b/filmoteca.c @@ -0,0 +1,1125 @@ +/* + * filmoteca - web interface + */ +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include "libutf/utf.h" +#include "args.h" + +#define nil NULL +typedef unsigned int uint; +typedef unsigned long ulong; +typedef long long vlong; +typedef unsigned long long uvlong; + +enum { + Sok = 200, + Spartial = 206, + Sbadreq = 400, + Sforbid = 403, + Snotfound = 404, + Snotrange = 416, + Sinternal = 500, + Snotimple = 501, + Swrongver = 505, +}; +char *statusmsg[] = { + [Sok] "OK", + [Spartial] "Partial Content", + [Sbadreq] "Bad Request", + [Sforbid] "Forbidden", + [Snotfound] "Not Found", + [Snotrange] "Range Not Satisfiable", + [Sinternal] "Internal Server Error", + [Snotimple] "Not Implemented", + [Swrongver] "HTTP Version Not Supported", +}; + +typedef struct Movie Movie; +typedef struct Multipart Multipart; +typedef struct Part Part; +typedef struct Series Series; +typedef struct Season Season; +typedef struct Episode Episode; +typedef struct Resource Resource; + +struct Movie { + char *release; /* release date */ + int hassynopsis; /* is there a synopsis, */ + int hascover; /* cover, */ + int hasvideo; /* video, */ + int hashistory; /* or history file? */ + char **subs; /* list of subtitle languages */ + int nsub; + char **dubs; /* list of revoicing languages */ + int ndub; + char **extras; /* list of extra content */ + int nextra; + char **remakes; /* list of remake years */ + int nremake; +}; + +struct Multipart { + char *release; /* release date */ + int hassynopsis; /* is there a synopsis, */ + int hascover; /* cover, */ + int hashistory; /* or history file? */ + Part *part0; /* list of parts */ + char **extras; /* list of extra content */ + int nextra; + char **remakes; /* list of remake years */ + int nremake; +}; + +struct Part { + int no; /* part number */ + char **subs; /* list of subtitle languages */ + int nsub; + char **dubs; /* list of revoicing languages */ + int ndub; + Part *next; +}; + +struct Series { + int hassynopsis; /* is there a synopsis, */ + int hascover; /* cover, */ + int hashistory; /* or history file? */ + Season *s; /* list of seasons */ + char **extras; /* list of extra content */ + int nextra; + char **remakes; /* list of remake years */ + int nremake; +}; + +struct Season { + char *release; /* release date */ + int no; /* season number */ + Episode *pilot; /* list of episodes */ + Season *next; +}; + +struct Episode { + int no; /* episode number */ + int hasvideo; /* is there a video file? */ + char **subs; /* list of subtitle languages */ + int nsub; + char **dubs; /* list of revoicing languages */ + int ndub; + Episode *next; +}; + +enum { + Rmovie, + Rmulti, + Rserie, + Runknown +}; +struct Resource { + int type; + union { + Movie movie; + Multipart multi; + Series serie; + }; +}; + +typedef struct Req Req; +typedef struct Res Res; +typedef struct HField HField; + +struct Req { + char *method, *target, *version; + HField *fields; +}; + +struct Res { + int status; + HField *fields; +}; + +struct HField { + char *key, *value; + HField *next; +}; + +char httpver[] = "HTTP/1.1"; +char srvname[] = "filmoteca"; +char errmsg[] = "NO MOVIES HERE"; +char listhead[] = "\n\n\n" + "\n" + "Filmoteca\n" + "\n\n" + "

Filmoteca

\n"; +char listfeet[] = "\n\n"; +char portalhead[] = "\n\n\n" + "\n" + "Filmoteca - %s\n" + "\n\n\n" + "

%s

\n"; +char portalcover[] = "

\n"; +char portalrelease[] = "\n" + "\t\n" + "\t\t\n" + "\t\n" + "\t\n" + "\t\t\n" + "\t\n" + "\t\n" + "\t\t\n" + "\t\n" + "\t\n" + "\t\t\n" + "\t\n" + "\t\n" + "\t\t\n" + "\t\n" + "\t\n" + "\t\t\n" + "\t\n" + "\t\n" + "\t\t\n" + "\t\n" + "\t\n" + "\t\t\n" + "\t\n" + "\t\n" + "\t\t\n\t\n

Release	"; +char portalmoviestream[] = "
Stream	link"; +char portalmultistream[] = "
Stream	"; +char portalseriestream[] = "
Stream	"; +char portalsynopsis[] = "
Synopsis	"; +char portalhistory[] = "
History	"; +char portalsub[] = "
Subs	"; +char portaldub[] = "
Dubs	"; +char portalextra[] = "
Extras	"; +char portalfeet[] = "

\n\n\n"; +char stylepath[] = "/home/cinema/lib/film/style.css"; +char fvicopath[] = "/home/cinema/lib/film/favicon.ico"; +char *wdir = "/home/cinema/films"; +Req *req; +Res *res; + +void hfatal(char *); + +/* a crappy mimic of the original */ +void +sysfatal(char *s) +{ + perror(s); + exit(1); +} + +void * +emalloc(ulong n) +{ + void *p; + + p = malloc(n); + if(p == nil) + hfatal("malloc"); + memset(p, 0, n); + return p; +} + +void * +erealloc(void *ptr, ulong n) +{ + void *p; + + p = realloc(ptr, n); + if(p == nil) + hfatal("realloc"); + return p; +} + +long +truestrlen(char *s) +{ + char *e; + int waste; + + waste = 0; + for(e = s; *e != 0; e++) + if(*e == '%'){ + waste++; + if(*(e+1) == '%'){ + e += 2; + continue; + } + /* rudimentary but works for me. */ + while(isalnum(*++e) || *e == '.') + waste++; + } + return e-s-waste; +} + +int +numcmp(const void *a, const void *b) +{ + int na, nb; + char **sa = (char **)a; + char **sb = (char **)b; + + na = strtol(*sa, nil, 0); + nb = strtol(*sb, nil, 0); + return na - nb; +} + +int +stringcmp(const void *a, const void *b) +{ + char **sa = (char **)a; + char **sb = (char **)b; + + return strcmp(*sa, *sb); +} + +int +urldecode(char *url, char *out, long n) +{ + char *o, *ep; + int c; + + ep = url+n; + for(o = out; url <= ep; o++){ + c = *url++; + if(c == '%' && + (!isxdigit(*url++) || + !isxdigit(*url++) || + !sscanf(url-2, "%2x", &c))) + return -1; + *o = c; + } + return o - out; +} + +int +mimetype(int fd, char *mime, long len) +{ + char m[256]; + uvlong n; + int pf[2]; + char *argv[] = { + "sh", "-c", + "file -i - | sed 's/^.*:\\s*//' | tr -d '\\n'", + nil, + }; + + memset(m, 0, sizeof m); + if(pipe(pf) < 0) + return -1; + switch(fork()){ + case -1: return -1; + case 0: + close(pf[0]); + dup2(fd, 0); + dup2(pf[1], 1); + close(pf[1]); + execv("/bin/sh", argv); + sysfatal("execl"); + default: + close(pf[1]); + if((n = read(pf[0], m, sizeof(m)-1)) < 0) + return -1; + close(pf[0]); + /* file(1) is not that good at guessing. */ + if(strcmp(req->target, "/style") == 0) + strncpy(m, "text/css; charset=utf-8", sizeof(m)-1); + if(strncmp(m, "audio", 5) == 0) + strncpy(m, "video", 5); + strncpy(mime, m, len); + wait(nil); + } + return 0; +} + +int +filldirlist(char *path, char ***l, int *len) +{ + DIR *d; + struct dirent *dir; + + d = opendir(path); + if(d == nil) + return -1; + while((dir = readdir(d)) != nil) + if(strcmp(dir->d_name, ".") != 0 && + strcmp(dir->d_name, "..") != 0){ + *l = erealloc(*l, ++*len*sizeof(char *)); + (*l)[*len-1] = strdup(dir->d_name); + } + closedir(d); + return 0; +} + +void +insertepisode(Season *s, Episode *e, int no) +{ + Episode *ep, *olde; + + olde = nil; + if(s->pilot == nil){ + s->pilot = e; + return; + } + for(ep = s->pilot; ep != nil && ep->no < e->no; olde = ep, ep = ep->next) + ; + if(olde == nil) + s->pilot = e; + else + olde->next = e; + e->next = ep; +} + +HField * +allochdr(char *k, char *v) +{ + HField *h; + + h = emalloc(sizeof(HField)); + h->key = strdup(k); + h->value = strdup(v); + return h; +} + +void +freehdr(HField *h) +{ + HField *hn; + + while(h != nil){ + hn = h->next; + free(h->value); + free(h->key); + free(h); + h = hn; + } +} + +void +inserthdr(HField **h, char *k, char *v) +{ + while(*h != nil) + h = &(*h)->next; + *h = allochdr(k, v); +} + +char * +lookuphdr(HField *h, char *k) +{ + while(h != nil){ + if(strcmp(h->key, k) == 0) + return h->value; + h = h->next; + } + return nil; +} + +Req * +allocreq(char *meth, char *targ, char *vers) +{ + Req *r; + + r = emalloc(sizeof(Req)); + r->method = strdup(meth); + r->target = strdup(targ); + r->version = strdup(vers); + return r; +} + +void +freereq(Req *r) +{ + freehdr(r->fields); + free(r->version); + free(r->target); + free(r->method); + free(r); +} + +Res * +allocres(int sc) +{ + Res *r; + + r = emalloc(sizeof(Res)); + r->status = sc; + inserthdr(&r->fields, "Server", srvname); + return r; +} + +void +freeres(Res *r) +{ + freehdr(r->fields); + free(r); +} + +int +hprint(char *fmt, ...) +{ + va_list ap; + int rc; + + va_start(ap, fmt); + rc = vprintf(fmt, ap); + rc += printf("\r\n"); + va_end(ap); + return rc; +} + +void +hstline(int sc) +{ + hprint("%s %d %s", httpver, sc, statusmsg[sc]); +} + +void +hprinthdr(void) +{ + HField *hp; + + hstline(res->status); + for(hp = res->fields; hp != nil; hp = hp->next) + hprint("%s: %s", hp->key, hp->value); + hprint(""); + fflush(stdout); +} + +void +hfail(int sc) +{ + char clen[16]; + + res = allocres(sc); + snprintf(clen, sizeof clen, "%u", strlen(errmsg)); + inserthdr(&res->fields, "Content-Type", "text/plain; charset=utf-8"); + inserthdr(&res->fields, "Content-Length", clen); + hprinthdr(); + hprint("%s", errmsg); + hprint(""); + exit(0); +} + +void +hfatal(char *ctx) +{ + hstline(Sinternal); + hprint("Content-Type: %s", "text/plain; charset=utf-8"); + hprint("Content-Length: %u", strlen(errmsg)); + hprint(""); + hprint("%s", errmsg); + hprint(""); + fflush(stdout); + sysfatal(ctx); +} + +void +hparsereq(void) +{ + char *line, *meth, *targ, *vers, *k, *v; + uint linelen; + int n; + + n = getline(&line, &linelen, stdin); + meth = strtok(line, " "); + targ = strtok(nil, " "); + vers = strtok(nil, " \r"); + if(meth == nil || targ == nil || vers == nil) + hfail(Sbadreq); + if(targ[strlen(targ)-1] == '/') + targ[strlen(targ)-1] = 0; + req = allocreq(meth, targ, vers); + while((n = getline(&line, &linelen, stdin)) > 0){ + if(strcmp(line, "\r\n") == 0) + break; + k = strtok(line, ": "); + v = strtok(nil, " \r"); + if(k == nil || v == nil) + hfail(Sbadreq); + inserthdr(&req->fields, k, v); + } +} + +void +sendfile(FILE *f, struct stat *fst) +{ + char buf[128*1024], mime[256], *s, crstr[6+3*16+1+1+1], clstr[16]; + uvlong brange[2], n, clen; + + n = clen = 0; + if(mimetype(fileno(f), mime, sizeof mime) < 0) + hfatal("sendfile: mimetype"); + clen = fst->st_size; + if((s = lookuphdr(req->fields, "Range")) != nil){ + while(!isdigit(*++s) && *s != 0) + ; + if(*s == 0) + hfail(Sbadreq); + brange[0] = strtoull(s, &s, 0); + if(*s++ != '-') + hfail(Sbadreq); + if(!isdigit(*s)) + brange[1] = fst->st_size-1; + else + brange[1] = strtoull(s, &s, 0); + if(brange[0] > brange[1] || brange[1] >= fst->st_size){ + res = allocres(Snotrange); + snprintf(crstr, sizeof crstr, "bytes */%llu", + fst->st_size); + }else{ + res = allocres(Spartial); + fseeko(f, brange[0], SEEK_SET); + clen = brange[1]-brange[0]+1; + snprintf(crstr, sizeof crstr, "bytes %llu-%llu/%llu", + brange[0], brange[1], fst->st_size); + } + inserthdr(&res->fields, "Content-Range", crstr); + }else + res = allocres(Sok); + inserthdr(&res->fields, "Accept-Ranges", "bytes"); + inserthdr(&res->fields, "Content-Type", mime); + snprintf(clstr, sizeof clstr, "%llu", clen); + inserthdr(&res->fields, "Content-Length", clstr); + if((s = lookuphdr(req->fields, "Connection")) != nil) + inserthdr(&res->fields, "Connection", s); + hprinthdr(); + if(strcmp(req->method, "HEAD") == 0) + return; + while(clen -= n, !feof(f) && clen > 0){ + n = fread(buf, 1, sizeof buf, f); + if(ferror(f)) + break; + if(fwrite(buf, 1, n, stdout) <= 0) + break; + } +} + +void +sendlist(char *path) +{ + FILE *f; + struct stat fst; + char **dirlist; + int i, ndir; + + ndir = 0; + dirlist = nil; + f = tmpfile(); + if(f == nil) + hfatal("sendlist: tmpfile"); + filldirlist(path, &dirlist, &ndir); + qsort(dirlist, ndir, sizeof(char *), stringcmp); + fprintf(f, listhead); + fprintf(f, "

\n"); + fprintf(f, listfeet); + fseeko(f, 0, SEEK_SET); + if(fstat(fileno(f), &fst) < 0) + switch(errno){ + case EACCES: hfail(Sforbid); + case ENOENT: hfail(Snotfound); + default: hfatal("sendlist: fstat"); + } + sendfile(f, &fst); + fclose(f); +} + +void +sendportal(char *path) +{ + Resource r; + Part *p; + Season *s; + Episode *e; + FILE *f, *auxf; + struct stat fst; + DIR *root, *d, *ed; + struct dirent *rdir, *dir, *edir; + char *title, *line, auxpath[512], buf[1024]; + uint linelen; + int n, sno, canintrosubs, canintrodubs, canintroseason; + + p = nil; + s = nil; + e = nil; + line = nil; + sno = 0; + memset(&r, 0, sizeof(Resource)); + r.type = Runknown; + memset(auxpath, 0, sizeof auxpath); + title = strrchr(path, '/'); + if(*++title == 0) + hfail(Sbadreq); + root = opendir(path); + if(root == nil) + hfatal("sendportal: opendir"); + fprintf(stdout, "%s\n", getcwd(nil, 0)); + while((rdir = readdir(root)) != nil){ + switch(r.type){ + case Runknown: break; + case Rmovie: + if(strcmp(rdir->d_name, "release") == 0){ + snprintf(auxpath, sizeof auxpath, "%s/%s", path, rdir->d_name); + f = fopen(auxpath, "r"); + if(f == nil) + goto Rogue; + n = getline(&line, &linelen, f); + if(line[n-1] == '\n') + line[(n--)-1] = 0; + r.movie.release = strdup(line); + fclose(f); + }else if(strcmp(rdir->d_name, "synopsis") == 0) + r.movie.hassynopsis++; + else if(strcmp(rdir->d_name, "cover") == 0) + r.movie.hascover++; + else if(strcmp(rdir->d_name, "video") == 0) + r.movie.hasvideo++; + else if(strcmp(rdir->d_name, "history") == 0) + r.movie.hashistory++; + else if(strcmp(rdir->d_name, "sub") == 0){ + snprintf(auxpath, sizeof auxpath, "%s/%s", path, rdir->d_name); + filldirlist(auxpath, &r.movie.subs, &r.movie.nsub); + }else if(strcmp(rdir->d_name, "dub") == 0){ + snprintf(auxpath, sizeof auxpath, "%s/%s", path, rdir->d_name); + filldirlist(auxpath, &r.movie.dubs, &r.movie.ndub); + }else if(strcmp(rdir->d_name, "extra") == 0){ + snprintf(auxpath, sizeof auxpath, "%s/%s", path, rdir->d_name); + filldirlist(auxpath, &r.movie.extras, &r.movie.nextra); + }else if(strcmp(rdir->d_name, "remake") == 0){ + snprintf(auxpath, sizeof auxpath, "%s/%s", path, rdir->d_name); + filldirlist(auxpath, &r.movie.remakes, &r.movie.nremake); + } + continue; + case Rmulti: + if(strcmp(rdir->d_name, "release") == 0){ + snprintf(auxpath, sizeof auxpath, "%s/%s", path, rdir->d_name); + f = fopen(auxpath, "r"); + if(f == nil) + goto Rogue; + n = getline(&line, &linelen, f); + if(line[n-1] == '\n') + line[(n--)-1] = 0; + r.multi.release = strdup(line); + fclose(f); + }else if(strcmp(rdir->d_name, "synopsis") == 0) + r.multi.hassynopsis++; + else if(strcmp(rdir->d_name, "cover") == 0) + r.multi.hascover++; + else if(strcmp(rdir->d_name, "history") == 0) + r.multi.hashistory++; + else if(strncmp(rdir->d_name, "video", 5) == 0){ + if(p == nil){ + r.multi.part0 = emalloc(sizeof(Part)); + p = r.multi.part0; + }else{ + p->next = emalloc(sizeof(Part)); + p = p->next; + } + p->no = strtol(rdir->d_name+5, nil, 0); + snprintf(auxpath, sizeof auxpath, "%s/sub%d", path, p->no); + filldirlist(auxpath, &p->subs, &p->nsub); + snprintf(auxpath, sizeof auxpath, "%s/dub%d", path, p->no); + filldirlist(auxpath, &p->dubs, &p->ndub); + }else if(strcmp(rdir->d_name, "extra") == 0){ + snprintf(auxpath, sizeof auxpath, "%s/%s", path, rdir->d_name); + filldirlist(auxpath, &r.multi.extras, &r.multi.nextra); + }else if(strcmp(rdir->d_name, "remake") == 0){ + snprintf(auxpath, sizeof auxpath, "%s/%s", path, rdir->d_name); + filldirlist(auxpath, &r.multi.remakes, &r.multi.nremake); + } + continue; + case Rserie: + if(strcmp(rdir->d_name, "synopsis") == 0) + r.serie.hassynopsis++; + else if(strcmp(rdir->d_name, "cover") == 0) + r.serie.hascover++; + else if(strcmp(rdir->d_name, "history") == 0) + r.serie.hashistory++; + else if(strcmp(rdir->d_name, "release") == 0){ + snprintf(auxpath, sizeof auxpath, "%s/%s", path, rdir->d_name); + f = fopen(auxpath, "r"); + if(f == nil) + goto Rogue; + while((n = getline(&line, &linelen, f)) > 0){ + sno++; + if(line[n-1] == '\n') + line[(n--)-1] = 0; + if(!isdigit(*line)) + continue; + if(s == nil){ + r.serie.s = emalloc(sizeof(Season)); + s = r.serie.s; + }else{ + s->next = emalloc(sizeof(Season)); + s = s->next; + } + s->release = strdup(line); + s->no = sno; + e = nil; + snprintf(auxpath, sizeof auxpath, "%s/s/%d", path, s->no); + d = opendir(auxpath); + if(d == nil) + goto Rogue; + while((dir = readdir(d)) != nil){ + if(!isdigit(dir->d_name[0])) + continue; + e = emalloc(sizeof(Episode)); + e->no = strtol(dir->d_name, nil, 0); + insertepisode(s, e, e->no); + /* + * it must be e->no instead of dir->d_name. we need to + * handle ranged episode folders, like `s/1/1-2' in + * Battlestar Galactica. or perhaps split the episode. + */ + snprintf(auxpath, sizeof auxpath, "%s/s/%d/%s", path, s->no, dir->d_name); + ed = opendir(auxpath); + if(ed == nil) + goto Rogue; + while((edir = readdir(ed)) != nil){ + if(strcmp(edir->d_name, "video") == 0) + e->hasvideo++; + else if(strcmp(edir->d_name, "sub") == 0){ + snprintf(auxpath, sizeof auxpath, "%s/s/%d/%d/%s", path, s->no, e->no, edir->d_name); + filldirlist(auxpath, &e->subs, &e->nsub); + }else if(strcmp(edir->d_name, "dub") == 0){ + snprintf(auxpath, sizeof auxpath, "%s/s/%d/%d/%s", path, s->no, e->no, edir->d_name); + filldirlist(auxpath, &e->dubs, &e->ndub); + } + } + closedir(ed); + } + closedir(d); + } + fclose(f); + }else if(strcmp(rdir->d_name, "extra") == 0){ + snprintf(auxpath, sizeof auxpath, "%s/%s", path, rdir->d_name); + filldirlist(auxpath, &r.serie.extras, &r.serie.nextra); + }else if(strcmp(rdir->d_name, "remake") == 0){ + snprintf(auxpath, sizeof auxpath, "%s/%s", path, rdir->d_name); + filldirlist(auxpath, &r.serie.remakes, &r.serie.nremake); + } + continue; + } + if(strcmp(rdir->d_name, "video") == 0) + r.type = Rmovie; + else if(strcmp(rdir->d_name, "video1") == 0) + r.type = Rmulti; + else if(strcmp(rdir->d_name, "s") == 0) + r.type = Rserie; + if(r.type != Runknown) + rewinddir(root); + } + closedir(root); + if(r.type == Runknown){ +Rogue: + sendlist(path); + exit(0); + } + fprintf(stderr, "tmpfile incoming\n"); + f = tmpfile(); + if(f == nil) + hfatal("sendportal: tmpfile"); + fprintf(f, portalhead, title, title); + switch(r.type){ + case Rmovie: + if(r.movie.hascover) + fprintf(f, portalcover, req->target, req->target); + fprintf(f, portalrelease); + fwrite(r.movie.release, 1, strlen(r.movie.release), f); + fprintf(f, portalmoviestream, req->target); + if(r.movie.hassynopsis){ + fprintf(f, portalsynopsis); + snprintf(auxpath, sizeof auxpath, "%s/synopsis", path); + auxf = fopen(auxpath, "r"); + if(auxf == nil) + break; + while(!feof(auxf)){ + n = fread(buf, 1, sizeof buf, auxf); + if(ferror(auxf)) + break; + if(fwrite(buf, 1, n, f) <= 0) + break; + } + fclose(auxf); + } + if(r.movie.hashistory){ + fprintf(f, portalhistory); + snprintf(auxpath, sizeof auxpath, "%s/history", path); + auxf = fopen(auxpath, "r"); + if(auxf == nil) + break; + while(!feof(auxf)){ + n = fread(buf, 1, sizeof buf, auxf); + if(ferror(auxf)) + break; + if(fwrite(buf, 1, n, f) <= 0) + break; + } + fclose(auxf); + } + if(r.movie.nsub > 0){ + fprintf(f, portalsub); + fprintf(f, "

"); + } + if(r.movie.ndub > 0){ + fprintf(f, portaldub); + fprintf(f, "

"); + } + if(r.movie.nextra > 0){ + fprintf(f, portalextra); + fprintf(f, "

"); + } + break; + case Rmulti: + if(r.multi.hascover) + fprintf(f, portalcover, req->target, req->target); + fprintf(f, portalrelease); + fwrite(r.multi.release, 1, strlen(r.multi.release), f); + fprintf(f, portalmultistream, req->target); + fprintf(f, "

Part %d

"); + if(r.multi.hassynopsis){ + fprintf(f, portalsynopsis); + snprintf(auxpath, sizeof auxpath, "%s/synopsis", path); + auxf = fopen(auxpath, "r"); + if(auxf == nil) + break; + while(!feof(auxf)){ + n = fread(buf, 1, sizeof buf, auxf); + if(ferror(auxf)) + break; + if(fwrite(buf, 1, n, f) <= 0) + break; + } + fclose(auxf); + } + if(r.multi.hashistory){ + fprintf(f, portalhistory); + snprintf(auxpath, sizeof auxpath, "%s/history", path); + auxf = fopen(auxpath, "r"); + if(auxf == nil) + break; + while(!feof(auxf)){ + n = fread(buf, 1, sizeof buf, auxf); + if(ferror(auxf)) + break; + if(fwrite(buf, 1, n, f) <= 0) + break; + } + fclose(auxf); + } + canintrosubs = canintrodubs = 1; + for(p = r.multi.part0; p != nil; p = p->next) + if(p->nsub > 0){ + if(canintrosubs) + fprintf(f, portalsub), canintrosubs--; + fprintf(f, "

Part %d", p->no); + fprintf(f, "
- %s

\n"); + } + for(p = r.multi.part0; p != nil; p = p->next) + if(p->ndub > 0){ + if(canintrodubs) + fprintf(f, portaldub), canintrodubs--; + fprintf(f, "

Part %d", p->no); + fprintf(f, "
- %s

\n"); + } + if(r.movie.nextra > 0){ + fprintf(f, portalextra); + fprintf(f, "

"); + } + break; + case Rserie: + if(r.serie.hascover) + fprintf(f, portalcover, req->target, req->target); + fprintf(f, portalrelease); + fprintf(f, "

Season %d on %s

"); + fprintf(f, portalseriestream); + fprintf(f, "

Season %d", s->no); + fprintf(f, "
- Episode %d
- Episode %d is unavailable

"); + if(r.serie.hassynopsis){ + fprintf(f, portalsynopsis); + snprintf(auxpath, sizeof auxpath, "%s/synopsis", path); + auxf = fopen(auxpath, "r"); + if(auxf == nil) + break; + while(!feof(auxf)){ + n = fread(buf, 1, sizeof buf, auxf); + if(ferror(auxf)) + break; + if(fwrite(buf, 1, n, f) <= 0) + break; + } + fclose(auxf); + } + if(r.serie.hashistory){ + fprintf(f, portalhistory); + snprintf(auxpath, sizeof auxpath, "%s/history", path); + auxf = fopen(auxpath, "r"); + if(auxf == nil) + break; + while(!feof(auxf)){ + n = fread(buf, 1, sizeof buf, auxf); + if(ferror(auxf)) + break; + if(fwrite(buf, 1, n, f) <= 0) + break; + } + fclose(auxf); + } + canintrosubs = canintrodubs = 1; + for(s = r.serie.s; s != nil; s = s->next){ + canintroseason = 1; + for(e = s->pilot; e != nil; e = e->next) + if(e->nsub > 0){ + if(canintrosubs) + fprintf(f, portalsub), canintrosubs--; + if(canintroseason) + fprintf(f, "

Season %d", s->no), canintroseason--; + fprintf(f, "
- Episode %d: %s
"); + } + if(!canintroseason) + fprintf(f, "

\n"); + } + for(s = r.serie.s; s != nil; s = s->next){ + canintroseason = 1; + for(e = s->pilot; e != nil; e = e->next) + if(e->ndub > 0){ + if(canintrodubs) + fprintf(f, portaldub), canintrodubs--; + if(canintroseason) + fprintf(f, "

Season %d", s->no), canintroseason--; + fprintf(f, "
- Episode %d: %s
"); + } + if(!canintroseason) + fprintf(f, "

\n"); + } + if(r.serie.nextra > 0){ + fprintf(f, portalextra); + fprintf(f, "

"); + } + break; + default: goto Rogue; + } + fprintf(f, portalfeet); + fseeko(f, 0, SEEK_SET); + if(fstat(fileno(f), &fst) < 0) + switch(errno){ + case EACCES: hfail(Sforbid); + case ENOENT: hfail(Snotfound); + default: hfatal("sendportal: fstat"); + } + sendfile(f, &fst); + fclose(f); +} + +char *argv0; + +void +usage(void) +{ + fprintf(stderr, "usage: %s [-d wdir]\n", argv0); + exit(1); +} + +int +main(int argc, char *argv[]) +{ + FILE *f; + struct stat fst; + char path[512]; + + ARGBEGIN{ + case 'd': + wdir = EARGF(usage()); + break; + default: usage(); + }ARGEND; + memset(path, 0, sizeof path); + hparsereq(); + if(strcmp(req->method, "GET") != 0 && strcmp(req->method, "HEAD") != 0) + hfail(Snotimple); + if(strcmp(req->version, httpver) != 0) + hfail(Swrongver); + if(strcmp(req->target, "/style") == 0) + strncpy(path, stylepath, sizeof(path)-1); + else if(strcmp(req->target, "/favicon.ico") == 0) + strncpy(path, fvicopath, sizeof(path)-1); + else + snprintf(path, sizeof path, "%s%s", wdir, req->target); + if(urldecode(path, path, strlen(path)) < 0) + hfail(Sbadreq); + if(stat(path, &fst) < 0) + switch(errno){ + case EACCES: hfail(Sforbid); + case ENOENT: hfail(Snotfound); + default: hfatal("stat"); + } + if(S_ISREG(fst.st_mode)){ + f = fopen(path, "r"); + if(f == nil) + hfatal("fopen"); + sendfile(f, &fst); + fclose(f); + }else + sendportal(path); + exit(0); +} -- cgit v1.2.3