projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
certificates ala communigate, RT#7515
[freeside.git]
/
FS
/
FS
/
svc_cert.pm
diff --git
a/FS/FS/svc_cert.pm
b/FS/FS/svc_cert.pm
index
36e7582
..
b77ff52
100644
(file)
--- a/
FS/FS/svc_cert.pm
+++ b/
FS/FS/svc_cert.pm
@@
-335,10
+335,13
@@
sub generate_selfsigned {
#notAfter=Nov 6 05:07:42 2012 GMT
#serial=B1DBF1A799EF207B
#notAfter=Nov 6 05:07:42 2012 GMT
#serial=B1DBF1A799EF207B
-sub check_certificate {
- my $self = shift;
+sub check_certificate { shift->check_x509('certificate'); }
+sub check_cacert { shift->check_x509('cacert'); }
+
+sub check_x509 {
+ my( $self, $field ) = ( shift, shift );
- my $in = $self->
certificate
;
+ my $in = $self->
$field
;
run( [qw( openssl x509 -noout -subject -issuer -dates -serial )],
'<'=>\$in,
'>pipe'=>\*OUT, '2>'=>'/dev/null'
run( [qw( openssl x509 -noout -subject -issuer -dates -serial )],
'<'=>\$in,
'>pipe'=>\*OUT, '2>'=>'/dev/null'