remove useless code

Sam/commands/add.pm

@@ -8,7 +8,6 @@ use Sam::Chan;
 use Sam::Event;
 use Time::Local;
 
-our $dbh;
 our $log;
 
 sub exec {

Sam/commands/edit.pm

@@ -8,18 +8,12 @@ use Regexp::Common qw(URI);
 use Sam::Chan;
 use Sam::Event;
 
-our $dbh;
 our $log;
 our $irc;
 
 sub exec {
     my ($id, $command, $arg, $chan_name) = @_;
 
-    my $saveCommit = $dbh->{AutoCommit};
-    my $saveError = $dbh->{RaiseError};
-    $dbh->{AutoCommit} = 0;
-    $dbh->{RaiseError} = 1;
-
     if ($command eq "lien" or $command eq "url" or $command eq "link") {
         if ($arg !~ /^$RE{URI}{HTTP}{-scheme => qr(https?)}$/) {
             die "Ce n'est pas une URL valide";
@@ -46,9 +40,6 @@ sub exec {
     else {
         die "Commande inconnue";
     }
-    
-    $dbh->{AutoCommit} = $saveCommit;
-    $dbh->{RaiseError} = $saveError;
 }
 
 1;

Sam/commands/list.pm

@@ -9,13 +9,11 @@ require Exporter;
 our @ISA = qw(Exporter);
 our @EXPORT_OK = qw(exec);
 
-our $dbh;
 our $log;
 our $irc;
 
 sub exec {
     my $chan = shift;
-    my $sth;
 
     my $calendar_id = Sam::Chan->new(name => $chan)->load->calendar_id;
     my $events = Sam::Event::Manager->get_events(

Sam/commands/parser.pm

@@ -19,10 +19,7 @@ my $lastID;
 sub setConf {
     my ($nickNew, $ircNew, $dbh, $log, $lastIDnew) = @_;
 
-    $Sam::commands::add::dbh = $dbh;
-    $Sam::commands::list::dbh = $dbh;
     $Sam::commands::addUser::dbh = $dbh;
-    $Sam::commands::edit::dbh = $dbh;
     $Sam::commands::getUsers::dbh = $dbh;
 
     $Sam::commands::add::log = $log;