diff options
Diffstat (limited to 'deployment/services')
| -rw-r--r-- | deployment/services/nfs.scm | 36 |
1 files changed, 35 insertions, 1 deletions
diff --git a/deployment/services/nfs.scm b/deployment/services/nfs.scm index fc4838e..863578c 100644 --- a/deployment/services/nfs.scm +++ b/deployment/services/nfs.scm @@ -19,10 +19,31 @@ ;;; If not, see <https://www.gnu.org/licenses/>. (define-module (deployment services nfs) - #:export (service-nfs-aisaka) + #:export (autofs-aisaka_service + autofs-akashi_service + nfs-akashi_service + service-nfs-aisaka) #:use-module (gnu services nfs) #:use-module (sovereign services nfs)) +(define autofs-indirect-map/mnt_record + (autofs-indirect-map + (inherit %autofs-indirect-map/mnt_record) + (entries (list (autofs-map-entry + (inherit %autofs-map-entry/nfs_record) + (device "10.0.0.1:/home/marek/Szablony") + (mount-point "szablony")))))) + +(define autofs-aisaka_record + (autofs-configuration + (inherit %autofs-configuration_record) + (mounts (list autofs-indirect-map/mnt_record)))) + +(define autofs-akashi_record + (autofs-configuration + (inherit %autofs-configuration_record) + (mounts (list autofs-indirect-map/mnt_record)))) + (define nfs-server-aisaka (let ((Export-Dokumenty (list "/home/marek/Dokumenty" @@ -34,7 +55,20 @@ (exports (list Export-Dokumenty Export-Szablony))))) +(define nfs-client-akashi + (nfs-configuration + (inherit %nfs-configuration))) + +(define autofs-aisaka_service + (autofs_proc autofs-aisaka_record)) + +(define autofs-akashi_service + (autofs_proc autofs-akashi_record)) + (define service-nfs-aisaka (service-nfs nfs-server-aisaka)) +(define nfs-akashi_service + (service-nfs nfs-client-akashi)) + ;;; EOF |