diff options
Diffstat (limited to 'lib/App/BorgRestore/DB.pm')
-rw-r--r-- | lib/App/BorgRestore/DB.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/App/BorgRestore/DB.pm b/lib/App/BorgRestore/DB.pm index cb51ce1..50f5854 100644 --- a/lib/App/BorgRestore/DB.pm +++ b/lib/App/BorgRestore/DB.pm @@ -2,7 +2,7 @@ package App::BorgRestore::DB; use v5.14; use strictures 2; -use App::BorgRestore::Helper; +use App::BorgRestore::Helper qw(untaint); use autodie; use DBI; @@ -76,7 +76,7 @@ method _migrate() { # We trust all values here since they have already been # sucessfully put into the DB previously. Thus they must be # safe to deal with. - $archive = App::BorgRestore::Helper::untaint($archive, qr(.*)); + $archive = untaint($archive, qr(.*)); my $archive_id = $self->get_archive_id($archive); $self->{dbh}->do("alter table `files` rename column `timestamp-$archive` to `$archive_id`"); } @@ -126,7 +126,7 @@ method get_archive_row_count() { method add_archive_name($archive) { my $st = $self->{dbh}->prepare('insert into `archives` (`archive_name`) values (?);'); - $st->execute(App::BorgRestore::Helper::untaint($archive, qr(.*))); + $st->execute(untaint($archive, qr(.*))); $self->_add_column_to_table("files", $archive); } @@ -168,20 +168,20 @@ method remove_archive($archive) { } my $st = $self->{dbh}->prepare('delete from `archives` where `archive_name` = ?;'); - $st->execute(App::BorgRestore::Helper::untaint($archive, qr(.*))); + $st->execute(untaint($archive, qr(.*))); } method get_archive_id($archive) { my $st = $self->{dbh}->prepare("select `id` from `archives` where `archive_name` = ?;"); - $archive = App::BorgRestore::Helper::untaint($archive, qr(.*)); + $archive = untaint($archive, qr(.*)); $st->execute($archive); my $result = $st->fetchrow_hashref; - return App::BorgRestore::Helper::untaint($result->{id}, qr(.*)); + return untaint($result->{id}, qr(.*)); } method get_archives_for_path($path) { my $st = $self->{dbh}->prepare('select * from `files` where `path` = ?;'); - $st->execute(App::BorgRestore::Helper::untaint($path, qr(.*))); + $st->execute(untaint($path, qr(.*))); my @ret; |