Zum Abschluss ein Programmbeispiel, das eine einfache Sitzung mit dem WebDMS in der Programmiersprache Perl veranschaulicht:
Das obige Beispiel baut eine Verbindung zum WebDMS auf, führt eine Suchabfrage aus, bei der alle Akten mit drei Seiten aktiviert werden, und navigiert anschliessend durch 18 Akten. Zentral beim externen Aufruf über ein Skript ist zudem, dass bei der Sitzung die 'Cookies' gespeichert werden, nur so können weitere 'Befehle' an den WebDMS übermittelt werden.
use strict;
use LWP::UserAgent;
use HTTP::Cookies;
my $server = "http://localhost/perl/avclient/index.pl";
my $connect = "?host=localhost&db=archivista&uid=Admin&pwd=archivista";
my $www = LWP::UserAgent->new; # new www session
$www->cookie_jar(HTTP::Cookies->new('file'=>'/tmp/cookies.lwp','autosave'=>1));
my $res = $www->get("$server$connect"); # connect to webclient
if ($res->is_success) {
if ($res->content) { # we got login
my $cmd = "?go_query&fld_Seiten=3"; # search for 3 pages
$res = $www->get("$server$cmd");
my $cmd = "?go_doc_next";
for (my $c=1;$c<=18;$c++) { # navigate 18 times to next doc
$res = $www->get("$server$cmd");
}
}
}