#!/usr/bin/perl -w
# from toolserver.org/~sk/public_html/checkwiki
use strict;
use CGI qw(param);
use CGI::Carp qw(fatalsToBrowser);
use URI::Escape;
use Encode;
use LWP::UserAgent;
use DBI;
#load password
open(PWD, "</home/sk/.mytop");
my $password = '';
do {
my $test = <PWD>;
if ($test =~ /^pass=/ ) {
$password = $test;
$password =~ s/^pass=//g;
$password =~ s/\n//g;
}
}
while (eof(PWD) != 1);
close(PWD);
#Connect to database u_sk
my $dbh = DBI->connect( 'DBI:mysql:u_sk_yarrow:host=sql',
'sk',
$password,
{
RaiseError => 1,
AutoCommit => 1
}
) or die "Database connection not made: $DBI::errstr" . DBI->errstr;
print "Content-type: text/html\n\n";
$password = '';
##############
our $param_error = param('error');
our $param_id = param('id');
print <<HTML_HEAD;
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="de">
<head>
<style type="text/css">
body {
font-family: Verdana, Tahoma, Arial, Helvetica, sans-serif;
font-size:14px;
font-style:normal;
/* color:#9A91ff; */
/* background-color:#00077A; */
/* background-image:url(back.jpg); */
/* background:url(back_new.jpg) no-repeat fixed top center; */
/* background:url(../images/back_new.jpg) no-repeat fixed top center; */
/* background:url(../images/back_schaf2.jpg) no-repeat fixed bottom left; */
/* background:url(../images/back_schaf3.jpg) no-repeat fixed bottom left; */
background-color:white;
color:#555555;
text-decoration:none;
line-height:normal;
font-weight:normal;
font-variant:normal;
text-transform:none;
margin-left:5%;
margin-right:5%;
}
h1 {
/*color:red; */
font-size:20px;
}
h2 {
/*color:red; */
font-size:16px;
}
a {
/*nur blau */
/* color:#80BFBF; */
/* color:#4889c5; */
/* color:#326a9e; */
color:#4889c5;
font-weight:bold;
/*nettes grün */
/*color:#7CFC00;*/
/* Nette Kombination */
/*color:#00077A; */
/*background-color:#eee8fd;*/
/* Kein Unterstrich */
text-decoration:none;
/*Außenabstand*/
/*padding:2px;*/
}
a:hover {
background-color:#ffdeff;
color:red;
}
.nocolor{
background-color:white;
color:white;
}
a:hover.nocolor{
background-color:white;
color:white;
}
.table{
font-size:12px;
vertical-align:top;
border-width:thin;
border-style:solid;
border-color:blue;
background-color:#EEEEEE;
/*Innenabstand*/
padding-top:2px;
padding-bottom:2px;
padding-left:5px;
padding-right:5px;
/* dünne Rahmen */
border-collapse:collapse;
/*kein Zeilenumbruch
white-space:nowrap;*/
}
</style>
<title>Personendaten Verbesserungsvorschläge</title></head>
HTML_HEAD
print "<body><h1>PD Verbesserungsvorschläge</h1>\n";
print "<p>Version 0.1 Alpha</p>\n";
if ( $param_error eq ''
and $param_id eq '') {
print <<EINFUEHRUNGSTEXT;
<h2>Startseite</h2>
<p>Auf dieser Seite werden Verbesserungsvorschläge für die Personendaten in der deutschsprachigen Wikipedia angezeigt. Für weitere Informationen am besten mal hier reinschauen: <a href="http://de.wikipedia.org/wiki/Wikipedia:Personendaten/Wartung/Fehlerliste">Wikipedia:Personendaten/Wartung/Fehlerliste</a>.</p>
EINFUEHRUNGSTEXT
print 'Aktuell sind <b>'.get_number_all_errors().'</b> Verbesserungsvorschläge in <b>'.get_number_all_article().'</b> Artikeln bekannt. <br />'."\n";
print '<ul>';
print '<li>'.get_number_of_prio(1)." Verbesserungsvorschläge von <a href='http://toolserver.org/~sk/cgi-bin/pd/pd.cgi?error=high'>höchster Priorität</a></li>";
print '<li>'.get_number_of_prio(2)." Verbesserungsvorschläge von <a href='http://toolserver.org/~sk/cgi-bin/pd/pd.cgi?error=middle'>mittlerer Priorität</a></li>";
print '<li>'.get_number_of_prio(3)." Verbesserungsvorschläge von <a href='http://toolserver.org/~sk/cgi-bin/pd/pd.cgi?error=low'>niedriger Priorität</a></li>";
print '</ul>';
print '<ul>';
print "<li><a href='http://toolserver.org/~sk/cgi-bin/pd/pd.cgi?error=top25'>Top 25 Artikel</a></li>";
print '</ul>';
print '<p>Seit dem letzten Update wurden <b>'.get_number_of_ok().'</b> Verbesserungsvorschläge abgearbeitet. </p>'."\n";
print '<p>? Startseite</p>'."\n";
}
if ( $param_error eq 'high'
or $param_error eq 'middle'
or $param_error eq 'low') {
my $prio = 0;
my $headline = '';
if ($param_error eq 'high') {
$prio = 1;
$headline = 'Hohe Priorität';
}
if ($param_error eq 'middle') {
$prio = 2;
$headline = 'Mittlere Priorität';
}
if ($param_error eq 'low') {
$prio = 3;
$headline = 'Niedrige Priorität';
}
print '<h2>'.$headline.'</h2>'."\n";
print '<ul>';
print get_number_error_and_desc_by_prio($prio);
print '</ul>';
print '<p>? <a href="http://toolserver.org/~sk/cgi-bin/pd/pd.cgi">Startseite</a> ? '.$headline.'</p>'."\n";
}
if ( $param_error eq 'top25') {
print '<h2>Top 25</h2>'."\n";
print get_top25();
print '<p>? <a href="http://toolserver.org/~sk/cgi-bin/pd/pd.cgi">Startseite</a> ? Top25</p>'."\n";
}
if ( $param_id =~ /^[0-9]+$/
and $param_error =~ /^[0-9]+$/ ) {
# Artikel abgearbeitet
my $sql_text = "update pd_error set ok=1 where id=".$param_id." and error=".$param_error.";";
my $sth = $dbh->prepare( $sql_text ) || die "Kann Statement nicht vorbereiten: $DBI::errstr\n";
$sth->execute or die $sth->errstr; # hier geschieht die Anfrage an die DB
}
if ( $param_error =~ /^[0-9]+$/) {
# Ein konkrete Fehlernummer auflisten
my $headline = '';
$headline = get_headline($param_error);
print '<h2>'.$headline.'</h2>'."\n";
print '<p>'.get_description($param_error).'</p>'."\n";
print '<p>'.get_number_of_error($param_error).' mal gefunden (Nr. '.$param_error .')</p>'."\n";
print get_article_of_error($param_error);
my $prio = get_prio_of_error($param_error);
$prio = '<a href="http://toolserver.org/~sk/cgi-bin/pd/pd.cgi?error=high">Höchster Priorität</a>' if ($prio eq '1');
$prio = '<a href="http://toolserver.org/~sk/cgi-bin/pd/pd.cgi?error=middle">Mittlere Priorität</a>' if ($prio eq '2');
$prio = '<a href="http://toolserver.org/~sk/cgi-bin/pd/pd.cgi?error=low">Niedrigste Priorität</a>' if ($prio eq '3');
print '<p>? <a href="http://toolserver.org/~sk/cgi-bin/pd/pd.cgi">Startseite</a> ? '.$prio.' ? '.$headline.'</p>'."\n";
}
if ( $param_id =~ /^[0-9]+$/
and $param_error eq '' ) {
# Details zu einem Artikel anzeigen
print '<h2>Detailansicht</h2>'."\n";
my $sql_text = "select title from pd_error where id=".$param_id.";";
my $sth = $dbh->prepare( $sql_text ) || die "Kann Statement nicht vorbereiten: $DBI::errstr\n";
$sth->execute or die $sth->errstr;
while (my $arrayref = $sth->fetchrow_arrayref()) {
foreach(@$arrayref) {
print '<p>Artikel: <a href="http://de.wikipedia.org/wiki/'.$_.'">'.$_.'</a></p>';
}
}
print get_all_error_of_article($param_id);
print '<p>? <a href="http://toolserver.org/~sk/cgi-bin/pd/pd.cgi">Startseite</a> ? <a href="http://toolserver.org/~sk/cgi-bin/pd/pd.cgi?error=top25">Top25</a> ? Detailansicht</p>'."\n";
}
print '</body>';
print '</html>';
# Datenbank beenden
$dbh->disconnect();
###########################################
sub get_number_all_article{
my $sql_text = "select count(a.title) from (select title from pd_error where ok=0 group by title) a;";
my $result = 0;
my $sth = $dbh->prepare( $sql_text ) || die "Kann Statement nicht vorbereiten: $DBI::errstr\n";
#print '<p class="smalltext"/>'.$sql_text."</p>\n";
$sth->execute or die $sth->errstr; # hier geschieht die Anfrage an die DB
while (my $arrayref = $sth->fetchrow_arrayref()) {
foreach(@$arrayref) {
$result = $_;
}
}
return ($result);
}
sub get_number_of_ok{
my $sql_text = "select count(*) from pd_error where ok=1;";
my $result = 0;
my $sth = $dbh->prepare( $sql_text ) || die "Kann Statement nicht vorbereiten: $DBI::errstr\n";
#print '<p class="smalltext"/>'.$sql_text."</p>\n";
$sth->execute or die $sth->errstr; # hier geschieht die Anfrage an die DB
while (my $arrayref = $sth->fetchrow_arrayref()) {
foreach(@$arrayref) {
$result = $_;
}
}
return ($result);
}
sub get_number_all_errors{
my $sql_text = "select count(*) from pd_error where ok=0 ;";
my $result = 0;
my $sth = $dbh->prepare( $sql_text ) || die "Kann Statement nicht vorbereiten: $DBI::errstr\n";
#print '<p class="smalltext"/>'.$sql_text."</p>\n";
$sth->execute or die $sth->errstr; # hier geschieht die Anfrage an die DB
while (my $arrayref = $sth->fetchrow_arrayref()) {
foreach(@$arrayref) {
$result = $_;
}
}
return ($result);
}
sub get_number_of_error{
# Anzahl gefundenen Vorkommen eines Fehlers
my $error = $_[0];
my $sql_text = "select count(*) from pd_error where ok=0 and error = ".$error.";";
my $result = 0;
my $sth = $dbh->prepare( $sql_text ) || die "Kann Statement nicht vorbereiten: $DBI::errstr\n";
#print '<p class="smalltext"/>'.$sql_text."</p>\n";
$sth->execute or die $sth->errstr; # hier geschieht die Anfrage an die DB
while (my $arrayref = $sth->fetchrow_arrayref()) {
foreach(@$arrayref) {
$result = $_;
}
}
return ($result);
}
sub get_number_of_prio{
my $prio = $_[0];
my $sql_text = "select count(*) from pd_error a join pd_error_desc b on ( a.error = b.id) where b.prio = ".$prio." and ok=0;";
my $result = 0;
my $sth = $dbh->prepare( $sql_text ) || die "Kann Statement nicht vorbereiten: $DBI::errstr\n";
#print '<p class="smalltext"/>'.$sql_text."</p>\n";
$sth->execute or die $sth->errstr; # hier geschieht die Anfrage an die DB
while (my $arrayref = $sth->fetchrow_arrayref()) {
foreach(@$arrayref) {
$result = $_;
}
}
return ($result);
}
sub get_number_error_and_desc_by_prio{
my $prio = $_[0];
my $sql_text = " select count(*), b.id, b.name from pd_error a join pd_error_desc b on ( a.error = b.id) where b.prio = ".$prio." and a.ok=0 group by b.id order by b.name;";
my $result = '';
my $sth = $dbh->prepare( $sql_text ) || die "Kann Statement nicht vorbereiten: $DBI::errstr\n";
#print '<p class="smalltext"/>'.$sql_text."</p>\n";
$sth->execute or die $sth->errstr; # hier geschieht die Anfrage an die DB
$result .= '<table class="table">';
$result .= '<tr><th class="table">Anzahl</th><th class="table">Beschreibung</th><th class="table">Nummer</th>'."\n";
while (my $arrayref = $sth->fetchrow_arrayref()) {
my @output;
my $i = 0;
my $j = 0;
foreach(@$arrayref) {
#print $_."\n";
$output[$i][$j] = $_;
$j = $j +1;
if ($j == 3) {
$j= 0;
$i ++;
}
#print $_."\n";
}
my $number_of_error = $i;
for (my $i = 0; $i< $number_of_error; $i++) {
$result .= '<tr><td class="table" align="right" valign="middle">'.$output[$i][0].'</td><td class="table"><a href="http://toolserver.org/~sk/cgi-bin/pd/pd.cgi?error='.$output[$i][1].'">'.$output[$i][2].'</a></td><td class="table" align="right" valign="middle">'.$output[$i][1]."</td></tr>\n";
}
}
$result .= '</table>';
return ($result);
}
sub get_headline{
my $error = $_[0];
my $sql_text = " select name from pd_error_desc where id = ".$error.";";
my $result = '';
my $sth = $dbh->prepare( $sql_text ) || die "Kann Statement nicht vorbereiten: $DBI::errstr\n";
#print '<p class="smalltext"/>'.$sql_text."</p>\n";
$sth->execute or die $sth->errstr; # hier geschieht die Anfrage an die DB
while (my $arrayref = $sth->fetchrow_arrayref()) {
foreach(@$arrayref) {
$result = $_;
}
}
return ($result);
}
sub get_description{
my $error = $_[0];
my $sql_text = " select text from pd_error_desc where id = ".$error.";";
my $result = '';
my $sth = $dbh->prepare( $sql_text ) || die "Kann Statement nicht vorbereiten: $DBI::errstr\n";
#print '<p class="smalltext"/>'.$sql_text."</p>\n";
$sth->execute or die $sth->errstr; # hier geschieht die Anfrage an die DB
while (my $arrayref = $sth->fetchrow_arrayref()) {
foreach(@$arrayref) {
$result = $_;
}
}
return ($result);
}
sub get_prio_of_error{
my $error = $_[0];
my $sql_text = " select prio from pd_error_desc where id = ".$error.";";
my $result = '';
my $sth = $dbh->prepare( $sql_text ) || die "Kann Statement nicht vorbereiten: $DBI::errstr\n";
#print '<p class="smalltext"/>'.$sql_text."</p>\n";
$sth->execute or die $sth->errstr; # hier geschieht die Anfrage an die DB
while (my $arrayref = $sth->fetchrow_arrayref()) {
foreach(@$arrayref) {
$result = $_;
}
}
return ($result);
}
sub get_article_of_error{
my $error = $_[0];
#my $sql_text = " select title, hinweis, id from pd_error where error = ".$error." and ok=0 order by title limit 25;";
my $sql_text = "select a.title, a.hinweis, a.id from (
select title, hinweis, id ,
replace(replace (REVERSE (title),')',''),'.','') Test
from pd_error
where error = ".$error."
and ok = 0
order by Test
limit 25)a order by a.title;";
my $result = '';
my $sth = $dbh->prepare( $sql_text ) || die "Kann Statement nicht vorbereiten: $DBI::errstr\n";
#print '<p class="smalltext"/>'.$sql_text."</p>\n";
$sth->execute or die $sth->errstr; # hier geschieht die Anfrage an die DB
$result .= '<table class="table">';
$result .= '<tr><th class="table">Artikel</th><th class="table">Hinweis</th><th class="table">Abarbeitung</th>'."\n";
while (my $arrayref = $sth->fetchrow_arrayref()) {
my @output;
my $i = 0;
my $j = 0;
foreach(@$arrayref) {
#print $_."\n";
$output[$i][$j] = $_;
$j = $j +1;
if ($j == 3) {
$j= 0;
$i ++;
}
#print $_."\n";
}
my $number_of_error = $i;
for (my $i = 0; $i< $number_of_error; $i++) {
$result .= '<tr><td class="table"><a href="http://de.wikipedia.org/wiki/'.$output[$i][0].'">'.$output[$i][0].'</a></td><td class="table">'.$output[$i][1].'</td><td class="table">';
$result .= "<a href='http://toolserver.org/~sk/cgi-bin/pd/pd.cgi?error=".$error."&id=".$output[$i][2]."'>Erledigt</a>";
$result .= "</td></tr>\n";
}
}
$result .= '</table>';
return ($result);
}
sub get_top25{
my $sql_text = "select title, count(*), id from pd_error group by title order by count(*) desc, title limit 25;";
my $sth = $dbh->prepare( $sql_text ) || die "Kann Statement nicht vorbereiten: $DBI::errstr\n";
#print '<p class="smalltext"/>'.$sql_text."</p>\n";
$sth->execute or die $sth->errstr; # hier geschieht die Anfrage an die DB
my $result = '';
$result .= '<table class="table">';
$result .= '<tr><th class="table">Fehleranzahl</th><th class="table">Artikel</th></tr>'."\n";
while (my $arrayref = $sth->fetchrow_arrayref()) {
my @output;
my $i = 0;
my $j = 0;
foreach(@$arrayref) {
#print $_."\n";
$output[$i][$j] = $_;
$j = $j +1;
if ($j == 3) {
$j= 0;
$i ++;
}
#print $_."\n";
}
my $number_of_error = $i;
for (my $i = 0; $i< $number_of_error; $i++) {
$result .= '<tr><td class="table">'.$output[$i][1].'</td><td class="table"><a href="http://de.wikipedia.org/wiki/'.$output[$i][0].'">'.$output[$i][0].'</a></td>';
$result .= '<td class="table" align="middle" valign="middle"><a href="http://toolserver.org/~sk/cgi-bin/pd/pd.cgi?id='.$output[$i][2].'">Details</a></td>';
$result .= '</tr>'."\n";
}
}
$result .= '</table>';
return ($result);
}
sub get_all_error_of_article{
my $id = $_[0];
my $sql_text = "select a.error, b.name, a.hinweis, a.id from pd_error a join pd_error_desc b on ( a.error = b.id) where a.title = (select title from pd_error where id = ".$id.");";
my $sth = $dbh->prepare( $sql_text ) || die "Kann Statement nicht vorbereiten: $DBI::errstr\n";
#print '<p class="smalltext"/>'.$sql_text."</p>\n";
$sth->execute or die $sth->errstr; # hier geschieht die Anfrage an die DB
my $result = '';
$result .= '<table class="table">';
$result .= '<tr><th class="table">Fehler</th><th class="table">Hinweis</th><th class="table">Abarbeitung</th></tr>'."\n";
while (my $arrayref = $sth->fetchrow_arrayref()) {
my @output;
my $i = 0;
my $j = 0;
foreach(@$arrayref) {
#print $_."\n";
$output[$i][$j] = $_;
$j = $j +1;
if ($j == 4) {
$j= 0;
$i ++;
}
#print $_."\n";
}
my $number_of_error = $i;
for (my $i = 0; $i< $number_of_error; $i++) {
$result .= '<tr><td class="table">'.$output[$i][1].'</td><td class="table">'.$output[$i][2].'</td>';
#$result .= "<td><a href='http://toolserver.org/~sk/cgi-bin/pd/pd.cgi?error=".$output[$i][0]."&id=".$output[$i][3]."'>Erledigt</a></td>";
$result .= "</tr>\n";
}
}
$result .= '</table>';
return ($result);
}
