#!/usr/bin/perl -w
# Ïåðåäà÷à ðåãèñòðàòîðó Test1
#Òóò don22200.ru - íàø äîìåí, upanishadixxx.ru - íàø äîìåí, íî ìû åãî åùå íå ïðèíÿëè (ò.å. ôàêòè÷åñêè åùå íå íàø) , sex.ru, trax007.ru, air.ru - íå íàø äîìåí, upanishadixxx21.ru - íåñóùåñòâóþùèé äîìåí, sex170004536_74323.ru - íåâàëèäíûé äîìåí
use strict;
use lib qw( . /www/srs/modules );
use Test::More;
use Data::Dumper;
use Getopt::Long;
use Time::Seconds;
use Getopt::Long;
use WebMySQLDBI();
use SRS::Utils qw( lstjoin dumper_sorted );
use SRS::Const;
use SRS::Comm::FIDSU;
# ---------------- CMDLINE -----------------
my $Type = 'UPDATE';
my $query_text = SRS::Comm::FIDSU::fidsu_flex_action(
'UPDATE', {drtp => 1}, &ExampleStructure( $Type )
);
print 'ok!'.$query_text.'~';
exit;
sub ExampleStructure{
my $Type = shift || 'UPDATE';
my $Examples = {
'UPDATE' => {
'don22200.ru' =>
qq[reg-ch: TESTREGRU1-REG-RIPN
],
'sex.ru' =>
qq[reg-ch: TESTREGRU1-REG-RIPN
],
'trax007.ru' =>
qq[reg-ch: TESTREGRU21-REG-RIPN
],
'upanishadixxx.ru' =>
qq[reg-ch: TESTREGRU1-REG-RIPN
],
'upanishadixxx21.ru' =>
qq[reg-ch: TESTREGRU1-REG-RIPN
],
'sex170004536_74323.ru' =>
qq[reg-ch: TESTREGRU2-REG-RIPN
],
'air.ru' =>
qq[reg-ch: TESTREGRU3-REG-RIPN
]
}
};
return $Examples->{$Type};
}