#!/usr/bin/perl # Rewritten from index.html by Andrius Ciziunas, buzzcut@tamos.net, # Tentatively completed, 4-13-99 &first_page; &project_stuff; &finish_form; sub first_page { print < Virtual Foundation Feedback

The Virtual Foundation - your donation makes it happen

Virtual Foundation Feedback

Thank you for taking the time to answer a few questions for the Virtual Foundation. This information will help us improve our website and better understand the needs of our visitors. Please note that all the information gathered here will be used internally only. Your answers are completely confidential and you will not be contacted nor will your name be put on a mailing list.

Please complete the feedback form by answering these questions and clicking on the "Submit" button.

How did you find out about the Virtual Foundation?
Search Engine (AltaVista, HotBot, etc.)
Web Index (Yahoo, Idealist, etc.)
Press Release
Link from another site? Which site?
Personal recommendation


Have you come to the Virtual Foundation before? Yes No


In what capacity are you at the Virtual Foundation website today?


What interests you at the Virtual Foundation website?


If you had \$1000, what kind of project would you donate it to?



EOF } sub finish_form{ print <
To find out more about these projects, please visit the Projects Search page. When you find a project you would fund, click the back button, until you come back to this page.

EOF } sub project_stuff{ print < EOF &gen_project("","Please Choose a Project"); &gen_project("Albanian Biologists Mending the Past, Training for the Future","Albanian Biologists Mending the Past, Training for the Future"); &gen_project("All Aboard! Children and Books To Ride Train To Uzbek Environmental Library","All Aboard! Children and Books To Ride Train To Uzbek Environmental Library"); &gen_project("Asian Russia Journal","Asian Russia Journal"); &gen_project("Beijing Students Monitor Water Supply","Beijing Students Monitor Water Supply"); &gen_project("Biodiversity: Creation of a National Park in Tajikistan","Biodiversity: Creation of a National Park in Tajikistan"); &gen_project("Biosphere to Cleanup Water in Tajikistan","Biosphere to Cleanup Water in Tajikistan"); &gen_project("Brontosaurus to Bring Sheep to Carpathian Mountain Meadows","Brontosaurus to Bring Sheep to Carpathian Mountain Meadows"); &gen_project("Campaign Against Rostov Nuclear Power Plant","Campaign Against Rostov Nuclear Power Plant"); &gen_project("Chinese Women Link their Environmental Initiatives","Chinese Women Link their Environmental Initiatives"); &gen_project("Clarifying the Green Message:Finding Common Ground Among Ourselves and With the Public","Clarifying the Green Message:Finding Common Ground Among Ourselves and With the Public"); &gen_project("Cleaning a Small Lake Will Make a Big Difference in Lithuania","Cleaning a Small Lake Will Make a Big Difference in Lithuania"); &gen_project("Clean Rivers, Clean Soul","Clean Rivers, Clean Soul"); &gen_project("Computer Assistance for Environmental Youth Organization in Central Asia","Computer Assistance for Environmental Youth Organization in Central Asia"); &gen_project("Connect Russian Activist Fighting Toxic Pollution to A Support Network","Connect Russian Activist Fighting Toxic Pollution to A Support Network"); &gen_project("Conservation of Five Rare and Endangered Plants in Georgia","Conservation of Five Rare and Endangered Plants in Georgia"); &gen_project("Creation of an Environmental Education Center","Creation of an Environmental Education Center"); &gen_project("Czech and Greek Naturalists to Open Museum","Czech and Greek Naturalists to Open Museum"); &gen_project("Czech Students To Use Film To Teach Other Students About the Environment","Czech Students To Use Film To Teach Other Students About the Environment"); &gen_project("Demonstration of Sustainable Development in Rural Hungary","Demonstration of Sustainable Development in Rural Hungary"); &gen_project("Developing and Marketing Organic Agriculture in Eastern Slovakia","Developing and Marketing Organic Agriculture in Eastern Slovakia"); &gen_project("Development of Rainbow Keepers Newspaper","Development of Rainbow Keepers Newspaper"); &gen_project("Domesticated Animals: Neglected Victims in Transition Economies","Domesticated Animals: Neglected Victims in Transition Economies"); &gen_project("Ecology through Television","Ecology through Television"); &gen_project("Eco-Minded Youth to Clean Up Beach in Kazakstan","Eco-Minded Youth to Clean Up Beach in Kazakstan"); &gen_project("Ecoschool 'Ant Hill'","Ecoschool 'Ant Hill'"); &gen_project("Education for Life: Help Others Manage Diabetes","Education for Life: Help Others Manage Diabetes"); &gen_project("E-mail Computer for the Kvant School Club","Email Computer for the Kvant School Club"); &gen_project("E-mail to Link Environmental Education Center to Regional and International Partners","E-mail to Link Environmental Education Center to Regional and International Partners"); &gen_project("E-mail Supports Mapping Of Russian Far East Wildlife Preserve","E-Mail Supports Mapping Of Russian Far East Wildlife Preserve"); &gen_project("Empowering Ukrainian Greens With A Computer","Empowering Ukrainian Greens With A Computer"); &gen_project("Environmental Notebook of the Novinsk Scientific Center","Environmental Notebook of the Novinsk Scientific Center"); &gen_project("Extinct Species Memorial in China","Extinct Species Memorial in China"); &gen_project("Finding the Forest Among The Trees in Hungary","Finding the Forest Among The Trees in Hungary"); &gen_project("Frigate Preserving Ecological Heritage on Russian Island","Frigate Preserving Ecological Heritage on Russian Island"); &gen_project("Georgians Preserving the Natural and Cultural Heritage of Mt.Mkinvartsveri","Georgians Preserving the Natural and Cultural Heritage of Mt. Mkinvartsveri") &gen_project("Help for Hungarian Environmental Youth Group in Zemplen Mountains","Help for Hungarian Environmental Youth Group in Zemplen Mountains"); &gen_project("Helping Roma Families in Slovak Village to Start Cottage Industries","Helping Roma Families in Slovak Village to Start Cottage Industries"); &gen_project("Herb Gardening as a Substitute for Gathering Endangered Plants in Russia","Herb Gardening as a Substitute for Gathering Endangered Plants in Russia"); &gen_project("Home for Stray Animals in Hungary","Home for Stray Animals in Hungary"); &gen_project("Houses Built of Straw","Houses Built of Straw"); &gen_project("Involving Teens in Local Environmentalism","Involving Teens in Local Environmentalism"); &gen_project("Let the Voices of Greens In Central Siberia Be Heard","Let the Voices of Greens In Central Siberia Be Heard"); &gen_project("Let's save the Pine Forest","Let's save the Pine Forest"); &gen_project("Magnolia, Fish Owl and Japanese Crane To Benefit from Email","Magnolia, Fish Owl and Japanese Crane To Benefit from Email"); &gen_project("Mapping Nuclear and Industrial Pollution in Kazakstan","Mapping Nuclear and Industrial Pollution in Kazakstan"); &gen_project("Monitoring of Anthropogenic Effect on Wilderness with the Help of a Network of Hunter-Correspondents","Monitoring of Anthropogenic Effect on Wilderness with the Help of a Network of Hunter-Correspondents"); &gen_project("Newsletter to Network Energy Activists in Slovakia","Newsletter to Network Energy Activists in Slovakia"); &gen_project("Ornithological Group Seeks Computer For Efforts to Protect Rare Species","Ornithological Group Seeks Computer For Efforts to Protect Rare Species"); &gen_project("Preserving History and Nature's Beauty","Preserving History and Nature's Beauty"); &gen_project("Project: Our Children","Project: Our Children"); &gen_project("Promoting Alternative Energy to Prevent Deforestation in Tajikistan","Promoting Alternative Energy to Prevent Deforestation in Tajikistan"); &gen_project("Promoting Ecotourism in the Tien Shan Mountains of Uzbekistan","Promoting Ecotourism in the Tien Shan Mountains of Uzbekistan"); &gen_project("Protecting the White Stork in The Czech Republic","Protecting the White Stork in The Czech Republic"); &gen_project("Providing Information for Visitors to Beijing's Bird Garden","Providing Information for Visitors to Beijing's Bird Garden"); &gen_project("Publication of Taiga Lives Forever To Support Forest Preserve Effort","Publication of Taiga Lives Forever To Support Forest Preserve Effort"); &gen_project("'Ringed Seal': An Environmental Film for Russian Children","'Ringed Seal': An Environmental Film for Russian Children"); &gen_project("Save the Czech Republic's Threatened Forests","Save the Czech Republic's Threatened Forests"); &gen_project("Save the Green Treasure","Save the Green Treasure"); &gen_project("Seeking Books, Not Money, for Library in Kazakstan","Seeking Books, Not Money, for Library in Kazakstan"); &gen_project("Sharing the Water, We Will Survive Together","Sharing the Water, We Will Survive Together"); &gen_project("Students Monitor Air in Beijing","Students Monitor Air in Beijing"); &gen_project("Students Patrol and Protect National Park in Romania","Students Patrol and Protect National Park in Romania"); &gen_project("Students Preserve Russia's Nature Reserves","Students Preserve Russia's Nature Reserves"); &gen_project("Students Prevent Poaching of Endangered Plants","Students Prevent Poaching of Endangered Plants"); &gen_project("Support The Verkhnii Pereval Environmental Museum and Education Center In Russia's Far East","Support The Verkhnii Pereval Environmental Museum and Education Center In Russia's Far East"); &gen_project("Survey of the Oka Valley","Survey of the Oka Valley"); &gen_project("Sustainable Living Weekend Workshops","Sustainable Living Weekend Workshops"); &gen_project("Teaching Biointensive Mini-Farming in Russia","Teaching Biointensive Mini-Farming in Russia"); &gen_project("Tree Farming by Youth Rescues Forests in Russia's North","Tree Farming by Youth Rescues Forests in Russia's North"); &gen_project("Thanka Painting School Supports Community in Nepal","Thanka Painting School Supports Community in Nepal"); &gen_project("Translation of A Sand County Almanac","Translation of A Sand County Almanac"); &gen_project("Tree Planting in Tbilisi, Georgia: Ecological and Social Renewal","Tree Planting in Tbilisi, Georgia: Ecological and Social Renewal"); &gen_project("Trees for Life - Grow a Tree (second year)","Trees for Life - Grow a Tree (second year)"); &gen_project("The White Seacoast, View from the Sea","The White Seacoast, View from the Sea"); &gen_project("Using the Mass Media to Help Clean Osh City","Using the Mass Media to Help Clean Osh City"); &gen_project("WHOOOOO will Protect Europe's Endangered Barn Owl?","WHOOOOO will Protect Europe's Endangered Barn Owl?"); &gen_project("Windows on Nature","Windows on Nature"); &gen_project("'Young Leopards' Provide Hope for Life Near a Vanishing Sea","'Young Leopards' Provide Hope for Life Near a Vanishing Sea"); print "\n"; } sub gen_project { local($tmp); $tmp = "