#!/usr/bin/perl
use strict;
use warnings;
use Socialtext::Resting::Getopt qw/get_rester/;
use Socialtext::Resting::TaggedPages qw/tagged_pages/;
use Getopt::Long;
sub usage {
die <<EOT;
USAGE: stu-tagged-pages [--notags] [--tag <tag> ...]
Return a list of pages with the specified tag(s).
--notags shows pages with no tags
EOT
}
my $r = get_rester();
my @tags;
my $no_tags;
GetOptions(
'tag=s' => \@tags,
'notags' => \$no_tags,
) or usage;
usage unless @tags or $no_tags;
my $tagged_pages = tagged_pages(
rester => $r,
tags => \@tags,
notags => $no_tags,
);
print join "\n", @$tagged_pages;
exit;