Flat File database 1

fergmj · Jul 26, 2001

I have a cgi script that simply puts all values for each key into a flat file database.

Mindy|a|Ferguson|||0||on black|photo|Headshot||Mindy|0|||Ferguson|2001|Mindy|Upload|

However if you set the <form enctype="multipart/form-data"> in the html file, the flatfile database looks like this:

"Caption"

Mindy

-----------------------------7d1b92a16009c

Content-Disposition: form-data; name|

I need the file to look like the first example but I need to set the enctype so I can upload a jpeg file.

Any ideas?

Thanks

Mindy

goBoating · Jul 26, 2001

the crystal ball is a little foggy still.;-).... can you give a little more detail? Maybe post a small section of code that is representative of what you are using...??

keep the rudder amid ship and beware the odd typo

fergmj · Jul 26, 2001

Here is the entire code.....

#!/usr/local/bin/perl5

if ($ENV{'REQUEST_METHOD'} eq 'GET')
{
@pairs = split(/&/, $ENV{'QUERY_STRING'});
}
elsif ($ENV{'REQUEST_METHOD'} eq 'POST')
{
read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@pairs = split(/&/, $buffer);
}
else
{
print "Content-type: text/html\n\n";
print "<P>Use POST or GET</P>";
}

foreach $pair (@pairs)
{
($key, $value) = split (/=/, $pair);
$key =~ tr/+/ /;
$key =~ s/%([a-fA-F0-9] [a-fA-F0-9])/pack("C",hex($1)) /eg;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9] [a-fA-F0=9])/pack("C", hex($1))/eg;
$value =~ s///g;
#$FORM{'name'} = $value;

