#!/usr/bin/perl # Biography Builder processing # require "./cgi-bin.pl"; $ret = &ReadParse; &CgiDie("Error in reading and parsing of CGI input") if !defined $ret; %bio = ( "Andie", "Andie has a perpetual smile and a spring in her step. She finds satisfaction in making people happy and is a great listener. Her abundance of energy comes from exercise and a positive attitude. She is a gymnast and loves to dance. Her popularity is a result of her modesty. To her, it is not perfection, but the acceptance of imperfection, that leads to nirvana.", "Natasha", "Natasha is the spirit of any season. She loves to wrap gifts and enjoys giving them to family and friends for holidays and special occasions. To strangers, she warmly gives and receives smiles. She plays tennis and is competitive, but fair. She has mutual admiration for both winners and non-winners; she has been in both positions. She develops her abilities through hard work and a supportive family.", "Sophia", "All the world is a stage for Sophia and she pays very close attention to the props and the script. She strives to make her surroundings beautiful and is aware of the statement her appearance makes. She designs and builds unique wooden boxes for the exotic flowers and other plants she grows. She hates litter and the emotional ugliness in the world.", "Wes", "Wes has a sharp sense for business and sells his abilities agressively. As a child, he always had money from working or selling things. He is committed to his friends and his work -- not always in that order. He strives to become a \"success,\" driven by the adrenaline of living on the edge. He enjoys conversation and commands a breadth of experience.", "Marc", "\"Some assembly required\" is a label that promises a few minutes, or hours, of entertainment for Marc; he is mechanically-inclined. His preference for simplicity in design applies to many aspects of his life -- his furniture, his car, his schedule, his friends. . . There is a calm satisfaction in his demeanor and he is not afraid to try new things -- seeking to understand more about himself in the context of new experiences.", "Steve", "Steve always says \"some of the best things in life are free. . . and recyclable.\" He has a social conscience, which he displays by volunteering time to the current environmental movement. He reuses his grocery bags and performs the maintenance required to keep his car tuned-up. He designs computer games and has played saxaphone since grade school. He is a sports spectator.", "Laura", "If Laura were to write a personal ad, she might describe herself as \"picture perfect.\" She is a photographer with a sense of humor. She has modeled, but prefers to be behind the camera. She communicates visually and prefers personal contact to the telephone. She is assertive, yet sensitive to people's feelings. Her dream is to ride and raise horses.", "Dave", "If Dave was what he ate, he would certainly not contain any additives or preservatives. Among the items he regularly reads are newspapers, periodicals and food labels. He is well-informed and is excellent at defending his opinions with reason. He is inventive and comfortable with science, often predicting future advances in technology.", "Christina", "Christina is wide-eyed and excitable. She has a bubbly, champagne spirit and enjoys sharing good times with other people. She is an avid reader and writer of essays and stories. She incorporates her traits, as well as those of the people she meets, in the characters of her stories. She is a meticulous person -- well-organized financially and socially. She enjoys solving brain-teasers and puzzles.", "Griffin", "For Griffin, time is of the essence. His daytimer always reflects a well-planned schedule, including time for his recreations which are important to him -- cycling, sailing, playing hoops and running with his dog, Mortimer. He is a good samaritan and is flexible with his schedule should a friend or stranger need his help. He is a good cook and enjoys preparing dinner for friends.", "Jasmine", "Jasmine enjoys coffee, though she doesn't drink much of it outside of cafés. She is stimulated, not by the coffee -- it is usually decaffeinated -- but by the atmosphere of the café and a discussion with a friend. She enjoys debate and education and is not abashed to ask \"why?\" Astronomy is one of her interests because it confronts (wo)man's wisdom and place in existence.", "Peter", "The theory of evolution states that we came from the ocean -- that's where \"they\" are wrong, Peter would argue. A truly evolutionary species would choose to stay in the ocean and catch some waves. He sees the surfer as an icon of man in harmony with nature. When he isn't drawing, he prefers to be engaged in some outdoor activity -- at the beach or elsewhere.", "Jeannine", "Jeannine puts her best foot forward and isn't afraid to take the next step. Her sincerety and gratitude are infectious. She collaborates to achieve personal and professional goals, which include having fun. She enjoys backpacking and the splendor of nature. Her job is a means, rather than an end, to living a life filled with meaningful relationships and accomplishments.", "Ed", "To Ed, discovery is the reward of a relentless pursuit. He approaches problems with optimism and solves them with persistence. He enjoys listening to jazz and appreciates its subtle patterns and unexpected incongruities. In discussions with family members, friends and co-workers, he concentrates on understanding before reacting. His hobbies include building and flying model airplanes.", "Julie", "Julie is good at adapting and rolling with change. She approaches obstacles with imagination and good humor. \"Life has its ups and downs,\" she says, \"especially for a mogul skier.\" She has a passion for winter sports and activities. Her actions are precise and deliberate, an attribute of her skill as an athlete. As a team player, she values diversity and the power of collaboration to attain a common goal.", "John", "For life's adventure, John likes to be well-equipped. His gear is important and performance counts. He makes bold moves, but takes care to weigh his options. He is dramatic and acts hospitably during holidays and special occasions. He is a player in life's rich pageant, rehearsing and performing, changing roles and costumes, and living as a spectator and spectacle of society.", "Mel", "Mel has a good sense of humor. He makes people feel comfortable by smiling and joking with them. He feels lucky and has had many fortunate experiences. He genuinely cares about people and is charitable in non-\"tax deductible\" ways. He does not seek recognition for his good deeds; his generosity is its own reward. He follows a simple business ethic: provide a good product or service at a reasonable price.", "Patrick", "Patrick takes his imagination seriously. He is open-minded and respects people's opinions that may differ from his own. Every day, he explores new processes or places that lead him to new discoveries. He strives to keep learning and preaches what he practices. He admires musicians, artists and craftspeople for their contributions to the soul of humankind.", "Scott", "Scott studies things closely. He recognizes nuances in his environment that most people overlook. He regularly examines his life for areas of improvement. His \"big picture\" is to make meaningful, moral contributions to the advancement of science. People admire his candor and sportsmanship -- qualities that help him approach challenges with determination.", "Tara", "Tara is a good judge of character. She is excellent at facilitating discussions and negotiating with salespeople. In a debate, her goal is compromise rather than conquest. She respects diverse lifestyles and opinions. She enjoys group activities that foster cooperation and personal growth. Her passion for adventure rubs off on her friends. Water skiing and cycling with her father are fond memories of her childhood.", ); sub buildList { local($fig,$cell,$bio) = @_; if (($fig eq "Laura") || ($fig eq "Andie") || ($fig eq "Natasha") || ($fig eq "Christina") || ($fig eq "Jasmine") || ($fig eq "Sophia")) { print "Select Biography: "; } else { print "Select Biography: "; } } if ($in{'status'} eq "printing") { print "Pragma-type: no-cache\n"; print "Content-type: text/html\n\n"; print "\n"; $url = ""; if ($in{'afig'}) { $url = join("","afig=",$in{'afig'},"&abio=",$in{'abio'},"&aname=",$in{'aname'}); } if ($in{'bfig'}) { $url = join("",$url,"&bfig=",$in{'bfig'},"&bbio=",$in{'bbio'},"&bname=",$in{'bname'}); } if ($in{'cfig'}) { $url = join("",$url,"&cfig=",$in{'cfig'},"&cbio=",$in{'cbio'},"&cname=",$in{'cname'}); } if ($in{'dfig'}) { $url = join("",$url,"&dfig=",$in{'dfig'},"&dbio=",$in{'dbio'},"&dname=",$in{'dname'}); } if ($in{'efig'}) { $url = join("",$url,"&efig=",$in{'efig'},"&ebio=",$in{'ebio'},"&ename=",$in{'ename'}); } if ($in{'ffig'}) { $url = join("",$url,"&ffig=",$in{'ffig'},"&fbio=",$in{'fbio'},"&fname=",$in{'fname'}); } print "\n"; print "\n"; print "\n"; } else { print "Pragma-type: no-cache\n"; print "Content-type: text/html\n\n"; print "\n"; print "The Upwardly Mobile: Biography Builder\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "		\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; if ($in{'afig'} || $in{'bfig'}) { if ($in{'afig'}) { print "\n"; print "\n"; print "\n"; } else { print "\n"; } if ($in{'bfig'}) { print "\n"; print "\n"; print "\n"; } else { print "\n"; } } else { print "\n"; print "\n"; } if ($in{'afig'} && $in{'bfig'} && !$in{'cfig'}) { print "\n"; print "\n"; } if ($in{'cfig'} || $in{'dfig'}) { if ($in{'cfig'}) { print "\n"; print "\n"; print "\n"; } else { print "\n"; } if ($in{'dfig'}) { print "\n"; print "\n"; print "\n"; } else { print "\n"; } } if ($in{'afig'} && $in{'bfig'} && $in{'cfig'} && $in{'dfig'} && !$in{'efig'}) { print "\n"; print "\n"; } if ($in{'efig'} || $in{'ffig'}) { if ($in{'efig'}) { print "\n"; print "\n"; print "\n"; } else { print "\n"; } if ($in{'ffig'}) { print "\n"; print "\n"; print "\n"; } else { print "\n"; } } print "\n"; print "\n"; print "\n"; print "\n"; print "


