\const{HEIGHT.head}{40}
\const{HEIGHT.foot}{32}
\const{COLOR.private}{#ffffcc}
\const{COLOR.public}{#ffffff}
\const{COLOR.special}{#cccccc}
\const{COLOR.grayed}{#999999}
\def{page}{r}{
\if("GET HEAD" which \req.method){
\output{
\body{bgcolor=\if(\group ne ""){\COLOR.private}{\COLOR.public}}{
\1
}
}
}
}
\def{show.head}{}{
\server.alias\uri
}
\def{show.page}{}{
\nif(\req.useragent cnt "Mozilla"){\resp.cont.type.charset{}};
\switch(stat.MIME)
{text/x-htc}{
\if(stat.MOD&1){
\parse.public(stat.REFER)
}{
\if(stat.MOD&8){
\parse.private(stat.REFER)
}{
\parse(stat.REFER)
}
}
}
{text/x-htx}{
\show.latex(stat.REFER)
}
{text/html}{
\resp.cont.type(stat.MIME);
\output{\minilang{\load(stat.REFER)}}
}
}
\def{show.rawpage}{}{
\resp.cont.type(stat.MIME);
\output{\load(stat.REFER)}
}
\def{show.srcpage}{}{
\resp.cont.type{text/plain}
\nif(\req.useragent cnt "Mozilla"){\resp.cont.type.charset{}};
\output{
\switch(stat.MIME)
{text/x-htc}{
\%/SRC\uri HTC/1.2 Last modified \time2http(stat.LASTMOD)
}
{text/html}{
\%/SRC\uri HTML Last modified \time2http(stat.LASTMOD)
}
{text/x-htx}{
\%/SRC\uri HTX/1.2 (LaTeX) Last modified \time2http(stat.LASTMOD)
}
\load(stat.REFER)
}
}
\def{show.banner}{}{
\ldef{shist}{x}{
\find.rec{\1}{
\if(count BANNER){
[ban:=rest BANNER]\run.local{ban}
}{
\if(count PARENT){\shist(PARENT)}
}
}
};
\db{TREE}{\shist(stat.URI rleftand "/")}
}
\def{calc.height}{}{
\ldef{chist}{x}{
\find.rec{\1}{
\if(count BANNER)(first BANNER){\if(count PARENT){\chist(PARENT)}{\HEIGHT.head}}
}{
\HEIGHT.head
}
};
\db{TREE}{\chist(stat.URI rleftand "/")}
}
\def{page.header}{}{
\ldef{hist}{x}{
\find.rec{\1}{
\if(count PARENT){\hist(PARENT)};
\if(URI eq uri){\run.local{ALIAS}}{\href{\andlang;[URI]}{\run.local{ALIAS}}}>
}
}
\page{
\show.banner
\table{width=100% border=0 cellspacing=0 cellpadding=0 bgcolor=\COLOR.special}{
\tr{valign=top align=left}{
\td{width=60%}{
\font{size=3}{
[uri:=stat.URI;dir:=uri rleftand "/";n:=0];
\db{TREE}{
\hist(dir);
\query(PARENT eq dir && URI ne "/"){
\if{\user.allow(X.CLEAR){\now}}{
\if(n){|}[n+=1]\if(URI eq uri){
\run.local{ALIAS}
}{
\href{\andlang;[URI]}{\run.local{ALIAS}}
}
}
}
}\space;
}
};
\td{width=40% align=right}{
\font{size=3}{
\if{\user.id}{\user.name}{\lang{Anonymous}{Anonym}}, \time2htc{\now}
}
}
}
}
}
}
\def{show.icons}{}{}
\def{page.footer}{}{
\output{
\body{bgcolor=\COLOR.special}{
\table{width=100% border=0 cellspacing=0 cellpadding=0 bgcolor=\COLOR.special}{
\td{valign=top align=left}{
\iref{mailto:\server.admin}{\icons/mail.gif}
\if{\user.id}{
\iref{/LOGOUT\uri\andarg}{\icons/logout.gif}
}{
\iref{/LOGIN\uri\andarg}{\icons/login.gif}
}
\on.clear{ADM}{
\iref{\andlang/HTC/admin.htc}{\icons/adm.gif}
}
\iref{
\lang{/sv}{/en}[stat.URI]
}{
\icons/lang.gif
}
\if{\user.id}{
\iref{\andlang/HTC/prefs.htc}{\icons/prefs.gif}
}
\iref{/SRC[stat.URI]}{\icons/source.gif}
[acc:=\upload.clear(stat.URI)]\if((first acc) ne "ROOT"){
\on.clear(acc){
\iref{\server/RAW[stat.URI]}{\icons/transfer.gif}
}
}
\show.icons;
}
\td{valign=center align=right}{
HTCd/1.2 \[\lang{en}{sv}\] \time2htc(stat.LASTMOD)
}
}
}
}
}
\redef{show.register}{}{
\lang{
If your are not a registered user, register first.
}{
Om du inte {\"a}r en registrerad anv{\"a}ndare,
registrera dig f{\"o}rst.
}
}
\def{page.login}{}{
\cond{T.alias}{}
\page{
\h1{\server.alias Login}
\if{\user.id}{
\lang{
You are logged in as \user.name; (\user.alias).
}{
Du {\"a}r inloggad som \user.name; (\user.alias).
}
\href{\referer}{\lang{Continue}{Forts{\"a}tt}}
}{
\lang{
This server contains information only accessible to registered users.
Each registered user receives a user ID and a PIN code.
}{
Den h{\"a}r servern inneh{\aa}ller information som bara {\"a}r
tillg{\"a}nglig f{\"o}r registrerade anv{\"a}ndare.
Varje registrerad anv{\"a}ndare erh{\aa}ller ett anv{\"a}ndar-ID
och en PIN-kod.
};
\show.register;
\lang{
To login, enter your email address and PIN code below.
\it{DO NOT} enter your unix password!
}{
F{\"o}r att logga in, fyll i din epostadress och PIN kod nedan.
An{\"a}nd \it{EJ} ditt unix passord!
};
[remcookie:=0;email:=\T.alias];
\for(i:=0)(i<\ncookie)(i+=1){
\if(\cookie[i].name eq "RESEND"){
[remcookie=1;email=\cookie[i].val];
\font{color=red}{
\lang{E-mail has been sent to }{E-post har skickats till }[email]
(\lang{provided user exist}{f{\"o}rutsatt anv{\"a}ndaren existerar})
}
}
};
\form{
\variable{remcookie}(remcookie);
\variable{ref}{\referer};
\table{
\tr{
\td{\lang{E-mail (or alias)}{E-post (eller alias)}:}
\td{\input{email}{28}(email)}
};
\tr{
\td{PIN:}
\td{
\passwd{pin}{6}
}
};
\tr{
\td{colspan=2}{
\check{T.keep}{\endtime}
\lang{
Keep me logged in by storing to disk
}{
H{\aa}ll mig inloggad genom att spara till disk
};
}
};
\tr{
\td{colspan=2}{
\button{Login}
\button{Forgot my PIN code}
\button{Assign a new (4 digit) PIN code}
}
}
}
}
\h3{\lang{Nota bene}{Observera}}
\li{
\lang{
You must allow a COOKIE containing your user ID and
PIN code to be set. If you normally do not allow cookies,
you need to make an exception in this case, or by some other
means arrange for the cookie to be set.
If you don't know what a cookie is, you can probably ignore
this paragraph.
}{
Du m{\aa}ste till{\aa}ta s{\"a}ttning av en COOKIE med
ditt anv{\"a}ndar-ID och PIN-kod. Om du normalt inte till{\aa}ter
"kakor", m{\aa}ste du antingen g{\"o}ra ett undantag i det
h{\"a}r fallet, eller p{\aa} n{\aa}got annat s{\"a}tt
se till att kakan blir satt p{\aa} r{\"a}tt s{\"a}tt.
Vet du inte vad en kaka {\"a}r, kan du troligtvis bortse
fr{\aa}n denna paragraf.
}
};
\li{
\lang{
If logging in from a 'shared' browser, don't forget to logout
properly when you're done. Otherwise, the person after you may
enter the server as you.
}{
Om du loggar in fr{\aa}n en 'delad' webbl{\"a}sare, gl{\"o}m
inte att logga ut dig ordentligt. Annars kan n{\"a}sta person
komma in p{\aa} servern som dig.
}
}
}
};
\onpost{
\cond{T.keep}{0};
\cond{T.uid}{\getuser{\T.email}};
\switch(first \T.cmd)
{Login}{
\log{SetID \[\T.uid.\T.pin\] (\T.keep)};
\setcookie{ID}{\T.uid.\T.pin}{\T.keep};
\if{\T.remcookie}{\setcookie{RESEND}{deleted}{1}};
\redirect{\T.ref};
}
{Forgot}{
\su{\T.uid}{
\mail.user{PIN code}{
Your PIN code is \user.pin.
/Admin
}
};
\if(\T.email ne ""){\setcookie{RESEND}{\T.email}};
\redirect{\server\this\andarg};
}
{Assign}{
\su{\T.uid}{
\if(\user.pin eq \T.pin){
\user.pin.set{\random{4}}\user.update;
\mail.user{New PIN code}{
Your new PIN code is \user.pin.
/Admin
}
}
};
\if(\T.email ne ""){\setcookie{RESEND}{\T.email}};
\redirect{\server\this\andarg};
}{
Don't understand "\T.cmd"
}
}
}
\def{page.logout}{}{
\setcookie{ID}{deleted}{1};
\resp.cont.type.charset{};
\redirect{\server/}
}
\def{layout}{}{
\if{\FRAMES}{
[cacheok=1;stat.X.CACHE=\days{14}];
\output{
\show.head;
}
}{
\resp.cont.type.charset{};
\output{\show.head};
\page.header;
\output{
};
\show.page;
\output{
};
\page.footer
}
}
\def{show.latex}{x}{
\parse.public{\1}
}