1#!/bin/sh
2# -*-tcl-*-
3# the next line restarts using tclsh \
4exec tclsh "${0}" "${@}"
5
6####################################
7
8set trf      60766
9set mode     full
10set no_table 0
11set limit    10
12set flat     1
13set shows    0
14
15set stat_url http://sourceforge.net/export/projhtml.php?group_id=$trf&mode=$mode&no_table=$no_table
16set news_url http://sourceforge.net/export/projnews.php?group_id=$trf&limit=$limit&flat=$flat&show_summaries=$shows
17
18set now [clock format [clock seconds]]
19
20foreach {urlvar destination} {
21    stat_url state/statistics
22    news_url state/news
23} {
24    puts "Retrieving [set $urlvar] --> $destination"
25    exec /usr/bin/wget -q -O $destination [set $urlvar] >/dev/null
26}
27
28puts "Remembering time --> state/sn.time"
29puts [set fh [open state/sn.time w]] $now; close $fh
30
31### Future ### Edit the delivered HTML to fit them better into our site.
32### Done inside of the page generation templates !
33
34exit
35