KNOW ABOUT
AHTELLO:
About
the paintings
Hi! What could I tell
you about me? Let me think...
If I start from the beginning, we will see what comes up, okey?
I live in Sweden, since the
year I was born 1965.
Like most people, I created a lot when I was just a little kid.
I used to love to draw and paint, and I did it always.
 In
school my favorite class of course was drawing
and painting.
...
As I grew up, I started to do just that; I grew up. That means that I started
not to have time for things as drawing and painting, because it is only children
who are allowed to play and
have fun all day, grownups have to work to get money
to live. I started out trying different occupations, to find something that was fun to
work with, such as nanny, secretary, cashier in a food store, and last but not least
I was working as a policewoman for six years. I liked all my jobs,
they were ok, but I was not totally ecstatic about them.
...
Now; I never thought about that I could do it the
other way around; I mean do something I really loved to do,
and develop it into being my work. I would probably never have
believed that this was possible, unless I had been convinced
by a friend to take a course in personal development.
The course was led by a woman named Sandy Levey,
and it was about how to create your dreams to come true,
( I had not even had an idea about what my dreams were ! )
and shortly after taking that course, I resigned from the
Police force, without having a new employment.
...
I did not know what to do for a living, but I had lot of support in every way,
from my fiancé ( who is now my husband ). Before I resigned, I had taken a wonderful
paintings class, for two swedish painters; Stig Owe Jemseby and Torbjörn Flatnes ( I really
want to thank them for the way they are; incredibly positive and spiritually open minded,
and for the incredible paintings they have brought to humanity ). In their class I found
a way of painting that is truly my own, and gradually, after taking their class,
I have realized that I am supposed to paint, simply because I love it.
...
I am grateful today,
to the turns my life has taken. I can
understand that things that
have happened in my life, have happened for my
own good ( even though I did not always think so), so I had the possibilities to make
some decisions about how I would like to live my life. I would not have been
as happy and content as I am today, if some things had not happened
to me, wich I did not approve of or like when they happened.
I have learned that changes might be scary,
but that does not mean that they are bad.
I am acctually living my
dream now;
I am working as an artist, and I am hopefully making a diffe-
rence in the world, through sharing my paintings, and by supporting myself and
others to let go of negative perception, through communication and Body Harmony,
wich is a very soft release method for the body. I am also supporting
The Hunger Project to end hunger in the world,
by unleashing the human spirit.
...
About my paintings, and the way I paint,
I can tell you this: it is a total adventure ! I start out without
having any idea about what I am going to paint. I just choose the colors I like
for the moment, and I start to play with them. I then look for the beginning
of something, and when I see something, I start to follow/develop it.
I go with the flow, so a painting can (and often does) change
a lot from the start until I have finished the painting.
The paintings have messages for me.
Sometimes I realize very quickly what they are about,
and sometimes it takes me a long time to get it. I want to share these
paintings and messages with the rest of the world. I know that you might see
and understand other things than I do, and I would like to know your
interpretation, so please feel welcome to send me a comment !
...
I would like to give you a word
of support on the way of life;
Remember that perception is a matter of choice.
May you always be able to choose to see from Love!
AHTELLO !
...
|
#! /usr/local/bin/perl
# cgi-bin access counter program
# Version 3.2.4
#
# The program is placed under the GNU Public License (GPL)
# gburgyan@cybercon.com
# counter or counterbanner or counterfiglet
#
# Outputs the number of times a specific page has been accessed.
# The output depends on which page 'called' it, and what the program
# is named:
#
# The counter can "take arguments" via its name. That is, if you tack
# -arg to the end of the program name, -arg is taken to be an argument.
# For example, if you call the counter 'counter-ord', '-ord' is considered
# an argument, and an ordinal count (1st, 2nd, 3rd, ...) will be printed
# instead of (1, 2, 3, ...). Note that counterord does the same thing as
# counter-ord for backward compatibility.
#
# Currently recognized arguments:
#
# -f=font sets "font" to be the font for figlet
# -nc no count; don't to write the incremented count back to the file
# -nl no link; don't automatically generate a link
# -ord make an ordinal count instead of regular
# -doc=document override the DOCUMENT_URI environment variable
#
# Example: counterfiglet-ord-f=bigfont-nc
#
# This will cause the counter to call figlet as the output routine, printing
# in a big font an ordinal count, without updating the access count file.
# Note that the order of arguments is irrelevant so long as you spell the
# file name correctly. It is generally assumed that the ability to take
# different arguments/use different output routines is done with symlinks:
# i.e. ln -s counter counterfiglet-ord-f=bigfont-nc
# Ok, so what if you want to use the font "banner3-D"? You have to quote
# the "-" as either "\-" or "%2D" (where 2D is hex for the ASCII code for
# "-"). Since you can use \ and % to quote both must be quoted if you want
# them to show up by themselves. "%" can be either "\%" or "%25" and
# "\" can be either "\\" or "%5C". Also, remember that each "\" must be
# quoted in HTML or in your shell. This means you will have to type:
# 'ln -s counter counterfiglet-f=banner3\\-D' or use
# 'counterfigler-f=banner3%2DD' in order to make the link.
# Advantages:
# Does not require any graphics for the client.
#
# Allows anyone on a server (after the program has been installed) to
# very easily put an access counter on any of their pages.
#
# Only one *TEXT* file is used for the whole server.
#
# Fits in well with the rest of the formatting of the document.
#
# Can Selectively ignore accesses from certain hosts.
#
# Easily customizable with symlinks so only one actual copy of the
# counter is ever needed.
#
# Possible flaws:
# It requires server-side includes to be turned on unless you use a
# CGI script to handle the parsing. Such a script is available from
# http://www.webtools.org/ssis/ssis
#
# Requires one of the most ridiculous methods possible for passing arguments.
# Unless you are using the ssis script which allows you to pass arguments
# with "/" instead of "-" such that the environment variable PATH_INFO is
# used to pass arguments in any order and without symlinks.
#
#
# File format:
# On each line of the "access_count" file, there is one record:
# 'document' 0000000000
# The document name in single quotes followed by a space, followed by
# the number of accesses of the document (must be 10 digits). Any
# line which does not fit this format is ignored for safety's sake.
#
#
# Please send your comments to me! :)
# gburgyan@cybercon.com
#
########################################################################
#
# Version 3.2.4-Added -doc= command-line option to work around netsite's
# brokenness (thanks Steve Manes ) - GEB
# Version 3.2.3-Fixed command-line options for NCSA httpd 1.4 - GNS
# Version 3.2.2-Clean up some warnings if used with `perl -w`
# Version 3.2.1-Allow .cgi and .pl extentions to filenames - DE
# Version 3.2 - Now it can take arguments via the filename - GNS
# Version 3.1 - Link now depends on the printing module.
# - Removed dependence on cgi-lib.pl - GNS
# Version 3.0 - File locking made non-necessary. (This is not as bad
# as it seems.
# - Made the output format more easily user-definable
# Version 2.3 - Locking problems *REALLY* fixed. Again, this is
# Phil that cought my bug. It really works now! :)
# Version 2.2 - Locking problem fixed. Thank you Philip Greenspun
#
# Version 2.1 - Support for aliases of pages (to support many links to
# one page)
# Version 2.0 - No longer depends on a dbm file; instead uses a very
# simple text file. It also supports locking.
# Version 1.0 - First public release. Uses DBM files to count accesses
#
########################################################################
#
# CHANGE THESE TO SUIT YOUR SITE
#
# Maximum number of times to try to lock the file.
# Each try is .1 second. Try for 1 second.
$MaxTries = 10;
# The name of the file to use. You should probably give this a relative path
$FileName = "access_count";
# Set this to point to something, or comment it out, and it
# won't be a link at all.
#$Link = "http://www.webtools.org/counter/";
# Aliases: Set this up so that diffent pages will all yield the same
# count. For instance, if you have a link like "index.html -> home.html"
# set it up like ("/index.html", "/home.html"). Make sure you give a full
# path to it. This will treat "/index.html" as if it were "/home.html".
%Aliases = ("/index.html", "/home.html",
"/webtools/counter/index.html", "/~gburgyan/counter/index.html",
"/counter/index.html", "/~gburgyan/counter/index.html",
);
# Replace with a list of regular expression IP addresses that we
# are supposed to ignore. If you don't know what this means,
# just put '#'s in front of the next section.
#@IgnoreIP = ("199\.18\.203\..*", # Change Me!
# "199\.18\.159\.1", # Change Me!
# );
# Whether or not to use locking. If perl complains that flock is not
# defined, change this to 0. Not *really* necessary because we check
# to make sure it works properly.
$UseLocking = 1;
#
#########################################################################
#
# Misc documents to refer people to in case of errors.
#
$CreateFile = "[Err
or Creating Counter File -- Click for more info]";
$AccessRights = "[E
rror Opening Counter File -- Click for more info]";
$TimeoutLock = "[Timeout locking counter file]";
$BadVersion = "[Version access_cou
nt newer than this program. Please upgrade.]";
# Get arguments from program name. Argh...what a horrible way to do it!
$prog = $0;
$prog =~ s/(\.cgi|\.pl)//; #strip .cgi|.pl name extension
$prog =~ s!^(.*/)!!; # separate program name
$prog =~ s/\\(.)/sprintf("%%%02x", ord($1))/ge; # quote \c to %xx
($printer, @args) = split(/-/, $prog); # args are separated by dashes
$printer =~ s/%(..)/pack("c", hex($1))/ge; # unquote printer function name
# This gets path info, which is only applicable if you are using our
# ssis script (see above). This makes counter/ord the same as counter-ord
push(@args, split("/", $ENV{"PATH_INFO"})) if $ENV{"PATH_INFO"};
# put them in assoc array %arg
foreach (@args) # means do this for each element in the array
{
s/%(..)/pack("c", hex($1))/ge; # unquote %xx
/^([^=]*)=?(.*)$/; # extract "=" part, if any
$arg{$1} = $2 ? $2 : 1;
}
undef $Link if $arg{'nl'}; # make link?
# Print out the header
print "Content-type: text/html\n\n";
# Make sure the file exists:
if (!(-f $FileName)) {
if (!open (COUNT,">$FileName")) {
print $CreateFile;
exit 1;
}
} else {
if (!((-r $FileName) && (-w $FileName))) {
# Make sure that we can in fact read and write to the file in
# question. If not, direct them to the FAQ.
print $AccessRights;
exit 1;
}
if (!open (COUNT,"+<$FileName")) { # Now make sure it *really* opens
print $AccessRights; # ...just in case...
exit 1;
}
$version = ;
if (!($version =~ /^\d+.\d+$/)) {
$version = 1;
seek(COUNT,0,0);
}
}
# This is for the future: the access_count file will have a version number.
if ($version > 1) {
print $BadVersion;
exit 1;
}
if ($UseLocking) {
# Try to get a lock on the file
while ($MaxTries--) {
# Try to use locking, if it doesn't use locking, the eval would
# die. Catch that, and don't use locking.
# Try to grad the lock with a non-blocking (4) exclusive (2) lock.
# (4 | 2 = 6)
$lockresult = eval("flock(COUNT,6)");
if ($@) {
$UseLocking = 0;
last;
}
if (!$lockresult) {
select(undef,undef,undef,0.1); # Wait for 1/10 sec.
} else {
last; # We have gotten the lock.
}
}
}
# You would figure that $MaxTries would equal 0 if it didn't work. The
# post-decrement takes it to -1 when the loop finally exits.
if ($MaxTries == -1) {
print $TimeoutLock;
exit(0);
}
# Make sure perl doesn't spit out warnings...
if
(defined $arg{'doc'}) {
$doc_uri = $arg{'doc'};
} elsif
(defined $ENV{'DOCUMENT_URI'}) {
$doc_uri = $ENV{'DOCUMENT_URI'};
} else {
$doc_uri = "";
}
$doc_uri = $Aliases{$doc_uri} if defined $Aliases{$doc_uri};
$location = tell COUNT;
while ($line = ) {
($uri,$accesses) = ($line =~ /^'(\S*)' (\d\d\d\d\d\d\d\d\d\d)$/);
last if ($uri eq $doc_uri);
$location = tell COUNT;
$accesses = 0;
}
$accesses += 1; # *NOT* '++' because we don't want '++'s magic
$num = $arg{'ord'} ? $accesses . &ordinalize($accesses) : $accesses;
($count, $nLink) = eval("&output_$printer('$num')");
if ($@) {
($count, $nLink) = &output_counter($num);
}
# Print out a link to something informative (if we were requested to)
print "" if $nLink;
print $count;
print "" if $nLink;
# Make sure we are not ignoring the host:
$ignore = 0;
$ignore = grep($ENV{"REMOTE_ADDR"} =~ /$_/, @IgnoreIP) if defined ($ENV{"REMOTE
_ADDR"});
if (!$ignore && !$arg{"nc"}) # if we aren't ignored and requested to not count
{
# Now update the counter file
seek(COUNT, $location, 0);
$longaccesses = sprintf("%010d", $accesses);
print COUNT "'$doc_uri' $longaccesses\n";
}
if ($UseLocking) {
flock(COUNT,8); # Unlock the file.
}
close COUNT;
# ordinalize
#
# Figure out what suffix (st, nd, rd, th) a number would have in ordinal
# form and return that extension.
sub ordinalize
{
local($count) = @_;
local($last, $last2);
$last2 = $count % 100;
$last = $count % 10;
if ($last2 < 10 || $last2 > 13) {
return "st" if $last == 1;
return "nd" if $last == 2;
return "rd" if $last == 3;
}
return "th"; # Catch "eleventh, twelveth, thirteenth" etc.
}
# The following are the routines that actually convert the number
# of accesses into something that we print out.
#
# The name of each function is "output_" followed by the program's name.
# For instance, is the program is called "counter" then "output_counter"
# will be called; a program called "counterbanner" will call
# "output_counterbanner" to get the output.
#
# If the function is not defined, then "output_counter" will be called.
# output_counter
#
# The simplest function: just returns the number of accesses and the link.
sub output_counter {
local($count) = @_;
return $count, $Link; # we return the count and the link
}
# output_counterord
#
# Return the number of accesses as an ordinal number. (ie. 1st, 2nd, 3rd, 4th)
sub output_counterord {
local($count) = @_;
return $count . &ordinalize($count), $Link;
}
# output_counterbanner
#
# A somewhat silly one that uses the "banner" command to print out the
# count. :) You might need to change the path to make it work.
sub output_counterbanner {
local($count) = @_;
$banner = `banner $count`;
return "$banner "; # return no link here (it would be annoying)
}
# output_counterfiglet
#
# An even sillier one than counterbanner. :)
sub output_counterfiglet {
local($count) = @_;
$fig = "echo $count | /usr/games/figlet"; # setup command line
$fig .= " -f $arg{'f'}" if $arg{"f"}; # use a different font?
$fig = `$fig`;
$fig =~ s!&!&!;
$fig =~ s!" . $fig . " "; # note no link here, either
}
|
