Warning: Undefined array key "rss_show_deleted" in /var/www/w12/dw/inc/Feed/FeedCreatorOptions.php on line 86
Warning: Cannot modify header information - headers already sent by (output started at /var/www/w12/dw/inc/Feed/FeedCreatorOptions.php:86) in /var/www/w12/dw/feed.php on line 53
Warning: Cannot modify header information - headers already sent by (output started at /var/www/w12/dw/inc/Feed/FeedCreatorOptions.php:86) in /var/www/w12/dw/feed.php on line 54
Warning: Cannot modify header information - headers already sent by (output started at /var/www/w12/dw/inc/Feed/FeedCreatorOptions.php:86) in /var/www/w12/dw/feed.php on line 55
Warning: Cannot modify header information - headers already sent by (output started at /var/www/w12/dw/inc/Feed/FeedCreatorOptions.php:86) in /var/www/w12/dw/feed.php on line 56
Warning: Cannot modify header information - headers already sent by (output started at /var/www/w12/dw/inc/Feed/FeedCreatorOptions.php:86) in /var/www/w12/dw/inc/httputils.php on line 32
Warning: Cannot modify header information - headers already sent by (output started at /var/www/w12/dw/inc/Feed/FeedCreatorOptions.php:86) in /var/www/w12/dw/inc/httputils.php on line 33 wi12.unix7.org - dbdumper
https://w12.unix7.org/
Wed, 05 Aug 2026 03:50:26 +0000FeedCreator 1.8https://w12.unix7.org/_media/wiki/dokuwiki.svgwi12.unix7.org
https://w12.unix7.org/
Work example of the pgdumper code
https://w12.unix7.org/dbdumper/code
perl rpc
Work example of the pgdumper code
pgagent.pl
#!/usr/bin/env perl
#-------------
#--- MODEL ---
#-------------
package PGagent::Model;
use strict;
use warnings;
use File::stat;
use Data::Dumper;
use DBI;
use Mojo::UserAgent;
use POSIX;
use Socket;
sub new {
my ($class, $app, $pghost, $username, $password) = @_;
my $self = {
app => $app,
pghost => $pghost,
dsn => "dbi:Pg:dbname=postgres;host=$pghost",
username => $username,
password …anonymous@undisclosed.example.com (Anonymous)Sat, 27 Nov 2021 13:26:11 +0000PGdumper current code
https://w12.unix7.org/dbdumper/current
perl rpc
PGdumper current code
The work still in progress
pgagent.pl
#!@PERL@
#------------
#--- AUTH ---
#------------
package PGagent::BasicAuth;
use strict;
use warnings;
use POSIX qw(getpid setuid setgid geteuid getegid);
use Cwd qw(cwd getcwd chdir);
use Mojo::Util qw(md5_sum b64_decode dumper);
use Apache::Htpasswd;
sub new {
my ($class, $pwdfile) = @_;
my $self = {
pwdfile => $pwdfile,
errstr => undef
};
bless $self, $class;
return $self;
}
su…anonymous@undisclosed.example.com (Anonymous)Sat, 27 Nov 2021 13:26:11 +0000Dumper RPC
https://w12.unix7.org/dbdumper/dumper-rpc
perl rpc
Dumper RPC
RPC is remote procedure call
agent rpc
/owner/list
/owner/create(owner,password)
/owner/drop(owner)
/owner/password(password)
/db/list
/db/exist(dbname);
/db/size(dbname);
/db/create(dbname);
/db/drop(dbname);
/db/move(dbname,newname);
/db/owner(dbowner)
/db/dump(taskid,name,destination,label)
/db/restore(taskid,source,label,name)
/task/list ---> taskid, tasktype, timestart,
/task/kill(taskid)
/task/status(taskid) ---> status: dumprun, stor…anonymous@undisclosed.example.com (Anonymous)Sat, 27 Nov 2021 13:26:11 +0000Job types
https://w12.unix7.org/dbdumper/job-type
perl rpc
Job types
<text>
begin
done
author
type: dbcreate, dbcopy, dbrename, dbdrop
agentid
jobnum
status
message
type: dbdump
agentid
storeid
jobnum
status : dump, copy, success, mistake
error: dumperr, copyerr,noerr
message
type: dbrestore
storeid
agentid
jobnum
status : copy, restore, success, mistake
error: copyerr, restoreerr, noerr
message:anonymous@undisclosed.example.com (Anonymous)Sat, 27 Nov 2021 13:26:11 +0000Old code
https://w12.unix7.org/dbdumper/rewrite-sample
perl rpc
Old code
package PGmaster::Controller;
...
sub storeProfile {
my ($self, $id) = @_;
return undef unless $id;
my $dbi = DBI->connect($self->dsn, $self->dbuser, $self->dbpasswd)
or return undef;
my $query = "select * from store where id = $id limit 1;";
my $sth = $dbi->prepare($query);
my $rows = $sth->execute;
my $row = $sth->fetchrow_hashref;
$sth->finish;
$dbi->disconnect;
return $row if $row;
return undef;
}
sub storeInfo {
…anonymous@undisclosed.example.com (Anonymous)Sat, 27 Nov 2021 13:26:11 +0000DBdumper, Network distributed dump/restore system
https://w12.unix7.org/dbdumper/start
perl rpc
DBdumper, Network distributed dump/restore system
DBdumper is a easy distributed network system for creating database dumps and restoring SQL databases, managed via Web interface
You can
You can manage databases easy like file in your file system.anonymous@undisclosed.example.com (Anonymous)Sat, 27 Nov 2021 13:26:11 +0000
https://w12.unix7.org/dbdumper/validation
perl rpc
#!/usr/bin/env perl
package aAgentI;
use strict;
use warnings;
use Mojo::UserAgent;
use Mojo::JSON qw(encode_json decode_json);
use Mojo::Util qw(dumper);
sub new {
my ($class, $host, $login, $password) = @_;
my $ua = Mojo::UserAgent->new;
my $self = {
host => $host,
login => $login,
password => $password,
port => '8184',
ua => $ua
};
bless $self, $class;
return $self;
}
sub ua {
my ($self, $ua) = @_;
return $…anonymous@undisclosed.example.com (Anonymous)Sat, 27 Nov 2021 13:26:11 +0000