|
|
|
|
61
|
my $url = "http://www.sodexo.fi/ruokalistat/output/daily_json/$kitchen/$timestr/fi";
|
61
|
my $url = "http://www.sodexo.fi/ruokalistat/output/daily_json/$kitchen/$timestr/fi";
|
62
|
my $temp_fname = "sodexo$count-$weekday.temp.js";
|
62
|
my $temp_fname = "sodexo$count-$weekday.temp.js";
|
63
|
if (!-f $temp_fname || !$use_old) {
|
63
|
if (!-f $temp_fname || !$use_old) {
|
64
|
- print $url . " -> " . $temp_fname . "\n";
|
|
|
65
|
system("wget -q --timeout=10 -O $temp_fname.tmp \"$url\" && mv $temp_fname.tmp $temp_fname");
|
64
|
system("wget -q --timeout=10 -O $temp_fname.tmp \"$url\" && mv $temp_fname.tmp $temp_fname");
|
66
|
}
|
65
|
}
|
67
|
if (-f $temp_fname) {
|
66
|
if (-f $temp_fname) {
|