$title on $host

#!/usr/bin/perl ## for the other - !/usr/bin/perl use lib "d:/perl5/"; ## for the other: ## ## Perl script to display all lots ## =============================== ## INPUT ## - None ## PROCESS ## - read in current data file ## - search for each lot reference in it ## - collect the corresponding value ## - send them in as a parameter to the function called by MouseOver ## - check each lot if they are reserved ## and use this information to determine what the user sees: ## - si for sale => green ## - si aux progress de drawing => yellow ## - si finished => red ## (status = existence of certain files: ## none, lotNN.cho, lotNN.nve respectively) ## OUTPUT ## - generated HTML and javascript code with lock and gif references ## Setup some global variables. $version = "3.0 Alpha - Csaba Csaki"; $last_update = "Aug 30 - Oct 1, 1999"; $title = "Greylands Homes Lots Map"; $query_string = $ENV{QUERY_STRING}; ## These are common CGI library routines by Steven E. Brenner. require ('cgi-lib.pl') || die "can\'t require cgi-lib.pl: $!"; ## This routine is supplied by the CGI library, it turns the data ## and value inputs into an associative array called 'in'. &ReadParse; ## If there is a query string then use it to get query string values, ## otherwise get the action from an input in a form. if ($query_string ne "") { ($language) = split (/\+/, $query_string); } else { $language = $in{language}; ## "coords" ; } ## Setup some global variables. require ('setup.pl') || die "can\'t require setup.pl: $!"; ## load text pieces $line_index = 1; if (open (FILE, "<../$lot_dir/textall$language$data_extension")) { while() { chop; $text[$line_index] = $_ ; $line_index++; } close(FILE) ; } else { for ($line_index .. 100) { $text[$line_index] = "error" ; } } ## how many triangles and polygons... $last_rectangle = 55 ; ## definition of zone codes @zoning_type[5] ; $zoning_type[1] = $text[7] ; $zoning_type[2] = $text[8] ; $zoning_type[3] = $text[9] ; $zoning_type[4] = $text[10] ; ## definition of the lot coordinates for the mouse-in/out detection @coords[$last_lotnumber+1]; if (!open (FILE, "<$lot_dir/coords.dat")) { for $lot_index (1 .. $last_lotnumber ) { $first = $lot_index*3 ; $second = $lot_index*3+3 ; $coords[$lot_index] = "$first,$first,$first,$second,$second,$second,$second,$first"; } } else { $lots_data = join ("", ); for $lot_index (1 .. $last_lotnumber ) { $lots_data =~ /(.*)\|lot$lot_index\|\n(.*?)\n(.*)/s; chomp($2); $coords[$lot_index] = $2 ; } close(FILE) ; } ## here starts the actual html code generation ##(referencing the Perl definitions above) print " $title on $host_name "; ##
## ## WELCOME TO GREYLANDS HOMES BY BORDERLINE DEVELOPMENTS ## if ($language eq "f") { $title_length = 185 ; } else { $title_length = 113 ; } print "

"; ## here starts the generation of html body if ($language eq "f") { $lot_top = "240px" ; $lot_left = "0px" ; $lot_width = 138 ; $lot_height = 38 ; $zone_top = "298px" ; $zone_left = "0px" ; $zone_width = 138 ; $zone_height = 38 ; $area_top = "355px" ; $area_left = "0px" ; $area_width = 138 ; $area_height = 38 ; $residue_top = "408px" ; $residue_left = "0px" ; $residue_width = 138 ; $residue_height = 38 ; $histoire_top = "472px" ; $histoire_left = "0px" ; $histoire_largeur = 138 ; $histoire_height = 38 ; } else { $lot_top = "243px" ; $lot_left = "85px" ; $lot_width = 39; $lot_height = 31; $zone_top = "297px" ; $zone_left = "54px" ; $zone_width = 74 ; $zone_height = 36 ; $area_top = "361px" ; $area_left = "70px" ; $area_width = 54 ; $area_height = 26 ; $residue_top = "408px" ; $residue_left = "48px" ; $residue_width = 78 ; $residue_height = 32 ; $histoire_top = "472px" ; $histoire_left = "53px" ; $histoire_largeur = 71 ; $histoire_height = 35 ; } print"

$text[1]

$text[2]

$text[3]

$text[4]

$text[5]

"; print"

$\"\"$

"; print"

"; ## generating map reaction for mouseovers using ALL the data so far... print ""; $first_index = "[0]" ; $second_index = "[1]" ; for $lot_index (1 .. $last_rectangle) { $lot_href = "$host_URL/cgi-bin/onelot.pl?$lot_data[$lot_index][0]+$lot_data[$lot_index][1]+$lot_data[$lot_index][2]+$lot_data[$lot_index][3]+$lot_data[$lot_index][4]+$language" ; $lot_href =~ tr/ /_/; print" "; }; ##for $index (($lots_set_up+1) .. $last_rectangle) { ## print" ## ## "; ##}; for $lot_index (($last_rectangle+1) .. $last_lotnumber) { $lot_href = "$host_URL/cgi-bin/onelot.pl?$lot_data[$lot_index][0]+$lot_data[$lot_index][1]+$lot_data[$lot_index][2]+$lot_data[$lot_index][3]+$lot_data[$lot_index][4]+$language" ; $lot_href =~ tr/ /_/; print" "; }; print" " ; ## end of html code print" "; exit(0);