| Server IP : 216.92.14.13 / Your IP : 216.73.216.171 Web Server : Apache System : Linux vps4089.pairvps.com 5.15.0-190-generic #200-Ubuntu SMP Fri Aug 7 15:06:04 UTC 2026 x86_64 User : rmlac2fmr ( 1040637) PHP Version : 8.2.32 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/local/bin/ |
Upload File : |
#! /usr/bin/env perl
use DB::CouchDB::Schema::Edit;
use Getopt::Long;
use Pod::Usage;
my $editor = DB::CouchDB::Schema::Edit->new();
#allow me to pas in my own connection info
my ($host,$port,$db);
my $opts = GetOptions (
"host=s" => \$host,
"port=i" => \$port,
"db=s" => \$db
);
if ($host && $db) {
my %dbargs = (host => $host);
$dbargs{port} = $port if $port;
$dbargs{db} = $db if $db;
$editor->schema(DB::CouchDB::Schema->new(%dbargs));
}
$editor->run();