"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "DADA/Logging/Clickthrough/baseSQL.pm" between
dada-11_14_1.tar.gz and dada-11_14_2.tar.gz

About: Dada is a web-based electronic (mass) mailing list management system.

baseSQL.pm  (dada-11_14_1):baseSQL.pm  (dada-11_14_2)
skipping to change at line 443 skipping to change at line 443
#warn '$thawed_gip:' . $thawed_gip; #warn '$thawed_gip:' . $thawed_gip;
# <a href="https://www.miyuru.lk/geoiplegacy">Geolocation database of [pr ovider] converted by Miyuru Sankalpa</a> # <a href="https://www.miyuru.lk/geoiplegacy">Geolocation database of [pr ovider] converted by Miyuru Sankalpa</a>
require Geo::IP::PurePerl; require Geo::IP::PurePerl;
my $gi = Geo::IP::PurePerl->new($geoip_db); my $gi = Geo::IP::PurePerl->new($geoip_db);
my ( my (
$country_code, $country_code3, $country_name, $region, $city, $country_code, $country_code3, $country_name, $region, $city,
$postal_code, $latitude, $longitude, $metro_code, $area_code $postal_code, $latitude, $longitude, $metro_code, $area_code
) = $gi->get_city_record( $args->{-ip_address} ); ) = $gi->get_city_record( $args->{-ip_address} );
my $uts = time;
my $named_vals = { my $named_vals = {
ip_address => $args->{-ip_address}, ip_address => $args->{-ip_address},
country_code => $country_code, country_code => $country_code,
country_code3 => $country_code3, country_code3 => $country_code3,
country_name => $country_name, country_name => $country_name,
region => $region, region => $region,
city => $city, city => $city,
postal_code => $postal_code, postal_code => $postal_code,
latitude => $latitude, latitude => $latitude,
longitude => $longitude, longitude => $longitude,
metro_code => $metro_code, metro_code => $metro_code,
area_code => $area_code, area_code => $area_code,
unix_time_stamp => $uts,
}; };
require DADA::ProfileFieldsManager; require DADA::ProfileFieldsManager;
my $dpfm = DADA::ProfileFieldsManager->new; my $dpfm = DADA::ProfileFieldsManager->new;
require DADA::Profile; require DADA::Profile;
my $prof = DADA::Profile->new( { -email => $args->{-email} } ); my $prof = DADA::Profile->new( { -email => $args->{-email} } );
if ($prof) { if ($prof) {
if ( !$prof->exists ) { if ( !$prof->exists ) {
warn 'no $prof.' warn 'no $prof.'
skipping to change at line 1274 skipping to change at line 1276
if(defined($basic_events->{start_time}) && defined($basic_events->{finish _time})){ if(defined($basic_events->{start_time}) && defined($basic_events->{finish _time})){
$basic_events->{sending_time} = int($basic_events->{finish_time}) - int($basic_events->{start_time}); $basic_events->{sending_time} = int($basic_events->{finish_time}) - int($basic_events->{start_time});
$basic_events->{sending_time_formatted} = formatted_runtime($basi c_events->{sending_time}); $basic_events->{sending_time_formatted} = formatted_runtime($basi c_events->{sending_time});
my $total_sending_time = $basic_events->{sending_time}; my $total_sending_time = $basic_events->{sending_time};
if($total_sending_time <= 0){ if($total_sending_time <= 0){
$total_sending_time = .1; $total_sending_time = .1;
} }
my $hourly_sending = ($basic_events->{total_recipients} / $total_ sending_time ) * 60 * 60; my $hourly_sending = ($basic_events->{total_recipients} / $total_ sending_time ) * 60 * 60;
$basic_events->{sending_speed_formatted} = sprintf("%.2f", $hourl y_sending); $basic_events->{sending_speed_formatted} = commify(int($hourly_se nding + .5));
} }
if(defined($basic_events->{start_time})){ if(defined($basic_events->{start_time})){
$basic_events->{start_time_formatted} = ctime_to_localtime($basic _events->{start_time}); $basic_events->{start_time_formatted} = ctime_to_localtime($basic _events->{start_time});
} }
if(defined($basic_events->{finish_time})){ if(defined($basic_events->{finish_time})){
$basic_events->{finish_time_formatted} = ctime_to_localtime($basi c_events->{finish_time}); $basic_events->{finish_time_formatted} = ctime_to_localtime($basi c_events->{finish_time});
} }
# Received: # Received:
 End of changes. 3 change blocks. 
12 lines changed or deleted 14 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)