Changeset 28
- Timestamp:
- 10/04/06 23:29:43 (7 years ago)
- Files:
-
- 1 modified
-
grabbers/yahoo7widget (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
grabbers/yahoo7widget
r4 r28 71 71 my $region = 94; 72 72 my $time_offset = 0; 73 my $opt_raw; 73 74 74 75 GetOptions( … … 91 92 'ready' => \$opt_version, 92 93 'desc' => \$opt_desc, 94 'raw=s' => \$opt_raw, 93 95 'v' => \$opt_help); 94 96 … … 130 132 die "WARNING: channels file $opt_channels_file could not be read\n"; 131 133 } 134 135 unlink $opt_raw if ($opt_raw); 132 136 133 137 for (my $currtime = $starttime; $currtime < $endtime; $currtime += 86400) { … … 215 219 $outputdata .= chr((((ord(substr($data,$pos,1))) % 256) ^ ($xlate_pos3 % 256)) % 256); 216 220 } 221 222 if ($opt_raw) { 223 if (open(F,">>$opt_raw")) { 224 print F $outputdata; 225 close F; 226 } 227 } 228 217 229 return($outputdata); 218 230 }
