Sie drucken mit dem Archivista-Drucker Dokumente ins Archiv. Nun möchten Sie diese Dokumente automatisch beschlagworten und suchen nach einer Lösung mit Archivista. Dies Lösung heisst 'coldplus.pl'.
/home/data/archivista/cust/cold/coldplus.pl
Sofern dieses Programm auf der ArchivistaBox existiert, wird dieses Programm bei jedem Druckjob abgearbeitet. Dazu ein Beispiel:
Das Programm erhält immer den Datenbanknamen, die entsprechende PDF-Datei, die dazugehörende Postscript-Datei sowie den Author (falls er im PDF-Dokument aufgeführt wurde). Zurück gibt das Programm zunächst den Namen der Datenbank sowie die gewünschten Felder.
#!/usr/bin/perl
my $db = shift; # database name (you can change it)
my $title = shift; # title of document (goes to Titel)
my $pdffile = shift; # pdf file name (for own work)
my $psfile = shift; # ps file name (for own work)
my $for = shift; # author (goes to Eigentuemer)
if (length($title)>120) {
$title = substring($title,0,119);
}
$title =~ s/Microsoft Word - //g;
$title =~ s/Microsoft Office //g;
$title =~ s/;/ /g;
$title =~ s/:/ /g;
$title =~ s/=/ /g;
# to give values back you need to print it
# at first position include db name, followed by a ;
# after it add the field=value, separated with a :
my $ret = "$db;Titel=$title:Eigentuemer=$for";
print $ret;