sunat_invoice 0.0.1

data/lib/sunat_invoice/provider.rb

@@ -0,0 +1,52 @@
+# frozen_string_literal: true
+require_relative 'tributer'
+require_relative 'utils'
+
+module SunatInvoice
+  class Provider < Tributer
+    include Utils
+
+    attr_accessor :signature_id, :signature_location_id, :uri, :pk_file,
+                  :cert_file
+
+    def address(xml)
+      xml['cbc'].ID @ubigeo
+      xml['cbc'].StreetName @street
+      xml['cbc'].CitySubdivisionName @zone
+      xml['cbc'].CityName @province
+      xml['cbc'].CountrySubentity @department
+      xml['cbc'].District @district
+      build_country(xml)
+    end
+
+    def build_country(xml)
+      xml['cac'].Country do
+        xml['cbc'].IdentificationCode country_code
+      end
+    end
+
+    def build_name(xml)
+      xml['cac'].PartyName do
+        xml['cbc'].Name name
+      end
+    end
+
+    def build_registration_name(xml)
+      xml['cac'].PartyLegalEntity do
+        xml['cbc'].RegistrationName name
+      end
+    end
+
+    def info(xml)
+      xml['cac'].AccountingSupplierParty do
+        xml['cbc'].CustomerAssignedAccountID ruc
+        xml['cbc'].AdditionalAccountID document_type
+        xml['cac'].Party do
+          build_name(xml)
+          xml['cac'].PostalAddress { address(xml) }
+          build_registration_name(xml)
+        end
+      end
+    end
+  end
+end

data/lib/sunat_invoice/signature.rb

@@ -0,0 +1,87 @@
+# frozen_string_literal: true
+
+require_relative 'model'
+require_relative 'utils'
+require 'xmldsig'
+
+module SunatInvoice
+  class Signature < Model
+    include Utils
+
+    C14N_ALGORITHM            = 'http://www.w3.org/TR/2001/REC-xml-c14n-20010315'
+    DIGEST_ALGORITHM          = 'http://www.w3.org/2000/09/xmldsig#sha1'
+    SIGNATURE_ALGORITHM       = 'http://www.w3.org/2000/09/xmldsig#rsa-sha1'
+    TRANSFORMATION_ALGORITHM  = 'http://www.w3.org/2000/09/xmldsig#enveloped-signature'
+
+    attr_accessor :provider
+
+    def signer_data(xml)
+      xml['cac'].Signature do
+        xml['cbc'].ID provider.signature_id
+        xml['cac'].SignatoryParty do
+          xml['cac'].PartyIdentification do
+            xml['cbc'].ID provider.ruc
+          end
+          xml['cac'].PartyName do
+            xml['cbc'].Name provider.name
+          end
+        end
+        xml['cac'].DigitalSignatureAttachment do
+          xml['cac'].ExternalReference do
+            xml['cbc'].URI "##{provider.signature_location_id}"
+          end
+        end
+      end
+    end
+
+    def sign(invoice_xml)
+      Xmldsig::SignedDocument.new(invoice_xml, id_attr: provider.signature_location_id).sign(private_key)
+    end
+
+    def signature_ext(xml)
+      ubl_ext(xml) do
+        xml['ds'].Signature(Id: provider.signature_location_id) do
+          signed_info xml
+          signature_value xml
+        end
+      end
+    end
+
+    def signed_info(xml)
+      xml['ds'].SignedInfo do
+        xml['ds'].CanonicalizationMethod Algorithm: C14N_ALGORITHM
+        xml['ds'].SignatureMethod Algorithm: SIGNATURE_ALGORITHM
+        xml['ds'].Reference URI: '' do
+          xml['ds'].Transforms do
+            xml['ds'].Transform Algorithm: TRANSFORMATION_ALGORITHM
+          end
+          xml['ds'].DigestMethod Algorithm: DIGEST_ALGORITHM
+          xml['ds'].DigestValue
+        end
+      end
+    end
+
+    def signature_value(xml)
+      xml['ds'].SignatureValue
+      xml['ds'].KeyInfo do
+        xml['ds'].X509Data do
+          xml['ds'].X509Certificate encoded_certificate
+        end
+      end
+    end
+
+    private
+
+    def encoded_certificate
+      Base64.encode64(certificate.to_der).gsub(/\n/, '')
+    end
+
+    def private_key
+      OpenSSL::PKey::RSA.new(File.read(provider.pk_file))
+    end
+
+    def certificate
+      OpenSSL::X509::Certificate.new(File.read(provider.cert_file))
+    end
+  end
+end

