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)));