if ($formdata{$key})
{
$formdata{$key} .= ", $value";
}
else
{
$formdata{$key} = $value;
}
}
print "Content-type: text/html\n\n";
open(GB, ">>APGB.txt&quot

;

foreach $key (sort keys(%formdata))
{
print GB "$formdata{$key}|";
}
print GB "\n";
print "<html><head><title>Associated Press - Graphics Bank</title></head>";
print "<body>";
print "<P>The information has been saved to a log.</P>";
print "<P>The file has been uploaded.</P>";
print "</BODY></HTML>";
close(GB);

goBoating · Jul 26, 2001

no rocket science there.. pretty normal stuff.... What does the HTML input page look like?

keep the rudder amid ship and beware the odd typo

fergmj · Jul 26, 2001

<HTML>
<HEAD>
<META HTTP-EQUIV=Set-Cookie CONTENT="ApCookie=x%07S%13s%B3%EC%E1%E5%25%11x%F6%F2%04VF%D3%1D01%B1%15Wk%E4%86%17%2Aa%B2%DB%D7%E8JJ%F3%AB%C3_%83%E3%E3el%29a%A3%3A%5C0%87%AA%E8%28%DD%81%E7%9A%90%E2%C0%3Fd%E5D%06%AB%9D%25%27%DFH%EE%CE%B2s%C7n%E5%AC%9D%AC+%93%8C%FD%3E%89%27B4%95%C4R%0D%D6%98G%10%89%E1l%1FI%FF%EC%1E%AD%EC%AD%8F%D3%F2%82%1D%83C%FA%24wsF%9D%DC%A3%95%5C%5CKd%08i%05%AA%C8%D7Dy%8A%7E%D4%B9%B2%03g1%84%27%80%A1Q%8D%AF%A6%F4%21%83%8E%8E4%87%0A%FC%21%0Fn%EC5%C2%DC%C9v%3Dm%A0%D6G%5D%FF%0BCN%9F%3A%A1%D4%A0%CA.n%5C%5C%7Cdf%0E%C0%EEP%C7%7F%CE%05%0E%85q%EF%B7J%9D%5B%3D%8D%C6%C0%3Ah%BC%D0I%BE%06%F7%2C%86%10%98%93%18%BA%F0%CA%98%E0+%1C%E8%E1n%B6%C8%CD%DBUI8%17W%A6s1%E8%F8p%AD%A9%DB%E5%99z%F9%23%9CA%9B%EEk%A3%3F%EA%A29%F2x03u%8B%AF%BE%CC%7DD; path=/;">
<META HTTP-EQUIV=Set-Cookie CONTENT="ApSettings=x; path=/; expires=Friday, 31-Dec-2030 00:00:00 GMT">
<TITLE>Upload New Image</TITLE>
</HEAD>
<BODY BGCOLOR=black TEXT=white LINK="#F6FF45" ALINK="#DAE0FF" VLINK="#08FF2E">
<H2>Upload New Image</H2>
<P>
<FORM ACTION="cgi/upload.cgi" METHOD="post">
<TABLE BORDER=0 WIDTH="100%">
<TR>
<TD ALIGN=right> Caption: </TD>
<TD ALIGN=left COLSPAN=2>
<TEXTAREA NAME=Caption ROWS=3 COLS=60 WRAP=virtual></TEXTAREA>
</TD>
</TR>
<TR>
<TD ALIGN=right> Image Type: </TD>
<TD ALIGN=left COLSPAN=2>
<SELECT NAME=Image_Type><OPTION VALUE="Headshot">--- Type ---
<OPTION VALUE="Headshot">Headshot
<OPTION VALUE="Cutout Headshot">Cutout Headshot
<OPTION VALUE="Logo">Logo
<OPTION VALUE="Map">Map
<OPTION VALUE="Drawing">Drawing
<OPTION VALUE="Flag">Flag
</SELECT>
<SELECT NAME=Image_Format><OPTION VALUE="">--- Format ---
<OPTION VALUE="photo">photo
<OPTION VALUE="graphic element">graphic element
<OPTION VALUE="partial graphic">partial graphic
<OPTION VALUE="finished graphic">finished graphic
<OPTION VALUE="video still">video still
</SELECT>
<SELECT NAME=Image_Background><OPTION VALUE="">--- Background ---
<OPTION VALUE="on black">on black
<OPTION VALUE="on white">on white
<OPTION VALUE="on gray">on gray
</SELECT>
</TD>
</TR>
<TR>
<TD ALIGN=right> Category: </TD>
<TD ALIGN=left COLSPAN=2>
<PRE><SELECT NAME=Category>
<OPTION VALUE="" SELECTED>--- Category ---
<OPTION VALUE="a">General Domestic News
<OPTION VALUE="b">Special Events
<OPTION VALUE="c">Features
<OPTION VALUE="cA">    Stocking Stuffers
<OPTION VALUE="ca">    Flashback
<OPTION VALUE="cb">    Between the Lines
<OPTION VALUE="cc">    ConsumerWatch
<OPTION VALUE="cd">    The Other News
<OPTION VALUE="ce">    Home Entertainment Update
<OPTION VALUE="cf">    Film Clips
<OPTION VALUE="cg">    General Entertainment
<OPTION VALUE="ch">    Health and Medicine
<OPTION VALUE="ci">    Eye On TV
<OPTION VALUE="cj">    Country Music Report
<OPTION VALUE="ck">    On the Homefront
<OPTION VALUE="cl">    Consuming Interest
<OPTION VALUE="cm">    The Music Report
<OPTION VALUE="cn">    Country
<OPTION VALUE="co">    Rock
<OPTION VALUE="cp">    Grammy Preview
<OPTION VALUE="cq">    Chip Talk
<OPTION VALUE="cr">    The Hollywood Report
<OPTION VALUE="cs">    Segue
<OPTION VALUE="ct">    TravelMinute
<OPTION VALUE="cu">    Urban
<OPTION VALUE="cv">    Oscar Preview
<OPTION VALUE="cw">    Newsweek Perspective
<OPTION VALUE="cx">    Tax Break
<OPTION VALUE="cy">    Yearenders
<OPTION VALUE="cz">    Today in Entertainment History
<OPTION VALUE="d">National News Agenda
<OPTION VALUE="e">Entertainment
<OPTION VALUE="eg">    General
<OPTION VALUE="en">    Country
<OPTION VALUE="eo">    Rock
<OPTION VALUE="eu">    Urban
<OPTION VALUE="f">Financial/Business
<OPTION VALUE="g">State News Agenda
<OPTION VALUE="h">National NewsMinute
<OPTION VALUE="i">International News
<OPTION VALUE="j">State NewsMinute
<OPTION VALUE="jl">    Lottery
<OPTION VALUE="jn">    News
<OPTION VALUE="k">Commentary
<OPTION VALUE="l">Lifestyle
<OPTION VALUE="m">Agriculture
<OPTION VALUE="n">General State News
<OPTION VALUE="o">Weather
<OPTION VALUE="p">Political News
<OPTION VALUE="q">Sports Scores
<OPTION VALUE="qb">    Baseball
<OPTION VALUE="qe">    Soccer
<OPTION VALUE="qf">    Football
<OPTION VALUE="qg">    Golf
<OPTION VALUE="qh">    Hockey
<OPTION VALUE="qi">    Track and Field
<OPTION VALUE="qk">    Basketball
<OPTION VALUE="qm">    Motor Sports
<OPTION VALUE="qn">    Swimming
<OPTION VALUE="qo">    Olympics
<OPTION VALUE="qt">    Tennis
<OPTION VALUE="qx">    Boxing
<OPTION VALUE="r">Radio Advisories
<OPTION VALUE="s">Sports Stories
<OPTION VALUE="sb">    Baseball
<OPTION VALUE="se">    Soccer
<OPTION VALUE="sf">    Football
<OPTION VALUE="sg">    Golf
<OPTION VALUE="sh">    Hockey
<OPTION VALUE="si">    Track and Field
<OPTION VALUE="sk">    Basketball
<OPTION VALUE="sm">    Motor Sports
<OPTION VALUE="sn">    Swimming
<OPTION VALUE="so">    Olympics
<OPTION VALUE="st">    Tennis
<OPTION VALUE="sx">    Boxing
<OPTION VALUE="t">Television Advisories
<OPTION VALUE="v">General Advisories
<OPTION VALUE="w">Washington News
</SELECT></PRE>
</TD>
</TR>
<TR>
<TD ALIGN=right> Keywords: </TD>
<TD ALIGN=left COLSPAN=2>
<INPUT NAME=Keywords VALUE="" SIZE=60>
</TD>
</TR>
<TR>
<TD ALIGN=right> Source: </TD>
<TD ALIGN=left COLSPAN=2>
<INPUT NAME=Source VALUE="" SIZE=60>
</TD>
</TR>
<TR>
<TD ALIGN=right> Copyright: </TD>
<TD ALIGN=left COLSPAN=2>
<INPUT NAME=Copyright VALUE="" SIZE=60>
</TD>
</TR>
<TR>
<TD ALIGN=right> Permission From: </TD>
<TD ALIGN=left COLSPAN=2>
<INPUT NAME=Permission VALUE="" SIZE=60>
</TD>
</TR>
<TR>
<TD ALIGN=right> Restrictions: </TD>
<TD ALIGN=left COLSPAN=2>
<INPUT NAME=Restrictions VALUE="" SIZE=60>
</TD>
</TR>
<TR>
<TD ALIGN=right> Initials: </TD>
<TD ALIGN=left> <INPUT NAME=Initials VALUE="" SIZE=11> </TD>
<TD ALIGN=center ROWSPAN=5>
</TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>Date Created: </TD>
<TD ALIGN=left>
<INPUT NAME=Date_Created SIZE=11 MAXLENGTH=10 VALUE="">
(YYYY/MM/DD)
</TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>Date Edited: </TD>
<TD ALIGN=left>
<INPUT NAME=Date_Edited SIZE=11 MAXLENGTH=10 VALUE="">
(YYYY/MM/DD)
</TD>
</TR>
<TR>
<TD ALIGN=right> Id: </TD>
<TD ALIGN=left>
<INPUT NAME=ID: SIZE=11 MAXLENGTH=10 VALUE="">
</TD>
</TR>
<TR>
<TD ALIGN=right>
New image:
</TD>
<TD ALIGN=left COLSPAN=2>
<INPUT TYPE="file" NAME="New_Image" ACCEPT="image/jpeg" SIZE="40">
</TD>
</TR>
<TR>
<TD ALIGN=right> New matte: </TD>
<TD ALIGN=left COLSPAN=2>
<INPUT TYPE="file" NAME="New_Matte" ACCEPT="image/jpeg" SIZE="40">
</TD>
</TR>
<TR>
<TD ALIGN=right>
Linked Id:
</TD>
<TD ALIGN=left>
<INPUT NAME=Link_ID SIZE=11 MAXLENGTH=6 VALUE="0">
(Leave 0 if both New Image and New Matte given)
</TD>
</TR>
<TR>
<TD>
<INPUT TYPE=hidden NAME=Free VALUE="0"><INPUT TYPE=submit NAME=what VALUE="Upload">
</TD>
<TD COLSPAN=2>
<INPUT TYPE=reset VALUE="Reset Form">
</TD>
</TR>
</TABLE>
</FORM>
<P><HR>
<FORM>
<INPUT TYPE=button VALUE="Back to results page" ONCLICK="history.go(-1)">
</FORM>
</BODY>
</HTML>

fergmj · Jul 27, 2001

If anyone is interested, I was able to fix all problems by using the CGI.pm as listed below.

#!/usr/local/bin/perl5

use CGI;

$query = CGI::new();
$caption = $query->param("Caption&quot

;
$type = $query->param("Image_Type&quot

;
$format = $query->param("Image_Format&quot

;
$background = $query->param("Image_Background&quot

;
$category = $query->param("Category&quot

;
$keywords = $query->param("Keywords&quot

;
$source = $query->param("Source&quot

;
$copyright = $query->param("Copyright&quot

;
$permission = $query->param("Permission&quot

;
$restrictions = $query->param("Restrictions&quot

;
$initials = $query->param("Initials&quot

;
$createdate = $query->param("Date_Created&quot

;
$editdate = $query->param("Date_Edited&quot

;
$id = $query->param("ID:&quot

;
$newimage = $query->param("New_Image&quot

;
$newmatte = $query->param("New_Matte&quot

;
$link = $query->param("Link_ID&quot

;
open (GB, ">>APGB.txt&quot

goBoating · Jul 27, 2001

Cool! Sorry I was not of more assistance. 'Glad you got it figured out.

keep the rudder amid ship and beware the odd typo

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Flat File database 1

fergmj

Programmer

goBoating

Programmer

fergmj

Programmer

goBoating

Programmer

fergmj

Programmer

fergmj

Programmer

goBoating

Programmer

Similar threads

Part and Inventory Search

Sponsor