<commit_before>#!/usr/bin/perl

use warnings;
use strict;
use PublicWhip::DB;
use PublicWhip::Parliaments;
use PublicWhip::SQLfragments;
use XML::RSS;

my $dbh = PublicWhip::DB::connect();
my $this_parliament=PublicWhip::Parliaments::getcurrent();

my $results=  PublicWhip::DB::query($dbh,
		 PublicWhip::SQLfragments::divisions_query_start() .
		 "and ". PublicWhip::SQLfragments::parliament_query_range_div($this_parliament) .
		 PublicWhip::SQLfragments::divisions_controversial() .
		" limit 30 "
		);


 my $rss = new XML::RSS (version => '0.91');
 $rss->channel(
   title        => "Parliamentary Divisions",
   link         => "http://www.publicwhip.org.uk/",
   description  => "Parliamentary Divisions from The Public Whip - http://www.publicwhip.org.uk/ .",
   dc => {
     subject    => "Parliamentary Divisions",
     creator    => '<EMAIL>',
     publisher  => '<EMAIL>',
     rights     => 'Copyright PublicWhip 2005',
     language   => 'en-gb',
     ttl        =>  600
   },
   syn => {
     updatePeriod     => "daily",
     updateFrequency  => "1",
     updateBase       => "1901-01-01T00:00+00:00",
   },
 );

   while (my $result= $results->fetchrow_hashref) {
            $rss->add_item(
	          title => "Division: $result->{division_name}",
                  link => "http://www.publicwhip.org.uk/division.php?date=$result->{division_date};number=$result->{division_number}",
		  description=> "Vote on $result->{division_name} on $result->{division_date} ($result->{rebellions} rebellions; $result->{turnout} voters)"<commit_msg>pasto<commit_after>#!/usr/bin/perl

use warnings;
use strict;
use PublicWhip::DB;
use PublicWhip::Parliaments;
use PublicWhip::SQLfragments;
use XML::RSS;

my $dbh = PublicWhip::DB::connect();
my $this_parliament=PublicWhip::Parliaments::getcurrent();

my $results=  PublicWhip::DB::query($dbh,
		 PublicWhip::SQLfragments::divisions_query_start() .
		 "and ". PublicWhip::SQLfragments::parliament_query_range_div($this_parliament) .
		 PublicWhip::SQLfragments::divisions_all() .
		" limit 30 "
		);


 my $rss = new XML::RSS (version => '0.91');
 $rss->channel(
   title        => "Parliamentary Divisions",
   link         => "http://www.publicwhip.org.uk/",
   description  => "Parliamentary Divisions from The Public Whip - http://www.publicwhip.org.uk/ .",
   dc => {
     subject    => "Parliamentary Divisions",
     creator    => '<EMAIL>',
     publisher  => '<EMAIL>',
     rights     => 'Copyright PublicWhip 2005',
     language   => 'en-gb',
     ttl        =>  600
   },
   syn => {
     updatePeriod     => "daily",
     updateFrequency  => "1",
     updateBase       => "1901-01-01T00:00+00:00",
   },
 );

   while (my $result= $results->fetchrow_hashref) {
            $rss->add_item(
	          title => "Division: $result->{division_name}",
                  link => "http://www.publicwhip.org.uk/division.php?date=$result->{division_date};number=$result->{division_number}",
		  description=> "Vote on $result->{division_name} on $result->{division_date} ($result->{rebellions} rebellions; $result->{turnout} voters)"
{'fraction_non_alphanumeric': 0.17183462532299743, 'fraction_numerical': 0.018733850129198967, 'mean_word_length': 3.417974322396576, 'pattern_counts': {'":': 0, '<': 7, '<?xml version=': 0, '>': 63, 'https://': 0, 'lorem ipsum': 0, 'www.': 6, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '3365272', 'n_tokens_mistral': 1109, 'n_tokens_neox': 1031, 'n_words': 179}