Bruger:Hebbot/NuvFT-src

<nowiki>
#!/usr/local/bin/perl -w

use strict;

use MediaWiki::Bot;
# use Date::Calc qw(:all);

my $user = 'Hebbot';
my $pass = **********;

# create and initialize editor

my $WPDa = MediaWiki::Bot->new();

$WPDa->set_wiki({
    protocol => 'http',
    host => 'da.wikipedia.org',
    path => 'w',
    });

$WPDa->login({
    username => $user,
    password => $pass,
    });

my $WPDa_notice = "(vha. [[:en:Wikipedia:MediaWiki::Bot|MediaWiki::Bot]] - [[Brugerdiskussion:Heb|rapporter fejl]])";
# my $WPEn_notice = "(using [[Wikipedia:MediaWiki::Bot|MediaWiki::Bot]] - [[User talk:Heb|report error]])";
# my $WPCom_notice = "(using [[:w:Wikipedia:MediaWiki::Bot|MediaWiki::Bot]] - [[User talk:Heb|report error]])";

my @articles = $WPDa->get_all_pages_in_category("Kategori:NuvÊrende folketingsmedlemmer");

@articles = sort @articles;

my $images;
my $imagesf;

my $totalcount;

foreach my $article (@articles) {

    if (index($article, 'Kategori') > -1) {

    #    
	    
    } else {
		
    $images .= $article."\n";	
    $imagesf .= "# [[:$article|$article]]\n";

    $totalcount++;

    }
}

if ($totalcount < 100) {
    exit 0;
}



`mv /home/heb/bin/cronrun/Hebbot/DaWiki_NuvFT.txt /home/heb/bin/cronrun/Hebbot/DaWiki_NuvFT.old`;

open(OFIL, '>/home/heb/bin/cronrun/Hebbot/DaWiki_NuvFT.txt');
print OFIL $images . "\n";
close(OFIL);
													
my $difftext = `diff /home/heb/bin/cronrun/Hebbot/DaWiki_NuvFT.old /home/heb/bin/cronrun/Hebbot/DaWiki_NuvFT.txt`;

if (length($difftext) > 0) {

    my $curtext = `cat /home/heb/bin/cronrun/Hebbot/DaWiki_NuvFT.txt`;
    my $outtext = qq{NuvÊrende medlemmer af det danske folketing jf. [[:Kategori:NuvÊrende folketingsmedlemmer|Kategori:NuvÊrende folketingsmedlemmer]].
    
== Current ==
$imagesf

== Diff ==
<pre>
$difftext

};

   $WPDa->edit({
   page => "Bruger:Hebbot/NuvFT",
   text => $outtext,
   summary => "Opdatering af oversigt over folketingsmedlemmer $WPDa_notice",
   });

   $WPDa->edit({
   page => "Bruger:Hebbot/NuvFT_antal",
   text => $totalcount,
   summary => "Opdatering af antal folketingsmedlemmer $WPDa_notice",
   });

}

</nowiki>