use English;
use Data::Dump qw/dump/;
use client;
-use CouchDB;
+use store;
my $id = 3;
my $id_rsa = '/root/.ssh/id_rsa';
my ($out,$err) = $ssh->capture2( $command ) or die "$command ", $ssh->error;
warn "$out\n$err";
- CouchDB::audit( $ip, $command, { ip => $ip, command => $command, out => $out, err => $err } );
+ store::audit( $ip, $command, { ip => $ip, command => $command, out => $out, err => $err } );
$html .= qq|<tt style="color: grey">root\@$ip:# <b>$command</b></tt><pre>$out</pre>|;
$html .= qq|<pre style="color: red">$err</pre>| if $err;