data/lib/sunat_invoice/tax.rb

@@ -0,0 +1,62 @@
+# frozen_string_literal: true
+
+require_relative 'catalogs'
+require_relative 'utils'
+
+module SunatInvoice
+  class Tax < Model
+    include Utils
+
+    TAXES = {
+      igv: { id: '1000', name: 'IGV', tax_type_code: 'VAT' },
+      isc: { id: '2000', name: 'ISC', tax_type_code: 'EXC' },
+      other: { id: '9999', name: 'OTROS', tax_type_code: 'OTH' }
+    }.freeze
+
+    attr_accessor :amount, :tax_type, :tax_exemption_reason, :tier_range
+
+    def initialize(*args)
+      super(*args)
+      defaults_for_type(tax_type)
+    end
+
+    def defaults_for_type(type)
+      case type
+      when :igv
+        @tax_exemption_reason ||= Catalogs::CATALOG_07.first
+      when :isc
+        @tier_range ||= Catalogs::CATALOG_08.first
+      end
+    end
+
+    def xml(xml, currency)
+      xml['cac'].TaxTotal do
+        amount_xml(xml['cbc'], 'TaxAmount', amount, currency)
+        xml['cac'].TaxSubtotal do
+          amount_xml(xml['cbc'], 'TaxAmount', amount, currency)
+          tax_category(xml)
+        end
+      end
+    end
+
+    def tax_category(xml)
+      xml['cac'].TaxCategory do
+        xml['cbc'].TaxExemptionReasonCode(tax_exemption_reason) if tax_exemption_reason
+        xml['cbc'].TierRange(tier_range) if tier_range
+        tax_scheme(xml)
+      end
+    end
+
+    def tax_scheme(xml)
+      xml['cac'].TaxScheme do
+        xml['cbc'].ID tax_data(:id)
+        xml['cbc'].Name tax_data(:name)
+        xml['cbc'].TaxTypeCode tax_data(:tax_type_code)
+      end
+    end
+
+    def tax_data(attribute)
+      TAXES[tax_type][attribute]
+    end
+  end
+end

data/lib/sunat_invoice/tributer.rb

@@ -0,0 +1,10 @@
+# frozen_string_literal: true
+
+require_relative 'model'
+
+module SunatInvoice
+  class Tributer < Model
+    attr_accessor :ruc, :name, :document_type, :ubigeo, :street, :zone,
+                  :province, :department, :district, :country_code
+  end
+end

data/lib/sunat_invoice/utils.rb

@@ -0,0 +1,31 @@
+# frozen_string_literal: false
+
+module SunatInvoice
+  module Utils
+    @namespace_path = 'urn:oasis:names:specification:ubl:schema:xsd'
+    @sunat_namespace_path = 'urn:sunat:names:specification:ubl:peru:schema:xsd'
+
+    UBL_NAMESPACES = {
+      'xmlns' => "#{@namespace_path}:Invoice-2",
+      'xmlns:cac' => "#{@namespace_path}:CommonAggregateComponents-2",
+      'xmlns:cbc' => "#{@namespace_path}:CommonBasicComponents-2",
+      'xmlns:ccts' => 'urn:un:unece:uncefact:documentation:2',
+      'xmlns:ds' => 'http://www.w3.org/2000/09/xmldsig#',
+      'xmlns:ext' => "#{@namespace_path}:CommonExtensionComponents-2",
+      'xmlns:qdt' => "#{@namespace_path}:QualifiedDatatypes-2",
+      'xmlns:sac' => "#{@sunat_namespace_path}:SunatAggregateComponents-1",
+      'xmlns:udt' => 'urn:un:unece:uncefact:data:specification:UnqualifiedDataTypesSchemaModule:2',
+      'xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance'
+    }.freeze
+
+    def ubl_ext(xml, &block)
+      xml['ext'].UBLExtension do
+        xml['ext'].ExtensionContent(&block)
+      end
+    end
+
+    def amount_xml(xml, tag, price, currency)
+      xml.send(tag, price, currencyID: currency)
+    end
+  end
+end

data/lib/sunat_invoice.rb

