#!/usr/bin/perl
# file KLEIDER/src/pinw/like_count.cgs
# <?install location = "cgi-bin/private/like_count"?>
# Anzahl der Datensätze in der Tabelle lk
# 2020-09-06 Herbert Schiemann, <h.schiemann@herbaer.de>
# GPL Version 2 oder neuer

use utf8;
use DBI;

binmode (STDOUT, ":encoding(utf8)");

my $dbh = DBI -> connect (
   "DBI:mysql:${mysql.likedb.name}",
   "${mysql.likedb.user}",
   "${mysql.likedb.password}"
);
if (!$dbh) {
   print "Status: 503 Database Unavailable\n\n";
   exit;
}

my $sth = $dbh -> prepare ("SELECT COUNT(*) FROM lk");
$sth -> execute;
my $rv = $sth -> fetchrow_arrayref;
my $n = $rv -> [0];
print "Content-Type: application/xml\n\n";
print <<"XML";
<?xml version="1.0" encoding="utf-8"?>
<d xmlns = "http://herbaer.de/xmlns/20200528/d">
XML
print "<i k=\"count\">$n</i>";
print "</d>\n";

# end of file KLEIDER/src/pinw/like_count.cgs