34.7 Classifying documents (ERP interface)
You use the Archivista printer to print documents in the archive. You then want to index these documents automatically and you use Archivista to search for a solution. This solution is called 'coldplus.pl'.
/home/data/archivista/cust/cold/coldplus.pl
If this program exists in the ArchivistaBox, it is run for each print job. For example:
#!/usr/bin/perl
my $db = shift; # database name (you can change it)
my $title = shift; # title of document (goes to Title)
my $pdffile = shift; # pdf file name (for own work)
my $psfile = shift; # ps file name (for own work)
my $for = shift; # author (goes to Owner)
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 return values, 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;Title=$title:owner=$for";
print $ret;
The program always receives the database name, the respective PDF file, the corresponding postscript file and the author (if the author is included in the PDF document). The program initially returns the database name as well as the desired fields.
: ftpplus.pl exists in addition to coldplus.pl. The difference here is that only the name of the document is received. You have to add the corresponding program to the following location in the ArchivistaBox:
/home/data/archivista/cust/ftp/ftpplus.pl
2024-02-28 (c) by Archivista GmbH, CH-8118 Pfaffhausen