#!/bin/sh

export DATE="14.8.2007";SCRIPT=${0#/rom}
export TITLE="Admin: Publish"
. ${SCRIPT%/*}/cgi-bin-pre.sh

cat<<EOF
<H1>Admin: Publish</H1>
EOF

if [ "$REQUEST_METHOD" != "POST" ]; then

cat<<EOF
<FORM ACTION="webpages.html" ENCTYPE="multipart/form-data" METHOD="POST">
<TABLE CLASS="shadow0" CELLPADDING="0" CELLSPACING="0"><TR><TD><TABLE CLASS="shadow1" CELLPADDING="0" CELLSPACING="0"><TR><TD><TABLE CLASS="shadow2" CELLPADDING="0" CELLSPACING="0"><TR><TD><TABLE BORDER="0" CLASS="form"
TITLE="Browse for the *.tar, *.tgz or *.tar.gz archive file containing the new web pages. Or choose an intro.jpg file for the main page picture.">
<TR>
<TD>Web page archive (*.tar)
or intro.jpg:</TD>
</TR>
<TR>
<TD><INPUT NAME="webfile" SIZE="32" TYPE="FILE" VALUE="Browse..."></TD>
</TR>
<TR>
<TD>&nbsp;</TD>
</TR>
<TR>
<TD><INPUT NAME="post_web" TITLE="Upload the specified web-page file. The web-pages are visible immediately." TYPE="SUBMIT" VALUE="Upload web pages">&nbsp;&nbsp;&nbsp;<INPUT NAME="post_abort" TITLE="Cancel dialog page." TYPE="SUBMIT" VALUE="Cancel"></TD>
</TR>
</TABLE></TD></TR></TABLE></TD></TR></TABLE></TD></TR></TABLE></FORM>
<H2>Creating web pages</H2>
<P>With
the micro-authoring system included with this firmware, it is quite easy
to customize the web pages on this device or add new ones. With the
operating system Windows, you need to install two additional programs: The
script language <A HREF="http://www.perl.org/">Perl</A> and an archive
program to pack TAR archives (e.g. <A HREF="http://www.ultimatezip.de/">UltimateZip</A>).
A standard Linux normally has this software included already.</P>
<H3>Functioning</H3>
<P>A
perl script (template.pl) will read in an HTML template file
(template.html) looking for the character string &quot;%BODY%&quot;. Next,
the perl script will read all other HTML files in the current directory
successively extracting the part between &lt;BODY&gt; and &lt;/BODY&gt;.
The extracted HTML code is then injected into the template at the %BODY%
position and the outcome will be written to a new directory (./out-en/).
</P>
<P>Referenced
files (e.g. images) are copied by the perl script into the new directory
as well. The character string &quot;$(echo -n %)DATE%&quot; is replaced by
the date/time stamp of the source file. The character string &quot;$(echo -n %)TITLE%&quot; is replaced bye the first H1 headline found in the
source file.</P>
<P>If the filename of the source
file starts with &quot;cgi-bin&quot; appropriate shell commands will be
inserted for web server execution. Own shell commands can be written
between &lt;SCRIPT LANGUAGE=&quot;shell&quot;&gt;&lt;/SCRIPT&gt; tags into
the source file. During web server execution shell variables will be
resolved in the standard way. Examples: &quot;\$PWD&quot; will output
$PWD, &quot;\$(ls /tmp)&quot; will list the directory contents of /tmp.
</P>
<P LANG="s">The
resulting destination directory (./out-en/) is then packet with all
subdirectories into a TAR-, TGZ- or TAR.GZ archive. The archive file can
be uploaded via this admin page. Existing pages (such as these admin
pages) are not deleted during this process.</P>
<H3>Brief
Manual</H3>
<OL>
<LI>Fetch
the authoring packet <A HREF=""></A>.</LI>
<LI>Extract
the files to a new directory (Linux: &quot;tar -xvf ff-pubpak*.tar&quot;).</LI>
<LI>
Start
the perl script: (Linux:
EOF

echo 'cd ff-pubpak; perl template.pl -x "/index.html" -S xx; ls out-xx'

cat<<EOF
).</LI>
<LI>Create an archive file
from the output directory (Linux: &quot;tar -cvf out-en.tar out-en&quot;).</LI>
<LI>Upload
the new archive file out-en.tar with this admin page.</LI>
<LI>Change
HTML source files and repeat from step 3.</LI>
</OL>
<P STYLE="display:none"><B>Please
note</B>: In the authoring packet, two symbolic links are not included
which are available in the /www directory of the device anyway. The
warning messages &quot;No ./netperf, No ./netserver&quot; are normal and
will simply indicate these facts.</P>
<P><B>Notes
for Windows users</B>: If the programs &quot;tar&quot; and &quot;perl&quot;
are installed, the Linux commands will be accepted in the windows command
prompt as well. You need to replace the &quot;/&quot; character with the
backslash (&quot;\&quot;). The perl script can be executed also by double
clicking the file name &quot;template.pl&quot;.</P>
<H3>Tips</H3>
<P>Write valid HTML and close open &lt;Tags&gt;
with &lt;/Tags&gt;. Use a validating HTML editor or use a text editor with
a some discipline.</P>
<P>Add a link to a new
page to the template.html file. Copy one of the existing table rows (e.g.
&lt;TR&gt;... Status ...&lt;/TR&gt;) and change the tag &lt;A HREF=&quot;&quot;&gt;
and the text. It may be necessary to widen the left navigation bar. Search
and change the WIDTH=&quot;150&quot; attributes to the desired width.</P>
<P>A
new subdirectory will also need a new template.html. The perl script will
read in separate templates for each subdirectory. To save space, change
references to existing images such as &quot;../images/&quot;.</P>
<P>The
TAR archive will be examined in order to cut out additional subdirectories
in the archive file.</P>
<P>Multi-language
support may be added with &lt;SPAN LANG=&quot;xx&quot;&gt; tags. Also
TITLE, ALT and VALUE attributes are scanned for the &quot;All
languages!xx:Text for language A!yy:Text for language B&quot; pattern. The
perl script accepts a parameter to filter out the desired language.</P>
EOF

elif ! ffout=$(./freifunk-upload 2>&1); then

cat<<EOF
<TABLE BORDER="0" CLASS="note">
<TR>
<TD>$ffout</TD>
</TR>
</TABLE>
<P>Web page
upload was aborted.</P>
EOF

elif [ -n "$ffout" ]; then

cat<<EOF
<P>Unpacking
web pages.</P>
EOF

echo "<PRE>"
if [ "${ffout##*/}" = "intro.jpg" ]; then
set -x
rm -f /www/images/intro.jpg
mv "$ffout" /www/images
set +x
else
zflag=
if [ -z "${ffout##*.tar.gz}" ] || [ -z "${ffout##*.tgz}" ]; then
zflag=-z
fi
tardir=$(tar $zflag -tvf "$ffout"|if read line;then if [ "-" != $(echo $line|dd bs=1 count=1 2>&-) ];then set $line;echo $6;fi;fi)
mkdir /tmp/wwwtmp.$$/
tar -C /tmp/wwwtmp.$$/ $zflag -xf "$ffout"
rm -f "$ffout"
chmod +x /tmp/wwwtmp.$$/$tardir/cgi-bin*>/dev/null 2>&1
chmod +x /tmp/wwwtmp.$$/$tardir/cgi-bin/*>/dev/null 2>&1
tar -cC "/tmp/wwwtmp.$$/$tardir" .| tar -xvC /www/
rm -rf /tmp/wwwtmp.$$/
fi
echo "</PRE>"
else

cat<<EOF
<TABLE BORDER="0" CLASS="note">
<TR>
<TD>No web page archive
received.</TD>
</TR>
</TABLE>
<P>Web
page upload was cancelled.</P>
EOF

fi

. ${SCRIPT%/*}/cgi-bin-post.sh