Package: asused
Version: 3.72-11
Severity: grave
Tags: patch
Justification: renders package unusable
Dear Maintainer,
* What led up to the situation?
Rabe obsoletes the changed field and added the created field. Asused re
* What exactly did you do (or not do) that was effective (or
ineffective)?
I changed the in.pm module to lokk ad cr instead of ch attribute
* What was the outcome of this action?
It works now again :-)
* What outcome did you expect instead?
-- System Information:
Debian Release: stretch/sid
APT prefers unstable
APT policy: (500, 'unstable'), (1, 'experimental')
Architecture: amd64 (x86_64)
Foreign Architectures: i386
Kernel: Linux 4.1.0-1-amd64 (SMP w/6 CPU cores)
Locale: LANG=en_GB.utf8, LC_CTYPE=en_GB.utf8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash
Init: systemd (via /run/systemd/system)
Versions of packages asused depends on:
ii perl 5.20.2-6
asused recommends no packages.
asused suggests no packages.
-- no debconf information
--- in.pm.orig 2015-09-24 10:13:26.412669531 +0200
+++ in.pm 2015-09-24 10:26:50.724168595 +0200
@@ -355,6 +355,10 @@
# Changed
push(@{$in{'ch'}}, $value);
}
+ elsif($inetnum && $attr eq 'cr') {
+ # Created
+ push(@{$in{'cr'}}, $value);
+ }
elsif($inetnum && $attr eq 'so') {
# Source
$in{'so'} = $value;
@@ -373,14 +377,14 @@
# Get creation date for valid inetnum object
if($inetnum) {
# Validate date
- my $date = $self->creationDate(@{$in{'ch'}});
+ my $date = $self->creationDate(@{$in{'cr'}});
if($date) {
$in{'created'} = $date;
}
else {
$self->error($INVALID_DATE,
- ("Invalid date in " . join('; ', @{$in{'ch'}})));
+ ("Invalid date in " . join('; ', @{$in{'cr'}})));
push(@{$in{'warning'}}, ($self->error())[1]);
}
@@ -560,7 +564,7 @@
my @dateList;
#don't trust the date from db
foreach my $dateStr (@ch) {
- if($dateStr =~ /(\d+)$/) {
+ if($dateStr =~ /([\d\-]+)(T.*)?$/) {
my $date = $1;
return unless ($date = checkYYYYmmDD($date)) ; #look if it is valid date
push(@dateList, $date); #make list of valid dates
@@ -583,6 +587,8 @@
my($yy, $mm, $dd, $utc, $yyActual, $mmActual, $ddActual, $date);
my($sec, $min, $hour, $wday, $yday, $isdst); # Temp vars
+ $yyyyMMdd =~ s/\-//g;
+
#YYYYMMDD
if($yyyyMMdd =~ /^(\d{4})(\d{2})(\d{2})$/) {
$yy = $1 - 1900;
@@ -655,6 +661,7 @@
$dest->{'ac'} = []; # list of admin-c values
$dest->{'tc'} = []; # list of tech-c values
$dest->{'ch'} = []; # list of changed values
+ $dest->{'cr'} = []; # list of created values
$dest->{'so'} = ''; # source
$dest->{'ml'} = []; # list of mnt-lower
$dest->{'na'} = ''; # netname
