mirror of
https://github.com/webmin/webmin.git
synced 2026-10-25 20:51:09 +00:00
32 lines
1.1 KiB
Perl
Executable File
32 lines
1.1 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Validates and opens an SQLite database path.
|
|
|
|
use strict;
|
|
use warnings;
|
|
no warnings 'redefine';
|
|
no warnings 'uninitialized';
|
|
our (%text, %in, %access);
|
|
require './sqlite-lib.pl';
|
|
&ReadParse();
|
|
&error_setup($text{'open_err'});
|
|
|
|
my $requested = $in{'db'};
|
|
# Check the ACL, then open the file to verify the database. A missing file
|
|
# is created when the ACL allows this user to create and fill one.
|
|
my $path = &sqlite_database_path($requested, &sqlite_can_create());
|
|
my $creating = !-e $path;
|
|
my $dbh = &sqlite_connect($path, $creating ? 1 : 0, $creating ? 1 : 0);
|
|
$dbh->disconnect();
|
|
# Give a new file to the non-root owner of its parent directory.
|
|
# Opening an existing database makes no change and therefore is not logged.
|
|
if ($creating) {
|
|
my ($parent) = $path =~ m!^(.*)/[^/]+$!;
|
|
$parent = '/' if ($parent eq '');
|
|
my @pst = stat($parent);
|
|
&sqlite_safe_chown($path, $pst[4], $pst[5])
|
|
if (@pst && $pst[4] != 0 && $< == 0);
|
|
&sqlite_adopt_ownership($path);
|
|
&webmin_log('create', 'database', $path);
|
|
}
|
|
&redirect('database.cgi?db='.&urlize($path));
|