@@ -0,0 +1,21 @@
+# frozen_string_literal: true
+
+require 'sunat_invoice/invoice'
+require 'sunat_invoice/provider'
+require 'sunat_invoice/customer'
+require 'sunat_invoice/item'
+require 'sunat_invoice/tax'
+require 'sunat_invoice/configuration'
+require 'sunat_invoice/client'
+require 'sunat_invoice/clients/invoice_client'
+
+module SunatInvoice
+  class << self
+    attr_accessor :configuration
+  end
+
+  def self.configure
+    self.configuration ||= Configuration.new
+    yield(configuration)
+  end
+end

data/sunat_invoice.gemspec

@@ -0,0 +1,25 @@
+# frozen_string_literal: true
+
+Gem::Specification.new do |s|
+  s.name = 'sunat_invoice'
+  s.version = '0.0.1'
+  s.summary = 'SOAP client to use SUNAT Electronic Invoice API'
+  s.description = s.summary
+  s.authors = ['César Carruitero']
+  s.email = ['cesar@mozilla.pe']
+  s.homepage = 'https://github.com/ccarruitero/sunat_invoice'
+  s.license = 'MPL-2.0'
+
+  s.files = `git ls-files`.split("\n")
+
+  s.add_dependency 'savon', '~> 2.11.2'
+  s.add_dependency 'nokogiri', '~> 1.8'
+  s.add_dependency 'rubyzip', '~> 1.2.1'
+  s.add_dependency 'xmldsig', '~> 0.6.5'
+
+  s.add_development_dependency 'cutest', '~> 1.2'
+  s.add_development_dependency 'factory_bot', '~> 4.8'
+  s.add_development_dependency 'ffaker', '~> 2.7'
+  s.add_development_dependency 'pry', '~> 0.11'
+  s.add_development_dependency 'rubocop', '~> 0.51'
+end

data/test/factories.rb

@@ -0,0 +1,48 @@
+# frozen_string_literal: false
+
+FactoryBot.define do
+  factory :tax, class: 'SunatInvoice::Tax' do
+    amount 20
+    tax_type :igv
+  end
+
+  factory :item, class: 'SunatInvoice::Item' do
+    quantity 10
+    unit_code 'NIU'
+    price 20
+    price_code '01'
+    description 'Grabadora Externo'
+  end
+
+  factory :invoice, class: 'SunatInvoice::Invoice' do
+    provider { build(:provider) }
+    customer { build(:customer) }
+
+    initialize_with { new(attributes) }
+  end
+
+  factory :provider, class: 'SunatInvoice::Provider' do
+    pk_file File.join(File.dirname(__FILE__), 'certs/pk_file')
+    cert_file File.join(File.dirname(__FILE__), 'certs/cert_file')
+    ruc FFaker::IdentificationMX.curp
+    name FFaker::Company.name
+    document_type 6
+    ubigeo '14'
+    street ''
+    zone ''
+    province ''
+    department ''
+    district ''
+    country_code ''
+
+    initialize_with { new(attributes) }
+  end
+
+  factory :customer, class: 'SunatInvoice::Customer' do
+    ruc FFaker::IdentificationMX.curp
+    name FFaker::Company.name
+    document_type 6
+
+    initialize_with { new(attributes) }
+  end
+end

data/test/helper.rb

@@ -0,0 +1,11 @@
+# frozen_string_literal: true
+require 'cutest'
+require 'pry'
+require 'ffaker'
+require 'factory_bot'
+require_relative '../lib/sunat_invoice'
+require_relative 'factories'
+
+Dir[File.join(File.dirname(__FILE__), 'support/**/*.rb')].each { |f| require f }
+
+SignatureHelper.generate_keys

data/test/invoice_client_test.rb

@@ -0,0 +1,41 @@
+# frozen_string_literal: true
+
+require_relative 'helper'
+
+scope 'SunatInvoice::InvoiceClient' do
+  setup do
+    provider = FactoryBot.build(:provider,
+                                  signature_id: 'signatureST',
+                                  signature_location_id: 'signQWI3',
+                                  ruc: '20100454523',
+                                  name: 'SOPORTE TECNOLOGICO EIRL')
+
+    customer = FactoryBot.build(:customer,
+                                  ruc: '20293028401',
+                                  name: 'SOME BUSINESS')
+    SunatInvoice.configure do |c|
+      c.account_ruc = provider.ruc
+      c.account_user = 'MODDATOS'
+      c.account_password = 'moddatos'
+      c.provider = provider
+    end
+    @client = SunatInvoice::InvoiceClient.new
+
+    tax = SunatInvoice::Tax.new(amount: 3.6, tax_type: :igv)
+    item = FactoryBot.build(:item, taxes: [tax])
+    @invoice = SunatInvoice::Invoice.new(provider: provider,
+                                         customer: customer,
+                                         document_number: 'FY02-234')
+    @invoice.items << item
+  end
+
+  test 'should use dev service when not define environment' do
+    assert_equal @client.wsdl, @client.dev_server
+  end
+
+
+  test '#send_invoice success' do
+    response = @client.send_invoice(@invoice.xml, @invoice.document_name)
+    assert_equal response.http.code, 200
+  end
+end

