Planetary Circle of Light

Dear Friends and Companions in the Light,

Many of us experienced the crossing of the threshold to the new millennium as a global celebration of peace and goodwill regardless of where it was taking place. We saw firsthand the unity of intention for peace and goodwill expressed through the diverse cultures of the world. Each in its own way celebrated the passing of the old, and heralding the birth of a new age, a new consciousness of joy, abundance and harmony. Many have awakened to and recognize the need to work together to bring harmony and balance to the planet.

On the individual, human level we are also seeing an unprecedented opening and reaching out for meaning, reverence, peace, harmony and unity. There is a longing for understanding, acceptance and belonging.

Through these events we are being encouraged to experience the actual nature of humanity and its relationship to all kingdoms of creation. This is beautifully expressed in the "Flower Garland Sutra"* (Avatamsaka sutra):

...In the heaven of Indra, there is said to be a network of pearls, so arranged that if you look at one you see all the others reflected in it. In the same way each object in the world is not merely itself but involves every other object, and in fact IS every other object...

*The Flower Garland Sutra" from The Revolution From Within by Gloria Steinem

For many the changes which are being brought about through these new energies are causing extreme discomfort on the physical, sensory, emotional and mental levels. As we individually earthe the shifts in consciousness by releasing the old binding thought processes and behaviors, we are helping all people to make the shift as well.

We are reminded that we are responsible only for our own creation, including our physical body and energy field, and the way we relate to all with which we come in contact. This is our Sphere of Influence, and it is from this place that all else emanates.

As Russell Paul Schofield, the founder of Actualism wrote:

...As we uplift, inspire, and work within our own structures, functions, and consciousness...as we are lifted up, we can reach out...and lift up others. But it must be done within our own personality systems...before we can successfully reach out to others...

Every day we are in a position to help earthe this new consciousness of Love, Wisdom and Good Will, deeper within the body of our planet Earth, and deeper into the body/mind awareness of Humanity in general. We are able to expand the energies of the previous seasons – those of Wisdom – the Illumined Mind imbued and enhanced with the power of Love. Love infused with Wisdom is Compassion in action. Wisdom and Love support the expression of Good Will opening all to the inflow of abundance.

This is a consciousness that is inclusive rather than exclusive – that we are all members of one family, the Human Family. It is a consciousness that recognizes the unique contribution that every unit of life – human, animal, plant or mineral; – makes to the well being of all life on Earth. It is a consciousness that enables the expanding of awareness of all levels and dimensions of living, and fosters a deepening awareness of the spherical, non-linear, interdimensional, interdependence that comes from being a part of the ALL.

We are in a planetary cycle which continues to provide an augmentation of the power and full potential of Planetary Consciousness that is being anchored deep within the core of the Earth. Now more than ever it is important to continue to invoke the triad of Love, Wisdom and Goodwill. We can help anchor these at all levels and all dimensions of creation. With our unified focus we then can channel that throughout the Networks direct to those places where conflict abounds. In this way, we provide inner support and power to those Lightworkers immediately responsible for bringing about Peace and Prosperity where ever they are.

We are invited to stand open to the inflowing energies being anchored deep within the core of the Earth through the willing intent of Lightworkers throughout world. As members of a tremendous network of Light which is within, throughout and all about each of us, the planet and the cosmos, we are encouraged to use this period to continue the work we began several years ago.

Increasing tensions and the re-emergence and escalation of hostilities in many places around the world provides an even greater challenge to those who have chosen this Path of Earth Service. This is a period when the Will to Good, Peace and Unity is being tested. Lightworkers are being called upon to intensify the process of building bridges of Light across the chasm from old, destructive states of consciousness and behavior to the new consciousness of Unity, Prosperity, and Well-being for all.

Using our group power and intention we can earthe Love, rather than its inversions: hate, rage, kill. We can earthe Wisdom, rather than its inversions: fear, ignorance, illusion, and delusion. We can earthe the Will to Good, rather than its inversions: abuse of power, control, manipulation, greed and impoverishment. Through our willingness to open to the Mind, Heart and Will of the Father/Mother Creator of the Cosmos, we can bring about the reestablishment of Heaven on Earth – the Paradise Lost for which so many have been yearning.

