I'm not using gitweb I was thinking about using it and was looking at the cgi and saw this in this file: https://github.com/git/git/blob/master/gitweb/gitweb.perl
I think I understand the intention but the outcome is wrong.
our %highlight_ext = (
# main extensions, defining name of syntax;
# see files in /usr/share/highlight/langDefs/ directory
map { $_ => $_ }
qw(py c cpp rb java css php sh pl js tex bib xml awk bat ini spec tcl sql make),
# alternate extensions, see /etc/highlight/filetypes.conf
'h' => 'c',
map { $_ => 'sh' } qw(bash zsh ksh),
map { $_ => 'cpp' } qw(cxx c++ cc),
map { $_ => 'php' } qw(php3 php4 php5 phps),
map { $_ => 'pl' } qw(perl pm), # perhaps also 'cgi'
map { $_ => 'make'} qw(mak mk),
map { $_ => 'xml' } qw(xhtml html htm),
);I think the intent is better met with this, (the print is for show)
our %he = (); $he{'h'} = 'c'; $he{$_} = $_ for (qw(py c cpp rb java css php sh pl js tex bib xml awk bat ini spec tcl sql make)); $he{$_} = 'cpp' for (qw(cxx c++ cc)); $he{$_} = 'php' for (qw(php3 php4 php5 phps)); $he{$_} = 'pl' for (qw(cgi perl pm)); $he{$_} = 'make' for (qw(mak mk)); $he{$_} = 'xml' for (qw(xhtml html htm)); $he{$_} = 'sh' for (qw(bash zsh ksh));
print "$he{$_} $_\n" for(sort {$he{$a} cmp $he{$b}} keys %he);But then again maybe I misunderstood the intent. And maybe everyone's happy with it as-is.