#include "mod_ptt.h"
#include <time.h>
#include <math.h>
#define KUSERINFO "$userinfo$"
#define KUSERID "$userid$"
#define KUSERNAME "$username$"
#define KUSERMONEY "$usermoney$"
#define KTIMEYEAR "$timeyear$"
#define KTIMEMONTH "$timemonth$"
#define KTIMEMDAY "$timemday$"
#define KTIMEWEEK "$timeweek$"
#define KSERVERTIME "$servertime$"
#define KTIMEHOUR "$hour$"
#define KTIMEMINUTE "$minute$"
#define KTIMESECOND "$second$"
#define KMSGONLOAD "$MSGonLoad$"
#define KFCSONLOAD "$FCSonLoad$"
#define KHTMLTITLE "$HTMLtitle$"
#define KSCROLLTITLE "$SCROLLtitle$"
#define KBGCOLOR "$BGCOLOR$"
#define KBGSOUND "$BGSOUND$"
#define KINCHTML "$file:"
char *
ap_parseline(request_rec *r, const char *str, char *str_substiute[]) {
int i, off=0;
char *strbuf, *po;
pool *p = r->pool;
strbuf = pstrdup(p, str);
if(str_substiute == NULL) return strbuf;
for(i=0; str_substiute[i]!=NULL; i+=2)
{
off = 0;
while(po = strstr(strbuf + off, str_substiute[i]))
{
*po = 0;
strbuf = pstrcat(p, strbuf, str_substiute[i+1] !=NULL
? str_substiute[i+1] : "", po+strlen(str_substiute[i]), NULL);
off += str_substiute[i+1] ? strlen(str_substiute[i+1]) : 0;
}
}
return strbuf;
}
char *
ap_standard_parseline(request_rec *r, char *str)
{
time_t now = time(NULL);
pool *p = r->pool;
char *str_substiute[]= // 關鍵字的代換表
{
KUSERID, "ptt",
KUSERNAME, "name",
/*
KTIMEYEAR, whatyear(p,&now),
KTIMEMONTH,whatmonth(p,&now),
KTIMEMDAY, whatday(p,&now),
KTIMEWEEK, whatweek(p,&now),
KSERVERTIME, whattime(p,&now),
KTIMEHOUR, whathour(p,&now),
KTIMEMINUTE, whatminute(p,&now),
KTIMESECOND, whatsecond(p,&now),
*/
KUSERINFO, NULL,
KUSERMONEY, "100",
NULL,NULL
};
return ap_parseline(r, str, str_substiute);
}
int
ap_showfile(request_rec *r, char *filename, char *table[], char *t2[], FILE *fo)
{
pool *p = r->pool;
FILE *fp = pfopen(p, filename, "r");
char *str, *incfile, buf[512];
if (!fp) {
#if DEBUG
rputs(filename, r);
#endif
return -1;
}
while (fgets(buf, 512, fp))
{
str = ap_standard_parseline(r,
ap_parseline(r,
ap_parseline(r, buf, table),
t2));
if ((incfile = strstr(str, KINCHTML)) != NULL) {
incfile += strlen(KINCHTML);
incfile = strtok(incfile, "$");
#if 0
if (*incfile != '/')
incfile = ap_pstrcat(p, TEMPLATEDIR "/", incfile, NULL);
#endif
ap_showfile(r, incfile, table, t2, fo);
} else if(fo) fputs(str, fo);
else rputs(str, r);
}
pfclose(p, fp);
return 0;
}
char *
add_href(pool *p, char *l)
{
char *href[] = {"http://", "ftp://", "gopher://", "file://",
"telnet://", "mailto:", NULL},
*end, url[PATHLEN], *tl, *po;
int i, urllen, off;
tl = pstrdup(p, l);
for(i=0; href[i]!=NULL; i++)
{
off = 0;
//Ptt: while 應該用 while 但 while 有bug
if((po = strstr(tl + off, href[i])))
{
for(end = po; (*end>='&' && *end<='z')||*end=='~' ; end++);
urllen = end - po;
if(urllen > PATHLEN)
{
off += PATHLEN; continue;
}
strncpy(url, po, urllen);
*po= 0;
url[urllen] = 0;
tl = psprintf(p, "%s<a href=\"%s\" target=\"%s\">%s</a>%s", tl,
url, "new", url, end);
off += 2 * urllen + 15;
}
}
return tl;
}
/*
format:
char *name, void *ptr, size_t length
char *name, int *ptr, -1
char *name, char **ptr, 0
*/
int
GetQueryDatas(request_rec *r, int **table)
{
int rc, i, match=0, dlen, maxlen;
char *name, *value, *str;
pool *p = r->pool;
for(i=1; table[i]!=NULL; i+=3)
{
if((int) table[i+1]) *table[i]=0;
else (char *) (*table[i]) = pstrdup(p, "");
}
do
{
if((rc = unescape(r, &name, &value))<0) break;
for(i=0; table[i]; i+=3)
{
if(!strcmp((char *)table[i], name)) break;
#if 0
/* SiE990313 test: 抓 未定義的變數 */
if(!strcmp((char *)table[i], "$SPARE$"))
{
(char *) (*table[i + 1]) = pstrdup(p, name);
continue;
}
#endif
}
if(table[i] && table[i+1])
{
if((maxlen = (int) table[i+2]) > 0)
{
if(!*value) continue;
dlen = strlen((char *)table[i+1]);
str = ap_escape_html(p, value);
if(maxlen > dlen)
strexam(
strncat((char *)table[i+1],str,maxlen-dlen)
);
}
else if((int) table[i+2] == 0) // for file upload
{
// str = ap_escape_html(p, value);
//if(value)
(*table[i+1]) = (int) value;
// else (*table[i+1]) = (int) pstrdup(p,"");
}
else
{
if(!*value) continue;
*(table[i+1]) += atoi(value);
}
match++;
}
} while(rc>0);
return match;
}
int
ap_url_redirect(request_rec *r, char *url)
{
r->status = REDIRECT;
ap_table_setn(r->headers_out, "Location", pstrdup(r->pool, url));
return MOVED;
//return REDIRECT, MOVED 或 HTTP_SEE_OTHER 都可
}
char *
pint2str(pool* p, int c)
{
return ap_psprintf(p,"%d",c);
}
char*
preplace(request_rec *r, char* src, char* sig, char* rep)
{
char *ptr;
int siglen=strlen(sig), off=0;
while((ptr = strstr(src+off,sig)))
{
*ptr = 0;
src = pstrcat(r->pool, src, rep, NULL);
off = strlen(src);
src = pstrcat(r->pool, src, ptr+siglen, NULL);
}
return src;
}
int
hex2dig(char *str)
{
int base,ret=0,i,len=strlen(str);
for(i=0; i<len; i++)
{
if(str[i]>='a' && str[i]<='f') base = str[i]-'a'+10;
else if(str[i]>='A' && str[i]<='F') base = str[i]-'A'+10;
else if(str[i]>='0' && str[i]<='9') base = str[i]-'0';
else return -1;
ret += base*pow(16,len-i-1);
}
return ret;
}
char *
pstrncpy(pool* p, char tmp[], int n)
{
char *ptr;
ptr=pstrdup(p,tmp);
*(ptr+n)=0;
return psprintf(p,"%s",ptr);
}
char *
GetPathToken(request_rec *r, int count)
{
char *str, *token, *sepr = "/\\?&";
int i;
str = pstrdup(r->pool, r->path_info + 1);
token = strtok(str, sepr);
for( i = 1 ; i < count; i++)
{
token = strtok(NULL, sepr);
if(!token) return "-1"; /* Heat:count超過也要考慮 */
}
return token;
}
/*
個人信件夾檔保管方式:
mail/@/rec/FF/F/UUDDTT
mail/@/dat/FF/F/UUDDTT
*/