With this in mind, we invite you to join us as we enter into the next phase of our mission to earthe the networks of light throughout the world. We do this through the focused intent for the energy of love, wisdom and goodwill to be anchored deeply within each of us, so that we may reach out to those who are personally involved in this struggle for right human relations wherever they may be.

Let us focus together first in the beauty of our individual uniqueness. Recognize how that uniqueness is not lost through union. Experience the harmony that is created by our union. As we enter into this union of diversity, let us hold each other in the light of our mutual support, protection and healing...seeking to manifest and recreate the balance and harmony in whatever area of life and living it is needed...extending powerful support to the many Anchors of Light wherever they are. And, in so doing may we all continue to manifest more of our potential, demonstrate more of our Actual Authority, our Faith in ourselves and Compassion for each other's learning steps along the way to wholeness...expressing this with deep love and gratitude, appreciation and recognition of who we are and why we have come together...as we freely, willingly and joyfully journey along the path of earth service.

Bernice B. Cousins
Co-Director, New York Star Center

The Dance of Light: The Dance of Life

Blessed are the peacemakers, for they shall be
known as the children of God … –Matthew 5:1-12

Modern technology has enabled our human family to reach out across time and space to create a global community. This community has a global consciousness that never sleeps. We function “'round the clock”, 24/7, connected by an invisible World Wide Web – a network, which up until a decade ago, existed only on the inner dimensions of life. The gifts that technology brings to us have also made our connection with our beloved planet more remote. As people move from a rural, agrarian environment into the urban settings, the connection with the actual rhythm of life is often stretched, and in some instance actually broken. The global consciousness response to this is a powerful reawakening to the interrelated, interconnection of all elements of life sustained by our home planet.

As the Sun moves northward in its annual cyclical dance with our home planet, Earth, the inhabitants of the northern hemisphere of this amazing entity are beginning to experience the quickening associated with renewal and regeneration. At the point of the Summer/Winter Solstices, June 20 and December 22, our planet experiences the extremes in the length of day and night. The point of maximum tension between daylight and darkness. Then, as the hours of daylight increase in the northern hemisphere, or decrease in the southern hemisphere, we come, once again, to that point of perfect balance – the Vernal/Autumnal Equinox – equal hours of daytime and nighttime. The 2009 Equinoxes occur on March 20 and on September 23. We can experience that point of perfect balance, harmony and equilibrium, otherwise known as absolute peace.

This is a time for new beginnings, renewal, reclamation and redemption. It is a time when we can draw on all of the available cosmic energy to help us manifest an abundant harvest that can be beneficial to all members of all kingdoms of planet Earth. During the months immediately following the equinox, as earth continues it journey around the sun, we enter into the phase of the three major spiritual festivals: Easter, Wesak and finally the Festival of Humanity also known as the Festival of Good Will.

How we prepare for this period is vitally important. It is as though we are preparing the earth to receive the seeds of consciousness that will result in the abundant harvest generated by the components of Love, Wisdom and the Will to Good. The fruit of that harvest is the Peace that is beyond all understanding.

Our intuitive wisdom comes from our racial or historical memory, filed in the library of our DNA. This wisdom tells us that how we prepare the soil, plant the seeds, and tend the fields at this time will influence the nature and abundance of the harvest available to us when the Sun changes its direction and moves southward

Often, when the word “peace” is mentioned, thoughts immediately go to places where there is war or other events that produce turmoil, hardship, conflict, scarcity, chaos and fear. As a result, when we think of peace, we are actually thinking of the absence of peace, and therefore the energy that is being transmitted is the opposite of the peace that we are trying to create.

In order to transmit the energy of Peace, we must first be at peace within – deep within – at the core of being. How we get to this place of Peace Within is as varied as the individual. For some it can be through prayer, others meditation. Whatever the method of approach, the key is to be in that place of perfect calm, serenity and wholeness – at-one-ment.

It has been said: “Peace. It does not mean to be in a place where there is no noise, trouble or hard work. It means to be in the midst of those things and still be calm in your heart” (author unknown).

