From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp1 ([2001:41d0:8:6d80::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms0.migadu.com with LMTPS id 2JKOBkprKGH/LQEAgWs5BA (envelope-from ) for ; Fri, 27 Aug 2021 06:34:18 +0200 Received: from aspmx1.migadu.com ([2001:41d0:8:6d80::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp1 with LMTPS id KOATAkprKGHoLQAAbx9fmQ (envelope-from ) for ; Fri, 27 Aug 2021 04:34:18 +0000 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 7ADEB2BDFE for ; Fri, 27 Aug 2021 06:34:17 +0200 (CEST) Received: from localhost ([::1]:41076 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1mJTZI-0007Gw-JA for larch@yhetil.org; Fri, 27 Aug 2021 00:34:16 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:58744) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mJTZ4-0007FT-Ax for guix-patches@gnu.org; Fri, 27 Aug 2021 00:34:02 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:39459) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1mJTZ4-0002dJ-3T for guix-patches@gnu.org; Fri, 27 Aug 2021 00:34:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1mJTZ4-0007Nl-1t for guix-patches@gnu.org; Fri, 27 Aug 2021 00:34:02 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#50208] [PATCH] home-services: Add symlink-manager Resent-From: Andrew Tropin Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Fri, 27 Aug 2021 04:34:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 50208 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: Oleg Pykhalov Cc: 50208@debbugs.gnu.org Received: via spool by 50208-submit@debbugs.gnu.org id=B50208.163003883228355 (code B ref 50208); Fri, 27 Aug 2021 04:34:02 +0000 Received: (at 50208) by debbugs.gnu.org; 27 Aug 2021 04:33:52 +0000 Received: from localhost ([127.0.0.1]:51004 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mJTYt-0007NG-Ui for submit@debbugs.gnu.org; Fri, 27 Aug 2021 00:33:52 -0400 Received: from mail-lf1-f52.google.com ([209.85.167.52]:35459) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1mJTYr-0007Mq-KL for 50208@debbugs.gnu.org; Fri, 27 Aug 2021 00:33:51 -0400 Received: by mail-lf1-f52.google.com with SMTP id l2so3594598lfp.2 for <50208@debbugs.gnu.org>; Thu, 26 Aug 2021 21:33:49 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=trop-in.20150623.gappssmtp.com; s=20150623; h=from:to:cc:subject:in-reply-to:references:date:message-id :mime-version; bh=T76qf50hJAHVB2rM5sp6gToOymALr/ROBduf/R40+xA=; b=apX4MNM2B1428shfGMSPIaPTZHpTVPvygMuz7p+eSzT28di3iuVcWYOV4dowX9aesB +Bew+4VeGn/mNlE4Aitp0CfVGxJ00LjZT/Yex3XG9jJAuqHIk9vH/GDnEu/14QhiR4WE 8c49293r2YBxAsyiAXkAplDp5tOOigVKqPchOhV5a5ANPWpFT/755MzAIE2u/lBgry+a wk7T99VmQCYNkI7QjqOcOton5v8BpnQlbrdfM56QvG5GEZGg3tPfmg5EbCeT458Q4hpC 1G/jQlro1730g+ZxYHjHTHOKaZ0wk15fOyRz8F/WXPJ9kHl3G1lZejP180krUZZzH3+L ubQg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:cc:subject:in-reply-to:references:date :message-id:mime-version; bh=T76qf50hJAHVB2rM5sp6gToOymALr/ROBduf/R40+xA=; b=UWwH7/ykUY0I2Ns66lW/HxcAqOXKahv5Kyhv5GK1ts69S/yixN5OR0oD0KfkuT4aio 3VmMD/rvS4BkzDjk5MXRMp345+UYvsKAh7+0REdBjuXhIZXwQKNyp27omk7IA5HNDrGL YyvEqLQyIlHERf59p+3ea8DT/7DamsEUcPQdQ+4JLJpDXBt4JfcnNRUTcfjk22AIRFua QMo39If9oBpYfRFcznPh4szOQ/nZaDY8VyfEHAP0U66jH/c3/2YLtGxfOH8TYYA5uD48 a6Daqri3jLTfrJQ13TiA9FzF5we7f5DryWDYlBRkXN0XFDIbrweycK6xaX3AzYwk04zQ gbxQ== X-Gm-Message-State: AOAM531Zh6n/MxpCv1ZS52CZlCBetrrrDZv0zgPBIgbkgZmmdMILS1iN JkhpjVHVpn7x4UgxuWhA2PLZsA== X-Google-Smtp-Source: ABdhPJzpH4bcE8G2aVpgGFN5Rn2ZZKyg72VDpyDgmVBgQmtZ9TXC6uMk24vfCK9qGI9kHPF4qQx/Ww== X-Received: by 2002:a19:c107:: with SMTP id r7mr5251872lff.29.1630038823548; Thu, 26 Aug 2021 21:33:43 -0700 (PDT) Received: from localhost (109-252-93-92.nat.spd-mgts.ru. [109.252.93.92]) by smtp.gmail.com with ESMTPSA id o4sm359369lfi.186.2021.08.26.21.33.42 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Thu, 26 Aug 2021 21:33:42 -0700 (PDT) From: Andrew Tropin In-Reply-To: <87r1eg8obm.fsf@gmail.com> References: <87bl5kbsk8.fsf@trop.in> <87r1eg8obm.fsf@gmail.com> Date: Fri, 27 Aug 2021 07:31:24 +0300 Message-ID: <87k0k7fqzn.fsf@trop.in> MIME-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha512; protocol="application/pgp-signature" X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+larch=yhetil.org@gnu.org Sender: "Guix-patches" X-Migadu-Flow: FLOW_IN ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1630038857; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-type:content-type:resent-cc:resent-from:resent-sender: resent-message-id:in-reply-to:in-reply-to:references:references: list-id:list-help:list-unsubscribe:list-subscribe:list-post: dkim-signature; bh=T76qf50hJAHVB2rM5sp6gToOymALr/ROBduf/R40+xA=; b=jYyymRl2iRxjVbwolbTQT7jW4R+CNL52288IxgjVCQmm0DXJg1bxz3bDoK9xgFa0bOseMJ rfhBsE7u3vIBr9R+IPd1X4ch/jW2+3L33JXr/2ojR67D2y7RY/CxeQy9+8JB41kJV38mO2 h/NlOfqyCvqP6vXwF/XT6Vjfnlnk97nKMMFapbi/f3UbVo1aNM8Z/2bE8nngD2EvlzHCaS /gDFMpACHdbjmkX2RE3UzinKm4NVCWMXxDSqrmnS84MUU2k7EASi+xlpsrwHIb+p5aM2eL SIh3ApzUZXmtoxRMXnhlMi46FIJywgsEdEywwm6iF/BJaaL7vzPQkNW39l+c1A== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1630038857; a=rsa-sha256; cv=none; b=aFKG78+Qo9H+iAjY954X/BTpBgLLCwlq1MrIblThH6dA74nJJLNp/Rx2+iNv6ix8aq3zbs C6/cHXB6cWonkoAz9VZcEt4U1hnRebaf17AxhjcBHydu0PW+w6Us6wfOyOzIujTHm8Afnw TrD7C2AkbeOI7HAul5srIGecY0+9V/qyPR8RUoFZPCnn+YeDzDQAgpZBwPTI84bLlK5rHj JpneaClwue/5A/ykoC51NWnllodzIvoR/RfrGuHCrgtROdTCoLAresywMf2Kwb/ifi7h0u 0dlO3x7JhKG044eqYVrZhKrjS8qcRQX7VJABNPdjdqiwvMEXpk6W3ffKPlN2rw== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=trop-in.20150623.gappssmtp.com header.s=20150623 header.b=apX4MNM2; dmarc=none; spf=pass (aspmx1.migadu.com: domain of guix-patches-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=guix-patches-bounces@gnu.org X-Migadu-Spam-Score: -3.53 Authentication-Results: aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=trop-in.20150623.gappssmtp.com header.s=20150623 header.b=apX4MNM2; dmarc=none; spf=pass (aspmx1.migadu.com: domain of guix-patches-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=guix-patches-bounces@gnu.org X-Migadu-Queue-Id: 7ADEB2BDFE X-Spam-Score: -3.53 X-Migadu-Scanner: scn0.migadu.com X-TUID: +U9VCJqbIC89 --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable On 2021-08-26 13:58, Oleg Pykhalov wrote: > Hi Andrew, > > Andrew Tropin writes: > >> --- >> This patch is targeted against wip-guix-home branch. >> >> It's not a part of any patch series to make sure it will get enough atte= ntion, >> because it's most unpure part of the Guix Home and operates on user's fi= les. >> >> gnu/home-services/symlink-manager.scm | 248 ++++++++++++++++++++++++++ >> 1 file changed, 248 insertions(+) >> create mode 100644 gnu/home-services/symlink-manager.scm >> > > [=E2=80=A6] > > I applied your patch, replaces tabs with spaces, modified commit message > according to GNU standards, added the file to gnu/local.mk for > compilation (I forgot to do it for previous patch series, apologies). > Thank you! > > > I would like to squash the patch for home-services.scm with a previous > series (hope force push will work), but I should ask you could I do it? > Otherwise I could just push two patches to wip-guix-home. > Yes, squash works for me. >=20 > Updated patches are attached below. > > From 99f1b412fd76d9813dccc96cf30a943375d0d5a8 Mon Sep 17 00:00:00 2001 > From: Oleg Pykhalov > Date: Thu, 26 Aug 2021 13:18:54 +0300 > Subject: [PATCH 1/2] gnu: Compile home-services. > > This commit follows b784de19. > > * gnu/local.mk (GNU_SYSTEM_MODULES): Add home-services.scm. > --- > gnu/local.mk | 1 + > 1 file changed, 1 insertion(+) > > diff --git a/gnu/local.mk b/gnu/local.mk > index 14cd1cc6ad..bd3aed77e8 100644 > --- a/gnu/local.mk > +++ b/gnu/local.mk > @@ -72,6 +72,7 @@ GNU_SYSTEM_MODULES =3D \ > %D%/bootloader/u-boot.scm \ > %D%/bootloader/depthcharge.scm \ > %D%/ci.scm \ > + %D%/home-services.scm \ > %D%/image.scm \ > %D%/packages.scm \ > %D%/packages/abduco.scm \ > --=20 > 2.32.0 > > From 8938342edec4dda6ff2b7b5d47f63809bb309084 Mon Sep 17 00:00:00 2001 > From: Andrew Tropin > Date: Thu, 26 Aug 2021 09:39:38 +0300 > Subject: [PATCH 2/2] home-services: Add symlink-manager. > > * gnu/home-services/symlink-manager.scm: New file. > * gnu/local.mk (GNU_SYSTEM_MODULES): Add this. > > Signed-off-by: Oleg Pykhalov > --- > gnu/home-services/symlink-manager.scm | 247 ++++++++++++++++++++++++++ > gnu/local.mk | 1 + > 2 files changed, 248 insertions(+) > create mode 100644 gnu/home-services/symlink-manager.scm > > diff --git a/gnu/home-services/symlink-manager.scm b/gnu/home-services/sy= mlink-manager.scm > new file mode 100644 > index 0000000000..47fee8db3b > --- /dev/null > +++ b/gnu/home-services/symlink-manager.scm > @@ -0,0 +1,247 @@ > +;;; GNU Guix --- Functional package management for GNU > +;;; Copyright =C2=A9 2021 Andrew Tropin > +;;; Copyright =C2=A9 2021 Xinglu Chen > +;;; > +;;; This file is part of GNU Guix. > +;;; > +;;; GNU Guix is free software; you can redistribute it and/or modify it > +;;; under the terms of the GNU General Public License as published by > +;;; the Free Software Foundation; either version 3 of the License, or (at > +;;; your option) any later version. > +;;; > +;;; GNU Guix is distributed in the hope that it will be useful, but > +;;; WITHOUT ANY WARRANTY; without even the implied warranty of > +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the > +;;; GNU General Public License for more details. > +;;; > +;;; You should have received a copy of the GNU General Public License > +;;; along with GNU Guix. If not, see . > + > +(define-module (gnu home-services symlink-manager) > + #:use-module (gnu home-services) > + #:use-module (guix gexp) > + #:export (home-symlink-manager-service-type)) > + > +;;; Comment: > +;;; > +;;; symlink-manager cares about configuration files: it backups files > +;;; created by user, removes symlinks and directories created by > +;;; previous generation, and creates new directories and symlinks to > +;;; configs according to content of files/ directory of current home > +;;; environment generation (created by home-files-service). > +;;; > +;;; Code: > + > +(define (update-symlinks-script) > + (program-file > + "update-symlinks" > + #~(begin > + (use-modules (ice-9 ftw) > + (ice-9 curried-definitions) > + (ice-9 match) > + (srfi srfi-1)) > + (define ((simplify-file-tree parent) file) > + "Convert the result produced by `file-system-tree' to less > +verbose and more suitable for further processing format. > + > +Extract dir/file info from stat and compose a relative path to the > +root of the file tree. > + > +Sample output: > + > +((dir . \".\") > + ((dir . \"config\") > + ((dir . \"config/fontconfig\") > + (file . \"config/fontconfig/fonts.conf\")) > + ((dir . \"config/isync\") > + (file . \"config/isync/mbsyncrc\")))) > +" > + (match file > + ((name stat) `(file . ,(string-append parent name))) > + ((name stat children ...) > + (cons `(dir . ,(string-append parent name)) > + (map (simplify-file-tree > + (if (equal? name ".") > + "" > + (string-append parent name "/"))) > + children))))) > + > + (define ((file-tree-traverse preordering) node) > + "Traverses the file tree in different orders, depending on PREO= RDERING. > + > +if PREORDERING is @code{#t} resulting list will contain folders before > +files located in those folders, otherwise folders will appear only > +after all nested items already listed." > + (let ((prepend (lambda (a b) (append b a)))) > + (match node > + (('file . path) (list node)) > + ((('dir . path) . rest) > + ((if preordering append prepend) > + (list (cons 'dir path)) > + (append-map (file-tree-traverse preordering) rest)))))) > + > + (use-modules (guix build utils)) > + > + (let* ((he-path (string-append (getenv "HOME") "/.guix-home")) > + (new-he-tmp-path (string-append he-path ".new")) > + (new-home (getenv "GUIX_NEW_HOME"))) > + (symlink new-home new-he-tmp-path) > + (rename-file new-he-tmp-path he-path)) > + > + (let* ((config-home (or (getenv "XDG_CONFIG_HOME") > + (string-append (getenv "HOME") "/.conf= ig"))) > + > + (he-path (string-append (getenv "HOME") "/.guix-home")) > + (new-he-tmp-path (string-append he-path ".new")) > + > + (files-path (string-append he-path "/files")) > + ;; Leading dot is required, because files itself is symlin= k and > + ;; to make file-system-tree works it should be a directory. > + (files-dir-path (string-append files-path "/.")) > + (new-files-path (string-append new-he-tmp-path "/files")) > + (new-files-dir-path (string-append files-path "/.")) > + > + (home-path (getenv "HOME")) > + (backup-dir (string-append home-path "/" > + (number->string (current-time)) > + "-guix-home-legacy-configs-back= up")) > + > + (old-tree (if (file-exists? files-dir-path) > + ((simplify-file-tree "") > + (file-system-tree files-dir-path)) > + #f)) > + (new-tree ((simplify-file-tree "") > + (file-system-tree new-files-dir-path))) > + > + (get-source-path > + (lambda (path) > + (readlink (string-append files-path "/" path)))) > + > + (get-target-path > + (lambda (path) > + (string-append home-path "/." path))) > + > + (get-backup-path > + (lambda (path) > + (string-append backup-dir "/." path))) > + > + (directory? > + (lambda (path) > + (equal? (stat:type (stat path)) 'directory))) > + > + (empty-directory? > + (lambda (dir) > + (equal? (scandir dir) '("." "..")))) > + > + (symlink-to-store? > + (lambda (path) > + (and > + (equal? (stat:type (lstat path)) 'symlink) > + (store-file-name? (readlink path))))) > + > + (backup-file > + (lambda (path) > + (mkdir-p backup-dir) > + (format #t "Backing up ~a..." (get-target-path path)) > + (mkdir-p (dirname (get-backup-path path))) > + (rename-file (get-target-path path) (get-backup-path pa= th)) > + (display " done\n"))) > + > + (cleanup-symlinks > + (lambda () > + (let ((to-delete ((file-tree-traverse #f) old-tree))) > + (display > + "Cleaning up symlinks from previous home-environment= .\n\n") > + (map > + (match-lambda > + (('dir . ".") > + (display "Cleanup finished.\n\n")) > + > + (('dir . path) > + (if (and > + (file-exists? (get-target-path path)) > + (directory? (get-target-path path)) > + (empty-directory? (get-target-path path))) > + (begin > + (format #t "Removing ~a..." > + (get-target-path path)) > + (rmdir (get-target-path path)) > + (display " done\n")) > + (format > + #t "Skipping ~a (not an empty directory)... = done\n" > + (get-target-path path)))) > + > + (('file . path) > + (when (file-exists? (get-target-path path)) > + ;; DO NOT remove the file if it was modified > + ;; by user (not a symlink to the /gnu/store > + ;; anymore) it will be backed up later during > + ;; create-symlinks phase. > + (if (symlink-to-store? (get-target-path path)) > + (begin > + (format #t "Removing ~a..." (get-target-p= ath path)) > + (delete-file (get-target-path path)) > + (display " done\n")) > + (format > + #t > + "Skipping ~a (not a symlink to store)... d= one\n" > + (get-target-path path)))))) > + to-delete)))) > + > + (create-symlinks > + (lambda () > + (let ((to-create ((file-tree-traverse #t) new-tree))) > + (map > + (match-lambda > + (('dir . ".") > + (display > + "New symlinks to home-environment will be create= d soon.\n") > + (format > + #t "All conflicting files will go to ~a.\n\n" ba= ckup-dir)) > + > + (('dir . path) > + (let ((target-path (get-target-path path))) > + (when (and (file-exists? target-path) > + (not (directory? target-path))) > + (backup-file path)) > + > + (if (file-exists? target-path) > + (format > + #t "Skipping ~a (directory already exist= s)... done\n" > + target-path) > + (begin > + (format #t "Creating ~a..." target-path) > + (mkdir target-path) > + (display " done\n"))))) > + > + (('file . path) > + (when (file-exists? (get-target-path path)) > + (backup-file path)) > + (format #t "Symlinking ~a -> ~a..." > + (get-target-path path) (get-source-path p= ath)) > + (symlink (get-source-path path) (get-target-path = path)) > + (display " done\n"))) > + to-create))))) > + > + (when old-tree > + (cleanup-symlinks)) > + > + (create-symlinks) > + > + (display " done\nFinished updating symlinks.\n\n"))))) > + > + > +(define (update-symlinks-gexp _) > + #~(primitive-load #$(update-symlinks-script))) > + > +(define home-symlink-manager-service-type > + (service-type (name 'home-symlink-manager) > + (extensions > + (list > + (service-extension > + home-activation-service-type > + update-symlinks-gexp))) > + (default-value #f) > + (description "Provide an @code{update-symlinks} > +script, which create and remove symlinks on every activation. If the > +target is occupied by a file created by user, back it up."))) > diff --git a/gnu/local.mk b/gnu/local.mk > index bd3aed77e8..91c3b0da3d 100644 > --- a/gnu/local.mk > +++ b/gnu/local.mk > @@ -73,6 +73,7 @@ GNU_SYSTEM_MODULES =3D \ > %D%/bootloader/depthcharge.scm \ > %D%/ci.scm \ > %D%/home-services.scm \ > + %D%/home-services/symlink-manager.scm \ > %D%/image.scm \ > %D%/packages.scm \ > %D%/packages/abduco.scm \ --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQJDBAEBCgAtFiEEKEGaxlA4dEDH6S/6IgjSCVjB3rAFAmEoap0PHGFuZHJld0B0 cm9wLmluAAoJECII0glYwd6wIMUQAJV91sfCTBkpIkgem3U+nsy2sZPxhd4rxAo+ jEPmn5+rCE5KF+lZ7g6yKmYeWZKP4Z5vzC3u2xmeGhp0+W/Yh1lAwswXgMd6X7g6 SpXLSAoxE5C81VrkdED9h3dD/0cGZeHEg4tRUxGGuLE7p3A6cZe5R8yLNFq3Zw5M O9XInHNVBk2UKivZwFavMvlbt4tTjM8b5W3CtA1ysSl1mwTZY/RitwYkXb+85EMh FRyEgW9lnAjY+8qr4mlcm1jhRRND3MJ2Puyvh7H+hrIyiKcqBH7CPFlTzmhcXW3x Ry3NHS5m3qVH7cmKF1vh6IZWYT3NCxgvzpmRSV+SKePfoToPLVpt4PPOQbiJ5N91 ddOgcL6xrLUCU7nw1jvms+KU2b6p6q/hW8amvvA07HAW0FHdmyuZWNzVfuKYUOIz 9BhhClR8KXDovFQm+K5s+1LUM7x/VLN+6M2LuupT5hLF5MmhGFalsGdBkKIdE/VP wNCyZRsfI7/rQ0/PPeOyhpFa7GWmDztMavlDKbKWEg86QhK0dsk3YSrmUc5on99L RFeWa+xvm5TG3RtJbco0SpWS3R+A+aKHll09OhJLCUjb+ElSDxJWehni8m0bmn47 irE3ftR7XMlosCyy3CmH8xTb4auUrhpuoRHrwumhnZTyefhO9Mq87bbmEmD5ef99 UGVU5uOq =7B4U -----END PGP SIGNATURE----- --=-=-=--