diff options
| -rw-r--r-- | bucky2/bin/fix-files | 8 | ||||
| -rw-r--r-- | bucky2/bin/gross.db | bin | 6230016 -> 0 bytes | |||
| -rw-r--r-- | bucky2/cgi-bin/gross.db | bin | 6230016 -> 0 bytes | |||
| -rw-r--r-- | bucky2/cgi-bin/gross.db.1 | bin | 6230016 -> 0 bytes | |||
| -rw-r--r-- | bucky2/lib/Bucky/DB.pm | 10 |
5 files changed, 12 insertions, 6 deletions
diff --git a/bucky2/bin/fix-files b/bucky2/bin/fix-files index 3ef693a..080ef78 100644 --- a/bucky2/bin/fix-files +++ b/bucky2/bin/fix-files @@ -4,7 +4,7 @@ use lib "../lib"; use Bucky; my $bucky = new Bucky; -my $file_list = $bucky->db->select("file", {'thread = 2833 AND id > 16186 LIMIT 20'}); +my $file_list = $bucky->db->select("file", {'thread = 2833 AND id > 16186'}); my $file_map = {}; foreach my $f (@$file_list) { $file_map->{ $f->{'filename'} } = $f->{'id'}; @@ -31,10 +31,8 @@ foreach my $thread_id (@dirs) { my $file_id = $file_map->{$filename}; - $bucky->db->update('file', { - "criteria" => { - "id" => $file_id - }, + $bucky->db->update_by_id('file', { + "id" => $file_id, "record" => { "thread" => $thread_id } diff --git a/bucky2/bin/gross.db b/bucky2/bin/gross.db Binary files differdeleted file mode 100644 index 6df80d0..0000000 --- a/bucky2/bin/gross.db +++ /dev/null diff --git a/bucky2/cgi-bin/gross.db b/bucky2/cgi-bin/gross.db Binary files differdeleted file mode 100644 index b5a1629..0000000 --- a/bucky2/cgi-bin/gross.db +++ /dev/null diff --git a/bucky2/cgi-bin/gross.db.1 b/bucky2/cgi-bin/gross.db.1 Binary files differdeleted file mode 100644 index 074684d..0000000 --- a/bucky2/cgi-bin/gross.db.1 +++ /dev/null diff --git a/bucky2/lib/Bucky/DB.pm b/bucky2/lib/Bucky/DB.pm index 9690f40..682e48e 100644 --- a/bucky2/lib/Bucky/DB.pm +++ b/bucky2/lib/Bucky/DB.pm @@ -56,10 +56,18 @@ sub update my $criteria_string = $self->criteria($criteria); return unless length $criteria_string; - my $sql = "UPDATE $type SET $key_value_string WHERE $criteria_string"; + my $sql = "UPDATE $type SET $key_value_string $criteria_string"; $self->execute($sql); } +sub update_by_id + { + my ($self, $type, $opt) = @_; + my $id = $opt->{'id'} + 0; + $opt->{'criteria'} = "id=$id"; + + $self->update($type, $opt) + } sub select { my ($self, $type, $criteria) = @_; |