For those who have experienced difficulty in coming to this place of Peace Within, it may help to recall a place in nature where you felt the stillness and quiet. Others may recall a place or person who provided security and comfort. For many it is a “remembrance” of the feelings and sensations that lie deep within, buried but not completely forgotten.

Choose your own path to the place of Peace Within. Walk it slowly, savoring the essence of the feeling that surrounds you, floods your being, fills your heart, quiets your mind and soothes your senses. Walk it often so that you are filled to overflowing and willing to share this essence with those who you pass along the way, for it is only when you are filled to overflowing that you can radiate this Peace Within outward to the world so that others may be warmed by it, nourished by it, and uplifted by it. From this place you become the living example of the invocation: Let there be Peace on Earth – Let it begin with me!

Working from this place of Peace Within, we are able to move outward along the inner networks of Light, reaching out to touch the hearts, mind and spirit of our human family wherever they may be, and offer them the fruit of our labors. In this way we earth the message of the Christ – Peace be within you. My peace I give you.

From this place of Peace Within* let us move forward with our work together.

*Actualism teaches how to find a place of Peace within called the Upper Room.

OUR INNER WORK TOGETHER

This is a call to action in an ongoing campaign to earthe Wisdom, Love and Good Will in all regions of the planet. Won't you join us in this opportunity not only to earthe the light, but to link up with lightworkers around the planet. You are encouraged to share the project with others as you receive inner direction to do so.

We propose to undertake this campaign to augment the inner and outer networks of Light in the following ways:

Take your place in a group power stance in consciousness. Think of standing in the inflowing light of the Healing Grace of God's Love — pouring through your own axis and the group's axis. You may of course, emphasize any attribute of the Light according to your inner direction.
Magnetically open to draw in the flow from the Higher while you dynamically direct it downward and outward through your field and into the earth.
Turn and face outward and let that light flow THROUGH you to all.
Experience the high frequency power of the light energy moving through your body-mind as through a transformer, modulating in intensity and vibratory rate so that it is made accessible to all kingdoms of life on this planet.
Experience it anchoring deep within the planet, and experience the loving response of the Being of Light whose body is the planet Earth, as you are recognized and acknowledged for the light you are channeling to the Earth.
As you stand, facing outward from the source of life energy, open to the inflow of communication from Planetary Hierarchy, and recognize that you are a conduit for nonverbally transmitting this communication to all.
If you have a special area of concern hold that area in awareness and let the light flow throughout it as well.
It is important to remember that it is not necessary to have brain-mind awareness of solutions, or to judge the right or wrong in any given situation.
Give yourself space and time to assimilate the inflowing essence which is your gift from the Earth, Planetary Hierarchy, and other Beings of Light. Since you too are on the planet, the gifts of love and light that you have transmitted flow back to you as well.
For more on how to do planetary lightwork, please see the article "Planetary Work" by Dr. Bruce R. Jaffe.

To become a member of the
Planetary Circle of Light, please fill
out and submit the PCL Membership Form.
If you wish, we will also add your e-mail
address to the

LIST OF CURRENT MEMBERS

