version 1.22, 2004/07/21 21:14:36
|
version 1.25, 2004/12/20 19:53:36
|
Line 556 sub update_table_info {
|
Line 556 sub update_table_info {
|
# |
# |
my @info=$sth->fetchrow_array; |
my @info=$sth->fetchrow_array; |
for (my $i=0;$i<= $#info ; $i++) { |
for (my $i=0;$i<= $#info ; $i++) { |
$Tables{$tablename}->{$tabledesc[$i]}= $info[$i]; |
if ($tabledesc[$i] !~ /^(Create_|Update_|Check_)time$/) { |
|
$Tables{$tablename}->{$tabledesc[$i]}= |
|
&unsqltime($info[$i]); |
|
} else { |
|
$Tables{$tablename}->{$tabledesc[$i]}= $info[$i]; |
|
} |
} |
} |
# |
# |
# Determine the column order |
# Determine the column order |
Line 580 sub update_table_info {
|
Line 585 sub update_table_info {
|
$debugstring = "Retrieved table info for $tablename"; |
$debugstring = "Retrieved table info for $tablename"; |
return 1; |
return 1; |
} |
} |
|
|
|
############################### |
|
|
|
=pod |
|
|
|
=item &table_information() |
|
|
|
Inputs: table id |
|
|
|
Returns: hash with the table status |
|
|
|
=cut |
|
|
|
############################### |
|
sub table_information { |
|
my $table_id=shift; |
|
if (&update_table_info($table_id)) { |
|
return %{$Tables{$table_id}}; |
|
} else { |
|
return (); |
|
} |
|
} |
|
|
############################### |
############################### |
|
|
=pod |
=pod |
Line 592 Returns: array with column order
|
Line 620 Returns: array with column order
|
|
|
=cut |
=cut |
|
|
|
############################### |
sub col_order { |
sub col_order { |
my $table_id=shift; |
my $table_id=shift; |
if (&update_table_info($table_id)) { |
if (&update_table_info($table_id)) { |
Line 619 Returns:
|
Line 647 Returns:
|
sub create_table { |
sub create_table { |
return undef if (!defined(&connect_to_db($dbh))); |
return undef if (!defined(&connect_to_db($dbh))); |
my ($table_des)=@_; |
my ($table_des)=@_; |
my $request = &build_table_creation_request($table_des); |
my ($request,$table_id) = &build_table_creation_request($table_des); |
# |
# |
# Execute the request to create the table |
# Execute the request to create the table |
############################################# |
############################################# |
Line 629 sub create_table {
|
Line 657 sub create_table {
|
$dbh->errstr(); |
$dbh->errstr(); |
return undef; |
return undef; |
} |
} |
# |
|
# Set up the internal bookkeeping |
|
############################################# |
|
my $table_id; |
|
if (exists($table_des->{'id'})) { |
|
$table_id = $table_des->{'id'}; |
|
} else { |
|
$table_id = &get_new_table_id(); |
|
} |
|
my $tablename = &translate_id($table_id); |
my $tablename = &translate_id($table_id); |
delete($Tables{$tablename}) if (exists($Tables{$tablename})); |
delete($Tables{$tablename}) if (exists($Tables{$tablename})); |
return undef if (! defined(&update_table_info($table_id))); |
return undef if (! defined(&update_table_info($table_id))); |
Line 770 sub build_table_creation_request {
|
Line 789 sub build_table_creation_request {
|
$request.="COMMENT = 'temporary' "; |
$request.="COMMENT = 'temporary' "; |
} |
} |
$request .= "TYPE=MYISAM"; |
$request .= "TYPE=MYISAM"; |
return $request; |
return $request,$table_id; |
} |
} |
|
|
############################### |
############################### |
Line 901 sub store_row {
|
Line 920 sub store_row {
|
return 1; |
return 1; |
} |
} |
|
|
|
|
|
############################### |
|
|
|
=pod |
|
|
|
=item &bulk_store_rows() |
|
|
|
Inputs: table id, [columns],[[row data1].[row data2],...] |
|
|
|
returns undef on error, 1 on success. |
|
|
|
=cut |
|
|
|
############################### |
|
sub bulk_store_rows { |
|
my ($table_id,$columns,$rows) = @_; |
|
# |
|
return undef if (! defined(&connect_to_db())); |
|
my $dbh = &get_dbh(); |
|
return undef if (! defined($dbh)); |
|
my $table_status = &check_table($table_id); |
|
return undef if (! defined($table_status)); |
|
if (! $table_status) { |
|
$errorstring = "table $table_id does not exist."; |
|
return undef; |
|
} |
|
# |
|
my $tablename = &translate_id($table_id); |
|
# |
|
my $request = 'INSERT IGNORE INTO '.$tablename.' '; |
|
if (defined($columns) && ref($columns) eq 'ARRAY') { |
|
$request .= join(',',@$columns).' '; |
|
} |
|
if (! defined($rows) || ref($rows) ne 'ARRAY') { |
|
$errorstring = "no input rows given."; |
|
return undef; |
|
} |
|
$request .= 'VALUES '; |
|
foreach my $row (@$rows) { |
|
# avoid doing row stuff here... |
|
$request .= '('.join(',',@$row).'),'; |
|
} |
|
$request =~ s/,$//; |
|
$dbh->do($request); |
|
if ($dbh->err) { |
|
$errorstring = 'Attempted '.$/.$request.$/.'Got error '.$dbh->errstr(); |
|
return undef; |
|
} |
|
return 1; |
|
} |
|
|
|
|
############################### |
############################### |
|
|
=pod |
=pod |