#
# Table structure for table `4images_images`
#

CREATE TABLE 4images_images (
image_id mediumint(8) NOT NULL auto_increment,
cat_id mediumint(8) NOT NULL default '0',
user_id mediumint(8) NOT NULL default '0',
image_name varchar(255) NOT NULL default '',
image_description text NOT NULL,
image_keywords text NOT NULL,
image_date int(11) unsigned NOT NULL default '0',
image_active tinyint(1) NOT NULL default '1',
image_media_file varchar(255) NOT NULL default '',
image_thumb_file varchar(255) NOT NULL default '',
image_download_url varchar(255) NOT NULL default '',
image_allow_comments tinyint(1) NOT NULL default '1',
image_comments smallint(6) NOT NULL default '0',
image_downloads smallint(6) NOT NULL default '0',
image_votes smallint(6) NOT NULL default '0',
image_rating decimal(4,2) NOT NULL default '0.00',
image_hits mediumint(8) NOT NULL default '0',
PRIMARY KEY (image_id),
KEY cat_id (cat_id),
KEY user_id (user_id),
KEY image_date (image_date),
KEY image_active (image_active)
) TYPE=MyISAM;
# --------------------------------------------------------

#
# Table structure for table `descr`
#

CREATE TABLE descr (
name varchar(255) NOT NULL default '',
descr text NOT NULL,
seclevel int(11) NOT NULL default '0',
PRIMARY KEY (name)
) TYPE=MyISAM;

my $sth = $dbh->prepare("select table1.* from table1, table2 where table1.imagename=table2.imagename");
$sth->execute();
while(my ($name, $desc) = $sth->fetchrow_array()) {
my $update = $dbh->do("update table2 set description=$desc where imagename=$name");
}
$sth->finish();

#!/usr/local/bin/perl

use DBI;

my $database = "database";
my $username = "username";
my $password = "password";

my $changed = 0;

my $dbh = DBI->connect("DBD:mysql:$database", $username, $password) or die $!;

my $sth = $dbh->prepare("select table1.* from table1, table2 where table1.imagename=table2.imagename") or die $dbh->errstr;

$sth->execute() or die $sth->errstr;

while(my ($name, $desc) = $sth->fetchrow_array()) {
$dbh->do("update table2 set description=$desc where imagename=$name") or die $dbh->errstr;
$changed++;
}

$sth->finish();

$dbh->disconnect();

print "Content-type: text/plain\n\n";
print "$changed records updated successfully.";