There is a way to do what you want now that the tag field in galleryinfo.txt contains namespaces. Instead of parsing the filename you will need to parse galleryinfo.txt. I have a perl script that pulls the tag information to build the metadata file for use when importing the archived files into Comic Rack. Doing what you want shouldn't take too much extra effort. Parse the file for the tags you want and create the directory structure of your choice.
Feel free to mangle my script as you please to get your intended results.
#!/usr/bin/perl -w
use strict;
use warnings;
use Win32::Console::ANSI;
use Term::ANSIColor qw(:constants);
my $root = 'D:\Temp\hath';
my @comicHead = ("<?xml version=\"1.0\"?>\n", "<ComicInfo xmlns:xsd=\"http://www.w3.org/2001/XMLSchema\" xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\">\n", " <Genre>H Manga</Genre>\n", " <LanguageISO>en</LanguageISO>\n", " <AgeRating>Adults Only 18+</AgeRating>\n", " <Manga>YesAndRightToLeft</Manga>\n");
# Creates ComicInfo.XML from galleryinfo.txt for use by Comic Rack
#
# Exported info should include the following
# <Series></Series> == title
# <StoryArc></StoryArc> == maps from parody namespace
# <Writer></Writer> == maps from artist namespace
# <Summary></Summary> == includes whole galleryinfo.txt blob
# <Notes> ||| TAGS: 'list_of_tags' ||| </Notes> == used by "Retrieve TAGS from Notes" script in CR
opendir(DIR, $root) or die $!;
while (my $dir = readdir(DIR)) {
next if (-f $dir); # skip non-file entries
if (-f $root.'\\'.$dir.'\\galleryinfo.txt') {
open FILE, $root.'\\'.$dir.'\\galleryinfo.txt' or die $!;
my @lines = <FILE>;
close FILE or die $!;
open COMIC, ">$root\\$dir\\ComicInfo.xml" or die $!;
print COMIC @comicHead;
foreach my $line (@lines) {
$line =~ s/\<3/E3/g; # search for '<3' replace with 'E3'
if($line =~ /^Title:\s*(.*)$/) {
print GREEN;
printf '%.35s...', $1;
print RESET;
print COMIC " <Series>$1</Series>\n <Summary>$1</Summary>\n";
}
if($line =~ /^Tags:\s*(.*)$/) {
print " --> Has Tags\n";
print COMIC " <Notes> ||| TAGS: '$1' ||| </Notes>\n";
if($line =~ /artist:(?<artist>.*?),/) {
print COMIC " <Writer>$+{artist}</Writer>\n";
}
if($line =~ /parody:(?<parody>.*?),/) {
print COMIC " <StoryArc>$+{parody}</StoryArc>\n";
}
}
}
# print COMIC " <Summary>@lines</Summary>\n";
print COMIC "</ComicInfo>\n";
close COMIC or die $!;
}
else {
print RED ON_YELLOW "$dir ", RESET;
print "--> no GALLERY file\n";
}
}
print WHITE, ON_BLACK, "done";
closedir(DIR);
exit 0;
Hentai@home-Downloader auto archiver script, A helpful windows script to archive finished galleries
Jan 31 2015, 01:11
