segmentLeaderboard.pl

#!/usr/bin/perl -w

# by Torben Menke https://entorb.net

# DESCRIPTION
# Download Segment Leaderboard as Excel Sheet

# TODO

# IDEAS
# Filter by my clubs
# Fetch Segment infos

# DONE

# Modules: My Default Set
use strict;
use warnings;
use 5.010;                  # say
use Data::Dumper;
use utf8;                   # this script is written in UTF-8
binmode STDOUT, ':utf8';    # default encoding for linux print STDOUT

# Modules: Perl Standard
use Encode qw(encode decode);

# use File::Path qw/remove_tree/;

# Modules: Web
use CGI;
my $cgi = CGI->new;

#use CGI ":all";
#use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

# Modules: My Strava Module Lib
use lib ('.');
use lib ('/var/www/virtual/entorb/perl5/lib/perl5');
use lib "C:\\Users\\menketrb\\Documents\\Hacken\\Perl\\Strava-Web"
    ;    # just for making Visual Studio Code happy
use lib "d:\\files\\Hacken\\Perl\\Strava-Web";
use TMsStrava qw( %o %s);

# at entorb.net some modules require use local::lib!!!

TMsStrava::htmlPrintHeader( $cgi, 'Segment Leaderboard', 1 );
TMsStrava::initSessionVariables( $cgi->param("session") );
TMsStrava::htmlPrintNavigation();
my %formparam;
if ( $cgi->param('segment_id') and $cgi->param('segment_id') =~ m /^\d+$/ ) {
  $formparam{'segment_id'} = $cgi->param('segment_id') + 0;
}
if ( $cgi->param('date_range') ) {
  $formparam{'date_range'} = $cgi->param('date_range');
}
if ( $cgi->param('club_id') and $cgi->param('club_id') =~ m /^\d+$/ ) {
  $formparam{'club_id'} = $cgi->param('club_id') + 0;
}
if ( $cgi->param('gender') ) { $formparam{'gender'} = $cgi->param('gender'); }
if ( $cgi->param('age_group') ) {
  $formparam{'age_group'} = $cgi->param('age_group');
}

say
    "<p>A segment ID looks like 17204908 in https://www.strava.com/segments/17204908</p>";

$formparam{'segment_id'} = 17204908 unless $formparam{'segment_id'};

my @clubs = TMsStrava::fetchClubs( $s{'token'} );

# display the form
say "<form action=\"segmentLeaderboard.pl\" method=\"post\">
  <input type=\"hidden\" name=\"session\" value=\"$s{ 'session' }\">
  <input type=\"text\" id=\"durationMin\" name=\"segment_id\" style=\"width: 100px\" value=\""
    . $formparam{'segment_id'} . "\" >";

say "<select name=\"date_range\">";
for my $s (qw( all_time this_year this_month this_week today)) {
  say "<option value=\"$s\" "
      . ( $formparam{'date_range'} eq $s ? 'selected' : '' )
      . ">$s</option>";
}
say "</select>";

say "<select name=\"club_id\">";
say "<option value=\"0\" "
    . ( $formparam{'club_id'} eq 0 ? 'selected' : '' )
    . ">any_club</option>";
for my $ref (@clubs) {
  my @l = @{$ref};    # id, name, member_count, sport_type, city
  say "<option value=\"$l[0]\" "
      . ( $formparam{'club_id'} eq $l[0] ? 'selected' : '' )
      . ">$l[1]</option>";
} ## end for my $ref (@clubs)
say "</select>";

say "<select name=\"gender\">";
for my $s (qw( men_and_women men women )) {
  say "<option value=\"$s\" "
      . ( $formparam{'gender'} eq $s ? 'selected' : '' )
      . ">$s</option>";
}
say "</select>";

say "<select name=\"age_group\">";
for my $s (
  qw( all_age 0_19 20_24 25_34 35_44 45_54 55_64 65_69 70_74 75_plus ))
{
  say "<option value=\"$s\" "
      . ( $formparam{'age_group'} eq $s ? 'selected' : '' )
      . ">$s</option>";
} ## end for my $s (...)
say "</select>*";

say "<input type=\"submit\" name=\"submit\" value=\"Submit\">
  </form>";
say "<p>* age filtering requires Strava 'Summit' subscription</p>";

# form was submitted, so the search is performed
# TODO: all -> gender variable
if ( $cgi->param('submit') ) {
  my @list = TMsStrava::fetchSegmentLeaderboard(
    $s{'token'},              $formparam{'segment_id'},
    $formparam{'date_range'}, $formparam{'club_id'},
    $formparam{'gender'},     $formparam{'age_group'}
  );

  say "<table>";
  say "<tr><th>Rank</th><th>Time (s)</th><th>Name</th><th>Date</th></tr>";
  foreach my $ref (@list) {
    my @l = @{$ref};

    say "<tr><td>$l[0]</td><td>$l[1]</td><td>$l[2]</td><td>$l[3]</td></tr>";
  }

  say "</table>";

} ## end if ( $cgi->param('submit'...))

TMsStrava::htmlPrintFooter($cgi);