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 | trunk
Files: files | file ages | folders
SHA3-256:8e62895946a8a9cef51bb27b092daf582881faa47d468613d464ede19e7d69f3
User & Date: aku 2018-01-31 04:23:26
Context
2018-01-31
04:23
Fix the links to the SF mailing lists Leaf 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).