a { UXɼ # эh^ 0
lcMD2)|f^H9
q
h
W
G
.
12345678
testset 12345678
summary 12345678stime 12345678
28800star 12 12345678
testset 12345678 12345678
testset 12345678
summary 12345678stime 12345678
28800startdatewindow 12345678
startdateplanned 12345678_g startdateactual 12345678sortKeys 12345678
$6B5A549E-81C5-1014-A92E-C7C8228D1D54
$BD0CA390-CBA6-11E8-8C73-7CB0F0BA2977 pat atm_idselectors 12345678
pauserunmode 12345678 passresultCounters 12345678 resList 12345678 reqSelectors 12345678reordered 12345678numUntested 12345678notified 12345678_g mtime 12345678locked 12345678
0lastTest 12345678isActive 12345678 disabled 12345678
FS_47.003_Blank_Page_Suppressiondescription 12345678 dbdata 12345678currTest 12345678Af ctime
zcZH<* эh^ 12345678
isDefault
Isolated_Network value network_tested isDefault
Wired value network 12345678
isDefault
Isolated_Network value network_tested isDefault
Wired value network isDefault
Chrome value browser isDefault
Test_Case value testing_type isDefault
D8.5_Platform value branch_to_test isDefault
Windows_XP value os isDefault
Carroll_SFP value program isDefault
FPR-1 value drp_pass isDefault
Ipv4 value network_interface isDefault
Copy&Print value teamvariables 12345678
r77LR6XMuser 12345678tpno 12345678 runSelectors 12345678refreshable 12345678numtests 12345678
28800enddatewindow 12345678
enddateplanned 12345678_g enddateactual 12345678
assignedtor TEST_0 12345678
isolated_network network_tested
wired network
122.039.004.28910 dvc_ver
atm_step_notes
ie_5 browser
pass atm_step_results
windows_xp os
atm_prid
r77LR6XM user
1m content
Actual Staff Time label
1 raw
exectimestaff
Oct 21, 2024, 7:35:51 PM IST content
Last Execution Time label_g raw when
Isolated Network content
Network Tested label
isolated_network raw network_tested
*122.039.004.28910
content
Device Software Version label
122.039.004.28910 raw dvc_ver
Wired content
What network connection? label
wired raw network
content
Problem Report Links label
raw
atm_prlink
na content
Latest Execution Note label
na raw notetext
IE 5 content
What Browser? label
ie_5 raw browser
content
Print Driver Version label
raw
driver_ver
content
Problem Report IDs label
raw atm_prid
Windows XP content
What Operating System label
windows_xp raw os
"Srinivasarao, Kollapudi (External) content
Run By label
r77LR6XM raw user
Ipv4 content
Network Interface label
ipv4 raw network_interface
Corrib content
Product Name label
corrib raw product
!pass content
Result label
pass raw results
1729519551 atm_rundatahistory
QWFAST_Copy-Print.dir/Testcases.dir/FS_47.003_Blank_Page_Suppression.dir/21772.bts id_g when
1
exectimestaff
atm_prlink
driver_ver
ina note
ina notes
$6B5A549E-81C5-1014-A92E-C7C8228D1D54 atm_id
corrib product
ipv4 network_interface
pass resultse::OlsonDB::Zone;
my $x = 1;
our %MONTHS = map { $_ => $x++ } qw( Jan Feb Mar Apr May Jun
Jul Aug Sep Oct Nov Dec);
$x = 1;
our %DAYS = map { $_ => $x++ } qw( Mon Tue Wed Thu Fri Sat Sun );
our $PLUS_ONE_DAY_DUR = DateTime::Duration->new( days => 1 );
our $MINUS_ONE_DAY_DUR = DateTime::Duration->new( days => -1 );
sub new {
my $class = shift;
return bless {
rules => {},
zones => {},
links => {},
}, $class;
}
sub parse_file {
my $self = shift;
my $file = shift;
open my $fh, '<', $file
or die "Cannot read $file: $!";
while (<$fh>) {
chomp;
$self->_parse_line($_);
}
close $fh or die $!;
}
sub _parse_line {
my $self = shift;
my $line = shift;
return if $line =~ /^\s+$/;
return if $line =~ /^#/;
# remove any comments at the end of the line
$line =~ s/\s*#.+$//;
if ( $self->{in_zone} && $line =~ /^[ \t]/ ) {
$self->_parse_zone( $line, $self->{in_zone} );
return;
}
foreach (qw( Rule Zone Link )) {
if ( substr( $line, 0, 4 ) eq $_ ) {
my $m = '_parse_' . lc $_;
$self->$m($line);
}
}
}
## no critic (Subroutines::ProhibitUnusedPrivateSubroutines)
sub _parse_rule {
my $self = shift;
my $rule = shift;
my @items = split /\s+/, $rule, 10;
shift @items;
my $name = shift @items;
my %rule;
@rule{qw( from to type in on at save letter )} = @items;
delete $rule{letter} if $rule{letter} eq '-';
# As of the 2003a data, there are no rules with a type set
delete $rule{type} if $rule{type} eq '-';
push @{ $self->{rules}{$name} },
DateTime::TimeZone::OlsonDB::Rule->new( name => $name, %rule );
undef $self->{in_zone};
}
sub _parse_zone {
my $self = shift;
my $zone = shift;
my $name = shift;
my $expect = $name ? 5 : 6;
my @items = grep { defined && length } split /\s+/, $zone, $expect;
my %obs;
unless ($nam