Skip to content

Instantly share code, notes, and snippets.

View M0ses's full-sized avatar

Frank Schreiner M0ses

  • SUSE Linux GmbH
View GitHub Profile
#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;
cls();
our $all_results = [];
our $counter_all = 0;
@M0ses
M0ses / import_pem
Created October 18, 2017 14:23
small perl script to connect to an ssl server, extract certs and import in local trust chain
#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;
my $host = $ARGV[0];
my $port = $ARGV[1] || 443;
my $export_file = $ARGV[2] || "/etc/pki/trust/anchors/$host.pem";
curl https://letsencrypt.org/certs/isrgrootx1.pem.txt > /etc/pki/trust/anchors/lisrgrootx1.pem
curl https://letsencrypt.org/certs/lets-encrypt-x3-cross-signed.pem.txt > /etc/pki/trust/anchors/lets-encrypt-x3-cross-signed.pem
curl https://letsencrypt.org/certs/letsencryptauthorityx3.pem.txt > /etc/pki/trust/anchors/letsencryptauthorityx3.pem
update-ca-certificates
<services>
<service mode="buildtime" name="obs_scm">
<param name="url">https://github.com/darktable-org/darktable.git/</param>
<param name="versionformat">@PARENT_TAG@~git@TAG_OFFSET@.%h</param>
<param name="revision">master</param>
<param name="scm">git</param>
<param name="versionrewrite-pattern">release(.*)</param>
<param name="versionrewrite-replacement">\1</param>
<param name="changesgenerate">enable</param>
</service>
# we need to remove domain before we download
# image file to release filehandle
-
use_module: Kanku::Handler::SetJobContext
options:
domain_name: obs-server-26
vm_template_file: obs-server-26.tt2
host_interface: eth0
vm_image_dir: /var/lib/libvirt/images
-
@M0ses
M0ses / tmc
Last active September 24, 2016 21:22
#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;
use Data::Dumper;
use YAML;
require LWP::UserAgent;
#!/usr/bin/perl
use strict;
use warnings;
use File::Basename;
use Data::Dumper;
use Getopt::Long;
my $spattern;