#!/usr/bin/perl

use DBI;

# Define the databaseconnection
my $dsn = 'DBI:mysql:db_name:db_hostname';
my $db_user_name = db_user;
my $db_password = db_pass;
my $dbh = DBI->connect($dsn, $db_user_name, $db_password);

my $sth;

# Fetch number of posts posted during the last hour
$sth = $dbh->prepare("SELECT COUNT(post_id) AS posts FROM phpbb_posts WHERE (post_time + 3600) > UNIX_TIMESTAMP(NOW())");
$sth->execute();
my $posts1h = $sth->fetchrow_array();
$sth->finish();
# print out the result ($posts1h)
print "posts1h:$posts1h ";

# Fetch number of posts posted during the last 3 hours
$sth = $dbh->prepare("SELECT COUNT(post_id) AS posts FROM phpbb_posts WHERE (post_time + 10800) > UNIX_TIMESTAMP(NOW())");
$sth->execute();
my $posts3h = $sth->fetchrow_array();
$sth->finish();
# print out the result ($posts3h)
print "posts3h:$posts3h ";

# Fetch number of posts posted during the last 24 hours
$sth = $dbh->prepare("SELECT COUNT(post_id) AS posts FROM phpbb_posts WHERE (post_time + 86400) > UNIX_TIMESTAMP(NOW())");
$sth->execute();
my $posts24h = $sth->fetchrow_array();
$sth->finish();
# print out the result ($posts3h)
print "posts24h:$posts24h ";

# Fetch number of topics posted during the last hour
$sth = $dbh->prepare("SELECT COUNT(topic_id) AS posts FROM phpbb_topics WHERE (topic_time + 3600) > UNIX_TIMESTAMP(NOW())");
$sth->execute();
my $topics1h = $sth->fetchrow_array();
$sth->finish();
# print out the result ($topics1h)
print "topics1h:$topics1h ";

# Fetch number of topics posted during the last 3 hour
$sth = $dbh->prepare("SELECT COUNT(topic_id) AS posts FROM phpbb_topics WHERE (topic_time + 10800) > UNIX_TIMESTAMP(NOW())");
$sth->execute();
my $topics3h = $sth->fetchrow_array();
$sth->finish();
# print out the result ($topics3h)
print "topics3h:$topics3h ";

# Fetch number of topics posted during the last 24 hour
$sth = $dbh->prepare("SELECT COUNT(topic_id) AS posts FROM phpbb_topics WHERE (topic_time + 86400) > UNIX_TIMESTAMP(NOW())");
$sth->execute();
my $topics24h = $sth->fetchrow_array();
$sth->finish();
# print out the result ($topics24h)
print "topics24h:$topics24h ";

#!/usr/bin/perl

$ip=$ARGV[0];
chomp($ip);
$rdata=`/usr/bin/ssh -l root -i /root/.ssh/new_key $ip \"perl /usr/local/sbin/scripts/forum_users.pl"`;
chomp($rdata);
print $rdata;
exit();