Page Menu
Home
GnuPG
Search
Configure Global Search
Log In
Files
F18826378
issue2417.scm
No One
Temporary
Actions
View File
Edit File
Delete File
View Transforms
Subscribe
Mute Notifications
Award Token
Size
1 KB
Subscribers
None
issue2417.scm
View Options
#
!/usr/bin/env
gpgscm
;; Copyright (C) 2016 g10 Code GmbH
;;
;; This file is part of GnuPG.
;;
;; GnuPG 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.
;;
;; GnuPG 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 this program; if not, see <http://www.gnu.org/licenses/>.
(
load
(
with-path
"defs.scm"
))
(
define
(
touch
file-name
)
(
close
(
open
file-name
(
logior
O_WRONLY
O_BINARY
O_CREAT
)
#
o600
)))
(
info
"Checking robustness wrt empty databases in gnupghome (issue2417)..."
)
(
lettmp
;; Prepare some random key to import later.
(
keyfile
)
(
pipe:do
(
pipe:gpg
'
(
--export
alpha
))
(
pipe:write-to
keyfile
(
logior
O_WRONLY
O_BINARY
O_CREAT
)
#
o600
))
(
with-temporary-working-directory
(
setenv
"GNUPGHOME"
"."
#t
)
(
touch
"trustdb.gpg"
)
(
touch
"pubring.gpg"
)
(
touch
"pubring.kbx"
)
(
call-check
`
(
,
(
tool
'GPG
)
--import
,
keyfile
))))
File Metadata
Details
Attached
Mime Type
text/plain
Expires
Mon, Dec 23, 5:11 PM (6 h, 12 m)
Storage Engine
local-disk
Storage Format
Raw Data
Storage Handle
67/73/a019c33b576e24ed84688a60cbcb
Attached To
rG GnuPG
Event Timeline
Log In to Comment