123 lines
3.8 KiB
Plaintext
123 lines
3.8 KiB
Plaintext
module Test_getcap =
|
|
|
|
(* Example from getcap(3) *)
|
|
let getcap = "example|an example of binding multiple values to names:\\
|
|
:foo%bar:foo^blah:foo@:\\
|
|
:abc%xyz:abc^frap:abc$@:\\
|
|
:tc=more:
|
|
"
|
|
|
|
test Getcap.lns get getcap =
|
|
{ "record"
|
|
{ "name" = "example" }
|
|
{ "name" = "an example of binding multiple values to names" }
|
|
{ "capability" = "foo%bar" }
|
|
{ "capability" = "foo^blah" }
|
|
{ "capability" = "foo@" }
|
|
{ "capability" = "abc%xyz" }
|
|
{ "capability" = "abc^frap" }
|
|
{ "capability" = "abc$@" }
|
|
{ "capability" = "tc=more" }
|
|
}
|
|
|
|
(* Taken from the standard /etc/login.conf *)
|
|
let login_conf = "# Default allowed authentication styles
|
|
auth-defaults:auth=passwd,skey:
|
|
|
|
# Default allowed authentication styles for authentication type ftp
|
|
auth-ftp-defaults:auth-ftp=passwd:
|
|
|
|
#
|
|
# The default values
|
|
# To alter the default authentication types change the line:
|
|
# :tc=auth-defaults:\\
|
|
# to be read something like: (enables passwd, \"myauth\", and activ)
|
|
# :auth=passwd,myauth,activ:\\
|
|
# Any value changed in the daemon class should be reset in default
|
|
# class.
|
|
#
|
|
default:\\
|
|
:path=/usr/bin /bin /usr/sbin /sbin /usr/X11R6/bin /usr/local/bin /usr/local/sbin:\\
|
|
:umask=022:\\
|
|
:datasize-max=512M:\\
|
|
:datasize-cur=512M:\\
|
|
:maxproc-max=256:\\
|
|
:maxproc-cur=128:\\
|
|
:openfiles-cur=512:\\
|
|
:stacksize-cur=4M:\\
|
|
:localcipher=blowfish,8:\\
|
|
:ypcipher=old:\\
|
|
:tc=auth-defaults:\\
|
|
:tc=auth-ftp-defaults:
|
|
"
|
|
|
|
test Getcap.lns get login_conf =
|
|
{ "#comment" = "Default allowed authentication styles" }
|
|
{ "record"
|
|
{ "name" = "auth-defaults" }
|
|
{ "capability" = "auth=passwd,skey" }
|
|
}
|
|
{ }
|
|
{ "#comment" = "Default allowed authentication styles for authentication type ftp" }
|
|
{ "record"
|
|
{ "name" = "auth-ftp-defaults" }
|
|
{ "capability" = "auth-ftp=passwd" }
|
|
}
|
|
{ }
|
|
{ }
|
|
{ "#comment" = "The default values" }
|
|
{ "#comment" = "To alter the default authentication types change the line:" }
|
|
{ "#comment" = ":tc=auth-defaults:\\" }
|
|
{ "#comment" = "to be read something like: (enables passwd, \"myauth\", and activ)" }
|
|
{ "#comment" = ":auth=passwd,myauth,activ:\\" }
|
|
{ "#comment" = "Any value changed in the daemon class should be reset in default" }
|
|
{ "#comment" = "class." }
|
|
{ }
|
|
{ "record"
|
|
{ "name" = "default" }
|
|
{ "capability" = "path=/usr/bin /bin /usr/sbin /sbin /usr/X11R6/bin /usr/local/bin /usr/local/sbin" }
|
|
{ "capability" = "umask=022" }
|
|
{ "capability" = "datasize-max=512M" }
|
|
{ "capability" = "datasize-cur=512M" }
|
|
{ "capability" = "maxproc-max=256" }
|
|
{ "capability" = "maxproc-cur=128" }
|
|
{ "capability" = "openfiles-cur=512" }
|
|
{ "capability" = "stacksize-cur=4M" }
|
|
{ "capability" = "localcipher=blowfish,8" }
|
|
{ "capability" = "ypcipher=old" }
|
|
{ "capability" = "tc=auth-defaults" }
|
|
{ "capability" = "tc=auth-ftp-defaults" }
|
|
}
|
|
|
|
(* Sample /etc/printcap *)
|
|
let printcap = "# $OpenBSD: printcap,v 1.1 2014/07/12 03:52:39 deraadt Exp $
|
|
|
|
lp|local line printer:\\
|
|
:lp=/dev/lp:sd=/var/spool/output:lf=/var/log/lpd-errs:
|
|
|
|
rp|remote line printer:\\
|
|
:lp=:rm=printhost:rp=lp:sd=/var/spool/output:lf=/var/log/lpd-errs:
|
|
"
|
|
|
|
test Getcap.lns get printcap =
|
|
{ "#comment" = "$OpenBSD: printcap,v 1.1 2014/07/12 03:52:39 deraadt Exp $" }
|
|
{ }
|
|
{ "record"
|
|
{ "name" = "lp" }
|
|
{ "name" = "local line printer" }
|
|
{ "capability" = "lp=/dev/lp" }
|
|
{ "capability" = "sd=/var/spool/output" }
|
|
{ "capability" = "lf=/var/log/lpd-errs" }
|
|
}
|
|
{ }
|
|
{ "record"
|
|
{ "name" = "rp" }
|
|
{ "name" = "remote line printer" }
|
|
{ "capability" = "lp=" }
|
|
{ "capability" = "rm=printhost" }
|
|
{ "capability" = "rp=lp" }
|
|
{ "capability" = "sd=/var/spool/output" }
|
|
{ "capability" = "lf=/var/log/lpd-errs" }
|
|
}
|
|
|