Package: dpkg-dev Version: 1.13.19 Severity: wishlist Tags: patch Patch attached. alternatively, it could just be aone line shell script that runs date --rfc-822
Thanks, -- System Information: Debian Release: testing/unstable APT prefers unstable APT policy: (500, 'unstable') Architecture: i386 (i686) Shell: /bin/sh linked to /bin/bash Kernel: Linux 2.6.16-1-686 Locale: LANG=en_US.UTF-8, LC_CTYPE=en_US.UTF-8 (charmap=UTF-8) (ignored: LC_ALL set to en_US.UTF-8) Versions of packages dpkg-dev depends on: ii binutils 2.16.1cvs20060413-1 The GNU assembler, linker and bina ii cpio 2.6-11 GNU cpio -- a program to manage ar ii dpkg 1.13.19 package maintenance system for Deb ii make 3.81-2 The GNU version of the "make" util ii patch 2.5.9-4 Apply a diff file to an original ii perl [perl5] 5.8.8-4 Larry Wall's Practical Extraction ii perl-modules 5.8.8-4 Core Perl modules Versions of packages dpkg-dev recommends: ii bzip2 1.0.3-2 high-quality block-sorting file co ii gcc [c-compiler] 4:4.0.3-3 The GNU C compiler ii gcc-3.4 [c-compiler] 3.4.6-1 The GNU C compiler ii gcc-4.0 [c-compiler] 4.0.3-3 The GNU C compiler -- no debconf information -- ----------------------------------------------------------------- | ,''`. Stephen Gran | | : :' : [EMAIL PROTECTED] | | `. `' Debian user, admin, and developer | | `- http://www.debian.org | -----------------------------------------------------------------
--- /usr/bin/822-date 2006-05-04 06:08:59.000000000 -0500 +++ 822-date 2006-05-17 14:58:24.000000000 -0500 @@ -1,56 +1,8 @@ -#!/usr/bin/perl -- -# I hereby place this in the public domain - Ian Jackson, 1995. -# Changes by Klee Dienes also placed in public domain (1997). +#!/usr/bin/perl -# time structure: -# [ sec min hour mday mon year wday yday isdst ] +# Really too trivial to copyright, but public domain will do if asked +# Stephen Gran <[EMAIL PROTECTED]> 2006 [EMAIL PROTECTED] && die "usage: 822-date\n"; +use POSIX qw(strftime); -$curtime = time; [EMAIL PROTECTED] = localtime ($curtime); -$localtms = localtime ($curtime); [EMAIL PROTECTED] = gmtime ($curtime); -$gmttms = gmtime ($curtime); - -if ($localtm[0] != $gmttm[0]) { - die (sprintf ("local timezone differs from GMT by a non-minute interval\n" - . "local time: %s\n" - . "GMT time: %s\n", $localtms, $gmttms)); -} - -$localmin = $localtm[1] + $localtm[2] * 60; -$gmtmin = $gmttm[1] + $gmttm[2] * 60; - -if ((($gmttm[6] + 1) % 7) == $localtm[6]) { - $localmin += 1440; -} elsif ((($gmttm[6] - 1) % 7) == $localtm[6]) { - $localmin -= 1440; -} elsif ($gmttm[6] == $localtm[6]) { - 1; -} else { - die ("822-date: local time offset greater than or equal to 24 hours\n"); -} - -$offset = $localmin - $gmtmin; -$offhour = $offset / 60; -$offmin = abs ($offset % 60); - -if (abs ($offhour) >= 24) { - die ("822-date: local time offset greater than or equal to 24 hours\n"); -} - -printf - ( - "%s, %2d %s %d %02d:%02d:%02d %s%02d%02d\n", - (Sun,Mon,Tue,Wed,Thu,Fri,Sat)[$localtm[6]], # day of week - $localtm[3], # day of month - (Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec)[$localtm[4]], # month - $localtm[5]+1900, # year - $localtm[2], # hour - $localtm[1], # minute - $localtm[0], # sec - ($offset >= 0) ? '+' : '-',# TZ offset direction - abs ($offhour), # TZ offset hour - $offmin, # TZ offset minute - ) || die "822-date: output error: $!\n"; +printf "%s\n ", strftime("%a, %d %B %Y %T %z", (localtime(time)));