9 my ( $class, $database ) = @_;
14 mech => WWW::Mechanize->new(),
15 database => $database,
22 my ( $self, $id, $marc ) = @_;
24 my $database = $self->{database};
25 mkdir 'marc' unless -e 'marc';
26 mkdir "marc/$database" unless -e "marc/$database";
28 my $path = "marc/$database/$id";
30 open(my $out, '>:utf8', $path) || die "$path: $!";
34 warn "# created $path ", -s $path, " bytes";
42 my $path = "/tmp/$dump_nr.html";
43 open(my $html, '>', $path);
44 print $html $self->{mech}->content;
46 warn "# save_content $path ", -s $path, " bytes";