2abills.pl.diff

--- 2abills.pl.orig     2010-10-18 21:45:20.000000000 +0400
+++ 2abills.pl  2011-08-16 03:56:09.000000000 +0400
@@ -47,7 +47,7 @@
         }
 }

-my $db = DBI->connect("dbi:$dbtype:dbname=$dbname", "$dbuser", "$dbpasswd")
+my $db = DBI->connect("dbi:$dbtype:dbname=$dbname:host=$dbhost", "$dbuser", "$dbpasswd")
  || die "Unable connect to server '$dbhost'\n" . $DBI::errstr;

 if ( $ARGV->{DB_CHARSET} ) {
@@ -454,6 +454,11 @@
 #
 #**********************************************************
 sub get_utm4_users {
+#
+#  grant select(id,login,password,credit,actual_address,email,
+#               full_name,ip,tariff,bill,reg_date,block)
+#  on UTM4.users to abills@localhost;
+#
     my %fields = (
     'LOGIN'        => 'login',
     'PASSWORD'     => 'password',
@@ -463,12 +468,12 @@
   '1.CREDIT'        => 'credit',
 #  '1.GID'            => '',
 #  '1.REDUCTION'    => '',
-#  '1.REGISTRATION' => 'add_date',
-#  '1.DISABLE'      => 'blocked',
+  '1.REGISTRATION' => 'DATE_FORMAT(FROM_UNIXTIME(reg_date), \'%Y-%m-%d\')',
+  '1.DISABLE'      => 'block',


 #  '3.ADDRESS_FLAT'   => '',
-  '3.ADDRESS_STREET' => 'address',
+  '3.ADDRESS_STREET' => 'actual_address',
 #  '3.ADDRESS_BUILD'  => '',
 #  '3.COMMENTS'       => '',
 #  '3.CONTRACT_ID'      => '',
@@ -503,7 +508,7 @@
     );

  my %fields_rev = reverse(%fields);
- my $fields_list = "user, ". join(", \n", values(%fields));
+ my $fields_list = "id, ". join(", \n", values(%fields));

  my $sql = "SELECT $fields_list FROM users";
  print "$sql\n" if ($debug > 0);