AOLserver Wiki - User contributions [en]

https://panoptic.com/mediawiki/aolserver/api.php?action=feedcontributions&feedformat=atom&user=Juanjose AOLserver Wiki - User contributions [en] 2026-04-22T04:25:59Z User contributions MediaWiki 1.34.2 https://panoptic.com/mediawiki/aolserver/index.php?title=AOLserver_Cookbook&diff=5115 AOLserver Cookbook 2008-01-10T16:49:10Z

<p>Juanjose: </p> <hr /> <div>A collection of questions, and code examples to answer them.<br /> <br /> Add your questions here. Answers should be placed below the question. Place a horizontal line ("----") between questions. Please keep this text before the first question.<br /> <br /> __TOC__<br /> <br /> ----<br /> <br /> == Limiting bandwidth ==<br /> <br /> Is there a simple way to limit bandwidth per connection/ip???<br /> <br /> : There's no simple way of doing it, i.e., no configuration option you can set. If I had to implement this, I'd use NSV's and [[ns_register_filter]] to keep track of bandwidth consumed by each client IP which can act as an all-or-nothing mechanism. However, what might be interesting to implement in the socket driver is a setting to control the rate at which bytes are written back to the socket, perhaps configurable per request, so that large HTTP responses don't soak up your upstream bandwidth. We should keep this in mind for a future version of AOLserver. ''-- [[User:Dossy|Dossy]] 20:06, 4 November 2005 (EST)''<br /> <br /> One more question... How can I read output buffer inside function registered as postauth filter?<br /> And how can I stream it? ns_adp_puts cannot be used inside filters... ns_return would return all data at once. I assume that per connection limit would look like this:<br /> <pre><br /> proc ..... {<br /> ns_adp_stream<br /> set data [get output content buffer]<br /> set data_length [output buffer size]<br /> set block_size 4096<br /> for {set i 0} {$i < $data_length} {incr i $block_size} {<br /> send_to_client [string range $data [expr $block_size*$i] [expr $block_size*[expr$i+1]]]<br /> sleep 1<br /> }<br /> ns_returnok<br /> return filter_return<br /> }<br /> </pre><br /> I want to limit only one vhost so nssock limit would be too much;)<br /> <br /> : First, you don't want to turn [[ns_adp_stream]]'ing on. Getting the size of the ADP output buffer can be done using [[ns_adp_tell]] and getting the contents with [[ns_adp_dump]]. I guess you could [[ns_adp_trunc]] the output buffer to clear it, then slowly write the contents back using [[ns_write]]. You'd also then need to look at [[ns_conn]] '''outputheaders''' to make sure that you wrote the proper HTTP response ... ah, but I don't know if you can get the HTTP response status code somehow. I still think doing it in nssock is probably the best place, even with vhosts -- I'd make it a preauth or postauth filter that sets the configuration for the response and then have nssock be responsible for ensuring the response is written at that rate. ''-- [[User:Dossy|Dossy]] 07:24, 8 November 2005 (EST)''<br /> <br /> ns_adp_tell inside postauth filter:<br /> Error: This function cannot be used outside of an ADP<br /> what's more, i use ns_returnfile inside some adp code and if i use ns_adp_tell after it, it returns 0 (this adp only returns file, no adp_puts or write).<br /> Unfortunetly i think there is no other solution then implement it inside nssock or implement some tcl code to manipulate all output buffer.<br /> <br /> I use this code for big files... some time I'll add per ip limit, now it's for connection.<br /> <pre><br /> proc returnfile { file } { <br /> set filefp [open $file r] <br /> fconfigure $filefp -translation binary <br /> set data_length [file size $file] <br /> set block_size 4096 <br /> <br /> ns_write "HTTP/1.0 200 OK <br /> MIME-Version: 1.0 <br /> Content-Type: [ns_guesstype $file] <br /> Content-Length: $data_length <br /> <br /> " <br /> while { ! [eof $filefp] } { <br /> ns_writefp $filefp $block_size <br /> ns_sleep 1 <br /> } <br /> <br /> ns_conn close <br /> }<br /> </pre><br /> Paul Bukowski<br /> ----<br /> <br /> == Virtual server configuration ==<br /> <br /> Is it possible to use wildcard '*' in domain name inside "ns/module/nssock/servers" section of aolserver4 config file? I would like to map all requests to *.somedomain.org to one virtual host...<br /> Something like this doesn't work:<br /> <br /> ns_section "ns/module/nssock/servers"<br /> ns_param forum somedomain.org <br /> ns_param forum somedomain.org:80 <br /> ns_param forum *.somedomain.org <br /> ns_param forum *.somedomain.org:80<br /> ns_param forum "*.somedomain.org" <br /> ns_param forum "*.somedomain.org:80"<br /> <br /> -Paul Bukowski<br /> <br /> : ''2005aug15 [[Dossy]]: Unfortunately, no -- you currently can't use wildcards the way you want. Not yet, at least.''<br /> <br /> Why won't you get some code for mass virtual hosts from http://naviserver.sourceforge.net/ ??<br /> -PB<br /> <br /> : Right now, to map a request to its (virtual) server, there's an O(n) search being done, but it's a "cheap" exact string comparison. To implement glob-style wildcard support, it'll become a more expensive (but possibly still "cheap" by most people's standards) glob-match comparison. When you're serving "n" requests per second (where "n" is small) the difference in cost is probably immeasurable, but when "n" is large, the cost is additive and possibly significant. It might be good if someone could benchmark the two and see what the real cost is. ''-- [[User:Dossy|Dossy]] 20:12, 4 November 2005 (EST)''<br /> <br /> ----<br /> <br /> == Server-side Includes ==<br /> <br /> Does anyone have some code to implement apache-compatible SSI (Server-side includes)? I have some old pages that use SSI that I'd like to move to my aolserver install but I don't have the time to rewrite them as ADPs.<br /> <br /> : ''[[User:Dossy|Dossy]] 20:20, 4 November 2005 (EST)'': I make no representations or warranties about the safety (!) or correctness of the code I'm about to share, but it might get folks started on a proper implementation in the future. In particular, I didn't implement any commands other than "include" and I even implemented it "wrong" (not according to [http://hoohoo.ncsa.uiuc.edu/docs/tutorials/includes.html the specification]). If there's real interest in having a complete SSI implementation for AOLserver, I'd be willing to improve this code.<br /> <br /> <pre><br /> ns_log Notice "ssi: registering SSI ADP tags"<br /> <br /> proc ssi_include_tag {params} {<br /> set param_count [ns_set size $params]<br /> for {set i 0} {$i < $param_count} {incr i} {<br /> set ssi_var_[ns_set key $params $i] [ns_set value $params $i]<br /> }<br /> <br /> if [info exists ssi_var_file] {<br /> if {[ns_adp_argc] > 1} {<br /> set basedir [lindex [ns_adp_argv] 1]<br /> } else {<br /> set basedir [ns_adp_dir]<br /> }<br /> if [regexp {^/} $ssi_var_file] {<br /> set filename $ssi_var_file<br /> } else {<br /> set filename $basedir/$ssi_var_file<br /> }<br /> return [ns_adp_parse -file $filename $basedir]<br /> }<br /> }<br /> <br /> ns_register_adptag {!--#include} ssi_include_tag<br /> <br /> ns_log Notice "ssi: registering SSI ADP tags done"<br /> </pre><br /> <br /> ----<br /> <br /> Is there a way to see only the errors (for example - 'variable' xxx not found? I seem to remember 2 logs - servername.log and servername-error.log? The version I have now - aolserver 3.2/ad1.2 only seems to give us servername.log - and all the error messages are mixed with the normal msgs - its very hard to debug!<br /> [[dannyl50]]<br /> <br /> The default/example config file did not have entries for both logs. The two sections you need look like (in old style notation): <br /> <br /> [ns/parameters]<br /> User=nsadmin <br /> Group=nsadmin <br /> ServerLog=/var/log/aolserver/servername-error.log <br /> PidFile=/var/log/aolserver/nspid.servername<br /> Home=/usr/bin/aolserver-3.3ad13 <br /> <br /> and <br /> <br /> [ns/server/servername/module/nslog]<br /> File=/var/log/aolserver/emp.log <br /> LogCombined=On <br /> MaxBackup=3 <br /> RollFmt=%Y-%m-%d-%H:%M <br /> RollHour=0 <br /> RollOnSignal=On <br /> RollLog=On<br /> <br /> <br /> <br /> ----<br /> <br /> Howdy! Can someone tell me, in general terms, how they have implemented [[nsperm]]? It looks cool, but I am using a plain old database with names and passwords, and it is very easy. I would like the allow/deny functionality, can I have that without the username/password part? -- [[Ian Harding]]<br /> <br /> ''I've implemented [[nsperm]] to restrict access to specific URLs using HTTP authentication (the username/password dialog) and cookie-based (if they have the correct cookie, otherwise URL redirect them to a login page that may set the cookie).''<br /> ''The latter is done using a registered preauth filter. I chose to use [[nsperm]] over a database since [[nsperm]] (presumably) manages the authentication information in memory better than repeatedly hitting the database with authentication requests, but there's no reason''<br /> ''I couldn't have used a database to store username/password information. Does this answer your question?'' -- [[Dossy]]<br /> <br /> <br /> Pretty much, although I started writing my app before I understood AOLServer, so I have a rather strange design that is good in some ways, bad in others. Keep in mind that this is a low activity app, no more than 20 concurrent users right now. <br /> <br /> What I did was to create an [[ADP]] that has a big case statement. It calls functions to generate pages based on the 'task' value it is passed through POST. I have created a pretty complex app this way, not using [[ns_register_proc]] at all. I know now I should have. As I understand it, ns_register_proc lets you create a 'virtual' directory structure that actually just calls certain procedures based on the GET or POST requested URL. This is far more graceful than hitting my main adp which opens up the form data, looks at the 'task' value, and decides which procedures to call. <br /> <br /> Given this lame structure, each time someone requests the main adp, I just check for a valid cookie and generate a login page if it's not there. After that, I have to set another cookie that is their 'access rights' which is then checked from within the procs that generate the pages. If I was doing it right, I could have registered a proc that would fire for all URLs in my virtual tree, checking your rights to the particular URL you reqested, and redirecting you if you are not allowed, right? <br /> <br /> Thanks!!! -- [[Ian Harding]]<br /> <br /> ''I probably would've created an ADP per task, and then registered a preauth filter that checked for the cookie and redirected the user to the login page (outside the directory that the preauth filter covers''<br /> ''-- avoid funny redirection loops) if the cookie wasn't set properly.''<br /> ''If you don't want to create a separate ADP per task, you could have used ns_register_proc to create what you describe as "virtual pages" and still have the preauth filter kind of "sit in front" and handle the autehntication, keeping that logic seperate from your actual page generation code.'' -- [[Dossy]]<br /> <br /> I started with a separate adp for each task, but I thought it would get out of hand quickly. I do think I will re-work the thing to use ns_register_proc and even do away with the few adp I do have. It seems far easier to maintain. In the meantime, I have to re-write all my SQL Server procedures in PostgreSQL PL/Tcl. That's why I want the [[nsfreetds]] module so badly, it buys me a little time!<br /> <br /> Thanks for all your work! -- [[Ian Harding]]<br /> <br /> ----<br /> <br /> ''Speaking of [[nsfreetds]], did you try nsfreetds-0.1pre? Any luck? Any problems?'' -- [[Dossy]]<br /> <br /> I just now tried it. I installed freetds with no trouble, compiled nsfreetds, modified my nsd.tcl [[config file]], added the datasource to interfaces, and all seems fine, except for that I always get "no access to pool "mypool" while executing "ns_db gethandle mypool" ..."<br /> <br /> I must have missed something. I saw something in the README about setting $env(SYBASE) before starting nsd. Is this the same as the SYBASE=/usr/pkg/freetds I had to do even before the build of nsfreetds?<br /> <br /> Thanks again... I feel like I am close.. -- [[Ian Harding]]<br /> <br /> ''Yes, the $env(SYBASE) means setting the SYBASE environment variable. To be safe, you can try this:''<br /> <br /> $ cd /path/to/aolserver/install<br /> $ SYBASE=/usr/pkg/freetds; export SYBASE<br /> $ bin/nsd ...args...<br /> <br /> ''Check log/server.log to make sure that the nsfreetds driver is actually loading. You should see a lines like this at start-up:''<br /> <br /> [30/May/2001:13:42:37][11838.1024][-main-] Notice: modload: loading '/home/aolserver-dev/bin/nsfreetds.so'<br /> [30/May/2001:13:42:37][11838.1024][-main-] Notice: Ns_FreeTDS_DriverInit(freetds): Loaded Panoptic FreeTDS Driver v0.1-pre, built on May 21 2001 at 22:23:01.<br /> <br /> ''Are you getting an error in the [[server log]] instead?'' -- [[Dossy]]<br /> <br /> I don't get an error, it seems to load nicely. I can post or give you access to whatever files or output you would like to see, or an ssh login... -- [[Ian Harding]]<br /> <br /> ----<br /> <br /> Another question: Global variables ([[nsv]]*). I am re-writing my app to use the [[ns_register_proc]] functionality versus my kludge where everything goes through an [[ADP]] that acts as a filter and traffic cop. I have figured out register filter and register proc, but seem not to be able to use [[ns_puts]] from within the procs. Is this right? Anyway, I had been using [[ns_adp_include]] in my filter/traffic cop page to put consistent headers/footers on my pages. I gather the more correct way (and only possible way with registered procs?) is to use global variables. <br /> <br /> When do I initialize them? How do I use them? What are the caveats? W<br /> <br /> Thanks, -- [[Ian Harding]]<br /> <br /> ''Have you started by reading the NSV documentation?'' -- [[Dossy]]<br /> <br /> Of course not 8^0 That would be too easy! I will... -- [[Ian Harding]]<br /> <br /> OK, I read it. It's too easy. I use it for header, footer, and client side script html, which I stuff into html variable before returning it. I would like the filter option we talked about in the chat which would prepend or append html automatically, but this will do. -- [[Ian Harding]]<br /> <br /> ----<br /> <br /> How hard would it be to add an HTTPS equivalent of Ns_FetchURL?<br /> <br /> ''If you can build shared libraries on your target platform with OpenSSL, it probably wouldn't be too hard. The trick would be writing enough stub code that can be loaded via the Tcl "load" proc so that you could access the OpenSSL-based https client from your Tcl code. Is there a lot of demand for this? I could probably bang something out as an initial attempt.'' -- [[Dossy]]<br /> <br /> [[Scott Goodwin]]'s [[nsopenssl]] now contains client side https functionality.<br /> <br /> ----<br /> <br /> Am I a brick, or does ns_register_proc just plain not work with more than one argument for the proc? I have tried the following code on both aolserver 3.2 running on NT4 and aolserver 3.4 on NetBSD 1.5. It fails to register the proc even once, if I try to register it with more than one argument anywhere else.<br /> <br /> <br /> ns_register_proc GET /foo1 foo 1<br /> ns_register_proc GET /foo2 foo 1 2<br /> ns_register_proc GET /foo3 foo 1 2 3<br /> <br /> proc foo { conn one {two 22} {three 333}} {<br /> ns_return 200 text/html "one is $one, two is $two, three is $three"<br /> }<br /> <br /> This must be something simple. I have already posted to the aolserver list but the listserv seems to have gone mad.<br /> <br /> [[Ian Harding]]<br /> <br /> ''What are you trying to do? It appears you want to pass constant parameters to your procedures. If they are constants, why pass them? Since ns_register_proc calls are generally in the global scope (and sourced when nsd starts) even a parameter that appears to be a variable probably can/will not vary.''<br /> <br /> ''Presumably you need to get information from one page to another. That means formvalues unless your page is stateful (usually a bad idea). Check out the '''[[ns_conn]] form''' command to get yourself started.'' -- [[Jason Kane]]<br /> <br /> ----<br /> <br /> OK, I'm using Windows 2000 SP2 and 3.4.1, and trying in vain to get Perl CGIs (legacy) to work. The scripts work outside of Aolserver, and work on AOLserver on Linux, but when I try inside the script to GET from myself (eg, GET http://localhost:8000/foo?bar=bas), I'm told "unknown protocol TCP", which is quite aggravating.<br /> <br /> Does anyone have any experience administering AOLServer on Windows?<br /> <br /> Thanks in advance!<br /> <br /> -Bill<br /> <br /> ----<br /> <br /> This is interesting, wy do you let me change your page?<br /> I'm trying to find an example of how to get my data using:<br /> set formdata [ns_conn form $conn]<br /> <br /> -Jason<br /> <br /> Because it's a wiki! A proc that gets posted variables includes the line you wrote there... then when you want to actually get the values, you can use something like <br /> <br /> set myvar [ns_set get $formdata myvar]<br /> <br /> where myvar is the name of the variable. There is also ns_queryget which looks like<br /> <br /> set myvar [ns_queryget myvar defaultval]<br /> <br /> This is handy because if there is no value, it will assign a default value. <br /> <br /> Check out aolserver.com, they have extensive (although sometimes misleading) docs. If something the docs says should work doesn't, ask. It may be out of date.<br /> <br /> [[Ian Harding]]<br /> <br /> ----<br /> <br /> I don't know where else to share my code fragments, so here seems like as good a place as any. This one implements user public_html directories. It's based on someone else's stuff (I forget whose tho). It should really do something with unknown mime types, and should do a better job with errors like unknown users. It does honor directoryFile and adp maps in the config file.<br /> <br /> It works by registering a procedure to /users that interprets the username and finds their directory. ns_register_proc doesn't allow wildcards other than in the last path element, so /~* wouldn't work. However that's not a problem for a filter, so there's a filter to take your /~user url and redirect it to /users/user<br /> <br /> -JR<br /> <br /> proc homedir { conn ctx } {<br /> set url [ns_conn url $conn]<br /> set user {}<br /> set file {}<br /> regexp {^/users/([^/]*)(/.*)?$} $url dummy user file<br /> # ns_returnnotice 200 "url is $url user is $user, file is $file"<br /> set userfile [getUserFile $user $file]<br /> set type [ns_guesstype $userfile]<br /> if {[string match "*[ns_config ns/server/[ns_info server]]/adp map]" $userfile]} {<br /> # ns_log notice "adp parsing $userfile"<br /> set cwd [pwd]<br /> cd [file dirname $userfile]<br /> # ns_return 200 text/html [ns_adp_parse -file $userfile]<br /> set result [catch {ns_adp_parse -file $userfile} error]<br /> if {$result} {<br /> ns_return 200 text/html $error<br /> } else {<br /> ns_return 200 text/html $error<br /> }<br /> cd $cwd<br /> } else {<br /> switch $type {<br /> "*/*" {<br /> }<br /> default {<br /> ns_returnfile 200 $type $userfile<br /> }<br /> }<br /> }<br /> <br /> if {[catch {set fp [open $userfile]}]} {<br /> ns_returnnotfound<br /> return<br /> }<br /> }<br /> <br /> proc getUserFile {user path} {<br /> foreach tail [split ,[ns_config ns/server/[ns_info server] directoryfile] ,] {<br /> set userfile "[glob ~$user]/public_html$path$tail"<br /> if {[file exists $userfile] && ![file isdirectory $userfile]} {<br /> return $userfile<br /> }<br /> }<br /> ns_returnnotfound<br /> # break<br /> }<br /> <br /> ns_register_proc GET /users/ homedir<br /> ns_register_proc POST /users/ homedir<br /> ns_register_proc HEAD /users/ homedir<br /> <br /> proc userRedir {conn arg why} {<br /> set url [ns_conn url]<br /> regsub {^/~(.*)} $url {/users/\1} redir<br /> ns_log notice "url is $url, redir is $redir"<br /> ns_returnredirect $redir<br /> return filter_break<br /> }<br /> <br /> ns_register_filter preauth GET /~* userRedir<br /> <br /> ----<br /> <br /> Hi!<br /> <br /> Does anybody know a graphing module for Aolserver/TCL, with e.g. bargraphs, linegraphs,... ?<br /> <br /> -[[wiwo]]<br /> <br /> ''Yes: [[nsgds]], [[nschartdir]].''<br /> <br /> ----<br /> <br /> Can I detect if the user pushes the Stop button in their browser in my TCL/ADP page?<br /> <br /> Yes, although it's a kludge. ns_write will return zero if it cannot write because the connection has been lost. However, ns_write is not stupid enough to try writing when you give it nothing to write, and so you must send something to the client. To prevent this being rendered use HTML comments, e.g.<br /> <br /> if {[ns_write "<nowiki></nowiki>"] == 0} {<br /> # user hit the stop button, browser page was closed, or connection to client was lost.<br /> }<br /> <br /> [[Ximon Eighteen]]<br /> <br /> <br /> ----<br /> <br /> == Generating random passwords ==<br /> <br /> The following method can be useful to generate random passwords and/or password salts.<br /> <br /> <pre><br /> # desired length of random string<br /> set iStringLength 8<br /> <br /> # characters allowed to appear in the string<br /> set sAllowableCharacters "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"<br /> <br /> # get length one time<br /> set iAllowableCharacters [string length $sAllowableCharacters]<br /> <br /> # begin random string as empty<br /> set sRandomString ""<br /> <br /> # loop until desired length is achieved<br /> for {set ii 0} {$ii < $iStringLength} {incr ii} {<br /> <br /> # get next random between 0 and length of allowed characters<br /> set iRandomInt [ns_rand $iAllowableCharacters]<br /> <br /> # retrieve this random character<br /> set sRandomCharacter [string index $sAllowableCharacters $iRandomInt]<br /> <br /> # append the character to our random string<br /> append sRandomString $sRandomCharacter<br /> <br /> }<br /> <br /> ns_adp_puts "sRandomString: $sRandomString"<br /> </pre><br /> <br /> ---<br /> <br /> == Customizing error pages ==<br /> <br /> Edit your AOLServer's config file, and add the paths to the error pages as follows:<br /> <br /> <pre><br /> #<br /> # Internal redirects<br /> #<br /> ns_section "ns/server/${servername}/redirects"<br /> ns_param 404 "/notfound.html" ;# Not Found error page<br /> ns_param 500 "/servererror.html" ;# Server Error page<br /> </pre><br /> <br /> ---<br /> <br /> == Fast caching of generated pages ==<br /> <br /> You can use an adp page to handle a 404 (not found) error that generated exactly the page it was looking for. Conceptually this is similar to how tcl's autoloading using unknown works. From Bas Sheffers, via John Buckman.<br /> <br /> from config.tcl:<br /> <pre><br /> ns_section "ns/server/$server1/redirects"<br /> ns_param 404 /404.adp<br /> </pre><br /> <br /> 404.adp:<br /> <pre><br /> <% handle_404 %><br /> </pre><br /> <br /> Support procs:<br /> <pre><br /> proc handle_404 {} {<br /> set myurl [myurl]<br /> set parts [split $myurl /]<br /> set root [lindex $parts 1]<br /> <br /> if {$root == "photo"} {<br /> return [404_photo $parts]<br /> } else {<br /> ns_returnredirect "[myhost]/"<br /> return<br /> }<br /> <br /> }<br /> <br /> proc 404_photo {parts} {<br /> <br /> set userid [file rootname [lindex $parts 2]]<br /> set d [user_photo_data $userid]<br /> if {$d == ""} {<br /> set fn "/b/photo/unknown.jpg"<br /> } else {<br /> set fn "/b/photo/${userid}.jpg"<br /> write_binary_file $fn $d<br /> }<br /> ns_returnfile 200 "image/jpeg" $fn<br /> }<br /> <br /> proc myurl {} {<br /> return [lindex [split [ns_conn request]] 1] <br /> }<br /> <br /> proc photo_cache_dirty {userid} {<br /> set fn "/b/photo/${userid}.jpg"<br /> file delete $fn<br /> }<br /> </pre><br /> <br /> <br /> == Changing maximum upload file size ==<br /> <br /> For aolserver 4.5 and higher, to change the maximum upload file size from the default value to a custom one, add a line like this to the server configuration file:<br /> <br /> <pre><br /> ns_limits set default -maxupload [expr 25 * 1024 * 1024] ;# Maximum file size set to 25Mb<br /> </pre><br /> <br /> <br /> == Return a file generated live ==<br /> <br /> Example using the db_foreach function from OpenACS, for the sake of code readability:<br /> <br /> <pre><br /> db_foreach get_mailing_addrs "<br /> <br /> select company_name,<br /> address,<br /> city,<br /> province_abbrev,<br /> postal_code<br /> from ce_members<br /> order by company_name" {<br /> <br /> append csv_text "\"$company_name\",\"$address\",\"$city\",\"$province_abbrev\",\"$postal_code\"\r\n"<br /> }<br /> <br /> ns_set update [ns_conn outputheaders] content-disposition "attachment; filename=\"member-addresses.csv\""<br /> <br /> ns_return 200 application/octet-stream $csv_text<br /> </pre></div>

Juanjose https://panoptic.com/mediawiki/aolserver/index.php?title=AOLserver_Cookbook&diff=5114 AOLserver Cookbook 2008-01-10T16:48:36Z

<p>Juanjose: </p> <hr /> <div>A collection of questions, and code examples to answer them.<br /> <br /> Add your questions here. Answers should be placed below the question. Place a horizontal line ("----") between questions. Please keep this text before the first question.<br /> <br /> __TOC__<br /> <br /> ----<br /> <br /> == Limiting bandwidth ==<br /> <br /> Is there a simple way to limit bandwidth per connection/ip???<br /> <br /> : There's no simple way of doing it, i.e., no configuration option you can set. If I had to implement this, I'd use NSV's and [[ns_register_filter]] to keep track of bandwidth consumed by each client IP which can act as an all-or-nothing mechanism. However, what might be interesting to implement in the socket driver is a setting to control the rate at which bytes are written back to the socket, perhaps configurable per request, so that large HTTP responses don't soak up your upstream bandwidth. We should keep this in mind for a future version of AOLserver. ''-- [[User:Dossy|Dossy]] 20:06, 4 November 2005 (EST)''<br /> <br /> One more question... How can I read output buffer inside function registered as postauth filter?<br /> And how can I stream it? ns_adp_puts cannot be used inside filters... ns_return would return all data at once. I assume that per connection limit would look like this:<br /> <pre><br /> proc ..... {<br /> ns_adp_stream<br /> set data [get output content buffer]<br /> set data_length [output buffer size]<br /> set block_size 4096<br /> for {set i 0} {$i < $data_length} {incr i $block_size} {<br /> send_to_client [string range $data [expr $block_size*$i] [expr $block_size*[expr$i+1]]]<br /> sleep 1<br /> }<br /> ns_returnok<br /> return filter_return<br /> }<br /> </pre><br /> I want to limit only one vhost so nssock limit would be too much;)<br /> <br /> : First, you don't want to turn [[ns_adp_stream]]'ing on. Getting the size of the ADP output buffer can be done using [[ns_adp_tell]] and getting the contents with [[ns_adp_dump]]. I guess you could [[ns_adp_trunc]] the output buffer to clear it, then slowly write the contents back using [[ns_write]]. You'd also then need to look at [[ns_conn]] '''outputheaders''' to make sure that you wrote the proper HTTP response ... ah, but I don't know if you can get the HTTP response status code somehow. I still think doing it in nssock is probably the best place, even with vhosts -- I'd make it a preauth or postauth filter that sets the configuration for the response and then have nssock be responsible for ensuring the response is written at that rate. ''-- [[User:Dossy|Dossy]] 07:24, 8 November 2005 (EST)''<br /> <br /> ns_adp_tell inside postauth filter:<br /> Error: This function cannot be used outside of an ADP<br /> what's more, i use ns_returnfile inside some adp code and if i use ns_adp_tell after it, it returns 0 (this adp only returns file, no adp_puts or write).<br /> Unfortunetly i think there is no other solution then implement it inside nssock or implement some tcl code to manipulate all output buffer.<br /> <br /> I use this code for big files... some time I'll add per ip limit, now it's for connection.<br /> <pre><br /> proc returnfile { file } { <br /> set filefp [open $file r] <br /> fconfigure $filefp -translation binary <br /> set data_length [file size $file] <br /> set block_size 4096 <br /> <br /> ns_write "HTTP/1.0 200 OK <br /> MIME-Version: 1.0 <br /> Content-Type: [ns_guesstype $file] <br /> Content-Length: $data_length <br /> <br /> " <br /> while { ! [eof $filefp] } { <br /> ns_writefp $filefp $block_size <br /> ns_sleep 1 <br /> } <br /> <br /> ns_conn close <br /> }<br /> </pre><br /> Paul Bukowski<br /> ----<br /> <br /> == Virtual server configuration ==<br /> <br /> Is it possible to use wildcard '*' in domain name inside "ns/module/nssock/servers" section of aolserver4 config file? I would like to map all requests to *.somedomain.org to one virtual host...<br /> Something like this doesn't work:<br /> <br /> ns_section "ns/module/nssock/servers"<br /> ns_param forum somedomain.org <br /> ns_param forum somedomain.org:80 <br /> ns_param forum *.somedomain.org <br /> ns_param forum *.somedomain.org:80<br /> ns_param forum "*.somedomain.org" <br /> ns_param forum "*.somedomain.org:80"<br /> <br /> -Paul Bukowski<br /> <br /> : ''2005aug15 [[Dossy]]: Unfortunately, no -- you currently can't use wildcards the way you want. Not yet, at least.''<br /> <br /> Why won't you get some code for mass virtual hosts from http://naviserver.sourceforge.net/ ??<br /> -PB<br /> <br /> : Right now, to map a request to its (virtual) server, there's an O(n) search being done, but it's a "cheap" exact string comparison. To implement glob-style wildcard support, it'll become a more expensive (but possibly still "cheap" by most people's standards) glob-match comparison. When you're serving "n" requests per second (where "n" is small) the difference in cost is probably immeasurable, but when "n" is large, the cost is additive and possibly significant. It might be good if someone could benchmark the two and see what the real cost is. ''-- [[User:Dossy|Dossy]] 20:12, 4 November 2005 (EST)''<br /> <br /> ----<br /> <br /> == Server-side Includes ==<br /> <br /> Does anyone have some code to implement apache-compatible SSI (Server-side includes)? I have some old pages that use SSI that I'd like to move to my aolserver install but I don't have the time to rewrite them as ADPs.<br /> <br /> : ''[[User:Dossy|Dossy]] 20:20, 4 November 2005 (EST)'': I make no representations or warranties about the safety (!) or correctness of the code I'm about to share, but it might get folks started on a proper implementation in the future. In particular, I didn't implement any commands other than "include" and I even implemented it "wrong" (not according to [http://hoohoo.ncsa.uiuc.edu/docs/tutorials/includes.html the specification]). If there's real interest in having a complete SSI implementation for AOLserver, I'd be willing to improve this code.<br /> <br /> <pre><br /> ns_log Notice "ssi: registering SSI ADP tags"<br /> <br /> proc ssi_include_tag {params} {<br /> set param_count [ns_set size $params]<br /> for {set i 0} {$i < $param_count} {incr i} {<br /> set ssi_var_[ns_set key $params $i] [ns_set value $params $i]<br /> }<br /> <br /> if [info exists ssi_var_file] {<br /> if {[ns_adp_argc] > 1} {<br /> set basedir [lindex [ns_adp_argv] 1]<br /> } else {<br /> set basedir [ns_adp_dir]<br /> }<br /> if [regexp {^/} $ssi_var_file] {<br /> set filename $ssi_var_file<br /> } else {<br /> set filename $basedir/$ssi_var_file<br /> }<br /> return [ns_adp_parse -file $filename $basedir]<br /> }<br /> }<br /> <br /> ns_register_adptag {!--#include} ssi_include_tag<br /> <br /> ns_log Notice "ssi: registering SSI ADP tags done"<br /> </pre><br /> <br /> ----<br /> <br /> Is there a way to see only the errors (for example - 'variable' xxx not found? I seem to remember 2 logs - servername.log and servername-error.log? The version I have now - aolserver 3.2/ad1.2 only seems to give us servername.log - and all the error messages are mixed with the normal msgs - its very hard to debug!<br /> [[dannyl50]]<br /> <br /> The default/example config file did not have entries for both logs. The two sections you need look like (in old style notation): <br /> <br /> [ns/parameters]<br /> User=nsadmin <br /> Group=nsadmin <br /> ServerLog=/var/log/aolserver/servername-error.log <br /> PidFile=/var/log/aolserver/nspid.servername<br /> Home=/usr/bin/aolserver-3.3ad13 <br /> <br /> and <br /> <br /> [ns/server/servername/module/nslog]<br /> File=/var/log/aolserver/emp.log <br /> LogCombined=On <br /> MaxBackup=3 <br /> RollFmt=%Y-%m-%d-%H:%M <br /> RollHour=0 <br /> RollOnSignal=On <br /> RollLog=On<br /> <br /> <br /> <br /> ----<br /> <br /> Howdy! Can someone tell me, in general terms, how they have implemented [[nsperm]]? It looks cool, but I am using a plain old database with names and passwords, and it is very easy. I would like the allow/deny functionality, can I have that without the username/password part? -- [[Ian Harding]]<br /> <br /> ''I've implemented [[nsperm]] to restrict access to specific URLs using HTTP authentication (the username/password dialog) and cookie-based (if they have the correct cookie, otherwise URL redirect them to a login page that may set the cookie).''<br /> ''The latter is done using a registered preauth filter. I chose to use [[nsperm]] over a database since [[nsperm]] (presumably) manages the authentication information in memory better than repeatedly hitting the database with authentication requests, but there's no reason''<br /> ''I couldn't have used a database to store username/password information. Does this answer your question?'' -- [[Dossy]]<br /> <br /> <br /> Pretty much, although I started writing my app before I understood AOLServer, so I have a rather strange design that is good in some ways, bad in others. Keep in mind that this is a low activity app, no more than 20 concurrent users right now. <br /> <br /> What I did was to create an [[ADP]] that has a big case statement. It calls functions to generate pages based on the 'task' value it is passed through POST. I have created a pretty complex app this way, not using [[ns_register_proc]] at all. I know now I should have. As I understand it, ns_register_proc lets you create a 'virtual' directory structure that actually just calls certain procedures based on the GET or POST requested URL. This is far more graceful than hitting my main adp which opens up the form data, looks at the 'task' value, and decides which procedures to call. <br /> <br /> Given this lame structure, each time someone requests the main adp, I just check for a valid cookie and generate a login page if it's not there. After that, I have to set another cookie that is their 'access rights' which is then checked from within the procs that generate the pages. If I was doing it right, I could have registered a proc that would fire for all URLs in my virtual tree, checking your rights to the particular URL you reqested, and redirecting you if you are not allowed, right? <br /> <br /> Thanks!!! -- [[Ian Harding]]<br /> <br /> ''I probably would've created an ADP per task, and then registered a preauth filter that checked for the cookie and redirected the user to the login page (outside the directory that the preauth filter covers''<br /> ''-- avoid funny redirection loops) if the cookie wasn't set properly.''<br /> ''If you don't want to create a separate ADP per task, you could have used ns_register_proc to create what you describe as "virtual pages" and still have the preauth filter kind of "sit in front" and handle the autehntication, keeping that logic seperate from your actual page generation code.'' -- [[Dossy]]<br /> <br /> I started with a separate adp for each task, but I thought it would get out of hand quickly. I do think I will re-work the thing to use ns_register_proc and even do away with the few adp I do have. It seems far easier to maintain. In the meantime, I have to re-write all my SQL Server procedures in PostgreSQL PL/Tcl. That's why I want the [[nsfreetds]] module so badly, it buys me a little time!<br /> <br /> Thanks for all your work! -- [[Ian Harding]]<br /> <br /> ----<br /> <br /> ''Speaking of [[nsfreetds]], did you try nsfreetds-0.1pre? Any luck? Any problems?'' -- [[Dossy]]<br /> <br /> I just now tried it. I installed freetds with no trouble, compiled nsfreetds, modified my nsd.tcl [[config file]], added the datasource to interfaces, and all seems fine, except for that I always get "no access to pool "mypool" while executing "ns_db gethandle mypool" ..."<br /> <br /> I must have missed something. I saw something in the README about setting $env(SYBASE) before starting nsd. Is this the same as the SYBASE=/usr/pkg/freetds I had to do even before the build of nsfreetds?<br /> <br /> Thanks again... I feel like I am close.. -- [[Ian Harding]]<br /> <br /> ''Yes, the $env(SYBASE) means setting the SYBASE environment variable. To be safe, you can try this:''<br /> <br /> $ cd /path/to/aolserver/install<br /> $ SYBASE=/usr/pkg/freetds; export SYBASE<br /> $ bin/nsd ...args...<br /> <br /> ''Check log/server.log to make sure that the nsfreetds driver is actually loading. You should see a lines like this at start-up:''<br /> <br /> [30/May/2001:13:42:37][11838.1024][-main-] Notice: modload: loading '/home/aolserver-dev/bin/nsfreetds.so'<br /> [30/May/2001:13:42:37][11838.1024][-main-] Notice: Ns_FreeTDS_DriverInit(freetds): Loaded Panoptic FreeTDS Driver v0.1-pre, built on May 21 2001 at 22:23:01.<br /> <br /> ''Are you getting an error in the [[server log]] instead?'' -- [[Dossy]]<br /> <br /> I don't get an error, it seems to load nicely. I can post or give you access to whatever files or output you would like to see, or an ssh login... -- [[Ian Harding]]<br /> <br /> ----<br /> <br /> Another question: Global variables ([[nsv]]*). I am re-writing my app to use the [[ns_register_proc]] functionality versus my kludge where everything goes through an [[ADP]] that acts as a filter and traffic cop. I have figured out register filter and register proc, but seem not to be able to use [[ns_puts]] from within the procs. Is this right? Anyway, I had been using [[ns_adp_include]] in my filter/traffic cop page to put consistent headers/footers on my pages. I gather the more correct way (and only possible way with registered procs?) is to use global variables. <br /> <br /> When do I initialize them? How do I use them? What are the caveats? W<br /> <br /> Thanks, -- [[Ian Harding]]<br /> <br /> ''Have you started by reading the NSV documentation?'' -- [[Dossy]]<br /> <br /> Of course not 8^0 That would be too easy! I will... -- [[Ian Harding]]<br /> <br /> OK, I read it. It's too easy. I use it for header, footer, and client side script html, which I stuff into html variable before returning it. I would like the filter option we talked about in the chat which would prepend or append html automatically, but this will do. -- [[Ian Harding]]<br /> <br /> ----<br /> <br /> How hard would it be to add an HTTPS equivalent of Ns_FetchURL?<br /> <br /> ''If you can build shared libraries on your target platform with OpenSSL, it probably wouldn't be too hard. The trick would be writing enough stub code that can be loaded via the Tcl "load" proc so that you could access the OpenSSL-based https client from your Tcl code. Is there a lot of demand for this? I could probably bang something out as an initial attempt.'' -- [[Dossy]]<br /> <br /> [[Scott Goodwin]]'s [[nsopenssl]] now contains client side https functionality.<br /> <br /> ----<br /> <br /> Am I a brick, or does ns_register_proc just plain not work with more than one argument for the proc? I have tried the following code on both aolserver 3.2 running on NT4 and aolserver 3.4 on NetBSD 1.5. It fails to register the proc even once, if I try to register it with more than one argument anywhere else.<br /> <br /> <br /> ns_register_proc GET /foo1 foo 1<br /> ns_register_proc GET /foo2 foo 1 2<br /> ns_register_proc GET /foo3 foo 1 2 3<br /> <br /> proc foo { conn one {two 22} {three 333}} {<br /> ns_return 200 text/html "one is $one, two is $two, three is $three"<br /> }<br /> <br /> This must be something simple. I have already posted to the aolserver list but the listserv seems to have gone mad.<br /> <br /> [[Ian Harding]]<br /> <br /> ''What are you trying to do? It appears you want to pass constant parameters to your procedures. If they are constants, why pass them? Since ns_register_proc calls are generally in the global scope (and sourced when nsd starts) even a parameter that appears to be a variable probably can/will not vary.''<br /> <br /> ''Presumably you need to get information from one page to another. That means formvalues unless your page is stateful (usually a bad idea). Check out the '''[[ns_conn]] form''' command to get yourself started.'' -- [[Jason Kane]]<br /> <br /> ----<br /> <br /> OK, I'm using Windows 2000 SP2 and 3.4.1, and trying in vain to get Perl CGIs (legacy) to work. The scripts work outside of Aolserver, and work on AOLserver on Linux, but when I try inside the script to GET from myself (eg, GET http://localhost:8000/foo?bar=bas), I'm told "unknown protocol TCP", which is quite aggravating.<br /> <br /> Does anyone have any experience administering AOLServer on Windows?<br /> <br /> Thanks in advance!<br /> <br /> -Bill<br /> <br /> ----<br /> <br /> This is interesting, wy do you let me change your page?<br /> I'm trying to find an example of how to get my data using:<br /> set formdata [ns_conn form $conn]<br /> <br /> -Jason<br /> <br /> Because it's a wiki! A proc that gets posted variables includes the line you wrote there... then when you want to actually get the values, you can use something like <br /> <br /> set myvar [ns_set get $formdata myvar]<br /> <br /> where myvar is the name of the variable. There is also ns_queryget which looks like<br /> <br /> set myvar [ns_queryget myvar defaultval]<br /> <br /> This is handy because if there is no value, it will assign a default value. <br /> <br /> Check out aolserver.com, they have extensive (although sometimes misleading) docs. If something the docs says should work doesn't, ask. It may be out of date.<br /> <br /> [[Ian Harding]]<br /> <br /> ----<br /> <br /> I don't know where else to share my code fragments, so here seems like as good a place as any. This one implements user public_html directories. It's based on someone else's stuff (I forget whose tho). It should really do something with unknown mime types, and should do a better job with errors like unknown users. It does honor directoryFile and adp maps in the config file.<br /> <br /> It works by registering a procedure to /users that interprets the username and finds their directory. ns_register_proc doesn't allow wildcards other than in the last path element, so /~* wouldn't work. However that's not a problem for a filter, so there's a filter to take your /~user url and redirect it to /users/user<br /> <br /> -JR<br /> <br /> proc homedir { conn ctx } {<br /> set url [ns_conn url $conn]<br /> set user {}<br /> set file {}<br /> regexp {^/users/([^/]*)(/.*)?$} $url dummy user file<br /> # ns_returnnotice 200 "url is $url user is $user, file is $file"<br /> set userfile [getUserFile $user $file]<br /> set type [ns_guesstype $userfile]<br /> if {[string match "*[ns_config ns/server/[ns_info server]]/adp map]" $userfile]} {<br /> # ns_log notice "adp parsing $userfile"<br /> set cwd [pwd]<br /> cd [file dirname $userfile]<br /> # ns_return 200 text/html [ns_adp_parse -file $userfile]<br /> set result [catch {ns_adp_parse -file $userfile} error]<br /> if {$result} {<br /> ns_return 200 text/html $error<br /> } else {<br /> ns_return 200 text/html $error<br /> }<br /> cd $cwd<br /> } else {<br /> switch $type {<br /> "*/*" {<br /> }<br /> default {<br /> ns_returnfile 200 $type $userfile<br /> }<br /> }<br /> }<br /> <br /> if {[catch {set fp [open $userfile]}]} {<br /> ns_returnnotfound<br /> return<br /> }<br /> }<br /> <br /> proc getUserFile {user path} {<br /> foreach tail [split ,[ns_config ns/server/[ns_info server] directoryfile] ,] {<br /> set userfile "[glob ~$user]/public_html$path$tail"<br /> if {[file exists $userfile] && ![file isdirectory $userfile]} {<br /> return $userfile<br /> }<br /> }<br /> ns_returnnotfound<br /> # break<br /> }<br /> <br /> ns_register_proc GET /users/ homedir<br /> ns_register_proc POST /users/ homedir<br /> ns_register_proc HEAD /users/ homedir<br /> <br /> proc userRedir {conn arg why} {<br /> set url [ns_conn url]<br /> regsub {^/~(.*)} $url {/users/\1} redir<br /> ns_log notice "url is $url, redir is $redir"<br /> ns_returnredirect $redir<br /> return filter_break<br /> }<br /> <br /> ns_register_filter preauth GET /~* userRedir<br /> <br /> ----<br /> <br /> Hi!<br /> <br /> Does anybody know a graphing module for Aolserver/TCL, with e.g. bargraphs, linegraphs,... ?<br /> <br /> -[[wiwo]]<br /> <br /> ''Yes: [[nsgds]], [[nschartdir]].''<br /> <br /> ----<br /> <br /> Can I detect if the user pushes the Stop button in their browser in my TCL/ADP page?<br /> <br /> Yes, although it's a kludge. ns_write will return zero if it cannot write because the connection has been lost. However, ns_write is not stupid enough to try writing when you give it nothing to write, and so you must send something to the client. To prevent this being rendered use HTML comments, e.g.<br /> <br /> if {[ns_write "<nowiki></nowiki>"] == 0} {<br /> # user hit the stop button, browser page was closed, or connection to client was lost.<br /> }<br /> <br /> [[Ximon Eighteen]]<br /> <br /> <br /> ----<br /> <br /> == Generating random passwords ==<br /> <br /> The following method can be useful to generate random passwords and/or password salts.<br /> <br /> <pre><br /> # desired length of random string<br /> set iStringLength 8<br /> <br /> # characters allowed to appear in the string<br /> set sAllowableCharacters "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"<br /> <br /> # get length one time<br /> set iAllowableCharacters [string length $sAllowableCharacters]<br /> <br /> # begin random string as empty<br /> set sRandomString ""<br /> <br /> # loop until desired length is achieved<br /> for {set ii 0} {$ii < $iStringLength} {incr ii} {<br /> <br /> # get next random between 0 and length of allowed characters<br /> set iRandomInt [ns_rand $iAllowableCharacters]<br /> <br /> # retrieve this random character<br /> set sRandomCharacter [string index $sAllowableCharacters $iRandomInt]<br /> <br /> # append the character to our random string<br /> append sRandomString $sRandomCharacter<br /> <br /> }<br /> <br /> ns_adp_puts "sRandomString: $sRandomString"<br /> </pre><br /> <br /> ---<br /> <br /> == Customizing error pages ==<br /> <br /> Edit your AOLServer's config file, and add the paths to the error pages as follows:<br /> <br /> <pre><br /> #<br /> # Internal redirects<br /> #<br /> ns_section "ns/server/${servername}/redirects"<br /> ns_param 404 "/notfound.html" ;# Not Found error page<br /> ns_param 500 "/servererror.html" ;# Server Error page<br /> </pre><br /> <br /> ---<br /> <br /> == Fast caching of generated pages ==<br /> <br /> You can use an adp page to handle a 404 (not found) error that generated exactly the page it was looking for. Conceptually this is similar to how tcl's autoloading using unknown works. From Bas Sheffers, via John Buckman.<br /> <br /> from config.tcl:<br /> <pre><br /> ns_section "ns/server/$server1/redirects"<br /> ns_param 404 /404.adp<br /> </pre><br /> <br /> 404.adp:<br /> <pre><br /> <% handle_404 %><br /> </pre><br /> <br /> Support procs:<br /> <pre><br /> proc handle_404 {} {<br /> set myurl [myurl]<br /> set parts [split $myurl /]<br /> set root [lindex $parts 1]<br /> <br /> if {$root == "photo"} {<br /> return [404_photo $parts]<br /> } else {<br /> ns_returnredirect "[myhost]/"<br /> return<br /> }<br /> <br /> }<br /> <br /> proc 404_photo {parts} {<br /> <br /> set userid [file rootname [lindex $parts 2]]<br /> set d [user_photo_data $userid]<br /> if {$d == ""} {<br /> set fn "/b/photo/unknown.jpg"<br /> } else {<br /> set fn "/b/photo/${userid}.jpg"<br /> write_binary_file $fn $d<br /> }<br /> ns_returnfile 200 "image/jpeg" $fn<br /> }<br /> <br /> proc myurl {} {<br /> return [lindex [split [ns_conn request]] 1] <br /> }<br /> <br /> proc photo_cache_dirty {userid} {<br /> set fn "/b/photo/${userid}.jpg"<br /> file delete $fn<br /> }<br /> </pre><br /> <br /> <br /> == Changing maximum upload file size ==<br /> <br /> For aolserver 4.5 and higher, to change the maximum upload file size from the default value to a custom one, add a line like this to the server configuration file:<br /> <br /> <pre><br /> ns_limits set default -maxupload [expr 25 * 1024 * 1024] ;# Maximum file size set to 25Mb<br /> </pre><br /> <br /> <br /> == Return a file generated live ==<br /> <br /> Example using the db_foreach function from OpenACS, for the sake of code readibility:<br /> <br /> <pre><br /> db_foreach get_mailing_addrs "<br /> <br /> select company_name,<br /> address,<br /> city,<br /> province_abbrev,<br /> postal_code<br /> from ce_members<br /> order by company_name" {<br /> <br /> append csv_text "\"$company_name\",\"$address\",\"$city\",\"$province_abbrev\",\"$postal_code\"\r\n"<br /> }<br /> <br /> ns_set update [ns_conn outputheaders] content-disposition "attachment; filename=\"member-addresses.csv\""<br /> <br /> ns_return 200 application/octet-stream $csv_text<br /> </pre></div>

Juanjose https://panoptic.com/mediawiki/aolserver/index.php?title=AOLserver_Cookbook&diff=5113 AOLserver Cookbook 2008-01-09T03:05:35Z

<p>Juanjose: /* Changing maximum upload file size */</p> <hr /> <div>A collection of questions, and code examples to answer them.<br /> <br /> Add your questions here. Answers should be placed below the question. Place a horizontal line ("----") between questions. Please keep this text before the first question.<br /> <br /> __TOC__<br /> <br /> ----<br /> <br /> == Limiting bandwidth ==<br /> <br /> Is there a simple way to limit bandwidth per connection/ip???<br /> <br /> : There's no simple way of doing it, i.e., no configuration option you can set. If I had to implement this, I'd use NSV's and [[ns_register_filter]] to keep track of bandwidth consumed by each client IP which can act as an all-or-nothing mechanism. However, what might be interesting to implement in the socket driver is a setting to control the rate at which bytes are written back to the socket, perhaps configurable per request, so that large HTTP responses don't soak up your upstream bandwidth. We should keep this in mind for a future version of AOLserver. ''-- [[User:Dossy|Dossy]] 20:06, 4 November 2005 (EST)''<br /> <br /> One more question... How can I read output buffer inside function registered as postauth filter?<br /> And how can I stream it? ns_adp_puts cannot be used inside filters... ns_return would return all data at once. I assume that per connection limit would look like this:<br /> <pre><br /> proc ..... {<br /> ns_adp_stream<br /> set data [get output content buffer]<br /> set data_length [output buffer size]<br /> set block_size 4096<br /> for {set i 0} {$i < $data_length} {incr i $block_size} {<br /> send_to_client [string range $data [expr $block_size*$i] [expr $block_size*[expr$i+1]]]<br /> sleep 1<br /> }<br /> ns_returnok<br /> return filter_return<br /> }<br /> </pre><br /> I want to limit only one vhost so nssock limit would be too much;)<br /> <br /> : First, you don't want to turn [[ns_adp_stream]]'ing on. Getting the size of the ADP output buffer can be done using [[ns_adp_tell]] and getting the contents with [[ns_adp_dump]]. I guess you could [[ns_adp_trunc]] the output buffer to clear it, then slowly write the contents back using [[ns_write]]. You'd also then need to look at [[ns_conn]] '''outputheaders''' to make sure that you wrote the proper HTTP response ... ah, but I don't know if you can get the HTTP response status code somehow. I still think doing it in nssock is probably the best place, even with vhosts -- I'd make it a preauth or postauth filter that sets the configuration for the response and then have nssock be responsible for ensuring the response is written at that rate. ''-- [[User:Dossy|Dossy]] 07:24, 8 November 2005 (EST)''<br /> <br /> ns_adp_tell inside postauth filter:<br /> Error: This function cannot be used outside of an ADP<br /> what's more, i use ns_returnfile inside some adp code and if i use ns_adp_tell after it, it returns 0 (this adp only returns file, no adp_puts or write).<br /> Unfortunetly i think there is no other solution then implement it inside nssock or implement some tcl code to manipulate all output buffer.<br /> <br /> I use this code for big files... some time I'll add per ip limit, now it's for connection.<br /> <pre><br /> proc returnfile { file } { <br /> set filefp [open $file r] <br /> fconfigure $filefp -translation binary <br /> set data_length [file size $file] <br /> set block_size 4096 <br /> <br /> ns_write "HTTP/1.0 200 OK <br /> MIME-Version: 1.0 <br /> Content-Type: [ns_guesstype $file] <br /> Content-Length: $data_length <br /> <br /> " <br /> while { ! [eof $filefp] } { <br /> ns_writefp $filefp $block_size <br /> ns_sleep 1 <br /> } <br /> <br /> ns_conn close <br /> }<br /> </pre><br /> Paul Bukowski<br /> ----<br /> <br /> == Virtual server configuration ==<br /> <br /> Is it possible to use wildcard '*' in domain name inside "ns/module/nssock/servers" section of aolserver4 config file? I would like to map all requests to *.somedomain.org to one virtual host...<br /> Something like this doesn't work:<br /> <br /> ns_section "ns/module/nssock/servers"<br /> ns_param forum somedomain.org <br /> ns_param forum somedomain.org:80 <br /> ns_param forum *.somedomain.org <br /> ns_param forum *.somedomain.org:80<br /> ns_param forum "*.somedomain.org" <br /> ns_param forum "*.somedomain.org:80"<br /> <br /> -Paul Bukowski<br /> <br /> : ''2005aug15 [[Dossy]]: Unfortunately, no -- you currently can't use wildcards the way you want. Not yet, at least.''<br /> <br /> Why won't you get some code for mass virtual hosts from http://naviserver.sourceforge.net/ ??<br /> -PB<br /> <br /> : Right now, to map a request to its (virtual) server, there's an O(n) search being done, but it's a "cheap" exact string comparison. To implement glob-style wildcard support, it'll become a more expensive (but possibly still "cheap" by most people's standards) glob-match comparison. When you're serving "n" requests per second (where "n" is small) the difference in cost is probably immeasurable, but when "n" is large, the cost is additive and possibly significant. It might be good if someone could benchmark the two and see what the real cost is. ''-- [[User:Dossy|Dossy]] 20:12, 4 November 2005 (EST)''<br /> <br /> ----<br /> <br /> == Server-side Includes ==<br /> <br /> Does anyone have some code to implement apache-compatible SSI (Server-side includes)? I have some old pages that use SSI that I'd like to move to my aolserver install but I don't have the time to rewrite them as ADPs.<br /> <br /> : ''[[User:Dossy|Dossy]] 20:20, 4 November 2005 (EST)'': I make no representations or warranties about the safety (!) or correctness of the code I'm about to share, but it might get folks started on a proper implementation in the future. In particular, I didn't implement any commands other than "include" and I even implemented it "wrong" (not according to [http://hoohoo.ncsa.uiuc.edu/docs/tutorials/includes.html the specification]). If there's real interest in having a complete SSI implementation for AOLserver, I'd be willing to improve this code.<br /> <br /> <pre><br /> ns_log Notice "ssi: registering SSI ADP tags"<br /> <br /> proc ssi_include_tag {params} {<br /> set param_count [ns_set size $params]<br /> for {set i 0} {$i < $param_count} {incr i} {<br /> set ssi_var_[ns_set key $params $i] [ns_set value $params $i]<br /> }<br /> <br /> if [info exists ssi_var_file] {<br /> if {[ns_adp_argc] > 1} {<br /> set basedir [lindex [ns_adp_argv] 1]<br /> } else {<br /> set basedir [ns_adp_dir]<br /> }<br /> if [regexp {^/} $ssi_var_file] {<br /> set filename $ssi_var_file<br /> } else {<br /> set filename $basedir/$ssi_var_file<br /> }<br /> return [ns_adp_parse -file $filename $basedir]<br /> }<br /> }<br /> <br /> ns_register_adptag {!--#include} ssi_include_tag<br /> <br /> ns_log Notice "ssi: registering SSI ADP tags done"<br /> </pre><br /> <br /> ----<br /> <br /> Is there a way to see only the errors (for example - 'variable' xxx not found? I seem to remember 2 logs - servername.log and servername-error.log? The version I have now - aolserver 3.2/ad1.2 only seems to give us servername.log - and all the error messages are mixed with the normal msgs - its very hard to debug!<br /> [[dannyl50]]<br /> <br /> The default/example config file did not have entries for both logs. The two sections you need look like (in old style notation): <br /> <br /> [ns/parameters]<br /> User=nsadmin <br /> Group=nsadmin <br /> ServerLog=/var/log/aolserver/servername-error.log <br /> PidFile=/var/log/aolserver/nspid.servername<br /> Home=/usr/bin/aolserver-3.3ad13 <br /> <br /> and <br /> <br /> [ns/server/servername/module/nslog]<br /> File=/var/log/aolserver/emp.log <br /> LogCombined=On <br /> MaxBackup=3 <br /> RollFmt=%Y-%m-%d-%H:%M <br /> RollHour=0 <br /> RollOnSignal=On <br /> RollLog=On<br /> <br /> <br /> <br /> ----<br /> <br /> Howdy! Can someone tell me, in general terms, how they have implemented [[nsperm]]? It looks cool, but I am using a plain old database with names and passwords, and it is very easy. I would like the allow/deny functionality, can I have that without the username/password part? -- [[Ian Harding]]<br /> <br /> ''I've implemented [[nsperm]] to restrict access to specific URLs using HTTP authentication (the username/password dialog) and cookie-based (if they have the correct cookie, otherwise URL redirect them to a login page that may set the cookie).''<br /> ''The latter is done using a registered preauth filter. I chose to use [[nsperm]] over a database since [[nsperm]] (presumably) manages the authentication information in memory better than repeatedly hitting the database with authentication requests, but there's no reason''<br /> ''I couldn't have used a database to store username/password information. Does this answer your question?'' -- [[Dossy]]<br /> <br /> <br /> Pretty much, although I started writing my app before I understood AOLServer, so I have a rather strange design that is good in some ways, bad in others. Keep in mind that this is a low activity app, no more than 20 concurrent users right now. <br /> <br /> What I did was to create an [[ADP]] that has a big case statement. It calls functions to generate pages based on the 'task' value it is passed through POST. I have created a pretty complex app this way, not using [[ns_register_proc]] at all. I know now I should have. As I understand it, ns_register_proc lets you create a 'virtual' directory structure that actually just calls certain procedures based on the GET or POST requested URL. This is far more graceful than hitting my main adp which opens up the form data, looks at the 'task' value, and decides which procedures to call. <br /> <br /> Given this lame structure, each time someone requests the main adp, I just check for a valid cookie and generate a login page if it's not there. After that, I have to set another cookie that is their 'access rights' which is then checked from within the procs that generate the pages. If I was doing it right, I could have registered a proc that would fire for all URLs in my virtual tree, checking your rights to the particular URL you reqested, and redirecting you if you are not allowed, right? <br /> <br /> Thanks!!! -- [[Ian Harding]]<br /> <br /> ''I probably would've created an ADP per task, and then registered a preauth filter that checked for the cookie and redirected the user to the login page (outside the directory that the preauth filter covers''<br /> ''-- avoid funny redirection loops) if the cookie wasn't set properly.''<br /> ''If you don't want to create a separate ADP per task, you could have used ns_register_proc to create what you describe as "virtual pages" and still have the preauth filter kind of "sit in front" and handle the autehntication, keeping that logic seperate from your actual page generation code.'' -- [[Dossy]]<br /> <br /> I started with a separate adp for each task, but I thought it would get out of hand quickly. I do think I will re-work the thing to use ns_register_proc and even do away with the few adp I do have. It seems far easier to maintain. In the meantime, I have to re-write all my SQL Server procedures in PostgreSQL PL/Tcl. That's why I want the [[nsfreetds]] module so badly, it buys me a little time!<br /> <br /> Thanks for all your work! -- [[Ian Harding]]<br /> <br /> ----<br /> <br /> ''Speaking of [[nsfreetds]], did you try nsfreetds-0.1pre? Any luck? Any problems?'' -- [[Dossy]]<br /> <br /> I just now tried it. I installed freetds with no trouble, compiled nsfreetds, modified my nsd.tcl [[config file]], added the datasource to interfaces, and all seems fine, except for that I always get "no access to pool "mypool" while executing "ns_db gethandle mypool" ..."<br /> <br /> I must have missed something. I saw something in the README about setting $env(SYBASE) before starting nsd. Is this the same as the SYBASE=/usr/pkg/freetds I had to do even before the build of nsfreetds?<br /> <br /> Thanks again... I feel like I am close.. -- [[Ian Harding]]<br /> <br /> ''Yes, the $env(SYBASE) means setting the SYBASE environment variable. To be safe, you can try this:''<br /> <br /> $ cd /path/to/aolserver/install<br /> $ SYBASE=/usr/pkg/freetds; export SYBASE<br /> $ bin/nsd ...args...<br /> <br /> ''Check log/server.log to make sure that the nsfreetds driver is actually loading. You should see a lines like this at start-up:''<br /> <br /> [30/May/2001:13:42:37][11838.1024][-main-] Notice: modload: loading '/home/aolserver-dev/bin/nsfreetds.so'<br /> [30/May/2001:13:42:37][11838.1024][-main-] Notice: Ns_FreeTDS_DriverInit(freetds): Loaded Panoptic FreeTDS Driver v0.1-pre, built on May 21 2001 at 22:23:01.<br /> <br /> ''Are you getting an error in the [[server log]] instead?'' -- [[Dossy]]<br /> <br /> I don't get an error, it seems to load nicely. I can post or give you access to whatever files or output you would like to see, or an ssh login... -- [[Ian Harding]]<br /> <br /> ----<br /> <br /> Another question: Global variables ([[nsv]]*). I am re-writing my app to use the [[ns_register_proc]] functionality versus my kludge where everything goes through an [[ADP]] that acts as a filter and traffic cop. I have figured out register filter and register proc, but seem not to be able to use [[ns_puts]] from within the procs. Is this right? Anyway, I had been using [[ns_adp_include]] in my filter/traffic cop page to put consistent headers/footers on my pages. I gather the more correct way (and only possible way with registered procs?) is to use global variables. <br /> <br /> When do I initialize them? How do I use them? What are the caveats? W<br /> <br /> Thanks, -- [[Ian Harding]]<br /> <br /> ''Have you started by reading the NSV documentation?'' -- [[Dossy]]<br /> <br /> Of course not 8^0 That would be too easy! I will... -- [[Ian Harding]]<br /> <br /> OK, I read it. It's too easy. I use it for header, footer, and client side script html, which I stuff into html variable before returning it. I would like the filter option we talked about in the chat which would prepend or append html automatically, but this will do. -- [[Ian Harding]]<br /> <br /> ----<br /> <br /> How hard would it be to add an HTTPS equivalent of Ns_FetchURL?<br /> <br /> ''If you can build shared libraries on your target platform with OpenSSL, it probably wouldn't be too hard. The trick would be writing enough stub code that can be loaded via the Tcl "load" proc so that you could access the OpenSSL-based https client from your Tcl code. Is there a lot of demand for this? I could probably bang something out as an initial attempt.'' -- [[Dossy]]<br /> <br /> [[Scott Goodwin]]'s [[nsopenssl]] now contains client side https functionality.<br /> <br /> ----<br /> <br /> Am I a brick, or does ns_register_proc just plain not work with more than one argument for the proc? I have tried the following code on both aolserver 3.2 running on NT4 and aolserver 3.4 on NetBSD 1.5. It fails to register the proc even once, if I try to register it with more than one argument anywhere else.<br /> <br /> <br /> ns_register_proc GET /foo1 foo 1<br /> ns_register_proc GET /foo2 foo 1 2<br /> ns_register_proc GET /foo3 foo 1 2 3<br /> <br /> proc foo { conn one {two 22} {three 333}} {<br /> ns_return 200 text/html "one is $one, two is $two, three is $three"<br /> }<br /> <br /> This must be something simple. I have already posted to the aolserver list but the listserv seems to have gone mad.<br /> <br /> [[Ian Harding]]<br /> <br /> ''What are you trying to do? It appears you want to pass constant parameters to your procedures. If they are constants, why pass them? Since ns_register_proc calls are generally in the global scope (and sourced when nsd starts) even a parameter that appears to be a variable probably can/will not vary.''<br /> <br /> ''Presumably you need to get information from one page to another. That means formvalues unless your page is stateful (usually a bad idea). Check out the '''[[ns_conn]] form''' command to get yourself started.'' -- [[Jason Kane]]<br /> <br /> ----<br /> <br /> OK, I'm using Windows 2000 SP2 and 3.4.1, and trying in vain to get Perl CGIs (legacy) to work. The scripts work outside of Aolserver, and work on AOLserver on Linux, but when I try inside the script to GET from myself (eg, GET http://localhost:8000/foo?bar=bas), I'm told "unknown protocol TCP", which is quite aggravating.<br /> <br /> Does anyone have any experience administering AOLServer on Windows?<br /> <br /> Thanks in advance!<br /> <br /> -Bill<br /> <br /> ----<br /> <br /> This is interesting, wy do you let me change your page?<br /> I'm trying to find an example of how to get my data using:<br /> set formdata [ns_conn form $conn]<br /> <br /> -Jason<br /> <br /> Because it's a wiki! A proc that gets posted variables includes the line you wrote there... then when you want to actually get the values, you can use something like <br /> <br /> set myvar [ns_set get $formdata myvar]<br /> <br /> where myvar is the name of the variable. There is also ns_queryget which looks like<br /> <br /> set myvar [ns_queryget myvar defaultval]<br /> <br /> This is handy because if there is no value, it will assign a default value. <br /> <br /> Check out aolserver.com, they have extensive (although sometimes misleading) docs. If something the docs says should work doesn't, ask. It may be out of date.<br /> <br /> [[Ian Harding]]<br /> <br /> ----<br /> <br /> I don't know where else to share my code fragments, so here seems like as good a place as any. This one implements user public_html directories. It's based on someone else's stuff (I forget whose tho). It should really do something with unknown mime types, and should do a better job with errors like unknown users. It does honor directoryFile and adp maps in the config file.<br /> <br /> It works by registering a procedure to /users that interprets the username and finds their directory. ns_register_proc doesn't allow wildcards other than in the last path element, so /~* wouldn't work. However that's not a problem for a filter, so there's a filter to take your /~user url and redirect it to /users/user<br /> <br /> -JR<br /> <br /> proc homedir { conn ctx } {<br /> set url [ns_conn url $conn]<br /> set user {}<br /> set file {}<br /> regexp {^/users/([^/]*)(/.*)?$} $url dummy user file<br /> # ns_returnnotice 200 "url is $url user is $user, file is $file"<br /> set userfile [getUserFile $user $file]<br /> set type [ns_guesstype $userfile]<br /> if {[string match "*[ns_config ns/server/[ns_info server]]/adp map]" $userfile]} {<br /> # ns_log notice "adp parsing $userfile"<br /> set cwd [pwd]<br /> cd [file dirname $userfile]<br /> # ns_return 200 text/html [ns_adp_parse -file $userfile]<br /> set result [catch {ns_adp_parse -file $userfile} error]<br /> if {$result} {<br /> ns_return 200 text/html $error<br /> } else {<br /> ns_return 200 text/html $error<br /> }<br /> cd $cwd<br /> } else {<br /> switch $type {<br /> "*/*" {<br /> }<br /> default {<br /> ns_returnfile 200 $type $userfile<br /> }<br /> }<br /> }<br /> <br /> if {[catch {set fp [open $userfile]}]} {<br /> ns_returnnotfound<br /> return<br /> }<br /> }<br /> <br /> proc getUserFile {user path} {<br /> foreach tail [split ,[ns_config ns/server/[ns_info server] directoryfile] ,] {<br /> set userfile "[glob ~$user]/public_html$path$tail"<br /> if {[file exists $userfile] && ![file isdirectory $userfile]} {<br /> return $userfile<br /> }<br /> }<br /> ns_returnnotfound<br /> # break<br /> }<br /> <br /> ns_register_proc GET /users/ homedir<br /> ns_register_proc POST /users/ homedir<br /> ns_register_proc HEAD /users/ homedir<br /> <br /> proc userRedir {conn arg why} {<br /> set url [ns_conn url]<br /> regsub {^/~(.*)} $url {/users/\1} redir<br /> ns_log notice "url is $url, redir is $redir"<br /> ns_returnredirect $redir<br /> return filter_break<br /> }<br /> <br /> ns_register_filter preauth GET /~* userRedir<br /> <br /> ----<br /> <br /> Hi!<br /> <br /> Does anybody know a graphing module for Aolserver/TCL, with e.g. bargraphs, linegraphs,... ?<br /> <br /> -[[wiwo]]<br /> <br /> ''Yes: [[nsgds]], [[nschartdir]].''<br /> <br /> ----<br /> <br /> Can I detect if the user pushes the Stop button in their browser in my TCL/ADP page?<br /> <br /> Yes, although it's a kludge. ns_write will return zero if it cannot write because the connection has been lost. However, ns_write is not stupid enough to try writing when you give it nothing to write, and so you must send something to the client. To prevent this being rendered use HTML comments, e.g.<br /> <br /> if {[ns_write "<nowiki></nowiki>"] == 0} {<br /> # user hit the stop button, browser page was closed, or connection to client was lost.<br /> }<br /> <br /> [[Ximon Eighteen]]<br /> <br /> <br /> ----<br /> <br /> == Generating random passwords ==<br /> <br /> The following method can be useful to generate random passwords and/or password salts.<br /> <br /> <pre><br /> # desired length of random string<br /> set iStringLength 8<br /> <br /> # characters allowed to appear in the string<br /> set sAllowableCharacters "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"<br /> <br /> # get length one time<br /> set iAllowableCharacters [string length $sAllowableCharacters]<br /> <br /> # begin random string as empty<br /> set sRandomString ""<br /> <br /> # loop until desired length is achieved<br /> for {set ii 0} {$ii < $iStringLength} {incr ii} {<br /> <br /> # get next random between 0 and length of allowed characters<br /> set iRandomInt [ns_rand $iAllowableCharacters]<br /> <br /> # retrieve this random character<br /> set sRandomCharacter [string index $sAllowableCharacters $iRandomInt]<br /> <br /> # append the character to our random string<br /> append sRandomString $sRandomCharacter<br /> <br /> }<br /> <br /> ns_adp_puts "sRandomString: $sRandomString"<br /> </pre><br /> <br /> ---<br /> <br /> == Customizing error pages ==<br /> <br /> Edit your AOLServer's config file, and add the paths to the error pages as follows:<br /> <br /> <pre><br /> #<br /> # Internal redirects<br /> #<br /> ns_section "ns/server/${servername}/redirects"<br /> ns_param 404 "/notfound.html" ;# Not Found error page<br /> ns_param 500 "/servererror.html" ;# Server Error page<br /> </pre><br /> <br /> ---<br /> <br /> == Fast caching of generated pages ==<br /> <br /> You can use an adp page to handle a 404 (not found) error that generated exactly the page it was looking for. Conceptually this is similar to how tcl's autoloading using unknown works. From Bas Sheffers, via John Buckman.<br /> <br /> from config.tcl:<br /> <pre><br /> ns_section "ns/server/$server1/redirects"<br /> ns_param 404 /404.adp<br /> </pre><br /> <br /> 404.adp:<br /> <pre><br /> <% handle_404 %><br /> </pre><br /> <br /> Support procs:<br /> <pre><br /> proc handle_404 {} {<br /> set myurl [myurl]<br /> set parts [split $myurl /]<br /> set root [lindex $parts 1]<br /> <br /> if {$root == "photo"} {<br /> return [404_photo $parts]<br /> } else {<br /> ns_returnredirect "[myhost]/"<br /> return<br /> }<br /> <br /> }<br /> <br /> proc 404_photo {parts} {<br /> <br /> set userid [file rootname [lindex $parts 2]]<br /> set d [user_photo_data $userid]<br /> if {$d == ""} {<br /> set fn "/b/photo/unknown.jpg"<br /> } else {<br /> set fn "/b/photo/${userid}.jpg"<br /> write_binary_file $fn $d<br /> }<br /> ns_returnfile 200 "image/jpeg" $fn<br /> }<br /> <br /> proc myurl {} {<br /> return [lindex [split [ns_conn request]] 1] <br /> }<br /> <br /> proc photo_cache_dirty {userid} {<br /> set fn "/b/photo/${userid}.jpg"<br /> file delete $fn<br /> }<br /> </pre><br /> <br /> <br /> == Changing maximum upload file size ==<br /> <br /> For aolserver 4.5 and higher, to change the maximum upload file size from the default value to a custom one, add a line like this to the server configuration file:<br /> <br /> <pre><br /> ns_limits set default -maxupload [expr 25 * 1024 * 1024] ;# Maximum file size set to 25Mb<br /> </pre></div>

Juanjose https://panoptic.com/mediawiki/aolserver/index.php?title=AOLserver_Cookbook&diff=5112 AOLserver Cookbook 2008-01-09T03:04:59Z

<p>Juanjose: </p> <hr /> <div>A collection of questions, and code examples to answer them.<br /> <br /> Add your questions here. Answers should be placed below the question. Place a horizontal line ("----") between questions. Please keep this text before the first question.<br /> <br /> __TOC__<br /> <br /> ----<br /> <br /> == Limiting bandwidth ==<br /> <br /> Is there a simple way to limit bandwidth per connection/ip???<br /> <br /> : There's no simple way of doing it, i.e., no configuration option you can set. If I had to implement this, I'd use NSV's and [[ns_register_filter]] to keep track of bandwidth consumed by each client IP which can act as an all-or-nothing mechanism. However, what might be interesting to implement in the socket driver is a setting to control the rate at which bytes are written back to the socket, perhaps configurable per request, so that large HTTP responses don't soak up your upstream bandwidth. We should keep this in mind for a future version of AOLserver. ''-- [[User:Dossy|Dossy]] 20:06, 4 November 2005 (EST)''<br /> <br /> One more question... How can I read output buffer inside function registered as postauth filter?<br /> And how can I stream it? ns_adp_puts cannot be used inside filters... ns_return would return all data at once. I assume that per connection limit would look like this:<br /> <pre><br /> proc ..... {<br /> ns_adp_stream<br /> set data [get output content buffer]<br /> set data_length [output buffer size]<br /> set block_size 4096<br /> for {set i 0} {$i < $data_length} {incr i $block_size} {<br /> send_to_client [string range $data [expr $block_size*$i] [expr $block_size*[expr$i+1]]]<br /> sleep 1<br /> }<br /> ns_returnok<br /> return filter_return<br /> }<br /> </pre><br /> I want to limit only one vhost so nssock limit would be too much;)<br /> <br /> : First, you don't want to turn [[ns_adp_stream]]'ing on. Getting the size of the ADP output buffer can be done using [[ns_adp_tell]] and getting the contents with [[ns_adp_dump]]. I guess you could [[ns_adp_trunc]] the output buffer to clear it, then slowly write the contents back using [[ns_write]]. You'd also then need to look at [[ns_conn]] '''outputheaders''' to make sure that you wrote the proper HTTP response ... ah, but I don't know if you can get the HTTP response status code somehow. I still think doing it in nssock is probably the best place, even with vhosts -- I'd make it a preauth or postauth filter that sets the configuration for the response and then have nssock be responsible for ensuring the response is written at that rate. ''-- [[User:Dossy|Dossy]] 07:24, 8 November 2005 (EST)''<br /> <br /> ns_adp_tell inside postauth filter:<br /> Error: This function cannot be used outside of an ADP<br /> what's more, i use ns_returnfile inside some adp code and if i use ns_adp_tell after it, it returns 0 (this adp only returns file, no adp_puts or write).<br /> Unfortunetly i think there is no other solution then implement it inside nssock or implement some tcl code to manipulate all output buffer.<br /> <br /> I use this code for big files... some time I'll add per ip limit, now it's for connection.<br /> <pre><br /> proc returnfile { file } { <br /> set filefp [open $file r] <br /> fconfigure $filefp -translation binary <br /> set data_length [file size $file] <br /> set block_size 4096 <br /> <br /> ns_write "HTTP/1.0 200 OK <br /> MIME-Version: 1.0 <br /> Content-Type: [ns_guesstype $file] <br /> Content-Length: $data_length <br /> <br /> " <br /> while { ! [eof $filefp] } { <br /> ns_writefp $filefp $block_size <br /> ns_sleep 1 <br /> } <br /> <br /> ns_conn close <br /> }<br /> </pre><br /> Paul Bukowski<br /> ----<br /> <br /> == Virtual server configuration ==<br /> <br /> Is it possible to use wildcard '*' in domain name inside "ns/module/nssock/servers" section of aolserver4 config file? I would like to map all requests to *.somedomain.org to one virtual host...<br /> Something like this doesn't work:<br /> <br /> ns_section "ns/module/nssock/servers"<br /> ns_param forum somedomain.org <br /> ns_param forum somedomain.org:80 <br /> ns_param forum *.somedomain.org <br /> ns_param forum *.somedomain.org:80<br /> ns_param forum "*.somedomain.org" <br /> ns_param forum "*.somedomain.org:80"<br /> <br /> -Paul Bukowski<br /> <br /> : ''2005aug15 [[Dossy]]: Unfortunately, no -- you currently can't use wildcards the way you want. Not yet, at least.''<br /> <br /> Why won't you get some code for mass virtual hosts from http://naviserver.sourceforge.net/ ??<br /> -PB<br /> <br /> : Right now, to map a request to its (virtual) server, there's an O(n) search being done, but it's a "cheap" exact string comparison. To implement glob-style wildcard support, it'll become a more expensive (but possibly still "cheap" by most people's standards) glob-match comparison. When you're serving "n" requests per second (where "n" is small) the difference in cost is probably immeasurable, but when "n" is large, the cost is additive and possibly significant. It might be good if someone could benchmark the two and see what the real cost is. ''-- [[User:Dossy|Dossy]] 20:12, 4 November 2005 (EST)''<br /> <br /> ----<br /> <br /> == Server-side Includes ==<br /> <br /> Does anyone have some code to implement apache-compatible SSI (Server-side includes)? I have some old pages that use SSI that I'd like to move to my aolserver install but I don't have the time to rewrite them as ADPs.<br /> <br /> : ''[[User:Dossy|Dossy]] 20:20, 4 November 2005 (EST)'': I make no representations or warranties about the safety (!) or correctness of the code I'm about to share, but it might get folks started on a proper implementation in the future. In particular, I didn't implement any commands other than "include" and I even implemented it "wrong" (not according to [http://hoohoo.ncsa.uiuc.edu/docs/tutorials/includes.html the specification]). If there's real interest in having a complete SSI implementation for AOLserver, I'd be willing to improve this code.<br /> <br /> <pre><br /> ns_log Notice "ssi: registering SSI ADP tags"<br /> <br /> proc ssi_include_tag {params} {<br /> set param_count [ns_set size $params]<br /> for {set i 0} {$i < $param_count} {incr i} {<br /> set ssi_var_[ns_set key $params $i] [ns_set value $params $i]<br /> }<br /> <br /> if [info exists ssi_var_file] {<br /> if {[ns_adp_argc] > 1} {<br /> set basedir [lindex [ns_adp_argv] 1]<br /> } else {<br /> set basedir [ns_adp_dir]<br /> }<br /> if [regexp {^/} $ssi_var_file] {<br /> set filename $ssi_var_file<br /> } else {<br /> set filename $basedir/$ssi_var_file<br /> }<br /> return [ns_adp_parse -file $filename $basedir]<br /> }<br /> }<br /> <br /> ns_register_adptag {!--#include} ssi_include_tag<br /> <br /> ns_log Notice "ssi: registering SSI ADP tags done"<br /> </pre><br /> <br /> ----<br /> <br /> Is there a way to see only the errors (for example - 'variable' xxx not found? I seem to remember 2 logs - servername.log and servername-error.log? The version I have now - aolserver 3.2/ad1.2 only seems to give us servername.log - and all the error messages are mixed with the normal msgs - its very hard to debug!<br /> [[dannyl50]]<br /> <br /> The default/example config file did not have entries for both logs. The two sections you need look like (in old style notation): <br /> <br /> [ns/parameters]<br /> User=nsadmin <br /> Group=nsadmin <br /> ServerLog=/var/log/aolserver/servername-error.log <br /> PidFile=/var/log/aolserver/nspid.servername<br /> Home=/usr/bin/aolserver-3.3ad13 <br /> <br /> and <br /> <br /> [ns/server/servername/module/nslog]<br /> File=/var/log/aolserver/emp.log <br /> LogCombined=On <br /> MaxBackup=3 <br /> RollFmt=%Y-%m-%d-%H:%M <br /> RollHour=0 <br /> RollOnSignal=On <br /> RollLog=On<br /> <br /> <br /> <br /> ----<br /> <br /> Howdy! Can someone tell me, in general terms, how they have implemented [[nsperm]]? It looks cool, but I am using a plain old database with names and passwords, and it is very easy. I would like the allow/deny functionality, can I have that without the username/password part? -- [[Ian Harding]]<br /> <br /> ''I've implemented [[nsperm]] to restrict access to specific URLs using HTTP authentication (the username/password dialog) and cookie-based (if they have the correct cookie, otherwise URL redirect them to a login page that may set the cookie).''<br /> ''The latter is done using a registered preauth filter. I chose to use [[nsperm]] over a database since [[nsperm]] (presumably) manages the authentication information in memory better than repeatedly hitting the database with authentication requests, but there's no reason''<br /> ''I couldn't have used a database to store username/password information. Does this answer your question?'' -- [[Dossy]]<br /> <br /> <br /> Pretty much, although I started writing my app before I understood AOLServer, so I have a rather strange design that is good in some ways, bad in others. Keep in mind that this is a low activity app, no more than 20 concurrent users right now. <br /> <br /> What I did was to create an [[ADP]] that has a big case statement. It calls functions to generate pages based on the 'task' value it is passed through POST. I have created a pretty complex app this way, not using [[ns_register_proc]] at all. I know now I should have. As I understand it, ns_register_proc lets you create a 'virtual' directory structure that actually just calls certain procedures based on the GET or POST requested URL. This is far more graceful than hitting my main adp which opens up the form data, looks at the 'task' value, and decides which procedures to call. <br /> <br /> Given this lame structure, each time someone requests the main adp, I just check for a valid cookie and generate a login page if it's not there. After that, I have to set another cookie that is their 'access rights' which is then checked from within the procs that generate the pages. If I was doing it right, I could have registered a proc that would fire for all URLs in my virtual tree, checking your rights to the particular URL you reqested, and redirecting you if you are not allowed, right? <br /> <br /> Thanks!!! -- [[Ian Harding]]<br /> <br /> ''I probably would've created an ADP per task, and then registered a preauth filter that checked for the cookie and redirected the user to the login page (outside the directory that the preauth filter covers''<br /> ''-- avoid funny redirection loops) if the cookie wasn't set properly.''<br /> ''If you don't want to create a separate ADP per task, you could have used ns_register_proc to create what you describe as "virtual pages" and still have the preauth filter kind of "sit in front" and handle the autehntication, keeping that logic seperate from your actual page generation code.'' -- [[Dossy]]<br /> <br /> I started with a separate adp for each task, but I thought it would get out of hand quickly. I do think I will re-work the thing to use ns_register_proc and even do away with the few adp I do have. It seems far easier to maintain. In the meantime, I have to re-write all my SQL Server procedures in PostgreSQL PL/Tcl. That's why I want the [[nsfreetds]] module so badly, it buys me a little time!<br /> <br /> Thanks for all your work! -- [[Ian Harding]]<br /> <br /> ----<br /> <br /> ''Speaking of [[nsfreetds]], did you try nsfreetds-0.1pre? Any luck? Any problems?'' -- [[Dossy]]<br /> <br /> I just now tried it. I installed freetds with no trouble, compiled nsfreetds, modified my nsd.tcl [[config file]], added the datasource to interfaces, and all seems fine, except for that I always get "no access to pool "mypool" while executing "ns_db gethandle mypool" ..."<br /> <br /> I must have missed something. I saw something in the README about setting $env(SYBASE) before starting nsd. Is this the same as the SYBASE=/usr/pkg/freetds I had to do even before the build of nsfreetds?<br /> <br /> Thanks again... I feel like I am close.. -- [[Ian Harding]]<br /> <br /> ''Yes, the $env(SYBASE) means setting the SYBASE environment variable. To be safe, you can try this:''<br /> <br /> $ cd /path/to/aolserver/install<br /> $ SYBASE=/usr/pkg/freetds; export SYBASE<br /> $ bin/nsd ...args...<br /> <br /> ''Check log/server.log to make sure that the nsfreetds driver is actually loading. You should see a lines like this at start-up:''<br /> <br /> [30/May/2001:13:42:37][11838.1024][-main-] Notice: modload: loading '/home/aolserver-dev/bin/nsfreetds.so'<br /> [30/May/2001:13:42:37][11838.1024][-main-] Notice: Ns_FreeTDS_DriverInit(freetds): Loaded Panoptic FreeTDS Driver v0.1-pre, built on May 21 2001 at 22:23:01.<br /> <br /> ''Are you getting an error in the [[server log]] instead?'' -- [[Dossy]]<br /> <br /> I don't get an error, it seems to load nicely. I can post or give you access to whatever files or output you would like to see, or an ssh login... -- [[Ian Harding]]<br /> <br /> ----<br /> <br /> Another question: Global variables ([[nsv]]*). I am re-writing my app to use the [[ns_register_proc]] functionality versus my kludge where everything goes through an [[ADP]] that acts as a filter and traffic cop. I have figured out register filter and register proc, but seem not to be able to use [[ns_puts]] from within the procs. Is this right? Anyway, I had been using [[ns_adp_include]] in my filter/traffic cop page to put consistent headers/footers on my pages. I gather the more correct way (and only possible way with registered procs?) is to use global variables. <br /> <br /> When do I initialize them? How do I use them? What are the caveats? W<br /> <br /> Thanks, -- [[Ian Harding]]<br /> <br /> ''Have you started by reading the NSV documentation?'' -- [[Dossy]]<br /> <br /> Of course not 8^0 That would be too easy! I will... -- [[Ian Harding]]<br /> <br /> OK, I read it. It's too easy. I use it for header, footer, and client side script html, which I stuff into html variable before returning it. I would like the filter option we talked about in the chat which would prepend or append html automatically, but this will do. -- [[Ian Harding]]<br /> <br /> ----<br /> <br /> How hard would it be to add an HTTPS equivalent of Ns_FetchURL?<br /> <br /> ''If you can build shared libraries on your target platform with OpenSSL, it probably wouldn't be too hard. The trick would be writing enough stub code that can be loaded via the Tcl "load" proc so that you could access the OpenSSL-based https client from your Tcl code. Is there a lot of demand for this? I could probably bang something out as an initial attempt.'' -- [[Dossy]]<br /> <br /> [[Scott Goodwin]]'s [[nsopenssl]] now contains client side https functionality.<br /> <br /> ----<br /> <br /> Am I a brick, or does ns_register_proc just plain not work with more than one argument for the proc? I have tried the following code on both aolserver 3.2 running on NT4 and aolserver 3.4 on NetBSD 1.5. It fails to register the proc even once, if I try to register it with more than one argument anywhere else.<br /> <br /> <br /> ns_register_proc GET /foo1 foo 1<br /> ns_register_proc GET /foo2 foo 1 2<br /> ns_register_proc GET /foo3 foo 1 2 3<br /> <br /> proc foo { conn one {two 22} {three 333}} {<br /> ns_return 200 text/html "one is $one, two is $two, three is $three"<br /> }<br /> <br /> This must be something simple. I have already posted to the aolserver list but the listserv seems to have gone mad.<br /> <br /> [[Ian Harding]]<br /> <br /> ''What are you trying to do? It appears you want to pass constant parameters to your procedures. If they are constants, why pass them? Since ns_register_proc calls are generally in the global scope (and sourced when nsd starts) even a parameter that appears to be a variable probably can/will not vary.''<br /> <br /> ''Presumably you need to get information from one page to another. That means formvalues unless your page is stateful (usually a bad idea). Check out the '''[[ns_conn]] form''' command to get yourself started.'' -- [[Jason Kane]]<br /> <br /> ----<br /> <br /> OK, I'm using Windows 2000 SP2 and 3.4.1, and trying in vain to get Perl CGIs (legacy) to work. The scripts work outside of Aolserver, and work on AOLserver on Linux, but when I try inside the script to GET from myself (eg, GET http://localhost:8000/foo?bar=bas), I'm told "unknown protocol TCP", which is quite aggravating.<br /> <br /> Does anyone have any experience administering AOLServer on Windows?<br /> <br /> Thanks in advance!<br /> <br /> -Bill<br /> <br /> ----<br /> <br /> This is interesting, wy do you let me change your page?<br /> I'm trying to find an example of how to get my data using:<br /> set formdata [ns_conn form $conn]<br /> <br /> -Jason<br /> <br /> Because it's a wiki! A proc that gets posted variables includes the line you wrote there... then when you want to actually get the values, you can use something like <br /> <br /> set myvar [ns_set get $formdata myvar]<br /> <br /> where myvar is the name of the variable. There is also ns_queryget which looks like<br /> <br /> set myvar [ns_queryget myvar defaultval]<br /> <br /> This is handy because if there is no value, it will assign a default value. <br /> <br /> Check out aolserver.com, they have extensive (although sometimes misleading) docs. If something the docs says should work doesn't, ask. It may be out of date.<br /> <br /> [[Ian Harding]]<br /> <br /> ----<br /> <br /> I don't know where else to share my code fragments, so here seems like as good a place as any. This one implements user public_html directories. It's based on someone else's stuff (I forget whose tho). It should really do something with unknown mime types, and should do a better job with errors like unknown users. It does honor directoryFile and adp maps in the config file.<br /> <br /> It works by registering a procedure to /users that interprets the username and finds their directory. ns_register_proc doesn't allow wildcards other than in the last path element, so /~* wouldn't work. However that's not a problem for a filter, so there's a filter to take your /~user url and redirect it to /users/user<br /> <br /> -JR<br /> <br /> proc homedir { conn ctx } {<br /> set url [ns_conn url $conn]<br /> set user {}<br /> set file {}<br /> regexp {^/users/([^/]*)(/.*)?$} $url dummy user file<br /> # ns_returnnotice 200 "url is $url user is $user, file is $file"<br /> set userfile [getUserFile $user $file]<br /> set type [ns_guesstype $userfile]<br /> if {[string match "*[ns_config ns/server/[ns_info server]]/adp map]" $userfile]} {<br /> # ns_log notice "adp parsing $userfile"<br /> set cwd [pwd]<br /> cd [file dirname $userfile]<br /> # ns_return 200 text/html [ns_adp_parse -file $userfile]<br /> set result [catch {ns_adp_parse -file $userfile} error]<br /> if {$result} {<br /> ns_return 200 text/html $error<br /> } else {<br /> ns_return 200 text/html $error<br /> }<br /> cd $cwd<br /> } else {<br /> switch $type {<br /> "*/*" {<br /> }<br /> default {<br /> ns_returnfile 200 $type $userfile<br /> }<br /> }<br /> }<br /> <br /> if {[catch {set fp [open $userfile]}]} {<br /> ns_returnnotfound<br /> return<br /> }<br /> }<br /> <br /> proc getUserFile {user path} {<br /> foreach tail [split ,[ns_config ns/server/[ns_info server] directoryfile] ,] {<br /> set userfile "[glob ~$user]/public_html$path$tail"<br /> if {[file exists $userfile] && ![file isdirectory $userfile]} {<br /> return $userfile<br /> }<br /> }<br /> ns_returnnotfound<br /> # break<br /> }<br /> <br /> ns_register_proc GET /users/ homedir<br /> ns_register_proc POST /users/ homedir<br /> ns_register_proc HEAD /users/ homedir<br /> <br /> proc userRedir {conn arg why} {<br /> set url [ns_conn url]<br /> regsub {^/~(.*)} $url {/users/\1} redir<br /> ns_log notice "url is $url, redir is $redir"<br /> ns_returnredirect $redir<br /> return filter_break<br /> }<br /> <br /> ns_register_filter preauth GET /~* userRedir<br /> <br /> ----<br /> <br /> Hi!<br /> <br /> Does anybody know a graphing module for Aolserver/TCL, with e.g. bargraphs, linegraphs,... ?<br /> <br /> -[[wiwo]]<br /> <br /> ''Yes: [[nsgds]], [[nschartdir]].''<br /> <br /> ----<br /> <br /> Can I detect if the user pushes the Stop button in their browser in my TCL/ADP page?<br /> <br /> Yes, although it's a kludge. ns_write will return zero if it cannot write because the connection has been lost. However, ns_write is not stupid enough to try writing when you give it nothing to write, and so you must send something to the client. To prevent this being rendered use HTML comments, e.g.<br /> <br /> if {[ns_write "<nowiki></nowiki>"] == 0} {<br /> # user hit the stop button, browser page was closed, or connection to client was lost.<br /> }<br /> <br /> [[Ximon Eighteen]]<br /> <br /> <br /> ----<br /> <br /> == Generating random passwords ==<br /> <br /> The following method can be useful to generate random passwords and/or password salts.<br /> <br /> <pre><br /> # desired length of random string<br /> set iStringLength 8<br /> <br /> # characters allowed to appear in the string<br /> set sAllowableCharacters "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"<br /> <br /> # get length one time<br /> set iAllowableCharacters [string length $sAllowableCharacters]<br /> <br /> # begin random string as empty<br /> set sRandomString ""<br /> <br /> # loop until desired length is achieved<br /> for {set ii 0} {$ii < $iStringLength} {incr ii} {<br /> <br /> # get next random between 0 and length of allowed characters<br /> set iRandomInt [ns_rand $iAllowableCharacters]<br /> <br /> # retrieve this random character<br /> set sRandomCharacter [string index $sAllowableCharacters $iRandomInt]<br /> <br /> # append the character to our random string<br /> append sRandomString $sRandomCharacter<br /> <br /> }<br /> <br /> ns_adp_puts "sRandomString: $sRandomString"<br /> </pre><br /> <br /> ---<br /> <br /> == Customizing error pages ==<br /> <br /> Edit your AOLServer's config file, and add the paths to the error pages as follows:<br /> <br /> <pre><br /> #<br /> # Internal redirects<br /> #<br /> ns_section "ns/server/${servername}/redirects"<br /> ns_param 404 "/notfound.html" ;# Not Found error page<br /> ns_param 500 "/servererror.html" ;# Server Error page<br /> </pre><br /> <br /> ---<br /> <br /> == Fast caching of generated pages ==<br /> <br /> You can use an adp page to handle a 404 (not found) error that generated exactly the page it was looking for. Conceptually this is similar to how tcl's autoloading using unknown works. From Bas Sheffers, via John Buckman.<br /> <br /> from config.tcl:<br /> <pre><br /> ns_section "ns/server/$server1/redirects"<br /> ns_param 404 /404.adp<br /> </pre><br /> <br /> 404.adp:<br /> <pre><br /> <% handle_404 %><br /> </pre><br /> <br /> Support procs:<br /> <pre><br /> proc handle_404 {} {<br /> set myurl [myurl]<br /> set parts [split $myurl /]<br /> set root [lindex $parts 1]<br /> <br /> if {$root == "photo"} {<br /> return [404_photo $parts]<br /> } else {<br /> ns_returnredirect "[myhost]/"<br /> return<br /> }<br /> <br /> }<br /> <br /> proc 404_photo {parts} {<br /> <br /> set userid [file rootname [lindex $parts 2]]<br /> set d [user_photo_data $userid]<br /> if {$d == ""} {<br /> set fn "/b/photo/unknown.jpg"<br /> } else {<br /> set fn "/b/photo/${userid}.jpg"<br /> write_binary_file $fn $d<br /> }<br /> ns_returnfile 200 "image/jpeg" $fn<br /> }<br /> <br /> proc myurl {} {<br /> return [lindex [split [ns_conn request]] 1] <br /> }<br /> <br /> proc photo_cache_dirty {userid} {<br /> set fn "/b/photo/${userid}.jpg"<br /> file delete $fn<br /> }<br /> </pre><br /> <br /> <br /> == Changing maximum upload file size ==<br /> <br /> For aolserver 4.5 and higher, to change the maximum upload file size from the default value to a custom one, add a line like this to the server configuration file:<br /> <br /> ns_limits set default -maxupload [expr 25 * 1024 * 1024] ;# Maximum file size set to 25Mb</div>

Juanjose https://panoptic.com/mediawiki/aolserver/index.php?title=Frequently_Asked_Questions&diff=5093 Frequently Asked Questions 2007-09-06T23:58:33Z

<p>Juanjose: /* What platforms does AOLserver support? */</p> <hr /> <div>__NOTOC__<br /> <br /> (Please add new questions at the very bottom of the list. Thanks.)<br /> <br /> == What is AOLserver? ==<br /> <br /> AOLserver is America Online's Open Source web server. AOLserver is the backbone of the largest and busiest production environments in the world.<br /> <br /> AOLserver is a multithreaded, Tcl-enabled, massively-scalable and extensible web server tuned for large scale, dynamic web sites. AOLserver also includes complete database integration and a dynamic page scripting language.<br /> <br /> == What is the latest version of AOLserver? ==<br /> <br /> * The latest stable 3.4.x version is 3.4.2 released 18 September 2001.<br /> * The latest stable 3.5.x version is 3.5.11 released 17 October 2003.<br /> * The latest stable 4.0.x version is 4.0.10 released 18 January 2005.<br /> * The latest stable 4.5.x version is 4.5.0 released 27 June 2006.<br /> * Current development (CVS HEAD) is 4.5.0.<br /> <br /> == Where can I get AOLserver? ==<br /> <br /> The AOLserver project is hosted at [http://sourceforge.net/ SourceForge], and file releases are available for [[download]] in the [http://sourceforge.net/project/showfiles.php?group_id=3152 AOLserver Project Filelist].<br /> <br /> == What platforms does AOLserver support? ==<br /> <br /> '''AOLserver''' is known to compile and run on the following platforms:<br /> * Linux 2.2 (i386), 2.4 and 2.6<br /> * Windows 95/98/NT/2K/XP (i386) (partially supported, see #6)<br /> * FreeBSD 3.4, 5, 6 (i386)<br /> * OpenBSD 2.5 (i386)<br /> * UnixWare 7.x (i386)<br /> * DEC Tru64 & OSF/1 4.0 (alpha)<br /> * Solaris 2.x (sparc), Solaris 2.10 (x86)<br /> * HP/UX 10 & 11 (hppa)<br /> * Irix 6.x (mips)<br /> * Apple MacOS X 10.3 (ppc), 10.4 (ppc)<br /> <br /> == How is AOLserver licensed and distributed? ==<br /> <br /> Via the [[AOLserver Public License]], viewable at http://aolserver.com/license/.<br /> <br /> == How does AOLserver performance compare to other major servers? ==<br /> <br /> [[Brady Wetherington]] says: On Unix, AOLserver can generate many, many dynamic pages very quickly and reliably. It also has some special code paths designed to speed up processing of static pages (fastpath), though I don't use that very much, personally. Along with the database connection pools, it's definitely one of the highest-performance web-based database systems I've used.<br /> <br /> <br /> == How is it different from Apache HTTP Server? ==<br /> <br /> The current Apache HTTP Server<br /> * is part of / a project of the Apache Software Foundation. The process of development and decision making is working for years and accepted by all participants<br /> * allows to run applications in a process-pre-forking or multi-threaded environment by design<br /> * is the leading webserver, so it is widely known, accepted and supported<br /> * is itself a subproject accompanied by lots of well known other projects and frameworks (like Ant, Jakarta, Struts...)<br /> <br /> In contrast AOLserver<br /> * can do lots of use cases that are done with Apache modules with a few lines of TCL code (via registered filters and procs)<br /> * is bound to its multi-threaded architecture that has its own disadvantages, depending on what you want to do<br /> <br /> == How is it different from <insert other webserver>? ==<br /> <br /> ???<br /> <br /> == Where is AOLserver appropriate? Where is it not? ==<br /> <br /> It is not appropriate...<br /> * when you want to do virtual hosting for multiple customers. For static content, AOLserver is fine - you're just serving static content. For dynamic, server-side functionality, to get the level of privilege separation necessary, you'd have to run a separate nsd per customer to ensure that one customer can't access the content/data of another's. There are apparently some folks out there who have set up AOLserver just this way and are doing just this.<br /> * when the code you want to use is not thread-safe (and you are not able to change that)<br /> * when your main application makes heavy use of cgi-tools or other scripting languages like PHP or Phython (in general: where currently no active dedicated maintainer for corresponding modules is known)<br /> * when you need backup of a large world wide community that uses tools, modules and code you can find and read in every single computer magazine. AOLserver and TCL are niche products, which only means they are not sexy to the broad audience, but are used intensively by a sophisticated, intelligent minority<br /> * when you know you would need more than one day to convince your customer to use it (in other words: if you use technology the first time don't let your most important customer be the beta tester)<br /> <br /> It is appropriate...<br /> * when you want to make maximum use of your machines hardware ressources: AOLserver is a highly configurable beast that allows you to run big websites<br /> * when you plan to run a website that makes heavy use of one or more databases (using pooled connections)<br /> * when you want to cache lots or all of your static files (.html,.gif,.css.,.js ...) in your servers memory (via modules fastpath and nscache)<br /> * when you like the good feeling of running and coding your apps on a well-tested multi-threaded server architecture. The server never has been a process-forking one.<br /> <br /> <br /> The idea here is if you know your requirements and your scope is fairly stable and you feel comfortable you can predict the future, and if all signs point to the app. remaining small-to-medium in usage/traffic, then pick whatever platform or technology you like the best -- it really won't make a difference. But, if you think that it's a very real possibility you'll need<br /> to scale up capacity to meet growing demand/traffic, possibly indefinitely, then yes, the hidden cost of re-architecting or migrating to a different technology can be a killer when you have to use the words "sunk cost" to describe the originally developed system. In that case, you may be better off starting with implementing with AOLserver, as its performance "ceiling" so to speak is higher than other technologies. (TODO: Benchmarks demonstrating this empirically?)<br /> <br /> == How do I get started with AOLserver? ==<br /> <br /> <need to link to a newbie guide HOWTO><br /> <br /> == How can I learn more about AOLserver? ==<br /> <br /> Start by reading the [[Documentation]], which is still a work-in-progress.<br /> <br /> == "package require" doesn't work! What's wrong? ==<br /> <br /> Here's the relevant portion of a message [[Dossy Shiobara]] sent to the AOLserver mailing list back on 16 June 2000:<br /> <br /> set tcl_library [file join $tcl_pkgPath tcl${tcl_version}]<br /> source [file join $tcl_library init.tcl]<br /> <br /> package require works like a charm after that :-)<br /> <br /> There you have it. Perhaps, some day, this won't be a necessary step. But, in the meantime ...<br /> <br /> ''As of AOLserver 4.0 and perhaps even a late version of 3.5.x, this step is no longer necessary.''<br /> <br /> == "ns_set update [ns_conn outputheaders] Content-Type" results in the server sending two copies of the Content-Type header. Why? ==<br /> <br /> "ns_set update [ns_conn outputheaders $conn] Content-Type {application/x-tcl}" does not work in .adp files as I wish. The server always returns two copies of the Content-Type header, one as application/x-tcl, another as text/html and clients(galeon, tcl http package) always use the second. How do I remove the second Content-Type?'''<br /> <br /> Good question -- this is really a bug that needs to be fixed in the server code itself.<br /> <br /> == How can I get Tclet scripts served from AOLserver to run inside the Tcl Plugin? ==<br /> <br /> Someone asks: ''I have an aolserver for OpenACS. I installed Tcl Plugin which works well with classic Tclets on Tcl Plugin Home Pages. But with Aolserver, it doesn't work.... Do you know the answer of this?''<br /> <br /> == How can I compile AOLserver on HP-UX, both 10.20 and 11.x? ==<br /> <br /> [[Dossy]]: Good question. If I had easy access to HP-UX machines, I'd try it myself. AOLserver 4.x should hopefully build on HP-UX without any changes, but I'm only guessing.<br /> <br /> HPUX doesn't implement a lot of BSD/POSIX IPC functions, or so I hear.<br /> <br /> == I'm getting an error compiling AOLserver about POLLIN, POLLOUT and POLLPRI being redefined. What's wrong? ==<br /> <br /> AOLserver requires that the "configure" script be run using the GNU C (gcc) compiler. Try running the configure script like this:<br /> <br /> $ CC=gcc ./configure --args...<br /> <br /> == Does AOLserver support HTTP Keep-Alive? I'm sending a HTTP/1.1 request via httperf and AOLserver isn't doing Keep-Alive like Apache does! What's wrong? ==<br /> <br /> Actually, nothing is wrong. You just need to tell httperf to include the headers that tell AOLserver to expect multiple requests per connection. Add '--add_header "Connection: Keep-Alive\n"' to your httperf request. <br /> <br /> The issue is that Apache and AOLserver chose opposite default behaviors when interpretting [http://www.ietf.org/rfc/rfc2068.txt RFC 2068 section 8.1.2.1]:<br /> <br /> An HTTP/1.1 server MAY assume that a HTTP/1.1 client intends to<br /> maintain a persistent connection unless a Connection header including<br /> the connection-token "close" was sent in the request. If the server<br /> chooses to close the connection immediately after sending the<br /> response, it SHOULD send a Connection header including the<br /> connection-token close.<br /> <br /> An HTTP/1.1 client MAY expect a connection to remain open, but would<br /> decide to keep it open based on whether the response from a server<br /> contains a Connection header with the connection-token close. In case<br /> the client does not want to maintain a connection for more than that<br /> request, it SHOULD send a Connection header including the<br /> connection-token close.<br /> <br /> The key here is "MAY" -- AOLserver (currently, as of 4.0.10) chooses not to assume a Keep-Alive connection unless the client explicitly requests it by sending "Connection: Keep-Alive" in the HTTP request header. This may change in the future (HTTP/1.1 requests default to Keep-Alive unless the client explicitly sends "Connection: close" -- apparently this is how Apache works).<br /> <br /> == AOLserver 4.0.10 is consuming all my memory ==<br /> <br /> [http://www.mail-archive.com/aolserver%40listserv.aol.com/msg09104.html Bas Scheffers says]: What version of Tcl did you use? Use 8.4.11 or 8.4.6, but nothing in between as they have a big memory leak.<br /> <br /> Note that debian sarge includes tcl 8.4.9 (as of 2006-01-03).<br /> <br /> == How do I customize standard HTTP responses? ==<br /> <br /> <pre><br /> #<br /> # Internal redirects<br /> #<br /> ns_section "ns/server/${servername}/redirects"<br /> ns_param 404 "/notfound.html" ;# Not Found error page<br /> ns_param 500 "/servererror.html" ;# Server Error page<br /> </pre><br /> <br /> [[Category:Documentation]]</div>

