#!/usr/local/bin/perl # +------------------------------------------------+ # | charter98extended.cgi -- CGI script for | # | extended description of charter 98 | # | Author : Ryan William Facer | # | Created On : Wednesday September 9, 1998 | # | Completed On : Wednesday September 9, 1998 | # | Last Modified By : Ryan William Facer | # | Last Modified On : Wednesday September 9, 1998 | # | Update Count : 0 | # | E-Mail : cattails@cattails.ca | # +------------------------------------------------+ # ***************************************** # Print out the beginning stuff to tell the # server that we're sending it an HTML file # ***************************************** print "Content-type: text/html\n\n"; # ********************************** # Print out the top of the HTML page # that will be seen every time # ********************************** print "\n"; print "
"; print "I am always brave enough to ask the right questions.
\n"; print "1.QuestionsWe have lost our inner voices, the voices we need to ask\n"; print "questions that require courage. In his wonderful book, The\n"; print "Reinvention of Work, Matthew Fox suggests that we each ask\n"; print "ourselves a searching question: \"Is my work smaller than my\n"; print "Soul?\"
\n"; } elsif($question eq '2'){ print ""; print "I am always able to honor my deepest values at work.
\n"; print "2. Culture and ValuesCulture is the unspoken code that unites a tribe, and this is\n"; print "especially true in great organizations that romance outstanding\n"; print "performances from every team member. These are Sanctuaries that\n"; print "have reclaimed timeless values, using them to guide every\n"; print "decision and strategy.
\n"; } elsif($question eq '3'){ print ""; print "I always tell the whole truth, in everything that I do at"; print "work.
\n"; print "3. Truth-telling and Promise-keeping\n"; print "We rarely tell the truth anymore - not in our annual reports,\n"; print "our advertising, public relations, lobbying, performance\n"; print "appraisals, budgets and forecasts - even our personal\n"; print "relationships. We assure our employees that they are our most\n"; print "valuable asset and then we make this a lie by downsizing,\n"; print "re-engineering, restructuring and de-layering them. A renewed\n"; print "commitment to truth-telling and promise-keeping is the single\n"; print "most powerful way to regenerate ourselves and restore credibility\n"; print "and integrity in organizations today.
\n"; } elsif($question eq '4'){ print ""; print "I always keep my promises, even the smallest ones at work."; print "
\n"; print "4. The Courage to Live with Grace\n"; print "Those with grace appreciate the natural elegance of human\n"; print "relationships. They turn every communication and relationship\n"; print "into beautiful music. Those with grace use charm and integrity\n"; print "to maintain symmetry in all of their relationships. Those with\n"; print "grace seek to integrate themselves with those with whom they\n"; print "interact. They guide relationships with a sure hand that seeks to\n"; print "make every Soul whole - first with itself, but also with the\n"; print "universe. Grace in a graceless world requires immense personal\n"; print "courage. Our personal mission is to be in a state of grace, with\n"; print "everyone with whom we have been in contact, when our Soul leaves\n"; print "this planet.
\n"; } elsif($question eq '5'){ print ""; print "At the day's end, when I leave my work, I have made peace with\n"; print "everyone.
\n"; print "5. The Alchemy of the Soul\n"; print "The negative energy of fear, intimidation, aggression and\n"; print "hostility is making us sick. The positive energy of love,\n"; print "excellence and service can heal us. Eliminating corporate\n"; print "toxicity caused by conflict, power and fear, enables individuals\n"; print "to work without cringing. By focusing on the positive power of\n"; print "spiritually reinforcing language and words in all written, verbal\n"; print "and visual communications, we can regenerate individuals and\n"; print "their organizations so that the Souls of customers and employees\n"; print "are drawn to them by their positive experiences.
\n"; } elsif($question eq '6'){ print ""; print "I have all the love I need in my life.
\n"; print "We are all yearning for more love in our lives - not more\n"; print "fear. It is the deepest yearning in our hearts. If we replace\n"; print "fear with encouragement, compassion, trust, patience,\n"; print "empathy and love - we will release the untapped\n"; print "potential of humans. Do you have enough love in your life?
\n"; } elsif($question eq '7'){ print ""; print "I love the people that I work with.
\n"; print "We spend one third of our lives working. It is important to do\n"; print "this with people we enjoy and are fond of - even love. When we\n"; print "use the term \"love\" here, we are referring to its spiritual\n"; print "rather than romantic meaning. It corrodes the soul to spend the\n"; print "majority of our waking hours with people for whom we have no\n"; print "affection.
\n"; } elsif($question eq '8'){ print ""; print "My work fills my life with joy.
\n"; print "Work is not a four letter word. Nor is it just a job. It is as\n"; print "natural as play and we need to deliberately blue the lines\n"; print "between the two because both can be equally joyful and\n"; print "fulfilling. We are in danger of forgetting how to have fun at\n"; print "work which depends on our being able to fall in love with our\n"; print "work. This means doing something we love. There is no point in\n"; print "slaving in a hell-hole until the age of 65, only to be able to\n"; print "say, \"Phew, glad that's over!\". All of us are seeking joy in\n"; print "our lives, including our work.
\n"; } elsif($question eq '9'){ print ""; print "My work richly rewards my soul.
\n"; print "9. Soul Provider\n"; print "Employees are Souls who are motivated by tailor-made, unique\n"; print "combinations of rewards. Our approach has been the opposite. The\n"; print "Hay Plan and other mass produced compensation systems are\n"; print "designed to make life easy in the payroll department more than to\n"; print "reward individuals and teams for outstanding performance. One\n"; print "size does not fit all. We need as many approaches as there are\n"; print "individuals. Most important, we need to design approaches that\n"; print "reward the Soul as effectively as we have learned to reward the\n"; print "personality.
\n"; } elsif($question eq '10'){ print ""; print "My soul is inspired by my physical working environment."; print "
\n"; print "10. Soulspace\n"; print "The Soul is stirred by its environment. Placing people in\n"; print "sterile, institutional settings withers the Soul. We have a\n"; print "responsibility to appreciate the impact of environmental context\n"; print "and investing in it. The Soul is not satisfied until it finds\n"; print "both ethics and aesthetics in a work environment. As Thomas Moore\n"; print "has put it, \"If we have plastic plants, we will have plastic\n"; print "thoughts.\" People and their environment are indivisible. People\n"; print "will deliver inspired performances when they seamlessly integrate\n"; print "with an inspiring physical environment.
\n"; } elsif($question eq '11'){ print ""; print "I help my competitors to prosper.
\n"; print "11. Soulspace\n"; print "The soul is not motivated by war or the fear of losing.\n"; print "Virtuoso performances are romanced from people not beaten out of\n"; print "them. If we love what we do (Mastery), love the people\n"; print "with whom we do it (Chemistry), and love the reason for\n"; print "doing it (Delivery), should we still call it work? Winning\n"; print "is going as far as you can using everything that you have got -\n"; print "no one needs to lose or die in the process - there is too much\n"; print "competition and fear in all our lives already. What we are all\n"; print "yearning for is more compassion, care, sensitivity and\n"; print "integrity.
\n"; } elsif($question eq '12'){ print ""; print "I always win without creating losers.
\n"; print "Does Charles Dutoit, the leader of the Montreal Symphony, wake\n"; print "up each morning yelling, \"Let's destroy Seiji Ozawa, and the\n"; print "Boston Symphony\"? The idea is absurd. When we kill the\n"; print "competition, we are destroying jobs and people's lives. Winning\n"; print "is going as far as you can using everything that you have got -\n"; print "no one needs to lose or die in the process - there is too much\n"; print "competition and fear in all our lives already. What we are all\n"; print "yearning for is more compassion, care, sensitivity and\n"; print "integrity.
\n"; } elsif($question eq '13'){ print "\n"; print "Fear and competition have been banished from my work and\n"; print "personal life.
\n"; print "With the fall of the Berlin Wall, the modern corporate\n"; print "oligarchy may be the last hold-out against real democracy. Fear\n"; print "and intimidation are widely practiced in the workplace by\n"; print "domineering leaders. But we are all motivated by love not fear.\n"; print "The negative energy of fear, aggression and hostility is making\n"; print "us sick. The positive energy of love, excellence and service\n"; print "heals us. Eliminating corporate toxicity caused by conflict,\n"; print "power and fear, enables individuals to work without cringing.
\n"; } elsif($question eq '14'){ print ""; print "Trust is widespread in my organization.
\n"; print "\n"; print "Deceit creates toxicity and destroys relationships - the\n"; print "Chemistry between people. It is this suffering\n"; print "of the soul, caused by over-management, too many rules and not\n"; print "enough trust, that has propelled entrepreneurial spirits out of\n"; print "bureaucracies and into their own ventures.
\n"; } elsif($question eq '15'){ print ""; print "I am free of bureaucracy and hierarchy at my work.
\n"; print "15. Bureaucracy\n"; print "Rules chafe the Soul because the Soul naturally migrates to\n"; print "freedom and unity. A highly focused team, that shares a passion\n"; print "for an agreed vision and clear values, needs few rules. Such a\n"; print "team becomes a coalition of inspired Souls, replacing rules,\n"; print "procedures and policies with trust. Traditional hierarchical and\n"; print "functional structures create \"silos\" of information, generate\n"; print "negative energy, impair communications and weaken individual and\n"; print "organizational potential. Since people and knowledge are the two\n"; print "most important assets of evolved organizations,\n"; print "knowledge-intensive functions are the responsibility of all\n"; print "employees, not just a few specialized departments. The Soul is\n"; print "inspired when the path between knowledge and action is short and\n"; print "direct.\n"; } elsif($question eq '16'){ print ""; print "I am able to use all my creative potential at work.
\n"; print "16. Creativity\n"; print "There are two ways to grow: innovation (doing things\n"; print "differently) and kaizen (doing the same things better).\n"; print "These subtle and different parts of creativity energize\n"; print "outstanding people, their organizations and their Souls.\n"; print "Organizations that suppress creativity at work, are denying a\n"; print "fundamental right of the Soul. The Soul yearns to evolve and to\n"; print "be free. Creativity is a powerful source for both.<\P>\n"; } elsif($question eq '17'){ print ""; print "My organization invests 10% of payroll in the personal\n"; print "development and learning of all our employees.
\n"; print "17. Learning\n"; print "Mastery sets individuals apart. It does the same for\n"; print "organizations. Since mastery is achieved through learning, the\n"; print "survival and personal development of individuals, and therefore\n"; print "their organizations, depends on a powerful commitment to\n"; print "learning.\n"; } elsif($question eq '18'){ print ""; print "Our employees spend 10% of their time in community involvement\n"; print "and service.
\n"; print "18. Community\n"; print "We all yearn to recover our lost sense of community. This cannot\n"; print "be done by complaining about our legislators and politicians,\n"; print "while never becoming part of the solution. They are us and we are\n"; print "they. We cannot simply keep taking from our communities, where we\n"; print "earn our livelihood, without giving back in return. We must all\n"; print "be active and participate at the grass roots level within the\n"; print "political spectrum of our communities, in ways that each of us\n"; print "choose.\n"; } elsif($question eq '19'){ print ""; print "Every dollar earned by my organization makes my soul proud.\n"; print "
\n"; print "19. A Profit with Honor\n"; print "It's time for us to freshen our thinking about profits. Profit\n"; print "is like oxygen, essential for our survival but not the point of\n"; print "our existence. Financial performance is the personality's way of\n"; print "measuring profit, but the Soul measures profit too. If we build\n"; print "Soulful businesses, the profits will come.
\n"; } elsif($question eq '20'){ print ""; print "We are building a Sanctuary.
\n"; print "Sanctuary - from the Latin word:
\n"; print "sanctus: scared; holy place; as a building set aside\n"; print "for the worship of a god or gods; a place of refuge or\n"; print "protection a shelter
\n"; print "A Sanctuary is a soulful workplace, a safe environment. We may\n"; print "not be able to change the world around us, but we can change\n"; print "ourselves. In this way, though the world around us may be crazy\n"; print "or dangerous, in the Sanctuary of our own space, we are secure.\n"; print "A Sanctuary is like a Teflon shield, repelling the toxicity\n"; print "around us. But a Sanctuary is even more than a physical location\n"; print "- it is an attitude. Sanctuaries are often formed by groups of\n"; print "like-minded individuals who love, trust and respect each other,\n"; print "share values and enjoy a common code.
\n"; } else { print "On a scale of 1 (very low) to 10 (very high) "; print "where do you stand?
\n"; print "Click your browser's 'Back' button to return to the Soulscreen."; print "
\n"; print "\n"; print "\n"; print "\n";