#!/usr/bin/env perl
use strict;
use warnings;
use WebService::Google::Reader;

# Not sure if preferences should be reset. That would require
# storing the list of prefs and their defaults.

my $reader = WebService::Google::Reader->new(
    username => $ENV{GOOGLE_USERNAME},
    password => $ENV{GOOGLE_PASSWORD},
);

# Unsubscribe from all feeds.
my @feeds = $reader->feeds;
die $reader->error if $reader->error;
$reader->unsubscribe(@feeds) or die $reader->error;
printf "Removed %d feeds\n", scalar @feeds;

# Delete all tags.
my @tags = $reader->tags;
die $reader->error if $reader->error;
$reader->delete_tag(@tags) or die $reader->error;
printf "Deleted %d tags\n", scalar @tags;

# Remove all states from any entries.
for my $state ($reader->_states) {
    my $feed = $reader->state($state, count => 500) or next;

    do {
        $reader->unstate_entry([ $feed->entries ], $reader->_states)
            or die $reader->error;
        if (my $count = scalar $feed->entries) {
            printf "Removed state '%s' from %d entries\n", $state, $count;
        }
        sleep 1;
    } while ($reader->more($feed));
}