data/test/invoice_test.rb

@@ -0,0 +1,145 @@
+# frozen_string_literal: false
+require_relative 'helper'
+include SunatInvoice
+
+setup do
+  @provider = FactoryBot.build(:provider)
+  @invoice = FactoryBot.build(:invoice, provider: @provider)
+  tax = SunatInvoice::Tax.new(amount: 3.6, tax_type: :igv)
+  item_attr = { quantity: 10, price: 20, price_code: '01', taxes: [tax] }
+  @invoice.items << SunatInvoice::Item.new(item_attr)
+  @parsed_xml = Nokogiri::XML(@invoice.xml, &:noblanks)
+end
+
+test 'is not broken' do
+  assert !@invoice.nil?
+end
+
+test 'has namespaces' do
+  cbc = 'urn:oasis:names:specification:ubl:schema:xsd:CommonBasicComponents-2'
+  namespaces = @parsed_xml.css('Invoice').first.namespaces
+  assert_equal namespaces['xmlns:cbc'], cbc
+end
+
+test 'xml start with invoice tag' do
+  assert_equal @parsed_xml.root.name, 'Invoice'
+end
+
+test 'has a date' do
+  date = @parsed_xml.xpath('//cbc:IssueDate')
+  assert_equal date.first.content, DateTime.now.strftime('%Y-%m-%d')
+end
+
+test 'has a signature' do
+  # /ext:UBLExtensions/ext:UBLExtension/ext:ExtensionContent/ds:Signature
+  signature = @parsed_xml.xpath('//ext:UBLExtensions/ext:UBLExtension')
+  assert_equal signature.xpath('//ext:ExtensionContent/ds:Signature').count, 1
+
+  # /cac:Signature
+  signature = @parsed_xml.xpath('//cac:Signature')
+  assert_equal signature.count, 1
+end
+
+test 'has a registration name' do
+  provider = @parsed_xml.xpath('//cac:AccountingSupplierParty/cac:Party')
+  name = provider.xpath('//cac:PartyLegalEntity/cbc:RegistrationName')
+  assert_equal name.first.content, @provider.name
+end
+
+test 'has a name' do
+  provider = @parsed_xml.xpath('//cac:AccountingSupplierParty/cac:Party')
+  name = provider.xpath('//cac:PartyName/cbc:Name')
+  assert_equal name.first.content, @provider.name
+end
+
+test 'has an address' do
+  provider = @parsed_xml.xpath('//cac:AccountingSupplierParty/cac:Party')
+  ubigeo = provider.xpath('//cac:PostalAddress/cbc:ID')
+  assert_equal ubigeo.first.content, @provider.ubigeo
+
+  street = provider.xpath('//cac:PostalAddress/cbc:StreetName')
+  assert_equal street.first.content, @provider.street
+
+  urbanizacion = provider.xpath('//cac:PostalAddress/cbc:CitySubdivisionName')
+  assert_equal urbanizacion.first.content, @provider.zone
+
+  provincia = provider.xpath('//cac:PostalAddress/cbc:CityName')
+  assert_equal provincia.first.content, @provider.province
+
+  # Departamento
+  departamento = provider.xpath('//cac:PostalAddress/cbc:CountrySubentity')
+  assert_equal departamento.first.content, @provider.department
+
+  # Distrito
+  distrito = provider.xpath('//cac:PostalAddress/cbc:District')
+  assert_equal distrito.first.content, @provider.district
+
+  country_code_path = '//cac:PostalAddress/cac:Country/cbc:IdentificationCode'
+  country_code = provider.xpath(country_code_path)
+  assert_equal country_code.first.content, @provider.country_code.to_s
+end
+
+test 'has a ruc' do
+  provider = @parsed_xml.xpath('//cac:AccountingSupplierParty')
+  ruc = provider.xpath('//cbc:CustomerAssignedAccountID')
+  assert_equal ruc.first.content, @provider.ruc
+
+  document_type = provider.xpath('//cbc:AdditionalAccountID')
+  assert_equal document_type.first.content, @provider.document_type.to_s
+end
+
+test 'has an invoice type' do
+  invoice_type = @parsed_xml.xpath('//cbc:InvoiceTypeCode')
+  assert_equal invoice_type.first.content, @invoice.document_type
+end
+
+test 'has a correlative' do
+  tags = @parsed_xml.xpath('//cbc:ID')
+  correlative = tags.select { |tax| tax.parent.name == 'Invoice' }.first
+  assert_equal correlative.content, @invoice.document_number
+end
+
+test 'has a customer' do
+  customer = @parsed_xml.xpath('//cac:AccountingCustomerParty')
+  assert_equal customer.count, 1
+end
+
+test 'has at least one item' do
+  item = @parsed_xml.xpath('//cac:InvoiceLine')
+  assert item.count.positive?
+end
+
+test 'has total by kind of sale' do
+  tag = '//ext:UBLExtensions/ext:UBLExtension/ext:ExtensionContent/sac:AdditionalInformation'
+  additional_info = @parsed_xml.xpath(tag)
+  assert additional_info.count.positive?
+  assert_equal additional_info.first.children.count, 1
+  amount_tag = '//sac:AdditionalMonetaryTotal/cbc:PayableAmount'
+  assert_equal additional_info.xpath(amount_tag).first.content.to_f, 200.to_f
+end
+
+test 'has total tag' do
+  total = @parsed_xml.xpath('//cac:LegalMonetaryTotal')
+  assert total.count.positive?
+end
+
+test '#calculate_tax_totals' do
+  tax = FactoryBot.build(:tax, amount: 15)
+  invoice = FactoryBot.build(:invoice)
+  2.times do
+    invoice.items << FactoryBot.build(:item, taxes: [tax])
+  end
+  invoice.calculate_tax_totals
+  tax_totals = invoice.instance_variable_get('@tax_totals')
+  assert_equal tax_totals.count, 1
+  assert_equal tax_totals[:igv], 300
+end
+
+test '#get_total_igv_code' do
+  invoice = SunatInvoice::Invoice.new
+  assert_equal invoice.get_total_igv_code('11'), '1004'
+  assert_equal invoice.get_total_igv_code('15'), '1004'
+  assert_equal invoice.get_total_igv_code('20'), '1003'
+  assert_equal invoice.get_total_igv_code('32'), '1002'
+  assert invoice.get_total_igv_code('42').nil?
+end

