version 1.35, 2005/08/24 19:33:32
|
version 1.36, 2007/03/12 17:10:02
|
Line 87 and provide a common interface. The goa
|
Line 87 and provide a common interface. The goa
|
a complete reimplementation of the DBI interface. Instead we try to |
a complete reimplementation of the DBI interface. Instead we try to |
make using mysql as painless as possible. |
make using mysql as painless as possible. |
|
|
Each table has a numeric ID that is a parameter to most lonmysql functions. |
Each table has a numeric ID that is a parameter to most lonmysql |
The table id is returned by &create_table. |
functions. The table id is returned by &create_table. If you lose |
If you lose the table id, it is lost forever. |
the table id, it is lost forever. The table names in MySQL correspond |
The table names in MySQL correspond to |
to $env{'user.name'}.'_'.$env{'user.domain'}.'_'.$table_id. (With all |
$env{'user.name'}.'_'.$env{'user.domain'}.'_'.$table_id. If the table id |
non-word characters removed form user.name and user.domain) If the |
is non-numeric, it is assumed to be the full name of a table. If you pass |
table id is non-numeric, it is assumed to be the full name of a table. |
the table id in a form, you MUST ensure that what you send to lonmysql is |
If you pass the table id in a form, you MUST ensure that what you send |
numeric, otherwise you are opening up all the tables in the MySQL database. |
to lonmysql is numeric, otherwise you are opening up all the tables in |
|
the MySQL database. |
|
|
=over 4 |
=over 4 |
|
|
Line 750 sub build_table_creation_request {
|
Line 751 sub build_table_creation_request {
|
$table_id = &get_new_table_id(); |
$table_id = &get_new_table_id(); |
} |
} |
my $tablename = &translate_id($table_id); |
my $tablename = &translate_id($table_id); |
|
&Apache::lonnet::logthis(" hmm $tablename, $table_id, ". $table_des->{'id'}); |
my $request = "CREATE TABLE IF NOT EXISTS ".$tablename." "; |
my $request = "CREATE TABLE IF NOT EXISTS ".$tablename." "; |
foreach my $coldata (@{$table_des->{'columns'}}) { |
foreach my $coldata (@{$table_des->{'columns'}}) { |
my $column = $coldata->{'name'}; |
my $column = $coldata->{'name'}; |
Line 824 sub build_table_creation_request {
|
Line 826 sub build_table_creation_request {
|
|
|
=pod |
=pod |
|
|
|
=item &get_table_prefix() |
|
|
|
returns the cleaned version of user.name and user.domain for us in table names |
|
|
|
=cut |
|
|
|
############################### |
|
sub get_table_prefix { |
|
my $clean_name = $env{'user.name'}; |
|
my $clean_domain = $env{'user.domain'}; |
|
$clean_name =~ s/\W//g; |
|
$clean_domain =~ s/\W//g; |
|
return $clean_name.'_'.$clean_domain.'_'; |
|
} |
|
|
|
############################### |
|
|
|
=pod |
|
|
=item &get_new_table_id() |
=item &get_new_table_id() |
|
|
Used internally to prevent table name collisions. |
Used internally to prevent table name collisions. |
Line 834 Used internally to prevent table name co
|
Line 855 Used internally to prevent table name co
|
sub get_new_table_id { |
sub get_new_table_id { |
my $newid = 0; |
my $newid = 0; |
my @tables = &tables_in_db(); |
my @tables = &tables_in_db(); |
|
my $prefix = &get_table_prefix(); |
foreach (@tables) { |
foreach (@tables) { |
if (/^$env{'user.name'}_$env{'user.domain'}_(\d+)$/) { |
if (/^\Q$prefix\E(\d+)$/) { |
$newid = $1 if ($1 > $newid); |
$newid = $1 if ($1 > $newid); |
} |
} |
} |
} |
Line 1114 sub translate_id {
|
Line 1136 sub translate_id {
|
# id should be a digit. If it is not a digit we assume the given id |
# id should be a digit. If it is not a digit we assume the given id |
# is complete and does not need to be translated. |
# is complete and does not need to be translated. |
return $id if ($id =~ /\D/); |
return $id if ($id =~ /\D/); |
return $env{'user.name'}.'_'.$env{'user.domain'}.'_'.$id; |
return &get_table_prefix().$id; |
} |
} |
|
|
########################################### |
########################################### |