FS/FS/part_export/domain_sql.pm

   1 package FS::part_export::domain_sql;
   2 use base qw( FS::part_export::sql_Common );
   3
   4 use strict;
   5 use vars qw(%info);
   6 use Tie::IxHash;
   7 use FS::part_export;
   8
   9 tie my %options, 'Tie::IxHash', %{__PACKAGE__->sql_options};
  10
  11 tie my %postfix_transport_map, 'Tie::IxHash',
  12   'domain' => 'domain'
  13 ;
  14 my $postfix_transport_map =
  15   join('\n', map "$_ $postfix_transport_map{$_}",
  16                  keys %postfix_transport_map      );
  17 tie my %postfix_transport_static, 'Tie::IxHash',
  18   'transport' => 'virtual:',
  19 ;
  20 my $postfix_transport_static =
  21   join('\n', map "$_ $postfix_transport_static{$_}",
  22                  keys %postfix_transport_static      );
  23
  24 %info  = (
  25   'svc'     => 'svc_domain',
  26   'desc'    => 'Real time export of domains to SQL databases '.
  27                '(postfix, others?)',
  28   'options' => \%options,
  29   'no_machine' => 1,
  30   'notes'   => <<END
  31 Export domains (svc_domain records) to SQL databases.  Currently this is a
  32 simple export with a default for Postfix, but it can be extended for other
  33 uses.
  34
  35 <BR><BR>Use these buttons for useful presets:
  36 <UL>
  37   <LI><INPUT TYPE="button" VALUE="postfix_transport" onClick='
  38     this.form.table.value = "transport";
  39     this.form.schema.value = "$postfix_transport_map";
  40     this.form.static.value = "$postfix_transport_static";
  41     this.form.primary_key.value = "domain";
  42   '>
  43 </UL>
  44 END
  45 );
  46
  47 # inherit everything else from sql_Common
  48
  49 1;
  50