Replace episode selection CGI with a PHP script
This commit is contained in:
Steven Grimm
parent
98d276c9b1
commit
447bce65b3
|
|
@ -0,0 +1,54 @@
|
|||
<?php
|
||||
|
||||
$domains = array(
|
||||
'.euro.net' => 'countries/nl/eplist.html',
|
||||
'.pr.us' => 'countries/pr/eplist.html',
|
||||
'.ar' => 'countries/wbtv/eplist.html',
|
||||
'.at' => 'countries/at/eplist.html',
|
||||
'.au' => 'countries/au/eplist.html',
|
||||
'.au' => 'countries/au/eplist.html',
|
||||
'.be' => 'countries/be/eplist.html',
|
||||
'.br' => 'countries/wbtv/eplist.html',
|
||||
'.ca' => 'countries/ca/eplist.html',
|
||||
'.cl' => 'countries/cl/eplist.html',
|
||||
'.co' => 'countries/co/eplist.html',
|
||||
'.cr' => 'countries/cr/eplist.html',
|
||||
'.cz' => 'countries/cz/eplist.html',
|
||||
'.de' => 'countries/de/eplist.html',
|
||||
'.es' => 'countries/es/eplist.html',
|
||||
'.fi' => 'countries/fi/eplist.html',
|
||||
'.fr' => 'countries/fr/eplist.html',
|
||||
'.gb' => 'countries/uk/eplist.html',
|
||||
'.gr' => 'countries/gr/eplist.html',
|
||||
'.id' => 'countries/id/eplist.html',
|
||||
'.ie' => 'countries/uk/eplist.html',
|
||||
'.il' => 'countries/il/eplist.html',
|
||||
'.it' => 'countries/it/eplist.html',
|
||||
'.jo' => 'countries/jo/eplist.html',
|
||||
'.my' => 'countries/id/eplist.html',
|
||||
'.nl' => 'countries/nl/eplist.html',
|
||||
'.no' => 'countries/no/eplist.html',
|
||||
'.nz' => 'countries/nz/eplist.html',
|
||||
'.pe' => 'countries/pe/eplist.html',
|
||||
'.ph' => 'countries/ph/eplist.html',
|
||||
'.pk' => 'countries/pk/eplist.html',
|
||||
'.pl' => 'countries/pl/eplist.html',
|
||||
'.pt' => 'countries/pt/eplist.html',
|
||||
'.ru' => 'countries/ru/eplist.html',
|
||||
'.se' => 'countries/se/eplist.html',
|
||||
'.sg' => 'countries/sg/eplist.html',
|
||||
'.si' => 'countries/si/eplist.html',
|
||||
'.uk' => 'countries/uk/eplist.html',
|
||||
'' => 'countries/us/eplist.html',
|
||||
);
|
||||
|
||||
$remote_host = gethostbyaddr($_SERVER['REMOTE_ADDR']);
|
||||
$server_name = $_SERVER['SERVER_NAME'];
|
||||
|
||||
foreach ($domains as $suffix => $url) {
|
||||
if (!$suffix || substr($remote_host, -strlen($suffix)) == $suffix) {
|
||||
header("Location: http://$server_name/lurk/$url");
|
||||
}
|
||||
}
|
||||
|
||||
print file_get_contents('internal/dom-error.html');
|
||||
|
|
@ -1,39 +0,0 @@
|
|||
DEFAULT countries/us/eplist.html
|
||||
.ca countries/ca/eplist.html
|
||||
.uk countries/uk/eplist.html
|
||||
.ie countries/uk/eplist.html
|
||||
.fi countries/fi/eplist.html
|
||||
.se countries/se/eplist.html
|
||||
.gb countries/uk/eplist.html
|
||||
.fr countries/fr/eplist.html
|
||||
.gr countries/gr/eplist.html
|
||||
.id countries/id/eplist.html
|
||||
.au countries/au/eplist.html
|
||||
.be countries/be/eplist.html
|
||||
.cl countries/cl/eplist.html
|
||||
.pt countries/pt/eplist.html
|
||||
.co countries/co/eplist.html
|
||||
.cr countries/cr/eplist.html
|
||||
.de countries/de/eplist.html
|
||||
.my countries/id/eplist.html
|
||||
.nl countries/nl/eplist.html
|
||||
.euro.net countries/nl/eplist.html
|
||||
.pr.us countries/pr/eplist.html
|
||||
.il countries/il/eplist.html
|
||||
.au countries/au/eplist.html
|
||||
.sg countries/sg/eplist.html
|
||||
.at countries/at/eplist.html
|
||||
.pe countries/pe/eplist.html
|
||||
.ph countries/ph/eplist.html
|
||||
.pk countries/pk/eplist.html
|
||||
.es countries/es/eplist.html
|
||||
.ru countries/ru/eplist.html
|
||||
.jo countries/jo/eplist.html
|
||||
.no countries/no/eplist.html
|
||||
.si countries/si/eplist.html
|
||||
.nz countries/nz/eplist.html
|
||||
.pl countries/pl/eplist.html
|
||||
.br countries/wbtv/eplist.html
|
||||
.ar countries/wbtv/eplist.html
|
||||
.it countries/it/eplist.html
|
||||
.cz countries/cz/eplist.html
|
||||
|
|
@ -52,7 +52,7 @@ href="/lurk/universe/intro.html"><img
|
|||
src="nav/title/universe.gif" width=162 height=114 border=0 align=middle
|
||||
alt="[The Babylon 5 Universe]"></a><a
|
||||
|
||||
href="/cgi-bin/select-eplist"><img
|
||||
href="/lurk/episodes.php"><img
|
||||
src="nav/title/episodes.gif" width=162 height=114 border=0 align=middle
|
||||
alt="[The Episodes]"></a><a
|
||||
|
||||
|
|
|
|||
|
|
@ -1,71 +0,0 @@
|
|||
/*
|
||||
* Select an episode list to show based on a control file.
|
||||
*/
|
||||
|
||||
#define LISTFILE "/home/koreth/lurk/internal/domainlist"
|
||||
char * BASEDIR = "/home/koreth/lurk/";
|
||||
#define ERRORFILE "/home/koreth/lurk/internal/dom-error.html"
|
||||
|
||||
#include <stdio.h>
|
||||
#include <string.h>
|
||||
#include <ctype.h>
|
||||
#include <sys/types.h>
|
||||
#include <sys/stat.h>
|
||||
#include <sys/mman.h>
|
||||
#include <fcntl.h>
|
||||
|
||||
char *getenv();
|
||||
|
||||
main()
|
||||
{
|
||||
FILE *fp;
|
||||
char domain[100], filename[500], bestname[500];
|
||||
char *hisdomain, *mapbuf;
|
||||
int matchlen = 0, hislen, thislen, i, c, fd;
|
||||
struct stat st;
|
||||
|
||||
chdir(BASEDIR);
|
||||
|
||||
printf("Content-type: text/html\n");
|
||||
|
||||
/*
|
||||
* Get the remote domain name and make it lower case.
|
||||
*/
|
||||
hisdomain = getenv("REMOTE_HOST");
|
||||
if (hisdomain == NULL)
|
||||
hisdomain = strdup("com");
|
||||
hislen = strlen(hisdomain);
|
||||
for (i = 0; i < hislen; i++)
|
||||
hisdomain[i] = tolower(hisdomain[i]);
|
||||
|
||||
/*
|
||||
* Now read list entries and find the filename with the longest
|
||||
* matching domain name.
|
||||
*/
|
||||
fp = fopen(LISTFILE, "r");
|
||||
if (fp)
|
||||
{
|
||||
/* First entry is the default filename. */
|
||||
fscanf(fp, "%s %s", domain, bestname);
|
||||
|
||||
while (fscanf(fp, "%s %s", domain, filename) > -1)
|
||||
{
|
||||
thislen = strlen(domain);
|
||||
if (thislen > matchlen && thislen <= hislen)
|
||||
{
|
||||
if (! strcmp(domain, hisdomain+hislen-thislen))
|
||||
{
|
||||
strcpy(bestname, filename);
|
||||
matchlen = thislen;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
fclose(fp);
|
||||
}
|
||||
else
|
||||
strcpy(bestname, ERRORFILE);
|
||||
|
||||
printf("Location: http://%s/lurk/%s\n\n", getenv("SERVER_NAME"),
|
||||
bestname);
|
||||
}
|
||||
|
|
@ -1,129 +0,0 @@
|
|||
/*
|
||||
* Select an episode list to show based on a control file.
|
||||
*/
|
||||
|
||||
#define LISTFILE "/home/koreth/lurk/internal/domainlist"
|
||||
char * BASEDIR = "/home/koreth/lurk/";
|
||||
#define ERRORFILE "/home/koreth/lurk/internal/dom-error.html"
|
||||
|
||||
#include <stdio.h>
|
||||
#include <string.h>
|
||||
#include <ctype.h>
|
||||
#include <sys/types.h>
|
||||
#include <sys/stat.h>
|
||||
#include <sys/mman.h>
|
||||
#include <fcntl.h>
|
||||
|
||||
char *getenv();
|
||||
|
||||
main()
|
||||
{
|
||||
FILE *fp;
|
||||
char domain[100], filename[500], bestname[500];
|
||||
char *hisdomain, *mapbuf;
|
||||
int matchlen = 0, hislen, thislen, i, c, fd;
|
||||
struct stat st;
|
||||
|
||||
chdir(BASEDIR);
|
||||
|
||||
printf("Content-type: text/html\n");
|
||||
|
||||
/*
|
||||
* Get the remote domain name and make it lower case.
|
||||
*/
|
||||
hisdomain = getenv("REMOTE_HOST");
|
||||
if (hisdomain == NULL)
|
||||
hisdomain = strdup("com");
|
||||
hislen = strlen(hisdomain);
|
||||
for (i = 0; i < hislen; i++)
|
||||
hisdomain[i] = tolower(hisdomain[i]);
|
||||
|
||||
/*
|
||||
* Now read list entries and find the filename with the longest
|
||||
* matching domain name.
|
||||
*/
|
||||
fp = fopen(LISTFILE, "r");
|
||||
if (fp)
|
||||
{
|
||||
/* First entry is the default filename. */
|
||||
fscanf(fp, "%s %s", domain, bestname);
|
||||
|
||||
while (fscanf(fp, "%s %s", domain, filename) > -1)
|
||||
{
|
||||
thislen = strlen(domain);
|
||||
if (thislen > matchlen && thislen <= hislen)
|
||||
{
|
||||
if (! strcmp(domain, hisdomain+hislen-thislen))
|
||||
{
|
||||
strcpy(bestname, filename);
|
||||
matchlen = thislen;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
fclose(fp);
|
||||
}
|
||||
else
|
||||
strcpy(bestname, ERRORFILE);
|
||||
|
||||
/*
|
||||
* Output the file in question.
|
||||
*/
|
||||
fd = open(bestname, 0);
|
||||
if (fd < 0)
|
||||
fd = open(ERRORFILE, 0);
|
||||
if (fd < 0)
|
||||
{
|
||||
err:
|
||||
printf("\n<html><body><h1>Fatal error!</h1>\n");
|
||||
printf("Can't find an episode list.</body></html>\n");
|
||||
exit(0);
|
||||
}
|
||||
|
||||
if (fstat(fd, &st))
|
||||
goto err;
|
||||
|
||||
#if defined(MAP_FAILED) && defined(MAP_SHARED) /* { */
|
||||
mapbuf = mmap(NULL, (size_t) st.st_size, PROT_READ,
|
||||
MAP_SHARED, fd, (off_t) 0);
|
||||
if (mapbuf == MAP_FAILED)
|
||||
{
|
||||
perror("eplist: mmap");
|
||||
goto err;
|
||||
}
|
||||
|
||||
close(fd);
|
||||
|
||||
printf("Content-length: %lu\n\n", (unsigned long)st.st_size);
|
||||
fflush(stdout);
|
||||
|
||||
write(1, mapbuf, (unsigned long)st.st_size);
|
||||
|
||||
#else /* }{ */
|
||||
printf("Content-length: %lu\n\n", (unsigned long)st.st_size);
|
||||
|
||||
fp = fdopen(fd, "r");
|
||||
while ((c = getc(fp)) != EOF)
|
||||
putchar(c);
|
||||
fclose(fp);
|
||||
fflush(stdout);
|
||||
#endif /* } */
|
||||
|
||||
close(1);
|
||||
|
||||
{
|
||||
char *c, *val;
|
||||
|
||||
val = getenv("HTTP_USER_AGENT");
|
||||
for (c = val; *c; c++)
|
||||
if (*c == '/')
|
||||
*c = '#';
|
||||
|
||||
chdir("/home/woodstock/koreth/browsers");
|
||||
fd = open(val, O_RDWR | O_APPEND | O_CREAT, 0644);
|
||||
write(fd, val, 1);
|
||||
close(fd);
|
||||
}
|
||||
|
||||
exit(0);
|
||||
}
|
||||
Loading…
Reference in New Issue