#!/usr/bin/perl
use strict;
use warnings;
use Socialtext::Resting;
use Socialtext::Resting::Getopt qw/get_rester/;
my $r = get_rester();
my @pages = $r->get_pages;
unless (@pages) {
die "No pages in workspace " . $r->workspace . "\n";
}
print "Saving " . scalar(@pages) . " pages ...\n";
for my $p (@pages) {
print "Saving '$p' ...\n";
my $filename = Socialtext::Resting::_name_to_id($p);
open(my $fh, ">$filename") or die "Can't open $filename: $!";
print $fh $r->get_page($p);
close $fh or die "Can't write $filename: $!";
}