index a253111bd537dbef3ad070b9df217df4214fe68c..0107493facd04b3cacdf8bde2835ace521ac60ea 100644 (file)
=head1 SYNOPSIS
use GOSA::GosaSupportDaemon;
-
use Time::HiRes qw(usleep);
-
use MIME::Base64;
=head1 DESCRIPTION
@@ -23,22 +21,25 @@ be automatically imported by GOsa-SI if it is under F</usr/lib/gosa-si/server/E<
=cut
package mailqueue_com;
-use Exporter;
-@ISA = qw(Exporter);
-my @events = (
- "get_events",
- "mailqueue_query",
- "mailqueue_header",
-);
-@EXPORT = @events;
use strict;
use warnings;
+
+use Exporter;
use GOSA::GosaSupportDaemon;
use Data::Dumper;
use Time::HiRes qw( usleep);
use MIME::Base64;
+our @ISA = qw(Exporter);
+
+my @events = (
+ "get_events",
+ "mailqueue_query",
+ "mailqueue_header",
+);
+
+our @EXPORT = @events;
BEGIN {}
my ($sql, $res);
if( defined $jobdb_id) {
- my $sql_statement = "UPDATE $main::job_queue_tn SET status='processed' WHERE id=jobdb_id";
+ my $sql_statement = "UPDATE $main::job_queue_tn SET status='processed' WHERE id=$jobdb_id";
&main::daemon_log("$session_id DEBUG: $sql_statement", 7);
my $res = $main::job_db->exec_statement($sql_statement);
}
my ($sql, $res);
if( defined $jobdb_id) {
- my $sql_statement = "UPDATE $main::job_queue_tn SET status='processed' WHERE id=jobdb_id";
+ my $sql_statement = "UPDATE $main::job_queue_tn SET status='processed' WHERE id=$jobdb_id";
&main::daemon_log("$session_id DEBUG: $sql_statement", 7);
my $res = $main::job_db->exec_statement($sql_statement);
}
return ( $answer_msg );
}
+
=pod
=head1 BUGS