This file is indexed.

/usr/share/git-gui/lib/date.tcl is in git-gui 1:2.1.4-2.1+deb8u6.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
# git-gui date processing support
# Copyright (C) 2007 Shawn Pearce

set git_month(Jan)  1
set git_month(Feb)  2
set git_month(Mar)  3
set git_month(Apr)  4
set git_month(May)  5
set git_month(Jun)  6
set git_month(Jul)  7
set git_month(Aug)  8
set git_month(Sep)  9
set git_month(Oct) 10
set git_month(Nov) 11
set git_month(Dec) 12

proc parse_git_date {s} {
	if {$s eq {}} {
		return {}
	}

	if {![regexp \
		{^... (...) (\d{1,2}) (\d\d):(\d\d):(\d\d) (\d{4}) ([+-]?)(\d\d)(\d\d)$} $s s \
		month day hr mm ss yr ew tz_h tz_m]} {
		error [mc "Invalid date from Git: %s" $s]
	}

	set s [clock scan [format {%4.4i%2.2i%2.2iT%2s%2s%2s} \
			$yr $::git_month($month) $day \
			$hr $mm $ss] \
			-gmt 1]

	regsub ^0 $tz_h {} tz_h
	regsub ^0 $tz_m {} tz_m
	switch -- $ew {
	-  {set ew +}
	+  {set ew -}
	{} {set ew -}
	}

	return [expr "$s $ew ($tz_h * 3600 + $tz_m * 60)"]
}

proc format_date {s} {
	if {$s eq {}} {
		return {}
	}
	return [clock format $s -format {%a %b %e %H:%M:%S %Y}]
}

proc reformat_date {s} {
	return [format_date [parse_git_date $s]]
}