Changeset 319 for trunk/npemap.org.uk/scripts/process-problems
- Timestamp:
- Nov 5, 2006, 11:59:38 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/npemap.org.uk/scripts/process-problems
r318 r319 35 35 while ($hr = $sth->fetchrow_hashref) { 36 36 $probids{$hr->{'id'}}++; 37 $hr->{'reporter_email'} = 'anon' unless $hr->{'reporter_email'}; 38 $hr->{'prob_ip'} = 'unknown IP' unless $hr->{'prob_ip'}; 39 $hr->{'sub_ip'} = '' unless $hr->{'sub_ip'}; 37 40 print $hr->{'id'} . ': ' . $hr->{'outward'} . ' ' . $hr->{'inward'} . ': '; 38 print "by " . $hr->{'reporter_email'} || 'anon';39 print " at " . $hr->{'prob_ip'} || 'unknown IP';41 print "by " . $hr->{'reporter_email'}; 42 print " at " . $hr->{'prob_ip'}; 40 43 print ' (SAME IP)' if ($hr->{'prob_ip'} eq $hr->{'sub_ip'}); 41 44 print "\n"; 45 print " "; 46 print "Reason: " . $hr->{'reason'} . ' ' if $hr->{'reason'}; 47 print "(". $hr->{'b.created_at'} . ")\n"; 42 48 print " http://www.npemap.org.uk/tiles/map.html#" . 43 49 int($hr->{'easting'} / 1000) . ',' . int($hr->{'northing'} / 1000) . ",1\n";
Note: See TracChangeset
for help on using the changeset viewer.