#!/usr/bin/perl
package MyParse;
use HTML::Parser;
my $CHUNKSIZE = 20; # how many messages to mark as read at a time.
use strict;
use vars qw(@ISA);
my $msgid;
my $ids;
@ISA=qw(HTML::Parser);
sub start {
my ($self, $tag, $attr, $attrseq, $origtext)=@_;
if ($tag eq "a") {
$msgid = $attr->{href};
if ($msgid =~ /read\!/) {
$msgid =~ s/^.*read\!//g;
$ids .= ",$msgid";
}
}
}
package main;
use LWP::Simple;
use URI::URL;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
$|=1;
my %confname = ("Gener.Miraf" => "Mirafiori Events/News",
"Gener.Gener" => "Tech Questions/Advice",
"Gener._F_I_" => "/F/I/A/T/ /B/S/",
"Gener.Cars_" => "Cars/Parts for Sale",
"Gener.Cars_0" => "Cars/Parts Wanted",
"Gener.The_X" => "The X1/9 Racer's Forum",
"Gener.Event" => "Events",
"Gener.Scoot" => "Scooters!");
my $q = new CGI;
print $q->header;
print "\n";
if ($q->param('conf')) {
mark_read($q->param('username'),
$q->param('password'),
$q->param('conf'));
} else {
print_menu();
}
print "\n";
exit(0);
sub print_menu {
print <mirafiori fiat page forum.
\n";
}
sub mark_read {
my ($username,$password,$conf) = @_;
print "\nMarking all messages in $confname{$conf} read:
\n";
print "";
while (1) {
my $url = new URI::URL("http://$username:$password\@www.mirafiori.com:8080/forumdemo/members/index.cgi?do=listmsgs&conf=$conf&show=unread&depth=all&off=0&frames=1");
my $content = get($url);
$ids = "";
my $p = new MyParse;
$p->parse($content);
$p->eof;
$ids =~ s/^,*//;
if ($ids !~ /\d/) {
print "- No unread messages.\n";
last;
}
my @ids = split ',', $ids;
while (@ids) {
my $ids = join ',', splice @ids,0,$CHUNKSIZE,();
print "
- Marking read: $ids\n";
$url = new URI::URL("http://$username:$password\@www.mirafiori.com:8080/forumdemo/members/index.cgi?do=listmsgs&conf=$conf&show=unread&depth=all&frames=1&off=-1800&cmd=read!$ids");
get($url);
}
}
print "
\n";
}