Click on a figure below to add it to the page. To customize Version \n"; print "A or Version B of the mobile you may also click on A or B below to display all of the figures.\n"; print "

When you have finished customizing the names and biographies of the figures, click \"Display Printer Page\" to create a page\n"; print "to print from your web browser.

\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; $newbio = $bio{$in{'abio'}}; $newbio =~ s/$in{'abio'}/$in{'aname'}/g; print "\n"; print "\n"; print "\n"; print "

\n"; &buildList($in{'afig'},'a',$in{'abio'}); print "
Choose Name: 

", $newbio, "
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; $newbio = $bio{$in{'bbio'}}; $newbio =~ s/$in{'bbio'}/$in{'bname'}/g; print "\n"; print "\n"; print "

\n"; &buildList($in{'bfig'},'b',$in{'bbio'}); print "
Choose Name: 

", $newbio, "
\n"; print "

\n"; print "Click another figure or \"Display Printer Page.\"

\n"; print "Click a figure or mobile version above.

\n"; print "Click another figure or \"Display Printer Page.\"
\n"; print "\n"; print "\n"; $newbio = $bio{$in{'cbio'}}; $newbio =~ s/$in{'cbio'}/$in{'cname'}/g; print "\n"; print "\n"; print "\n"; print "

\n"; &buildList($in{'cfig'},'c',$in{'cbio'}); print "
Choose Name: 

", $newbio, "
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; $newbio = $bio{$in{'dbio'}}; $newbio =~ s/$in{'dbio'}/$in{'dname'}/g; print "\n"; print "\n"; print "

\n"; &buildList($in{'dfig'},'d',$in{'dbio'}); print "
Choose Name: 

", $newbio, "
\n"; print "

\n"; print "Click another figure or \"Display Printer Page.\"

\n"; print "Click another figure or \"Display Printer Page.\"
\n"; print "\n"; print "\n"; $newbio = $bio{$in{'ebio'}}; $newbio =~ s/$in{'ebio'}/$in{'ename'}/g; print "\n"; print "\n"; print "\n"; print "

\n"; &buildList($in{'efig'},'e',$in{'ebio'}); print "
Choose Name: 

", $newbio, "
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; $newbio = $bio{$in{'fbio'}}; $newbio =~ s/$in{'fbio'}/$in{'fname'}/g; print "\n"; print "\n"; print "

\n"; &buildList($in{'ffig'},'f',$in{'fbio'}); print "
Choose Name: 

", $newbio, "
\n"; print "

\n"; print "Click another figure or \"Display Printer Page.\"

  
\n"; print "
\n"; print "\n"; } exit 0;