Help for this page
#!/usr/bin/perl use warnings; use strict; ... last } }
open user.xml ; my $digestuser = 'dado' ; my $password = 'cane' ; my $passok ; if p:userlist/p:user[p:username=$digestuser and p:password=$digestpass +] $passok = 1 ;