data/test/item_test.rb

@@ -0,0 +1,110 @@
+# frozen_string_literal: true
+require_relative 'helper'
+include SunatInvoice
+
+setup do
+  @item = SunatInvoice::Item.new(quantity: 200, price: 69, price_code: '01',
+                                 description: 'item description',
+                                 unit_code: 'NIU')
+  @item.taxes << SunatInvoice::Tax.new(amount: 12.42, tax_type: :igv)
+  invoice_setup
+end
+
+def invoice_setup
+  # add item to invoice in order to setup namespaces
+  invoice = FactoryBot.build(:invoice)
+  invoice.items << @item
+  invoice_xml = Nokogiri::XML(invoice.xml, &:noblanks)
+  @item_xml = invoice_xml.xpath('//cac:InvoiceLine')
+end
+
+test 'not broken' do
+  assert !@item.nil?
+end
+
+# xml
+test 'has unit code and quantity' do
+  quantity = @item_xml.xpath('//cbc:InvoicedQuantity')
+  assert quantity.count.positive?
+  assert_equal @item.quantity.to_s, quantity.first.content
+
+  # /Invoice/cac:InvoiceLine/cbc:InvoicedQuantity/@unitCode
+  attributes = quantity.first.attributes
+  assert_equal attributes.keys, ['unitCode']
+  assert_equal attributes['unitCode'].value, @item.unit_code
+end
+
+test 'has a description' do
+  description = @item_xml.xpath('//cbc:Description')
+  assert_equal @item.description, description.first.content
+end
+
+test 'has unit prices' do
+  price = @item_xml.xpath('//cac:Price/cbc:PriceAmount')
+  assert_equal @item.price.to_s, price.first.content
+  # /Invoice/cac:InvoiceLine/cac:Price/cbc:PriceAmount/@currencyID
+  assert_equal price.first.attributes.keys, ['currencyID']
+  assert_equal price.first.attributes['currencyID'].value, 'PEN'
+
+  ref_pricing = @item_xml.xpath('//cac:PricingReference')
+  alt_condition_price = ref_pricing.xpath('//cac:AlternativeConditionPrice')
+  assert_equal 1, alt_condition_price.count
+
+  tag = '//cac:AlternativeConditionPrice/cbc:PriceAmount'
+  alt_price = ref_pricing.xpath(tag)
+  assert_equal @item.sale_price.to_s, alt_price.first.content
+  # //cac:AlternativeConditionPrice/cbc:PriceAmount/@currencyID
+
+  price_type = alt_condition_price.xpath('//cbc:PriceTypeCode')
+  assert_equal @item.price_code, price_type.first.content
+end
+
+# taxes
+test 'has taxes' do
+  taxes = @item_xml.xpath('//cac:InvoiceLine/cac:TaxTotal')
+  assert_equal 1, taxes.count
+end
+
+test 'has amount in correct tag' do
+  tag_path = '//cac:InvoiceLine/cac:TaxTotal/cbc:TaxAmount'
+  amount = @item_xml.xpath(tag_path)
+  assert_equal amount.count, 1
+  assert_equal amount.first.content, '12.42'
+  # cac:TaxTotal/cbc:TaxAmount/@currencyID
+end
+
+test 'has correct values in TaxScheme' do
+  tag_path = '//cac:TaxTotal/cac:TaxSubtotal/cac:TaxCategory/cac:TaxScheme'
+  id = @item_xml.xpath("#{tag_path}/cbc:ID")
+  assert_equal id.first.content, '1000'
+
+  name = @item_xml.xpath("#{tag_path}/cbc:Name")
+  assert_equal name.first.content, 'IGV'
+
+  tax_code = @item_xml.xpath("#{tag_path}/cbc:TaxTypeCode")
+  assert_equal tax_code.first.content, 'VAT'
+end
+
+scope '#sale_taxes' do
+  setup do
+    tax = SunatInvoice::Tax.new(amount: 10.8, tax_type: :igv)
+    @item = SunatInvoice::Item.new(quantity: 2, price: 60, taxes: [tax])
+  end
+
+  test 'return a hash' do
+    assert_equal @item.sale_taxes.class, Hash
+  end
+
+  test 'has tax_type and total tax for item' do
+    assert_equal @item.sale_taxes.count, 1
+    assert_equal @item.sale_taxes.keys, [:igv]
+    assert_equal @item.sale_taxes.values, [21.6]
+  end
+
+  test 'has sum by tax_type' do
+    @item.taxes << SunatInvoice::Tax.new(amount: 5, tax_type: :isc)
+    assert_equal @item.sale_taxes.count, 2
+    assert_equal @item.sale_taxes.keys, [:igv, :isc]
+    assert_equal @item.sale_taxes.values, [21.6, 10]
+  end
+end

data/test/support/signature_helper.rb

@@ -0,0 +1,30 @@
+module SignatureHelper
+  def self.generate_keys
+    pk = OpenSSL::PKey::RSA.new 2048
+    name = OpenSSL::X509::Name.parse('CN=example.com/C=EE')
+    cert = OpenSSL::X509::Certificate.new
+    cert.version    = 2
+    cert.serial     = 0
+    cert.not_before = Time.now
+    cert.not_after  = cert.not_before + 1 * 365 * 24 * 60 * 60
+    cert.public_key = pk.public_key
+    cert.subject    = name
+    cert.issuer     = name
+    cert.sign pk, OpenSSL::Digest::SHA1.new
+
+    unless exists?('pk_file')
+      cert_dir = "#{File.dirname(__FILE__)}/../certs"
+      Dir.mkdir(cert_dir) unless Dir.exist?(cert_dir)
+      File.open(file('pk_file'), 'w') { |f| f.puts pk.to_pem  }
+      File.open(file('cert_file'), 'w') { |f| f.puts cert.to_pem  }
+    end
+  end
+
+  def self.file(name)
+    File.join(File.dirname(__FILE__), "../certs/#{name}")
+  end
+
+  def self.exists?(name)
+    File.exists?(file(name))
+  end
+end