You are the #! /pcgi-bin/counter-ord.cgi # cgi-bin access counter program # Version 4.0.7 # # Copyright (C) 1995 George Burgyan # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or (at # your option) any later version. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # A full copy of the GNU General Public License can be retrieved from # http://www.webtools.org/counter/copying.html # # gburgyan@webtools.org # # George Burgyan # 1380 Dill Road # South Euclid, OH 44121 # # For more information look at http://www.webtools.org/counter/ ######################################################################## # # CHANGE THESE TO SUIT YOUR SITE # # The default language option (english, french, swedish) $default_lang = "english"; # The name of the file to use. You should probably give this an absolute path $FileName = "access_count"; $FileName = "access_count"; # Replace with a list of regular expression IP addresses that we # are supposed to ignore. If you don't know what this means, just use # "\." instead of periods. Comment out entirely to ignore nothing. #@IgnoreIP = ("199\.18\.203\..*", # "199\.18\.159\.1", # ); @IgnoreIP = ("166\.84\.202\.78"); # 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 = ("/fakename.html", "/realname.html", "/index.html", "/home.html", ); %Aliases= ("/noframes-act.html", "/index.html"); # AUTOMATICALLY SET BY INSTALL!! Modify only if necessary!!! # # BaseName: set to whatever you have counter installed as. This is # used to derive the arguments. Do not touch the next comment. ### AUTOMAGIC ### $BaseName = "counter.cgi"; # 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 # -lang=lang sets the language used to ordinalize to "lang" # -nc no count; don't to write the incremented count back to the file # -nl no link; don't automatically generate a link # -nd no display; don't display anything, just count # -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 # # More complete documentation can be found at # http://www.webtools.org/counter/ # ######################################################################## # # Things that shouldn't really need changing, but are configurable anyway. # # Maximum number of times to try to lock the file. # Each try is .1 second. Try for 1 second. $MaxTries = 10; # 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/"; # 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; # What version of the counter file format are we using? $FileVersion = "02.000"; # Common names of the counter to install... @CommonExtensions = ("-ord", # Ordinam "figlet", # Figlet'ed "figlet-ord",# Ordinal figlet "banner", # Bannered "banner-ord",# Ordinal banner ); # ######################################################################### # # Misc documents to refer people to in case of errors. # $CreateFile = "[Error Creating Counter File -- Click for more info]"; $AccessRights = "[Error Opening Counter File -- Click for more info]"; $TimeoutLock = "[Timeout locking counter file]"; $BadVersion = "[Version access_count newer than this program. Please upgrade.]"; ######################################################################### # # The actual program! ### Stage 1 ### ### Parse the arguments... (just ignore this part) # 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 $printer =~ s/$BaseName/counter/; # Make it cannonical. # 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; } if ($ARGV[0] eq '-install') { &CheckPerl; &SetBaseName; &MakeCommon(0); exit(0); } if ($ARGV[0] eq '-installforce') { &CheckPerl; &SetBaseName; &MakeCommon(1); exit(0); } if ($ARGV[0] eq '-unlock') { open(FILE,"$FileName"); &UnlockFile(FILE); exit(0); } undef $Link if $arg{'nl'}; # make link? ### Stage 2 ### ### Print out the header # Print out the header print "Content-type: text/html\n\n"; ### Stage 3 ### ### Open the access_count file for read-write taking all the precautions # Make sure the file exists: if (!(-f $FileName)) { if (!open (COUNT,">$FileName")) { # Can't create the file print $CreateFile; exit 1; } else { # We got the file, print out the version number print COUNT "$FileVersion\n"; $version = 2; } } 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; } # Try to read in a version number $version = ; if (!($version =~ /^\d+.\d+$/)) { # No version number, assume version 1 and reset the file. $version = 1; seek(COUNT,0,0); } } # This is for the future: the access_count file will have a version number. if ($version > 2) { print $BadVersion; exit 1; } ### Stage 4 ### ### Attempt to lock the file $lockerror = &LockFile(COUNT); # 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 ($lockerror) { print $TimeoutLock; exit(0); } ### Stage 5 ### ### Check if we need to update the file to a newer version if ($version < 2) { &UpdateVersion1; } ### Stage 6 ### ### Convert the information the server gave us into the document ### identifier. # Make sure perl doesn't spit out warnings... if (defined $ENV{'DOCUMENT_URI'}) { $doc_uri = $ENV{'DOCUMENT_URI'}; } else { $doc_uri = ""; } # Campatibility: Version 2 files have the server name in front if and # only if it doesn't have a "~" in it. $old_uri = $doc_uri; # Add the server name in front to support multi-homed hosts if and only if # it doesn't have a "~" in it. (usernames are global in most multi-homed # settings if (defined $ENV{'SERVER_NAME'} && !($doc_uri =~ /~/)) { $doc_uri = $ENV{'SERVER_NAME'} . "/" . $doc_uri; } if (defined $arg{'doc'}) { $doc_uri = $arg{'doc'}; } $doc_uri = $Aliases{$doc_uri} if defined $Aliases{$doc_uri}; ### Stage 7 ### ### Find the relevant place in the file $location = tell COUNT; while ($line = ) { # Read the file line-by-line. if (($uri,$accesses) = ($line =~ /^'(\S*)' (\d\d\d\d\d\d\d\d\d\d)$/)) { # An old line if ($uri eq $old_uri) { &ConvertDocV1($doc_uri,$old_uri,$accesses,$location); last; } } elsif (($uri,$accesses,$flags) = ($line =~ /^'(\S*)' (\d\d\d\d\d\d\d\d\d\d) (\w\w\w\w)$/)) { # A new line if ($uri eq $doc_uri) { $flags = hex($flags); last; } } last if ($uri eq $doc_uri); $location = tell COUNT; #reset the fields $accesses = 0; $flags = 0; } ### Stage 8 ### ### Update the access count of the file $accesses += 1; # *NOT* '++' because we don't want '++'s magic ### Stage 9 ### ### Figure out what to print out # If we have to ordinalize, do it now. if (defined $arg{'ord'}) { if (defined $arg{'lang'}) { $ord = eval("&ordinalize_$arg{lang}($accesses)"); } else { $ord = &ordinalize($accesses); } } else { $ord = ""; } $to_print = $accesses . $ord; # Give it to the printer function to actually produce the output from the # ascii text that we have (to_print) ($count, $nLink) = eval("&output_$printer('$to_print')"); # If the above line gave us an error, default to just the text. if ($@) { ($count, $nLink) = &output_counter($to_print); } ### Stage 10 ### ### Now we actually tell the browser what the count is. if (! $arg{"nd"} ) { # If we print anything # Print out a link to something informative (if we were requested to) print "" if $nLink; print $count; print "" if $nLink; } ### Stage 11 ### ### Check if we are supposed to update the count in the file. (ie. we're ### not ignoring the host that just accessed us) # Make sure we are not ignoring the host: $ignore = 0; $ignore = grep($ENV{"REMOTE_ADDR"} =~ /$_/, @IgnoreIP) if defined ($ENV{"REMOTE_ADDR"}); $ignore = $ignore || $arg{"nc"}; ### Stage 12 ### ### Actually write the updated information back to the file if (!$ignore) # If we aren't ignoring this access { # Now update the counter file seek(COUNT, $location, 0); $longaccesses = sprintf("%010.10d", $accesses); $hexflags = sprintf("%04.4x", $flags); print COUNT "'$doc_uri' $longaccesses $hexflags\n"; } &UnlockFile(COUNT); close COUNT; ####################################################################### # # Support functions # # translate_output # # Quote any special characters with HTML quoting. sub translate_output { local($string) = @_; $_ = $string; s/è/è/g; return $_; } sub LockFile { local(*FILE) = @_; local($TrysLeft) = $MaxTries; if ($UseLocking) { # Try to get a lock on the file while ($TrysLeft--) { # Try to use locking, if it doesn't use locking, the eval would # die. Catch that, and don't use locking. # Try to grab 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. } } } if ($TrysLeft >= 0) { # Success! return 0; } else { return -1; } } sub UnlockFile { local(*FILE) = @_; if ($UseLocking) { flock(FILE,8); # Unlock the file. } } #################################################################### # # Installation helpers # # SetBaseName # # Change the counter program itself to set the basename sub SetBaseName { local($name) = $0; $name =~ s/^.*\/([^\/]+)$/$1/; # Strip off any of the path if ($name eq $BaseName) { # The way we're set up now!!! return; # Don't need to change a thing. } if (!open(COUNTERFILE, "+<$0")) { print "Can't modify program. Set \$BaseName manually.\n"; return; } print "Configuring \$BaseName variable...\n"; local($oldsep) = $/; undef($/); local($program) = ; # The next line does all the magic. $program =~ s/\#\#\# AUTOMAGIC \#\#\#\n\$BaseName = \"[^\"]+\";\n/\#\#\# AUTOMAGIC \#\#\#\n\$BaseName = \"$name\";\n/; seek(COUNTERFILE,0,0) || return; truncate(COUNTERFILE,0); print COUNTERFILE $program; close COUNTERFILE; } # CheckPerl # # Make sure that the "#! /[path]/perl" points to something real... sub CheckPerl { if (!open(COUNTERFILE, "<$0")) { print "Can't check to make sure Perl is in the right place.\n"; return; } print "Checking to make sure Perl is found properly...\n"; $firstline = ; ($command) = ($firstline =~ /^\#! *([^\s]+) *$/); close(COUNTERFILE); if (! -x $command) { print "The location of Perl is misconfigured. Please edit the\n"; print "first line of this program to point to the locally installed\n"; print "copy of perl.\n\n"; print "Currently, it is configured to be \"$command\", however,\n"; print "that file either does not exist or is not a program.\n\n"; print "Some common locations for Perl are:\n"; print " /usr/bin/perl\n"; print " /usr/local/bin/perl\n"; print " /bin/perl\n"; print " /opt/gnu/bin/perl\n\n"; exit; } } # MakeCommon # # Make some common links to the counter sub MakeCommon { local($force) = @_; local($ext); print "Installing the counter...\n"; print " ...making counter executable\n"; chmod(0755,$0); local($path, $name, $cgi); $name = $0; if ($name =~ /^(.*\/)([^\/]+)$/) { $path = $1; $name = $2; } if ($name =~ /^(.*)(\.cgi)$/) { $name = $1, $cgi = $2; } foreach $ext (@CommonExtensions) { print " ...making link from $path$name$cgi to $path$name$ext$cgi\n"; if (!&MakeLink("$path$name$cgi","$path$name$ext$cgi",$force)) { # An error occured while making the link. :-( print " *** An error occured while making the link.\n"; } } if ($symlink_exists == 0 && $link_exists == 0) { print "* NOTE * Your system does not support symbolic or hard links,\n"; print " copies made instead. If you modify the counter, you must\n"; print " run counter -install again to recopy it to the other files.\n"; } print "...done!\n"; } # MakeLink # # Actually create the link. sub MakeLink { local($oldname,$newname,$force) = @_; # Check to see if we can make symbolic links instead of hard links if (!defined $symlink_exists) { $symlink_exists = (eval 'symlink("","");', $@ eq ''); } # Check to see if we can make a link if we can't make a symlink if (!symlink_exists) { $link_exists = (eval 'link("","");', $2 eq ''); } if ($force) { # Check to see if the file exists if (-e $newname) { if (!unlink ($newname)) { return 0; } } } if ($symlink_exists) { return symlink($oldname, $newname); } elsif ($link_exists) { return link($oldname, $newname); } else { # Copy it the old-fashioned way... *sigh* open(OLDFILE, $oldname) || die "Can't open $oldname for copy"; open(NEWFILE, ">$newname") || die "Can't open $newname for write"; while() { print NEWFILE $_; } close(NEWFILE); close(OLDFILE); } } #################################################################### # # Ordinalizing functions # # ordinalize # # Call the appropriate ordinalize function for the default language sub ordinalize { local($count) = @_; if (defined $arg{'lang'}) { return eval("&ordinalize_$arg{lang}($count)"); } else { return eval("&ordinalize_$default_lang($count)"); } } # ordinalize_english # # Figure out what suffix (st, nd, rd, th) a number would have in ordinal # form and return that extension. sub ordinalize_english { 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. } # ordinalize_french # Trivial... Return the extension for french. The only exception is 1. # Thank you Chris Polewczuk # sub ordinalize_french { local ($count) = @_; if ($count == 1) { return "'ière"; } else { return "ième"; } } # ordinalize_swedish # # A function to ordinalize in Swedish. Thanks go to Johan Linde # for the code! # sub ordinalize_swedish { local($count) = @_; local($last, $last2); $last2 = $count % 100; $last = $count % 10; if ($last2 < 10 || $last2 > 12) { return ":a" if ($last == 1 || $last == 2); } return ":e"; } ######################################################################## # # Output functions # # 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 &translate_output($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 &translate_output($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 "

THE DANCE OF LIGHT: THE DANCE OF LIFE A time for new beginnings, renewal, reclamation and redemption

THE DANCE OF LIGHT: THE DANCE OF LIFE
A time for new beginnings,
renewal, reclamation and redemption