#!/usr/bin/perl 
# this is the feed back first page

# declarations of the functions to be used in this script
use CGI qw/:standard :html3 :netscape/; # for html things

# print html page
print header;
print start_html(-TITLE=>"Feed Back",
	            -text=>"#404040",
	           -link=>"#404040",
	           -vlink=>"#808080",
	    	     -BGCOLOR=>"#FFFFFF");

print p(center(h2("<font color=\"#000080\">Feed Back</font>")));
print p(center("<font color=\"#000080\">Tell us what you think about our publications and our site. We welcome all your comments and suggestions .</font>"));
print start_form(-action=>"feed2.cgi");
print p(center("<font color=\"#000080\">Tell us about yourself:</font>"));
		print center(table(
			Tr({-align=>"CENTER", -valign=>"TOP"},
			[
                                td(['Gender:',radio_group(-name=>"gender",
                                                          -values=>[1,2],
                                                          -labels=>{
                                                           1=>"female",
                                                           2=>"male",
                                                           },
                                                           -cols=>2,
                                                       -default=>1),' ',' ',' ']),     
        			td(['Name: ', textfield(-name=>"name",-size=>20),' ',' ',' ']),
        			td(['E-mail: ', textfield(-name=>"email",-size=>20),' ',' ','eg:yourname@domain.com']),
        			td(['City: ', textfield(-name=>"city",-size=>20),' ',' ',' ']),
        			td(['Country: ', textfield(-name=>"country",-size=>20),' ',' ',' ']),
			]
			)
			));
print p(center("<font color=\"#000080\">Would you like to comment on our site or a particular publication ?</font>"));
print center(scrolling_list(-name=>'choice',
                        -values=>
['Npsite','KtmPost', 'Kantipur', 'Gorkha','Rising','BBCNepaliService','ZodWth','ForCal','Independent','Telegraph','SundayPost','Saptahik','Spotlight','SundayDespatch','Koseli','Deshantar','Drishti','Bimarsha','Satyagraha','Sanibariya','WeeklyChronicle','CyberPost','HitsFM','Sarbottam','Apsara','YuwaManch','MadhuParka','Muna','BusinessAge','Mahanagar','Samacharpatra','Kamana','Sadhana','SandhyaTimes','WeeklyPoll','Chat'],
        			-default=>'Npsite',
                        -labels=> {
				Npsite=>" Nepal News Site ",
				KtmPost=>" The Kathmandu Post",
				Kantipur=>" Kantipur",
                                Gorkha=>" Gorkhapatra",
                                Rising=>" The Rising Nepal",
                                BBCNepaliService=>" BBC Nepali Service",
                                ZodWth=>" Zodiac/Weather",
                                ForCal=>" Forex/Calendar",  
				Independent=>" Independent",
				Telegraph=>" The Telegraph",
				SundayPost=>" Sunday Post",
				Saptahik=>" Saptahik",
                                Spotlight=>" Spotlight",
                                SundayDespatch=>" Sunday Despatch",
			              Koseli=>" Koseli",
                                Deshantar=>" Deshantar",
                                Drishti=>" Drishti",
                                Bimarsha=>" Bimarsha",
                                Satyagraha=>" Satyagraha",
                                Sanibariya=>" Sanibariya",
                                WeeklyChronicle=>" Weekly Chronicle",
                                CyberPost=>" Cyber Post",
                                HitsFM=>" HitsFM 100",
                                Sarbottam=>" Sarbottam",
                                Apsara=>" Apsara",
                                YuwaManch=>" Yuwamanch",
                                MadhuParka=>" Madhuparka",
                                Muna=>" Muna",
                                BusinessAge=>" Business Age",
                                Mahanagar=>" Mahanagar",
                                Samacharpatra=>" Samacharpatra",
                                Kamana=>" Kamana",
                                Sadhana=>" Sadhana",
                                SandhyaTimes=>" Sandhya Times", 
                                WeeklyPoll=>" Weekly Poll",
                                Chat=>" Chat",  
                                
                        },
				-size=>7,
                    ));
print p(center("<font color=\"#000080\">How many times a week do you visit our site?</font>"));
		print center(popup_menu(-name=>"times",
						 -values=>['less1',1,2,3,4,5,6,7,8],
						 -labels=>{
						less1=>"less than once",
						1=>"once",
						2=>"twice",
						3=>"thrice",
						4=>"four times",
						5=>"five times",
						6=>"six times",
						7=>"seven times",
                                                8=>"more than seven times",
						},
						 -default=>1,
						));
print p(center("<font color=\"#000080\">How did you find our site for the first time?</font>"));
		print center(textfield(-name=>"reach",-size=>50));
print p(center("<font color=\"#000080\">How do you rate our site?</font>"));
   print center(popup_menu(-name=>"rates",
                           -values=>[1,2,3,4,5],
                           -labels=>{
                            1=>"Excellent",
                            2=>"Good",
                            3=>"Satisfactory",
                            4=>"Unsatisfactory",
                            5=>"Poor", 
                            },
                            -default=>1,
                            )); 
print p(center("<font color=\"#000080\">How do you rate our site compared to other Nepal sites?</font>"));
  print center(popup_menu(-name=>"comp",
                          -values=>[1,2,3,4],
                          -labels=>{
                           1=>"The Best",
                           2=>"One of the Best",
                           3=>"The Same",
                           4=>"Poor",
                           },
                           -default=>1,
                           ));   
print p(center("<font color=\"#000080\">Would you like to provide comments or suggestions or both on our site?</font>"));
print p(center(radio_group(-name=>"type",
					-values=>['comments', 'suggestions', 'both'],
					-labels=>{
					comments=>" Comments",
					suggestions=>" Suggestions",
					both=>" Both",
					},
					-default=>'comments',
					)));
print p(center("<font color=\"#000080\">Your comments and suggestions : </font>"));
		print center(textarea(-name=>"comments",-rows=>4,-columns=>50));
print p();
print center(table(
Tr({-align=>"CENTER", -valign=>"TOP"},
[
   th([submit("Submit Your Views"),' ',' ',reset("Clear"),' ']),
]
)
));
print end_form(),hr();
print "<table border=\"0\" width=\"100%\">";
print  "<tr>";
print "<td width=\"100%\" bgcolor=\"#FCFFD9\"><p align=\"center\"><font size=\"3\">This service is brought to you by<em><strong> Mercantile Communications Pvt. Ltd.</strong></em></font></td>";
print "</tr>";
print "</table>";

print end_html;