Index: openacs-4/packages/acs-subsite/www/shared/1pixel.footer =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/1pixel.footer,v diff -u -N -r1.1 -r1.1.2.1 Binary files differ Index: openacs-4/packages/acs-subsite/www/shared/1pixel.header =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/1pixel.header,v diff -u -N -r1.1 -r1.1.2.1 Binary files differ Index: openacs-4/packages/acs-subsite/www/shared/1pixel.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/1pixel.tcl,v diff -u -N -r1.1.1.1 -r1.1.1.1.2.1 --- openacs-4/packages/acs-subsite/www/shared/1pixel.tcl 13 Mar 2001 22:59:26 -0000 1.1.1.1 +++ openacs-4/packages/acs-subsite/www/shared/1pixel.tcl 10 Mar 2002 21:44:05 -0000 1.1.1.1.2.1 @@ -9,7 +9,7 @@ set_the_usual_form_variables -set file [open "[ns_info pageroot]/graphics/1pixel.header"] +set file [open "[acs_package_root_dir "acs-subsite"]/www/shared/1pixel.header"] ns_writefp $file close $file @@ -35,6 +35,6 @@ ns_unlink $file_name } -set file [open "[ns_info pageroot]/graphics/1pixel.footer"] +set file [open "[acs_package_root_dir "acs-subsite"]/www/shared/1pixel.footer"] ns_writefp $file close $file Index: openacs-4/packages/acs-subsite/www/shared/1pixel.tcl.orig =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/Attic/1pixel.tcl.orig,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/acs-subsite/www/shared/1pixel.tcl.orig 10 Mar 2002 21:44:05 -0000 1.1.2.1 @@ -0,0 +1,40 @@ +# 1pixel.tcl,v 1.1.2.2 2000/02/03 10:00:24 ron Exp +# File: index.tcl +# Date: 28 Nov 1999 +# Author: Jon Salz +# Description: Generates a 1-pixel GIF image with a certain color. +# Inputs: r g b + +ReturnHeaders "image/gif" + +set_the_usual_form_variables + +set file [open "[ns_info pageroot]/graphics/1pixel.header"] +ns_writefp $file +close $file + +if { [util_aolserver_2_p] } { + if { $r == 0 } { set r 1 } + if { $g == 0 } { set g 1 } + if { $b == 0 } { set b 1 } + + ns_write "[format "%c%c%c" $r $g $b]" +} else { + # Can't figure out how to write binary data using AOLserver 3 (it + # insist on UTF8-encoding it). So we write to a file, then dump + # the file's contents. + + set file_name [ns_tmpnam] + ns_log "Notice" "logging to $file_name" + set file [open $file_name w+] + fconfigure $file -encoding binary + puts -nonewline $file "[format "%c%c%c" $r $g $b]" + seek $file 0 + ns_writefp $file + close $file + ns_unlink $file_name +} + +set file [open "[ns_info pageroot]/graphics/1pixel.footer"] +ns_writefp $file +close $file Index: openacs-4/packages/acs-subsite/www/shared/1pixel.tcl.rej =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/Attic/1pixel.tcl.rej,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/acs-subsite/www/shared/1pixel.tcl.rej 10 Mar 2002 21:44:05 -0000 1.1.2.1 @@ -0,0 +1,32 @@ +*************** +*** 9,15 **** + + set_the_usual_form_variables + +! set file [open "[acs_package_root_dir "acs-subsite"]/www/shared/1pixel.header"] + ns_writefp $file + close $file + +--- 9,15 ---- + + set_the_usual_form_variables + +! set file [open "[ns_info pageroot]/graphics/1pixel.header"] + ns_writefp $file + close $file + +*************** +*** 35,40 **** + ns_unlink $file_name + } + +! set file [open "[acs_package_root_dir "acs-subsite"]/www/shared/1pixel.footer"] + ns_writefp $file + close $file +--- 35,40 ---- + ns_unlink $file_name + } + +! set file [open "[ns_info pageroot]/graphics/1pixel.footer"] + ns_writefp $file + close $file