mirror of
https://github.com/chris2511/xca.git
synced 2026-09-14 11:06:19 +05:00
27 lines
697 B
Raku
Executable File
27 lines
697 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");
|
|
my ($xcaId) = WaitWindowViewable("X Certificate and Key management");
|
|
|
|
SendKeys("%(fn)");
|
|
WaitWindowViewable("Open XCA Database");
|
|
SendKeys($db . "{ENT}");
|
|
WaitWindowViewable("New Password");
|
|
SendKeys($password . "{TAB}" . $password . "{ENT}");
|
|
SendKeys("%(fc)");
|
|
SendKeys("%(fo)");
|
|
WaitWindowViewable("Open XCA Database");
|
|
SendKeys($db . "{ENT}");
|
|
WaitWindowViewable("Password");
|
|
SendKeys($password ."{ENT}");
|
|
SendKeys("%({F4})");
|
|
WaitWindowClose($xcaId, 10);
|
|
|
|
exec("lib/db_dump", $db);
|