Image on a form in Perl

Unlimited Shared hosting & Unlimited Disk Space from $5.95 - Dreamhost
Solid Managed VPS with 4 IP's from $60 - Liquid Web
Lightning Fast Dedicated Servers & 1GB RAM from $149 - Liquid Web
#1 Domain Registration with WHOIS Privacy - Just $9.95

This Dreamhost thread was started by MajorGeek on 2010-03-03 13:56:23:

Post Reply? I seem to have forgotten everything I once knew about perl after several years of working in php instead. I just wanted to pretty up an input form in a perl script by adding a image of our logo. Here’s what I have been trying: .. use strict; use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); use File::Copy; .. .. my $logo = ‘YKFPlogo.jpg’; my $logo_url = ‘http://ykfp.org/cgi-bin/YKFPlogo.jpg’; .. .. .. sub display_form { print start_multipart_form(-action => url ()), “Submit your file to YKFP: “, br (), filefield (-name => $file_field, -size => 90), br (), submit (-name => $submit_field, -value => $submit_value), br (), br (), print img ({-src => $logo_url}); end_form (); return; } I made a copy of the logo jpg right in my cgi-bin directory with the script just so I wouldn’t be confused by path string syntax errors. I’ve tired both the url and the file name as the source, and tried syntax like print “<img src = $logo>, but all I ever see on the form is a “1″ instead of the image. This should be easy for you guys. This signature line intentionally blank. Edited by MajorGeek on 03/03/10 12:04 PM (server time).

Join in on the original post at the Dreamhost Forum, Apply for a Dreamhost Account or view our Review of Dreamhost.