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