#!/usr/bin/perl $title = "MyManFriday Premier Rent Photo Gallery"; # This is the title of your page. $bgcolor = "ffffff"; # This is the background color for the pages this script creates $border = "6"; # This is the size of the border you want around the large images. $dir_url = "http://mymanfriday.com/apartment/images"; # This is the url to the directory where the full size images are. $tn_dir_url = "http://mymanfriday.com/apartment/thumbnails"; # This is the url to the directory where the thumbnail images are. # The thumbnail images MUST have the same name as the full size images. $tn_dir = "/home/u513718764/domains/mymanfriday.com/public_html/apartment/thumbnails"; # This is the path to the directory where the thumbnail images are. $caption_file = "/home/u513718764/domains/mymanfriday.com/public_html/apartment/captions.dat"; $application_file = "/home/u513718764/domains/mymanfriday.com/public_html/apartment/Rental_Application.docx"; # This is the full path (including the file name to the captions file) of # the caption file if you choose to use one. Only images in the caption file # will be displayed. If you don't want captions leave this blank, and the # script will display every image in the $tn_dir and none will have captions. #MARION OAKS – NEAT/CLEAN 1500SF LIVING 3 BED 2 BATH HOME W/ 1 CAR #GARAGE, LIVING ROOM, KITCHEN, DINING AREA AND DAYROOM OR FORMAL #DINING ROOM, INSIDE LAUNDRY ROOM, CHAIN LINK FENCED YARD. MINUTES #FROM I-75 EXIT 341. \$700/MONTH, \$500 SECURITY – 1YR LEASE. CREDIT #CHECK, LANDLORD AND EMPLOYEE REFERENCES. CALL OR EMAIL FOR INFO. #SERIOUS INQUIRIES ONLY PLEASE. #CERAMIC TILED 1500SF HOUSE - LIVING 3 BED 2 BATH HOME W/ 1 CAR GARAGE, LIVING #ROOM, KITCHEN, DINING AREA AND DAYROOM OR FORMAL DINING ROOM, INSIDE LAUNDRY #ROOM, CHAIN LINK FENCED YARD. MINUTES FROM I-75 EXIT 341. \$750/MONTH, \$500 #SECURITY 1YR LEASE. (\$2000 TO MOVE IN) CREDIT CHECK, LANDLORD AND EMPLOYEE #REFERENCES. CALL OR EMAIL FOR INFO. SERIOUS INQUIRIES ONLY PLEASE. #Phone: 352-427-2700, Email: #house\@mymanfriday.com #I am interested in Apartment. # RENTAL APPLICATION. $script_name = "4rent.cgi"; # This is the script name, as you have it on your server. $header = <

HOSTINGER - Return to Rent Property Photo Gallery


RENTAL APPLICATION Word File
RENTAL APPLICATION PDF File

Fill either one and email to Rent\@mymanfriday.com


APARTMENT AVAILABLE \$ 1,015 /Month - QUAD - One Apartment available January, One available February.

Great two bedroom, one bath apartment. SE Ocala Quadruplex in Quiet residential area, huge back yard /front patio - convenient to Ocala and Belleview. New kitchen appliances, New Cabinets, ceiling fans, window treatments, room for stackable washer-Dryer.
Apartment has new kitchen Cabinets/Quartz Sink, new paint, new deck, new Refrigerator & Dishwasher

Rent is \$1,015/Month + \$1,000 security. 1st, Last & Security to move in ( - \$3,030 Total), and \$50 application fee. No Pets Allowed. CALL FOR INFO. SERIOUS INQUIRIES ONLY PLEASE. Phone: 352-427-2700.

NOTE: The application process approval minimally requires
- a Total income of \$ 3,000 /month or higher,
- NO issues with prior landlords,
- NO prior Felonies.

EOM 1; # This is where you put the html that goes in the header. Everything MUST # be after and before You DO NOT # need to put a backslash (\) before quotation marks or @ symbols. $footer = < EOM 1; # This is where you put the html that goes in the footer. Everything MUST # be after and before . You DO NOT # need to put a backslash (\) before quotation marks or @ symbols. # # That's it! # You must get my permission by e-mail (mwheeler@command-o.com) # to change anything below this point. ##################################### if ($ENV{'QUERY_STRING'} eq ""){ &table; exit; } else { &display; exit; } ######################### # Display requested picture sub display { $file = "$ENV{'QUERY_STRING'}"; print "Content-type: text/html\n\n"; print "$title: $file\n"; print "\n"; print "$header\n"; print "



\n"; print "$footer\n"; print "\n"; } ####################### # Make table page sub table { if ($caption_file ne "") { open(CAPS,"$caption_file"); while () { chop; ($key,$value) = split(/:/); $photos{$key} = $value; } close(CAPS); foreach (sort keys %photos) { push (@tnlist,$_); push (@captions,$photos{$_}); } } else { opendir (TN, "$tn_dir"); rewinddir (TN); @tnlist = grep(!/^\.\.?$/, readdir (TN)); closedir (TN); $temp = pop @tnlist; @tntemp = reverse(@tnlist); push (@tntemp,$temp); @tnlist = reverse(@tntemp); } $tnnum = @tnlist; $anum = int ($tnnum / 3); $bnum = ((($tnnum / 3) - $anum) * 3); print "Content-type: text/html\n\n"; print "$title\n"; print "\n"; print "$header\n"; print "


Click on any image to see a larger-size version of it

\n"; if ($bnum eq "0") { &main_table; &end; } if ($bnum eq "1") { &main_table; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

$captions[($anum * 3)]

\n"; } if ($bnum eq "2") { &main_table; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

$captions[($anum * 3)]

$captions[($anum * 3) + 1]

\n"; } print "

Click on any image to see a full-size version ofit


\n"; print "$footer\n"; print "\n"; } sub main_table { $dnum = ($anum * 3); $cnum = "0"; while ($dnum > $cnum) { print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

$captions[$cnum]

$captions[$cnum + 1]

$captions[$cnum + 2]
\n"; $cnum = $cnum + 3; print "
\n"; } }