Version 17 of Webadmin for Metakit with Tclhttpd

10/22/2003 Stefan Vogel

I just wanted to get familar with metakits. So I build up a very simply but still useful (at least for me) Webadministration-Interface for MetaKit.

This webadministration Metakit@Web works with Tclhttpd.

With Metakit@Web (Version 0.2) you can:

create metakit-database-files
create, modify, delete views
create, edit, delete rows
view binaries
test queries ...

Installation is quite simple (as always with Tclhttpd):

Extract the following script or download it from http://www.vogel-nest.de/tcl
Copy the script "mkweb.tcl" to your tclhttpd-custom-directory (may be you have to patch your Tclhttpd so that custom-files are read: http://sourceforge.net/tracker/index.php?func=detail&aid=635083&group_id=12884&atid=112884 )
Create a directory where you place your metakits (let's say: /metakits or c:/metakits)
Adapt the directory in mkweb.tcl (e.g. set the array aConfig(databaseDir) to /metakits or c:/metakits)
restart Tclhttpd
Go to http://<yourdomain>/mkweb

Attention

This Webadmin-interface was developed only for me and my local installation of Tclhttpd.

Currently there is no security implemented! Everyone who can access your webserver can access your metakits!!
Only one user at a time should access Metakit@Web because the configuration-values are globally set (no sessions). Maybe someone wants to make this script session-aware?
Be sure that no spider follows the links on the page (the delete-operation is available as a link, so be careful).

Next steps/Missing features:

subviews are not handled correctly
make it session-aware

You've been warned. But now ... have fun:

... Script removed ...

10/23/2003 Stefan Vogel O.k. even though the complete Webadministration of Metakits was only about 600 LoC, it's a little bit to much for the Wiki. You can download the script "mkweb.tcl" (currently Version 0.2) from:

http://www.freewebs.com/vogel-nest/tcl/

Wow! -jcw

rmax - This looks very nice indeed!

But I keep getting the following error whenever I invoke a link, that changes anything (creating/deleting databases, modifying views, adding rows, etc.):

[Stack trace and further discussion deleted]

The following patch fixes redirection. Feel free to remove it from here once you have applied it.

 --- mkweb.tcl.orig
 +++ mkweb.tcl
 @@ -630,7 +620,7 @@
 proc metakit::web::ReturnResult {result {redirect ""}} {
     variable aConfig
     if {$redirect != ""} {
 -        Httpd_RedirectSelf /$aConfig(prefix)/$redirect $::env(sock)
 +       return -code 302 /$aConfig(prefix)/$redirect
     } else {
         return [generateHtml $result]
     }

Of course the Cgi_SetEnvAll trick can also be removed after applying this.

[ Category Tclkit | Category Database | Category Internet ]