﻿#!/usr/bin/perl -w
use strict;
use warnings;
use utf8;
use open qw(:std :utf8);

use LWP::Simple;


# Filter_1_02_import_metadata.pl
# 2010-05-24
# Wolfgang Schmidle

# what does it do?
# input
# output

# Aufruf: perl Filter_1_02_import_metadata.pl <datei>

my $path = "http://content.mpiwg-berlin.mpg.de/mpiwg/online/permanent/library";


my $file = shift @ARGV || "";

unless ($file =~ m!_[0-9A-Z]{8}\.txt$!) { die "Couldn't find the identifier!\n"; }
my $identifier = $1;

unless ($file =~ m!_[0-9A-Z]{8}\.txt$!) { die "Couldn't find the identifier!\n"; }

my $url = "$path/$identifier/index.meta";
my $content = get $url;

die "Couldn't get $url\n" unless defined $content;

die $content;


# TO DO:
# Besser als Skript statt als Filter?

# lokale Kopie von index.meta erstellen:
# wo? in Benedetti_1585/, oder in raw/, oder in eigenem Unterordner?

# index.meta umformatieren
# <texttool> aktualisieren 

# Metadaten in den raw Text kopieren

# pageimg-Ordner bestimmen
# Liste der Dateinamen:
# http://digilib.mpiwg-berlin.mpg.de/digitallibrary/dirInfo-xml.jsp?fn=/permanent/library/xxxxxxxx/pageimg
# Ergebnis (bearbeitet?) in den raw text schreiben

# wenn man die Dateinamen bearbeitet, kann man auch die Metadaten schon bearbeiten.

# das Skript schreibt vorläufig nicht die aktualisierte Version von index.meta 
# auf den Server (alte Version umbenennen, neue Version schreiben). 
# Das muss man noch per Hand machen.
