Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --- 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);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement