Package: otrs2
Version: 6.0.16-2
Severity: important
Tags: a11y patch

Dear Maintainer,

*** Reporter, please consider answering these questions, where appropriate ***

   * What led up to the situation?
   * What exactly did you do (or not do) that was effective (or
     ineffective)?
   * What was the outcome of this action?
   * What outcome did you expect instead?

*** End of the template - remove these template lines ***


-- System Information:
Debian Release: 10.0
  APT prefers testing
  APT policy: (500, 'testing')
Architecture: amd64 (x86_64)

Kernel: Linux 4.15.18-12-pve (SMP w/32 CPU cores)
Kernel taint flags: TAINT_PROPRIETARY_MODULE, TAINT_OOT_MODULE
Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8), 
LANGUAGE=en_US.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/dash
Init: systemd (via /run/systemd/system)

Versions of packages otrs2 depends on:
ii  adduser                             3.118
ii  apache2 [httpd-cgi]                 2.4.38-3
ii  dbconfig-common                     2.0.11
ii  debconf [debconf-2.0]               1.5.71
ii  fonts-font-awesome                  5.0.10+really4.7.0~dfsg-1
ii  libapache-dbi-perl                  1.12-2
ii  libapache2-reload-perl              0.13-2
ii  libauthen-sasl-perl                 2.1600-1
ii  libcgi-pm-perl                      4.40-1
ii  libclass-accessor-lite-perl         0.08-1
ii  libcrypt-eksblowfish-perl           0.009-2+b5
ii  libcrypt-passwdmd5-perl             1.40-1
ii  libcrypt-ssleay-perl                0.73.06-1+b1
ii  libcss-minifier-perl                0.01-2
ii  libdate-pcalc-perl                  6.1-6+b2
ii  libdatetime-perl                    2:1.50-1+b1
ii  libdbd-mysql-perl                   4.050-2
ii  libdbd-pg-perl                      3.7.4-3
ii  libdbi-perl                         1.642-1+b1
pn  libdigest-sha-perl                  <none>
ii  libemail-valid-perl                 1.202-1
ii  libencode-hanextra-perl             0.23-5+b1
ii  libexcel-writer-xlsx-perl           0.99-1
ii  libgd-graph-perl                    1.54~ds-2
ii  libgd-perl [libgd-gd2-perl]         2.71-2
ii  libgd-text-perl                     0.86-9
ii  libhtml-parser-perl                 3.72-3+b3
ii  libhtml-tagset-perl                 3.20-3
ii  libhtml-truncate-perl               0.20-2
ii  libio-interactive-perl              1.022-1
ii  libio-stringy-perl                  2.111-3
ii  libjavascript-minifier-perl         1.14-1
ii  libjson-perl                        4.02000-1
ii  libjson-xs-perl                     3.040-1+b1
ii  liblingua-translit-perl             0.28-1
ii  liblinux-distribution-perl          0.23-1
ii  libmail-imapclient-perl             3.42-1
ii  libmail-pop3client-perl             2.19-1
ii  libmailtools-perl                   2.18-1
ii  libmime-tools-perl                  5.509-1
ii  libmodule-refresh-perl              0.17-1
ii  libnet-imap-simple-perl             1.2211-1
ii  libnet-imap-simple-ssl-perl         1.3-4
ii  libnet-ldap-perl                    1:0.6500+dfsg-1
ii  libnet-smtp-ssl-perl                1.04-1
ii  libnet-smtp-tls-butmaintained-perl  0.24-2
ii  libnet-sslglue-perl                 1.058-1
ii  libpdf-api2-perl                    2.033-1
ii  libpod-strip-perl                   1.02-2
ii  libproc-daemon-perl                 0.23-1
ii  libschedule-cron-events-perl        1.95-1
ii  libsisimai-perl                     4.24.1-1
ii  libsoap-lite-perl                   1.27-1
ii  libsys-hostname-long-perl           1.5-1
ii  libtemplate-perl                    2.27-1+b1
ii  libtext-csv-perl                    1.99-1
ii  libtext-csv-xs-perl                 1.38-1
ii  libtext-diff-perl                   1.45-1
ii  libxml-feedpp-perl                  0.95-1
ii  libxml-libxml-perl                  2.0134+dfsg-1
ii  libxml-libxml-simple-perl           0.99-1
ii  libxml-libxslt-perl                 1.96-1+b1
ii  libxml-parser-lite-perl             0.722-1
ii  libxml-parser-perl                  2.44-4
ii  libxml-simple-perl                  2.25-1
ii  libyaml-libyaml-perl                0.76+repack-1
ii  libyaml-perl                        1.27-1
ii  perl                                5.28.1-6
ii  ttf-dejavu-core                     2.37-1
ii  ttf-dejavu-extra                    2.37-1
ii  ucf                                 3.0038+nmu1

Versions of packages otrs2 recommends:
ii  aspell                                    0.60.7~20110707-6
ii  postgresql-client                         11+200+deb10u1
ii  postgresql-client-10 [postgresql-client]  10.5-1
ii  postgresql-client-11 [postgresql-client]  11.4-1
ii  procmail                                  3.22-26

Versions of packages otrs2 suggests:
ii  default-mysql-server  1.0.5

-- debconf information:
  otrs2/mysql/admin-pass: (password omitted)
  otrs2/pgsql/admin-pass: (password omitted)
  otrs2/password-confirm: (password omitted)
  otrs2/mysql/app-pass: (password omitted)
  otrs2/app-password-confirm: (password omitted)
  otrs2/pgsql/app-pass: (password omitted)
  otrs2/pgsql/authmethod-user: ident
  otrs2/purge: false
  otrs2/remove-error: abort
  otrs2/mysql/method: Unix socket
  otrs2/pgsql/admin-user: postgres
* otrs2/dbconfig-install: true
  otrs2/pgsql/authmethod-admin: ident
  otrs2/install-error: abort
  otrs2/db/app-user: otrs@localhost
  otrs2/pgsql/no-empty-passwords:
  otrs2/dbconfig-reinstall: false
  otrs2/upgrade-backup: true
  otrs2/db/dbname: otrs2
* otrs2/database-type: mysql
  otrs2/dbconfig-upgrade: true
  otrs2/internal/reconfiguring: false
  otrs2/dbconfig-remove: true
  otrs2/internal/skip-preseed: false
  otrs2/pgsql/manualconf:
  otrs2/pgsql/changeconf: false
  otrs2/remote/host: localhost
* otrs2/passwords-do-not-match:
  otrs2/db/basepath:
  otrs2/remote/newhost:
  otrs2/remote/port:
  otrs2/missing-db-package-error: abort
  otrs2/upgrade-error: abort
  otrs2/pgsql/method: TCP/IP
* otrs2/mysql/admin-user: root

The problem occurs when the day is only single digits. In my case, the day for 
the start date is 3 and the end date is 2.
CERT = {
          'Private' => 'Yes',
          'Fingerprint' => 
'DD:69:86:F4:13:BC:62:C1:D5:5B:EF:6C:75:DC:B2:87:8C:65:90:88',
          'Hash' => '387b62a6',
          'StartDate' => 'Jul  3 07:43:39 2019 GMT',
          'ShortEndDate' => '2022-07-02',
          'ShortStartDate' => '2019-07-03',
          'Subject' => 'C =  DE, O =  ....',
          'Filename' => '387b62a6.0',
          'Email' => 'mail@mail',
          'Serial' => 'XXXX',
          'Modulus' => '...',
          'Type' => 'key',
          'EndDate' => 'Jul  2 07:43:39 2022 GMT',
          'Issuer' => 'C =  DE, O = ...'
        };

On the one hand, the regular expression is not processed correctly:

Org:
        $DataRef->{EndDate} =~ 
/(\w+)\s(\d\d)\s(\d\d:\d\d:\d\d)\s(\d\d\d\d)\s(\w+)/;

Correct is:
        $DataRef->{EndDate} =~ 
/(\w+)\s+(\d?\d)\s(\d?\d:\d?\d:\d?\d)\s+([\d]{4})\s(\w+)/;

On the other hand the class DateTime apparently needs the leading zero
        
Org:
        String => "$4-$Month{$1}-$2T$3
Correct is:
         String => sprintf('%d-%02d-%02dT%s%s',$4,$Month{$1},$2,$3,$5),




my patch for file /usr/share/otrs/Kernel/Output/HTML/ArticleCompose/Sign.pm
# diff Sign.pm Sign.pm.org
243c243
<               $DataRef->{EndDate} =~
/(\w+)\s+(\d?\d)\s(\d?\d:\d?\d:\d?\d)\s+([\d]{4})\s(\w+)/;
---
>                 $DataRef->{EndDate} =~
>                 /(\w+)\s(\d\d)\s(\d\d:\d\d:\d\d)\s(\d\d\d\d)\s(\w+)/;
245a246
>                     Jan => '01',
262c263
<                       String =>
sprintf('%d-%02d-%02dT%s%s',$4,$Month{$1},$2,$3,$5),
---
>                         String => "$4-$Month{$1}-$2T$3$5",


Robert
243c243
<                 $DataRef->{EndDate} =~ 
/(\w+)\s(\d\d)\s(\d\d:\d\d:\d\d)\s(\d\d\d\d)\s(\w+)/;
---
>               $DataRef->{EndDate} =~ 
> /(\w+)\s+(\d?\d)\s(\d?\d:\d?\d:\d?\d)\s+([\d]{4})\s(\w+)/;
246d245
<                     Jan => '01',
263c262
<                         String => "$4-$Month{$1}-$2T$3$5",
---
>                       String => 
> sprintf('%d-%02d-%02dT%s%s',$4,$Month{$1},$2,$3,$5),
243c243
<                 $DataRef->{EndDate} =~ 
/(\w+)\s(\d\d)\s(\d\d:\d\d:\d\d)\s(\d\d\d\d)\s(\w+)/;
---
>               $DataRef->{EndDate} =~ 
> /(\w+)\s+(\d?\d)\s(\d?\d:\d?\d:\d?\d)\s+([\d]{4})\s(\w+)/;
246d245
<                     Jan => '01',
263c262
<                         String => "$4-$Month{$1}-$2T$3$5",
---
>                       String => 
> sprintf('%d-%02d-%02dT%s%s',$4,$Month{$1},$2,$3,$5),

Reply via email to