---START---- |FULLNAME: JANE DEO |BINF : 492BBJJ |PRICE: 10 |COUNTRY: GR ---END--- ##

##

---START----
|FULLNAME: JOHN DEO
|BINF : K92BBJJ
|PRICE: 24
|COUNTRY: AS
 ---END---	

##

##

#!/usr/bin/perl -w


use DBI;
use CGI qw/:standard/;

my $CGI = CGI->new;

my $host = "localhost";
my $dbname = "";
my $usr = "";
my $pwd = '';


my $dbh_usr = DBI->connect("DBI:mysql:$dbname:$host", $usr, $pwd, {
								  RaiseError => 1,
								  }) or die $DBI::errstr;


# $binf extracted from 	data where is |BINF : 
# $price extracted from data where is |PRICE: 
# $info this is the whole ---START---- and  ---END---
							  							  
			  		   		
my $upload = $CGI->param("data");	   
			   
if ($upload) {
	
my $update_info = $dbh_usr->prepare("INSERT INTO ITEMS(user, pid, basnm, binf, info, status, price)
                                    VALUES(?,?,?,?,?,?,?)");
                         
						  $update_info->execute('join123', '898', 'iono', $binf, $info, 'Active', $price);
						  $update_info->finish;
					  
}			   
			   
			  
$dbh_usr->commit;
$dbh_usr->disconnect;


print "Content-type: text/html\n\n";
print <





The textarea


  
  

  






HTML