\include{dml.htc}
\def{dmled.init}{xx}{
  %{listname}{address}
  \dml.init{\1}{\group}{\npwd}{\server\npwd};
  \reconst{dml.address}{\2};
  \sort{DML}{INDEX}{>}
}
\def{dmled.page}{}{
  \cond{T.find}{}
  \cond{T.msg}{0}
  \title{Database Mailing List (\dml.listname)}
  \db{DML}{
    \form{
      \table{width=100% bgcolor=#dddddd}{
        \tr{valign=top}{
          \td{
            <select name=dummy size=6>
            [tf:=\T.find];
            \query(
              (tf eq "" ||SUBJECT cntn tf||AUTHOR cntn tf||BODY cntn tf)&&
              (!PROTECT||\user.allow(\dml.group)(TIME))
            ){
              \option{\if(INDEX==\T.msg){ selected }}(INDEX){
                [INDEX] - \sub(SUBJECT){0}{30}
                \su(AUTHOR){\[\user.name\]}; (\time2htc(TIME))
                \if(count ATTACH){\[attach\]}
              }
            }
            </select>
          }
          \td{
            \button{View}<br>
            \button{Reply}<br>
            \button{New}
          }
        }
        \tr{valign=top}{
          \td{
            \input{find}{60}{\T.find}
          }
          \td{
            \button{Search}
          }
        }
      }            
    }
    \find.rec{\T.msg}{
      \if(!PROTECT||\user.allow(\dml.group)(TIME)){
        \table{width=100% bgcolor=#dddddd}{
          \tr{
            \th{align=left}{[INDEX] - [SUBJECT]}
            \td{align=right}{
              \find.rec(PARENT){
                \if(!PROTECT||\user.allow(\dml.group)(TIME)){
                  \bf{Prev:}
                  \href{\this?msg=[INDEX]}{[INDEX] - \sub(SUBJECT){0}{30}}
                  \su(AUTHOR){\[\user.name\]}
                }
              }
            }
          }
          \tr{
            \td{align=left}{
              \su(AUTHOR){
                \user.name \lt;\href{mailto:\user.email}{\user.email};\gt
              }
            }
            \td{align=right}{
              \time2htc(TIME)
            }
          }
          \tr{
            \td{align=left colspan=2}{
              \htmlize(BODY)
            }
          }
          \if(count ATTACH){
            \tr{
              \td{align=left colspan=2}{
                \forall{i}(ATTACH){
                  \href{\npwd/attach/[i]}(i)\n
                }
              }
            }
          }
          \tr{
            \td{align=left colspan=2}{
              [idx:=INDEX];
              \query(PARENT==idx&&(!PROTECT||\user.allow(\dml.group)(TIME))){
                \bf{Next:}
                \href{\this?msg=[INDEX]}{[INDEX] - [SUBJECT]}
                \su(AUTHOR){\[\user.name\]}
                <br>
              }
            }
          }
        }
      }
    }
  }
}
\def{dmled.onpost}{}{
  \switch{\T.cmd}
  {View}{
    \redirect{\server\this?msg=\T.dummy}
  }
  {Reply}{
    \redirect{\server\this}
    \db{DML}{
      \find.rec{\T.dummy}{
        \if(!PROTECT||\user.allow(\dml.group)(TIME)){
          \redirect{
            mailto:\dml.address?subject=Reply \dml.listname\[[INDEX]\] [SUBJECT]
          }
        }
      }
    }
  }
  {New}{
    [node:=\on.glob{T.dummy}{\T.dummy}{1}];
    \redirect{mailto:\dml.address?subject=New \dml.listname\[[node]\] (no subject)}
  }
  {
    \on.glob{T.find}{
      \redirect{\server\this?find=\encode{\T.find}}
    }
  }
}