Juanjose https://panoptic.com/mediawiki/aolserver/index.php?title=User:Juanjose&diff=5092 User:Juanjose 2007-09-05T16:57:10Z

<p>Juanjose: /* Experience with AOLServer */</p> <hr /> <div>== Quick Contact info ==<br /> <br /> Name: Juan José del Río<br/><br /> Company: [http://www.simpleoption.com/empresa/ Simple Option]<br/><br /> Telephone: +34 616 512 340<br/><br /> E-mail: [mailto:juanjose@simpleoption.com]<br/><br /> <br /> [http://juanjose.simpleoption.com/ Business blog]<br/><br /> [http://www.sandii.org/juan/ More information about me]<br /> <br /> == Experience with AOLServer ==<br /> <br /> I have used AOLServer on top of FreeBSD to design an online shop ( [http://www.simpleoption.com Simple Option] ). Basically it's a site that interacts with a database, using the great AOLServer database access API. Also, I use many other modules like nssession to track users. And all of this is acomplished in around 2K lines of code.<br /> <br /> Also, the raw-text visit logs are processed, and logged into a database, and later are processed via AOLServer + GdTclFt to create graphs, and give many other statistics of the usage.<br /> <br /> The advantages of AOLServer for this kind of project is the easyness of programming, since TCL is an excellent language if you want to work with strings (that is, HTML), and AOLServer lets me have a really easy and efficient access to several databases in the application. This combination lets me focus in the real problem, and not in the pure technical side of it.<br /> <br /> As a side note, the expertise that you get by using TCL can be reused later when programming TK applications for desktop.</div>

Juanjose https://panoptic.com/mediawiki/aolserver/index.php?title=User:Juanjose&diff=5091 User:Juanjose 2007-09-05T14:05:26Z

<p>Juanjose: /* Quick Contact info */</p> <hr /> <div>== Quick Contact info ==<br /> <br /> Name: Juan José del Río<br/><br /> Company: [http://www.simpleoption.com/empresa/ Simple Option]<br/><br /> Telephone: +34 616 512 340<br/><br /> E-mail: [mailto:juanjose@simpleoption.com]<br/><br /> <br /> [http://juanjose.simpleoption.com/ Business blog]<br/><br /> [http://www.sandii.org/juan/ More information about me]<br /> <br /> == Experience with AOLServer ==<br /> <br /> I have used AOLServer on top of FreeBSD to design an online shop ( [http://www.simpleoption.com Simple Option] ). Basically it's a site that interacts with a database, using the great AOLServer database access API. Also, I use many other modules as nssession to track users. And all of this is acomplished in around 2K lines of code.<br /> <br /> Also, the raw-text visit logs are processed, and logged into a database, where later are processed via AOLServer + GdTclFt to create graphs, and give many other statistics of the usage.<br /> <br /> The advantages of AOLServer for this kind of project is the easyness of programming, since TCL is an excellent language if you want to work with strings (that is, HTML), and AOLServer lets me have a really easy and efficient access to several databases in the application. This combination lets me focus in the real problem, and not in the pure technical side of it.<br /> <br /> As a side note, the expertise that you get by using TCL can be reused later when programming TK applications for desktop.</div>

Juanjose https://panoptic.com/mediawiki/aolserver/index.php?title=User:Juanjose&diff=5090 User:Juanjose 2007-09-05T13:56:18Z

<p>Juanjose: /* Experience with AOLServer */</p> <hr /> <div>== Quick Contact info ==<br /> <br /> Name: Juan José del Río<br/><br /> Company: Simple Option<br/><br /> Telephone: +34 616 512 340<br/><br /> E-mail: [mailto:juanjose@simpleoption.com]<br/><br /> <br /> [http://juanjose.simpleoption.com/ Business blog]<br/><br /> [http://www.sandii.org/juan/ More information about me]<br /> <br /> <br /> == Experience with AOLServer ==<br /> <br /> I have used AOLServer on top of FreeBSD to design an online shop ( [http://www.simpleoption.com Simple Option] ). Basically it's a site that interacts with a database, using the great AOLServer database access API. Also, I use many other modules as nssession to track users. And all of this is acomplished in around 2K lines of code.<br /> <br /> Also, the raw-text visit logs are processed, and logged into a database, where later are processed via AOLServer + GdTclFt to create graphs, and give many other statistics of the usage.<br /> <br /> The advantages of AOLServer for this kind of project is the easyness of programming, since TCL is an excellent language if you want to work with strings (that is, HTML), and AOLServer lets me have a really easy and efficient access to several databases in the application. This combination lets me focus in the real problem, and not in the pure technical side of it.<br /> <br /> As a side note, the expertise that you get by using TCL can be reused later when programming TK applications for desktop.</div>

Juanjose https://panoptic.com/mediawiki/aolserver/index.php?title=User:Juanjose&diff=5089 User:Juanjose 2007-09-05T13:55:49Z

<p>Juanjose: /* Experience with AOLServer */</p> <hr /> <div>== Quick Contact info ==<br /> <br /> Name: Juan José del Río<br/><br /> Company: Simple Option<br/><br /> Telephone: +34 616 512 340<br/><br /> E-mail: [mailto:juanjose@simpleoption.com]<br/><br /> <br /> [http://juanjose.simpleoption.com/ Business blog]<br/><br /> [http://www.sandii.org/juan/ More information about me]<br /> <br /> <br /> == Experience with AOLServer ==<br /> <br /> I have used AOLServer on top of FreeBSD to design an online shop ( [http://www.simpleoption.com Simple Option] ). Basically it's a site that interacts with a database, using the great AOLServer database access API. Also, I use many other modules as nssession to track users. And all of this is acomplished in around 3K lines of code.<br /> <br /> Also, the raw-text visit logs are processed, and logged into a database, where later are processed via AOLServer + GdTclFt to create graphs, and give many other statistics of the usage.<br /> <br /> The advantages of AOLServer for this kind of project is the easyness of programming, since TCL is an excellent language if you want to work with strings (that is, HTML), and AOLServer lets me have a really easy and efficient access to several databases in the application. This combination lets me focus in the real problem, and not in the pure technical side of it.<br /> <br /> As a side note, the expertise that you get by using TCL can be reused later when programming TK applications for desktop.</div>

Juanjose https://panoptic.com/mediawiki/aolserver/index.php?title=User:Juanjose&diff=5088 User:Juanjose 2007-09-05T13:53:50Z

<p>Juanjose: /* Quick Contact info */</p> <hr /> <div>== Quick Contact info ==<br /> <br /> Name: Juan José del Río<br/><br /> Company: Simple Option<br/><br /> Telephone: +34 616 512 340<br/><br /> E-mail: [mailto:juanjose@simpleoption.com]<br/><br /> <br /> [http://juanjose.simpleoption.com/ Business blog]<br/><br /> [http://www.sandii.org/juan/ More information about me]<br /> <br /> <br /> == Experience with AOLServer ==<br /> <br /> I have used AOLServer on top of FreeBSD to design an online shop ( [http://www.simpleoption.com Simple Option] ). Basically it's a site that interacts with a database, using the great AOLServer database access API. Also, I use many other modules as nssession to track users.<br /> <br /> Also, the text visit logs are processed, and logged into a database, where later are processed via AOLServer + GdTclFt to create graphs, and give many other statistics of the usage.<br /> <br /> The advantages of AOLServer for this kind of project is the easyness of programming, since TCL is an excellent language if you want to work with strings (that is, HTML), and AOLServer lets you have easy and efficient access to databases. This combination lets you focusing in the real problem, and not in the pure technical side of it.</div>

Juanjose https://panoptic.com/mediawiki/aolserver/index.php?title=Nssession&diff=5087 Nssession 2007-09-05T13:44:47Z

<p>Juanjose: </p> <hr /> <div>nssession is a module for [[AOLserver]] whose goal is to implement server-side session management.<br /> <br /> The [[nssession specification]] describes the functionality of the module. If you're interested in it, check it out.<br /> <br /> ----<br /> <br /> '''2001-12-22''': New! A reference implementation is available via anonymous CVS:<br /> <br /> cvs -d :pserver:anonymous@cvs.panoptic.com:/home/cvs co -d nssession aolserver/nssession<br /> <br /> It's still (at best) alpha quality, but it might be fun to play with.<br /> <br /> Quickstart guide:<br /> * Slap the nssession.tcl file into your tcl library.<br /> * Add the following to your nsd.tcl:<br /> <br /> ns_section "ns/server/${server_name}/sessions"<br /> ns_param dir /path/to/where/you/want/to/store/your/sessions<br /> <br /> (The default location is [ns_info home]/servers/[ns_info server]/modules/nssession/sessions.)<br /> * Restart your nsd.<br /> <br /> Read the [[nssession specification]] to see what's in the ns_session API,<br /> and start playing.<br /> <br /> -- [[Dossy]]<br /> <br /> '''2007-08-26''': I got nssession working on AOLServer 4.5 on top of FreeBSD 6.2<br /> <br /> http://juanjose.simpleoption.com/2007/08/26/how-to-get-nssession-working-on-aolserver-45/</div>

Juanjose https://panoptic.com/mediawiki/aolserver/index.php?title=User_talk:Juanjose&diff=5023 User talk:Juanjose 2006-12-18T20:24:43Z

<p>Juanjose: </p> <hr /> <div>I am feeling so alone... ;) Please, tell me something! :D<br /> <br /> : ''Looks like you're able to get on the wiki now. :-)'' -- [[User:Dossy|Dossy]] 14:00, 18 December 2006 (EST)<br /> <br /> :: ''Yep. This rocks :-)'' --[[User:Juanjose|juanjose]] 15:23, 18 December 2006 (EST)</div>

Juanjose https://panoptic.com/mediawiki/aolserver/index.php?title=User_talk:Juanjose&diff=5022 User talk:Juanjose 2006-12-18T20:23:49Z

<p>Juanjose: </p> <hr /> <div>I am feeling so alone... ;) Please, tell me something! :D<br /> <br /> : ''Looks like you're able to get on the wiki now. :-)'' -- [[User:Dossy|Dossy]] 14:00, 18 December 2006 (EST)<br /> <br /> Yep. This rocks :) --[[User:Juanjose|juanjose]] 15:23, 18 December 2006 (EST)</div>

Juanjose https://panoptic.com/mediawiki/aolserver/index.php?title=User:Juanjose&diff=5020 User:Juanjose 2006-12-15T17:45:12Z

<p>Juanjose: </p> <hr /> <div>== Quick Contact info ==<br /> <br /> Name: Juan José del Río<br/><br /> Company: Simple Option<br/><br /> Telephone: +34 616 512 340<br/><br /> E-mail: [mailto:juanjose@simpleoption.com]<br/><br /> <br /> More info: [http://www.sandii.org/juan]</div>

Juanjose https://panoptic.com/mediawiki/aolserver/index.php?title=Talk:See_if_it_happens_again&diff=5019 Talk:See if it happens again 2006-12-15T17:32:03Z

<p>Juanjose: </p> <hr /> <div>lol --[[User:Juanjose|juanjose]] 12:32, 15 December 2006 (EST)</div>

Juanjose https://panoptic.com/mediawiki/aolserver/index.php?title=User_talk:Juanjose&diff=5018 User talk:Juanjose 2006-12-15T17:28:30Z

<p>Juanjose: </p> <hr /> <div>I am feeling so alone... ;) Please, tell me something! :D</div>

Juanjose https://panoptic.com/mediawiki/aolserver/index.php?title=User:Juanjose&diff=5017 User:Juanjose 2006-12-15T17:27:08Z

<p>Juanjose: </p> <hr /> <div><br /> == Quick Contact info ==<br /> <br /> Name: Juan José del Río<br/><br /> Company: Simple Option<br/><br /> Telephone: +34 616 512 340<br/><br /> E-mail: juanjose@simpleoption.com<br/><br /> <br /> More info: [http://www.sandii.org/juan]</div>

Juanjose https://panoptic.com/mediawiki/aolserver/index.php?title=User:Juanjose&diff=5016 User:Juanjose 2006-12-15T17:25:35Z

<p>Juanjose: </p> <hr /> <div><br /> Name: Juan José del Río<br /> Company: Simple Option<br /> Telephone: +34 616 512 340<br /> E-mail: juanjose@simpleoption.com<br /> Country: Spain</div>

Juanjose https://panoptic.com/mediawiki/aolserver/index.php?title=AOLserver_Cookbook&diff=5015 AOLserver Cookbook 2006-12-15T17:23:57Z

<p>Juanjose: </p> <hr /> <div>A collection of questions, and code examples to answer them.<br /> <br /> Add your questions here. Answers should be placed below the question. Place a horizontal line ("----") between questions. Please keep this text before the first question.<br /> <br /> __TOC__<br /> <br /> ----<br /> <br /> == Limiting bandwidth ==<br /> <br /> Is there a simple way to limit bandwidth per connection/ip???<br /> <br /> : There's no simple way of doing it, i.e., no configuration option you can set. If I had to implement this, I'd use NSV's and [[ns_register_filter]] to keep track of bandwidth consumed by each client IP which can act as an all-or-nothing mechanism. However, what might be interesting to implement in the socket driver is a setting to control the rate at which bytes are written back to the socket, perhaps configurable per request, so that large HTTP responses don't soak up your upstream bandwidth. We should keep this in mind for a future version of AOLserver. ''-- [[User:Dossy|Dossy]] 20:06, 4 November 2005 (EST)''<br /> <br /> One more question... How can I read output buffer inside function registered as postauth filter?<br /> And how can I stream it? ns_adp_puts cannot be used inside filters... ns_return would return all data at once. I assume that per connection limit would look like this:<br /> <pre><br /> proc ..... {<br /> ns_adp_stream<br /> set data [get output content buffer]<br /> set data_length [output buffer size]<br /> set block_size 4096<br /> for {set i 0} {$i < $data_length} {incr i $block_size} {<br /> send_to_client [string range $data [expr $block_size*$i] [expr $block_size*[expr$i+1]]]<br /> sleep 1<br /> }<br /> ns_returnok<br /> return filter_return<br /> }<br /> </pre><br /> I want to limit only one vhost so nssock limit would be too much;)<br /> <br /> : First, you don't want to turn [[ns_adp_stream]]'ing on. Getting the size of the ADP output buffer can be done using [[ns_adp_tell]] and getting the contents with [[ns_adp_dump]]. I guess you could [[ns_adp_trunc]] the output buffer to clear it, then slowly write the contents back using [[ns_write]]. You'd also then need to look at [[ns_conn]] '''outputheaders''' to make sure that you wrote the proper HTTP response ... ah, but I don't know if you can get the HTTP response status code somehow. I still think doing it in nssock is probably the best place, even with vhosts -- I'd make it a preauth or postauth filter that sets the configuration for the response and then have nssock be responsible for ensuring the response is written at that rate. ''-- [[User:Dossy|Dossy]] 07:24, 8 November 2005 (EST)''<br /> <br /> ns_adp_tell inside postauth filter:<br /> Error: This function cannot be used outside of an ADP<br /> what's more, i use ns_returnfile inside some adp code and if i use ns_adp_tell after it, it returns 0 (this adp only returns file, no adp_puts or write).<br /> Unfortunetly i think there is no other solution then implement it inside nssock or implement some tcl code to manipulate all output buffer.<br /> <br /> I use this code for big files... some time I'll add per ip limit, now it's for connection.<br /> <pre><br /> proc returnfile { file } { <br /> set filefp [open $file r] <br /> fconfigure $filefp -translation binary <br /> set data_length [file size $file] <br /> set block_size 4096 <br /> <br /> ns_write "HTTP/1.0 200 OK <br /> MIME-Version: 1.0 <br /> Content-Type: [ns_guesstype $file] <br /> Content-Length: $data_length <br /> <br /> " <br /> while { ! [eof $filefp] } { <br /> ns_writefp $filefp $block_size <br /> ns_sleep 1 <br /> } <br /> <br /> ns_conn close <br /> }<br /> </pre><br /> Paul Bukowski<br /> ----<br /> <br /> == Virtual server configuration ==<br /> <br /> Is it possible to use wildcard '*' in domain name inside "ns/module/nssock/servers" section of aolserver4 config file? I would like to map all requests to *.somedomain.org to one virtual host...<br /> Something like this doesn't work:<br /> <br /> ns_section "ns/module/nssock/servers"<br /> ns_param forum somedomain.org <br /> ns_param forum somedomain.org:80 <br /> ns_param forum *.somedomain.org <br /> ns_param forum *.somedomain.org:80<br /> ns_param forum "*.somedomain.org" <br /> ns_param forum "*.somedomain.org:80"<br /> <br /> -Paul Bukowski<br /> <br /> : ''2005aug15 [[Dossy]]: Unfortunately, no -- you currently can't use wildcards the way you want. Not yet, at least.''<br /> <br /> Why won't you get some code for mass virtual hosts from http://naviserver.sourceforge.net/ ??<br /> -PB<br /> <br /> : Right now, to map a request to its (virtual) server, there's an O(n) search being done, but it's a "cheap" exact string comparison. To implement glob-style wildcard support, it'll become a more expensive (but possibly still "cheap" by most people's standards) glob-match comparison. When you're serving "n" requests per second (where "n" is small) the difference in cost is probably immeasurable, but when "n" is large, the cost is additive and possibly significant. It might be good if someone could benchmark the two and see what the real cost is. ''-- [[User:Dossy|Dossy]] 20:12, 4 November 2005 (EST)''<br /> <br /> ----<br /> <br /> == Server-side Includes ==<br /> <br /> Does anyone have some code to implement apache-compatible SSI (Server-side includes)? I have some old pages that use SSI that I'd like to move to my aolserver install but I don't have the time to rewrite them as ADPs.<br /> <br /> : ''[[User:Dossy|Dossy]] 20:20, 4 November 2005 (EST)'': I make no representations or warranties about the safety (!) or correctness of the code I'm about to share, but it might get folks started on a proper implementation in the future. In particular, I didn't implement any commands other than "include" and I even implemented it "wrong" (not according to [http://hoohoo.ncsa.uiuc.edu/docs/tutorials/includes.html the specification]). If there's real interest in having a complete SSI implementation for AOLserver, I'd be willing to improve this code.<br /> <br /> <pre><br /> ns_log Notice "ssi: registering SSI ADP tags"<br /> <br /> proc ssi_include_tag {params} {<br /> set param_count [ns_set size $params]<br /> for {set i 0} {$i < $param_count} {incr i} {<br /> set ssi_var_[ns_set key $params $i] [ns_set value $params $i]<br /> }<br /> <br /> if [info exists ssi_var_file] {<br /> if {[ns_adp_argc] > 1} {<br /> set basedir [lindex [ns_adp_argv] 1]<br /> } else {<br /> set basedir [ns_adp_dir]<br /> }<br /> if [regexp {^/} $ssi_var_file] {<br /> set filename $ssi_var_file<br /> } else {<br /> set filename $basedir/$ssi_var_file<br /> }<br /> return [ns_adp_parse -file $filename $basedir]<br /> }<br /> }<br /> <br /> ns_register_adptag {!--#include} ssi_include_tag<br /> <br /> ns_log Notice "ssi: registering SSI ADP tags done"<br /> </pre><br /> <br /> ----<br /> <br /> Is there a way to see only the errors (for example - 'variable' xxx not found? I seem to remember 2 logs - servername.log and servername-error.log? The version I have now - aolserver 3.2/ad1.2 only seems to give us servername.log - and all the error messages are mixed with the normal msgs - its very hard to debug!<br /> [[dannyl50]]<br /> <br /> The default/example config file did not have entries for both logs. The two sections you need look like (in old style notation): <br /> <br /> [ns/parameters]<br /> User=nsadmin <br /> Group=nsadmin <br /> ServerLog=/var/log/aolserver/servername-error.log <br /> PidFile=/var/log/aolserver/nspid.servername<br /> Home=/usr/bin/aolserver-3.3ad13 <br /> <br /> and <br /> <br /> [ns/server/servername/module/nslog]<br /> File=/var/log/aolserver/emp.log <br /> LogCombined=On <br /> MaxBackup=3 <br /> RollFmt=%Y-%m-%d-%H:%M <br /> RollHour=0 <br /> RollOnSignal=On <br /> RollLog=On<br /> <br /> <br /> <br /> ----<br /> <br /> Howdy! Can someone tell me, in general terms, how they have implemented [[nsperm]]? It looks cool, but I am using a plain old database with names and passwords, and it is very easy. I would like the allow/deny functionality, can I have that without the username/password part? -- [[Ian Harding]]<br /> <br /> ''I've implemented [[nsperm]] to restrict access to specific URLs using HTTP authentication (the username/password dialog) and cookie-based (if they have the correct cookie, otherwise URL redirect them to a login page that may set the cookie).''<br /> ''The latter is done using a registered preauth filter. I chose to use [[nsperm]] over a database since [[nsperm]] (presumably) manages the authentication information in memory better than repeatedly hitting the database with authentication requests, but there's no reason''<br /> ''I couldn't have used a database to store username/password information. Does this answer your question?'' -- [[Dossy]]<br /> <br /> <br /> Pretty much, although I started writing my app before I understood AOLServer, so I have a rather strange design that is good in some ways, bad in others. Keep in mind that this is a low activity app, no more than 20 concurrent users right now. <br /> <br /> What I did was to create an [[ADP]] that has a big case statement. It calls functions to generate pages based on the 'task' value it is passed through POST. I have created a pretty complex app this way, not using [[ns_register_proc]] at all. I know now I should have. As I understand it, ns_register_proc lets you create a 'virtual' directory structure that actually just calls certain procedures based on the GET or POST requested URL. This is far more graceful than hitting my main adp which opens up the form data, looks at the 'task' value, and decides which procedures to call. <br /> <br /> Given this lame structure, each time someone requests the main adp, I just check for a valid cookie and generate a login page if it's not there. After that, I have to set another cookie that is their 'access rights' which is then checked from within the procs that generate the pages. If I was doing it right, I could have registered a proc that would fire for all URLs in my virtual tree, checking your rights to the particular URL you reqested, and redirecting you if you are not allowed, right? <br /> <br /> Thanks!!! -- [[Ian Harding]]<br /> <br /> ''I probably would've created an ADP per task, and then registered a preauth filter that checked for the cookie and redirected the user to the login page (outside the directory that the preauth filter covers''<br /> ''-- avoid funny redirection loops) if the cookie wasn't set properly.''<br /> ''If you don't want to create a separate ADP per task, you could have used ns_register_proc to create what you describe as "virtual pages" and still have the preauth filter kind of "sit in front" and handle the autehntication, keeping that logic seperate from your actual page generation code.'' -- [[Dossy]]<br /> <br /> I started with a separate adp for each task, but I thought it would get out of hand quickly. I do think I will re-work the thing to use ns_register_proc and even do away with the few adp I do have. It seems far easier to maintain. In the meantime, I have to re-write all my SQL Server procedures in PostgreSQL PL/Tcl. That's why I want the [[nsfreetds]] module so badly, it buys me a little time!<br /> <br /> Thanks for all your work! -- [[Ian Harding]]<br /> <br /> ----<br /> <br /> ''Speaking of [[nsfreetds]], did you try nsfreetds-0.1pre? Any luck? Any problems?'' -- [[Dossy]]<br /> <br /> I just now tried it. I installed freetds with no trouble, compiled nsfreetds, modified my nsd.tcl [[config file]], added the datasource to interfaces, and all seems fine, except for that I always get "no access to pool "mypool" while executing "ns_db gethandle mypool" ..."<br /> <br /> I must have missed something. I saw something in the README about setting $env(SYBASE) before starting nsd. Is this the same as the SYBASE=/usr/pkg/freetds I had to do even before the build of nsfreetds?<br /> <br /> Thanks again... I feel like I am close.. -- [[Ian Harding]]<br /> <br /> ''Yes, the $env(SYBASE) means setting the SYBASE environment variable. To be safe, you can try this:''<br /> <br /> $ cd /path/to/aolserver/install<br /> $ SYBASE=/usr/pkg/freetds; export SYBASE<br /> $ bin/nsd ...args...<br /> <br /> ''Check log/server.log to make sure that the nsfreetds driver is actually loading. You should see a lines like this at start-up:''<br /> <br /> [30/May/2001:13:42:37][11838.1024][-main-] Notice: modload: loading '/home/aolserver-dev/bin/nsfreetds.so'<br /> [30/May/2001:13:42:37][11838.1024][-main-] Notice: Ns_FreeTDS_DriverInit(freetds): Loaded Panoptic FreeTDS Driver v0.1-pre, built on May 21 2001 at 22:23:01.<br /> <br /> ''Are you getting an error in the [[server log]] instead?'' -- [[Dossy]]<br /> <br /> I don't get an error, it seems to load nicely. I can post or give you access to whatever files or output you would like to see, or an ssh login... -- [[Ian Harding]]<br /> <br /> ----<br /> <br /> Another question: Global variables ([[nsv]]*). I am re-writing my app to use the [[ns_register_proc]] functionality versus my kludge where everything goes through an [[ADP]] that acts as a filter and traffic cop. I have figured out register filter and register proc, but seem not to be able to use [[ns_puts]] from within the procs. Is this right? Anyway, I had been using [[ns_adp_include]] in my filter/traffic cop page to put consistent headers/footers on my pages. I gather the more correct way (and only possible way with registered procs?) is to use global variables. <br /> <br /> When do I initialize them? How do I use them? What are the caveats? W<br /> <br /> Thanks, -- [[Ian Harding]]<br /> <br /> ''Have you started by reading the NSV documentation?'' -- [[Dossy]]<br /> <br /> Of course not 8^0 That would be too easy! I will... -- [[Ian Harding]]<br /> <br /> OK, I read it. It's too easy. I use it for header, footer, and client side script html, which I stuff into html variable before returning it. I would like the filter option we talked about in the chat which would prepend or append html automatically, but this will do. -- [[Ian Harding]]<br /> <br /> ----<br /> <br /> How hard would it be to add an HTTPS equivalent of Ns_FetchURL?<br /> <br /> ''If you can build shared libraries on your target platform with OpenSSL, it probably wouldn't be too hard. The trick would be writing enough stub code that can be loaded via the Tcl "load" proc so that you could access the OpenSSL-based https client from your Tcl code. Is there a lot of demand for this? I could probably bang something out as an initial attempt.'' -- [[Dossy]]<br /> <br /> [[Scott Goodwin]]'s [[nsopenssl]] now contains client side https functionality.<br /> <br /> ----<br /> <br /> Am I a brick, or does ns_register_proc just plain not work with more than one argument for the proc? I have tried the following code on both aolserver 3.2 running on NT4 and aolserver 3.4 on NetBSD 1.5. It fails to register the proc even once, if I try to register it with more than one argument anywhere else.<br /> <br /> <br /> ns_register_proc GET /foo1 foo 1<br /> ns_register_proc GET /foo2 foo 1 2<br /> ns_register_proc GET /foo3 foo 1 2 3<br /> <br /> proc foo { conn one {two 22} {three 333}} {<br /> ns_return 200 text/html "one is $one, two is $two, three is $three"<br /> }<br /> <br /> This must be something simple. I have already posted to the aolserver list but the listserv seems to have gone mad.<br /> <br /> [[Ian Harding]]<br /> <br /> ''What are you trying to do? It appears you want to pass constant parameters to your procedures. If they are constants, why pass them? Since ns_register_proc calls are generally in the global scope (and sourced when nsd starts) even a parameter that appears to be a variable probably can/will not vary.''<br /> <br /> ''Presumably you need to get information from one page to another. That means formvalues unless your page is stateful (usually a bad idea). Check out the '''[[ns_conn]] form''' command to get yourself started.'' -- [[Jason Kane]]<br /> <br /> ----<br /> <br /> OK, I'm using Windows 2000 SP2 and 3.4.1, and trying in vain to get Perl CGIs (legacy) to work. The scripts work outside of Aolserver, and work on AOLserver on Linux, but when I try inside the script to GET from myself (eg, GET http://localhost:8000/foo?bar=bas), I'm told "unknown protocol TCP", which is quite aggravating.<br /> <br /> Does anyone have any experience administering AOLServer on Windows?<br /> <br /> Thanks in advance!<br /> <br /> -Bill<br /> <br /> ----<br /> <br /> This is interesting, wy do you let me change your page?<br /> I'm trying to find an example of how to get my data using:<br /> set formdata [ns_conn form $conn]<br /> <br /> -Jason<br /> <br /> Because it's a wiki! A proc that gets posted variables includes the line you wrote there... then when you want to actually get the values, you can use something like <br /> <br /> set myvar [ns_set get $formdata myvar]<br /> <br /> where myvar is the name of the variable. There is also ns_queryget which looks like<br /> <br /> set myvar [ns_queryget myvar defaultval]<br /> <br /> This is handy because if there is no value, it will assign a default value. <br /> <br /> Check out aolserver.com, they have extensive (although sometimes misleading) docs. If something the docs says should work doesn't, ask. It may be out of date.<br /> <br /> [[Ian Harding]]<br /> <br /> ----<br /> <br /> I don't know where else to share my code fragments, so here seems like as good a place as any. This one implements user public_html directories. It's based on someone else's stuff (I forget whose tho). It should really do something with unknown mime types, and should do a better job with errors like unknown users. It does honor directoryFile and adp maps in the config file.<br /> <br /> It works by registering a procedure to /users that interprets the username and finds their directory. ns_register_proc doesn't allow wildcards other than in the last path element, so /~* wouldn't work. However that's not a problem for a filter, so there's a filter to take your /~user url and redirect it to /users/user<br /> <br /> -JR<br /> <br /> proc homedir { conn ctx } {<br /> set url [ns_conn url $conn]<br /> set user {}<br /> set file {}<br /> regexp {^/users/([^/]*)(/.*)?$} $url dummy user file<br /> # ns_returnnotice 200 "url is $url user is $user, file is $file"<br /> set userfile [getUserFile $user $file]<br /> set type [ns_guesstype $userfile]<br /> if {[string match "*[ns_config ns/server/[ns_info server]]/adp map]" $userfile]} {<br /> # ns_log notice "adp parsing $userfile"<br /> set cwd [pwd]<br /> cd [file dirname $userfile]<br /> # ns_return 200 text/html [ns_adp_parse -file $userfile]<br /> set result [catch {ns_adp_parse -file $userfile} error]<br /> if {$result} {<br /> ns_return 200 text/html $error<br /> } else {<br /> ns_return 200 text/html $error<br /> }<br /> cd $cwd<br /> } else {<br /> switch $type {<br /> "*/*" {<br /> }<br /> default {<br /> ns_returnfile 200 $type $userfile<br /> }<br /> }<br /> }<br /> <br /> if {[catch {set fp [open $userfile]}]} {<br /> ns_returnnotfound<br /> return<br /> }<br /> }<br /> <br /> proc getUserFile {user path} {<br /> foreach tail [split ,[ns_config ns/server/[ns_info server] directoryfile] ,] {<br /> set userfile "[glob ~$user]/public_html$path$tail"<br /> if {[file exists $userfile] && ![file isdirectory $userfile]} {<br /> return $userfile<br /> }<br /> }<br /> ns_returnnotfound<br /> # break<br /> }<br /> <br /> ns_register_proc GET /users/ homedir<br /> ns_register_proc POST /users/ homedir<br /> ns_register_proc HEAD /users/ homedir<br /> <br /> proc userRedir {conn arg why} {<br /> set url [ns_conn url]<br /> regsub {^/~(.*)} $url {/users/\1} redir<br /> ns_log notice "url is $url, redir is $redir"<br /> ns_returnredirect $redir<br /> return filter_break<br /> }<br /> <br /> ns_register_filter preauth GET /~* userRedir<br /> <br /> ----<br /> <br /> Hi!<br /> <br /> Does anybody know a graphing module for Aolserver/TCL, with e.g. bargraphs, linegraphs,... ?<br /> <br /> -[[wiwo]]<br /> <br /> ''Yes: [[nsgds]], [[nschartdir]].''<br /> <br /> ----<br /> <br /> Can I detect if the user pushes the Stop button in their browser in my TCL/ADP page?<br /> <br /> Yes, although it's a kludge. ns_write will return zero if it cannot write because the connection has been lost. However, ns_write is not stupid enough to try writing when you give it nothing to write, and so you must send something to the client. To prevent this being rendered use HTML comments, e.g.<br /> <br /> if {[ns_write "<nowiki></nowiki>"] == 0} {<br /> # user hit the stop button, browser page was closed, or connection to client was lost.<br /> }<br /> <br /> [[Ximon Eighteen]]<br /> <br /> <br /> ----<br /> <br /> == Generating random passwords ==<br /> <br /> The following method can be useful to generate random passwords and/or password salts.<br /> <br /> <pre><br /> # desired length of random string<br /> set iStringLength 8<br /> <br /> # characters allowed to appear in the string<br /> set sAllowableCharacters "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"<br /> <br /> # get length one time<br /> set iAllowableCharacters [string length $sAllowableCharacters]<br /> <br /> # begin random string as empty<br /> set sRandomString ""<br /> <br /> # loop until desired length is achieved<br /> for {set ii 0} {$ii < $iStringLength} {incr ii} {<br /> <br /> # get next random between 0 and length of allowed characters<br /> set iRandomInt [ns_rand $iAllowableCharacters]<br /> <br /> # retrieve this random character<br /> set sRandomCharacter [string index $sAllowableCharacters $iRandomInt]<br /> <br /> # append the character to our random string<br /> append sRandomString $sRandomCharacter<br /> <br /> }<br /> <br /> ns_adp_puts "sRandomString: $sRandomString"<br /> </pre><br /> <br /> ---<br /> <br /> == Customizing error pages ==<br /> <br /> Edit your AOLServer's config file, and add the paths to the error pages as follows:<br /> <br /> <pre><br /> #<br /> # Internal redirects<br /> #<br /> ns_section "ns/server/${servername}/redirects"<br /> ns_param 404 "/notfound.html" ;# Not Found error page<br /> ns_param 500 "/servererror.html" ;# Server Error page<br /> </pre></div>

Juanjose https://panoptic.com/mediawiki/aolserver/index.php?title=Talk:Ns_dbquotevalue&diff=5010 Talk:Ns dbquotevalue 2006-12-14T14:29:10Z

<p>Juanjose: </p> <hr /> <div>== double single quotes in examples ==<br /> <br /> there are errors in the examples: the double single quote is being hijacked by the wiki and turning the text into italic instead of showing the double single quote.<br /> <br /> Fixed --[[User:Juanjose|juanjose]] 09:29, 14 December 2006 (EST)</div>

Juanjose https://panoptic.com/mediawiki/aolserver/index.php?title=Talk:Ns_dbquotevalue&diff=5009 Talk:Ns dbquotevalue 2006-12-14T14:22:24Z

<p>Juanjose: </p> <hr /> <div>== double single quotes in examples ==<br /> <br /> there are errors in the examples: the double single quote is being hijacked by the wiki and turning the text into italic instead of showing the double single quote.<br /> <br /> Fixed --[[User:Juanjose|juanjose]] 09:22, 14 December 2006 (EST)</div>

Juanjose https://panoptic.com/mediawiki/aolserver/index.php?title=Ns_dbquotevalue&diff=5008 Ns dbquotevalue 2006-12-14T14:01:25Z

<p>Juanjose: </p> <hr /> <div>Man page: http://aolserver.com/docs/tcl/ns_dbquotevalue.html<br /> <br /> ----<br /> <br /> '''NAME'''<br /> <br /> : ns_dbquotevalue - Prepare a value string for inclusion in an SQL statement.<br /> <br /> '''SYNOPSIS'''<br /> <br /> : '''ns_dbquotevalue''' ''value ?type?''<br /> <br /> '''DESCRIPTION'''<br /> <br /> : This command prepares the string ''value'' for inclusion in an SQL statement. If ''value'' is "", ns_dbquotevalue will return the string "NULL". If ''value'' is not "", the returned value depends on ''type''. If ''type'' is one of: bigint, bit, decimal, double, float, int, integer, numeric, real, smallint, or tinyint, then ''value'' will be returned without modification. When ''type'' is any other string, or if ''type'' is omitted, ''value'' will be surrounded by single quotes, and any single quotes that it contains will be escaped by translation into two single quotes.<br /> <br /> '''EXAMPLES'''<br /> <br /> % ns_dbquotevalue ""<br /> NULL<br /> <br /> % ns_dbquotevalue 45.3 float<br /> 45.3<br /> <br /> % ns_dbquotevalue "John's Car"<br /> <nowiki>'John''s Car'</nowiki><br /> <br /> % set company "John's Cheese Factory"<br /> % ns_db dml $db "INSERT INTO companies (name) VALUES ([ns_dbquotevalue $company])"<br /> <br /> '''SEE ALSO'''<br /> <br /> : [[ns_dbquotename]]<br /> <br /> ----<br /> <br /> [[Category Documentation]] - [[Category Core Tcl API]]</div>

Juanjose https://panoptic.com/mediawiki/aolserver/index.php?title=Nspasswd&diff=5007 Nspasswd 2006-12-14T13:04:53Z

<p>Juanjose: </p> <hr /> <div>'''nspasswd does not exist nowadays.'''<br /> <br /> nsperm doesn't speak md5 hashed passwords, only unix crypt. If you need to crypt a password, try this Perl script one-liner:<br /> <br /> $ perl -le 'print crypt("password", "..");'<br/><br /> ..UZoIyj/Hy/c<br /> <br /> Replace "password" with the password you want to encrypt (up to 8 characters -- anything more gets truncated silently anyway). The output from the script ("..UZoIyj/Hy/c") is the crypted password that you can cut and paste into your passwd file.</div>

Juanjose