mirror of
https://github.com/chris2511/xca.git
synced 2026-09-14 11:06:19 +05:00
23 lines
578 B
Raku
Executable File
23 lines
578 B
Raku
Executable File
#!/usr/bin/perl
|
|
use X11::GUITest qw/StartApp WaitWindowViewable SendKeys GetInputFocus GetWindowName WaitWindowClose/;
|
|
|
|
my $password = "ThisIsMyPassword";
|
|
my $db = "__x.xdb";
|
|
unlink $db;
|
|
|
|
|
|
StartApp("./xca $db");
|
|
my ($xcaId) = WaitWindowViewable("X Certificate and Key management");
|
|
|
|
SendKeys($password . "{TAB}" . $password . "{ENT}");
|
|
SendKeys("^(c)");
|
|
SendKeys("^(l)");
|
|
WaitWindowViewable("Open XCA Database");
|
|
SendKeys($db . "{ENT}");
|
|
WaitWindowViewable("Password");
|
|
SendKeys($password ."{ENT}");
|
|
SendKeys("%({F4})");
|
|
WaitWindowClose($xcaId, 10);
|
|
|
|
exec("lib/db_dump", $db);
|