Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix the links to the SF mailing lists |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
8e62895946a8a9cef51bb27b092daf58 |
| User & Date: | aku 2018-01-31 04:23:26 |
Context
|
2019-08-15
| ||
| 04:17 | Added links to chat, slack, and twitter channels. Leaf check-in: 5b24823b34 user: aku tags: trunk | |
|
2018-01-31
| ||
| 04:23 | Fix the links to the SF mailing lists check-in: 8e62895946 user: aku tags: trunk | |
|
2018-01-05
| ||
| 17:30 | Added note to Magicsplat about platform it is for. check-in: e2a3af44ec user: aku tags: trunk | |
Changes
Changes to cm-ingest.tcl.
118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 |
ping =
incr n
if {($type eq "person") && !$public} continue
dict set c $dname mail $addr .
# Fake references for lists at SF
if {[regexp {^([^@]*)@lists\.sourceforge\.net$} $addr --> name]} {
foreach {link title} {
https://sourceforge.net/p/tcl/mailman/*** {List Archives}
https://sourceforge.net/projects/tcl/lists/*** {List Information}
} {
dict set c $dname link [string map [list *** $name] $link] $title
}
}
}
dict set c $dname contacts $n
# Affiliations (people/lists/companies/projects can be
# affiliated with companies/projects).
|
> > > > > > > > > > > > > > > > > > | | | |
118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 |
ping =
incr n
if {($type eq "person") && !$public} continue
dict set c $dname mail $addr .
# Fake references for lists at SF
if {[regexp {^([^@]*)@lists\.sourceforge\.net$} $addr --> name]} {
set ap [split $addr -]
if {[llength $ap] < 3} {
# First of two pieces
set project [lindex $ap 0]
} else {
# More than three, direct fixed mapping.
switch -exact -- $name {
a-s-m-xasm { set project "a-s-m" }
ascend-sim-users { set project "ascend-sim" }
expect-lite-users { set project "expect-lite" }
tktable-tile-dev { set project "tktable" }
topologi-linux-devel { set project "topologi-linux" }
topologi-linux-user { set project "topologi-linux" }
volodya-project-misc { set project "volodya-project" }
default { set project "--BROKEN--" }
}
}
set map [list *** $name === $project]
foreach {link title} {
https://sourceforge.net/p/===/mailman/*** {List Archives}
https://sourceforge.net/projects/===/lists/*** {List Information}
} {
dict set c $dname link [string map $map $link] $title
}
}
}
dict set c $dname contacts $n
# Affiliations (people/lists/companies/projects can be
# affiliated with companies/projects).
|