#!/usr/bin/env perl # # SPDX-License-Identifier: GPL-2.0-only package gerrit_stats; # To install any needed modules install the cpanm app, and use it to install the required modules: # sudo cpan App::cpanminus # sudo /usr/local/bin/cpanm JSON::Util Net::OpenSSH DateTime Devel::Size # perltidy -l=200 -bt=2 -ce use strict; use warnings; use English qw( -no_match_vars ); use File::Find; use File::Path; use Getopt::Long; use Getopt::Std; use JSON::Util; use Net::OpenSSH; use Data::Dumper qw(Dumper); use DateTime; use Devel::Size qw(size total_size); my $old_version; my $new_version; my $infodir = "$ENV{'HOME'}/.local/commit_info/" . `git config -l | grep remote.origin.url | sed 's|.*@||' | sed 's|:.*||'`; chomp($infodir); my $URL_WITH_USER; my $SKIP_GERRIT_CHECK; my $print_commit_list = 1; #disable print buffering $OUTPUT_AUTOFLUSH = 1; binmode STDOUT, ":utf8"; Main(); #------------------------------------------------------------------------------- # Main #------------------------------------------------------------------------------- sub Main { check_arguments(); my %submitters = (); my %authors = (); my %owners = (); my %reviewers = (); my %commenters = (); my %author_added = (); my %author_removed = (); my $total_added = 0; my $total_removed = 0; my $number_of_commits = 0; my $number_of_submitters = 0; my $submit_epoch = ""; my $first_submit_epoch = ""; my $patches_over_100_lines = 0; my $total_lines_large_patches = 0; my %email_addresses = ( 'Kacper Stojek' => 'kacper.stojek@3mdeb.com', 'Damien Zammit' => 'damien@zamaudio.com', 'Pavel Sayekat' => 'pavelsayekat@gmail.com', 'Lance Zhao' => 'lance.zhao@gmail.com', ); my %aliases = ( ' Felix Singer' => 'Felix Singer', 'Abhay kumar' => 'Abhay Kumar', 'AlexandruX Gagniuc' => 'Alexandru Gagniuc', 'Anish K. Patel' => 'Anish K Patel', 'Bao Zheng' => 'Zheng Bao', 'Bernhard M. Wiedemann' => 'Bernhard M. Wiedermann', 'Björn Busse' => 'Bjarn Busse', 'BryantOu' => 'Bryant Ou', 'Chen Wisley' => 'Wisley Chen', 'Cheng-Yi Chiang' => 'Jimmy Cheng-Yi Chiang', 'Chris Ching (using chromium account)' => 'Chris Ching,', 'ChromeOS Developer' => 'Dave Parker', 'Cristi M' => 'Cristian Magherusan-Stanciu', 'Cristian M?gheru?an-Stanciu' => 'Cristian Magherusan-Stanciu', 'Cristian MÄgheruÈan-Stanciu' => 'Cristian Magherusan-Stanciu', 'Cristian MÄgheruÈan-Stanciu' => 'Cristian Magherusan-Stanciu', 'DAWEI CHIEN' => 'Dawei Chien', 'efdesign98' => 'Frank Vibrans', 'Eugene D. Myers' => 'Eugene Myers', 'Frank Vibrans III' => 'Frank Vibrans', 'frank vibrans' => 'Frank Vibrans', 'Frank.Vibrans' => 'Frank Vibrans', 'FrankChu' => 'Frank Chu', 'garmin chang' => 'Garmin Chang', 'Garmin.Chang' => 'Garmin Chang', 'hannahwilliams2' => 'Hannah Williams', 'HAOUAS Elyes' => 'Elyes Haouas', 'Harshapriya N' => 'Harsha Priya', 'Hsuan-ting Chen' => 'Hsuan Ting Chen', 'Iru Cai (vimacs)' => 'Iru Cai', 'Jérémy Compostella' => 'Jeremy Compostella', 'Jérémy Compostella' => 'Jeremy Compostella', 'JG Poxu' => 'Po Xu', 'JonathonHall-Purism' => 'Jonathon Hall', 'Karthikeyan Ramasubramanian' => 'Karthik Ramasubramanian', 'Kerry She' => 'Kerry Sheh', 'kewei.xu' => 'kewei xu', 'Kumar, Gomathi' => 'Gomathi Kumar', 'Kyösti Mälkki' => 'Kyösti Mälkki', 'Kyösti Mälkki' => 'Kyösti Mälkki', 'Marcello Sylvester Bauer' => 'Marcello Sylvester Bauer', 'Martin L Roth' => 'Martin Roth', 'Martin Roth - Personal' => 'Martin Roth', 'Matt Ziegelbaum' => 'Matthew Ziegelbaum', 'mengqi.zhang' => 'Mengqi Zhang', 'mrnuke' => 'Alexandru Gagniuc', 'Nina-CM Wu' => 'Nina Wu', 'ot_zhenguo.li' => 'Zhenguo Li', 'Patrick Georgi patrick.georgi' => 'Patrick Georgi', 'Patrick Georgi patrick' => 'Patrick Georgi', 'Pavlushka' => 'Pavel Sayekat', 'Ravi Kumar Bokka' => 'Ravi Kumar', 'Ravi kumar' => 'Ravi Kumar', 'Ravi Sarawadi' => 'Ravishankar Sarawadi', 'ravindr1' => 'Ravindra', 'Ravindra N' => 'Ravindra', 'Ricardo Ribalda Delgado' => 'Ricardo Ribalda', 'ron minnich' => 'Ron Minnich', 'Ronald G. Minnich' => 'Ron Minnich', 'samrab' => 'Sudheer Amrabadi', 'SANTHOSH JANARDHANA HASSAN' => 'Santhosh Janardhana Hassan', 'semihalf-czapiga-jakub' => 'Jakub Czapiga', 'Seunghwan Kim' => 'SH Kim', 'Sooi, Li Cheng' => 'Li Cheng Sooi', 'Stefan Reinauerstepan' => 'Stefan Reinauer', 'stepan' => 'Stefan Reinauer', 'Swift Geek (Sebastian Grzywna)' => 'Sebastian "Swift Geek" Grzywna', 'Sylvain "ythier" Hitier' => 'Sylvain Hitier', 'Thomas Gstädtner' => 'Thomas Gstaedtner', 'UwePoeche' => 'Uwe Poeche', 'UwePoeche' => 'Uwe Poeche', 'Varshit Pandya' => 'Varshit B Pandya', 'Wayne3 Wang' => 'Wayne Wang', 'Wayne3_Wang' => 'Wayne Wang', 'Xi Chen' => 'Xixi Chen', 'Yu-Hsuan Hsu' => 'Yu-hsuan Hsu', 'zbao' => 'Zheng Bao', 'Zheng Bao zheng.bao' => 'Zheng Bao', 'zhiyong tao' => 'Zhiyong Tao', 'Дмитрий Понаморев' => 'Dmitry Ponamorev', ); if ( !$URL_WITH_USER ) { get_user(); } print "Saving data to $infodir\n"; # Make sure the versions exist check_versions(); # Fetch patches if needed. Get ids of first and last commits my @commits = `git log --pretty=%H "$old_version..$new_version" 2>/dev/null`; get_commits(@commits); my $last_commit_id = $commits[0]; my $first_commit_id = $commits[ @commits - 1 ]; chomp $last_commit_id; chomp $first_commit_id; print "Statistics from commit $first_commit_id to commit $last_commit_id\n"; print "Patch, Date, Owner, Author, Submitter, Inserted lines, Deleted lines, Subject, Reviewers, Commenters\n"; # Loop through all commits for my $commit_id (@commits) { $commit_id =~ s/^\s+|\s+$//g; my $submitter = ""; my %patch_reviewers = (); my %patch_commenters = (); my $info; my $owner; my $author; my $author_email; my $inserted_lines = 0; my $deleted_lines = 0; my $subject; $number_of_commits++; print "\"$commit_id\", "; # Read the data file for the current commit if ( -f "$infodir/$commit_id" && -s "$infodir/$commit_id" > 20 ) { open( my $HANDLE, "<", "$infodir/$commit_id" ) or die "Error: could not open file '$infodir/$commit_id'\n"; $info = <$HANDLE>; close $HANDLE; my $commit_info = JSON::Util->decode($info); # Get the easy data $owner = $commit_info->{'owner'}{'name'}; if ( !$owner ) { $owner = $commit_info->{'owner'}{'username'}; } if ( !$owner ) { $owner = "-"; } if ( $owner && exists( $aliases{$owner} ) ) { $owner = $aliases{$owner}; } $owner =~ s/"/'/g; $owner =~ s/,/./g; $author = $commit_info->{'currentPatchSet'}{'author'}{'name'}; if ( $author && exists( $aliases{$author} ) ) { $author = $aliases{$author}; } if ( !$author ) { $author = $commit_info->{'currentPatchSet'}{'author'}{'username'}; } $author =~ s/"/'/g; $author =~ s/,/./g; $author_email = $commit_info->{'currentPatchSet'}{'author'}{'email'}; $inserted_lines = $commit_info->{'currentPatchSet'}{'sizeInsertions'}; $deleted_lines = $commit_info->{'currentPatchSet'}{'sizeDeletions'}; $subject = $commit_info->{'subject'}; $subject =~ s/"/'/g; #get the patch's submitter my $approvals = $commit_info->{'currentPatchSet'}{'approvals'}; for my $approval (@$approvals) { if ( $approval->{'type'} eq "SUBM" ) { $submit_epoch = $approval->{'grantedOn'}; $submitter = $approval->{'by'}{'name'}; if ( exists( $aliases{$submitter} ) ) { $submitter = $aliases{$submitter}; } } } # Get all the commenters for all patch revisions my $comments = $commit_info->{'comments'}; for my $comment (@$comments) { my $commenter; if ( $comment->{'reviewer'}{'username'} ) { if ( $comment->{'reviewer'}{'username'} eq "jenkins" ) { next; } if ( $comment->{'reviewer'}{'username'} eq "hardwaretestrobot" ) { next; } if ( $comment->{'reviewer'}{'username'} eq "raptor-automated-test" ) { next; } } if ( $comment->{'reviewer'}{'name'} ) { if ( $comment->{'reviewer'}{'name'} eq "Gerrit Code Review" ) { next; } } if ( $comment->{'message'} ) { if ( $comment->{'message'} =~ "successfully cherry-picked" ) { next; } if ( $comment->{'message'} =~ ": Code-Review" ) { next; } if ( $comment->{'message'} =~ "Uploaded patch set" ) { next; } } if ( !$commenter ) { $commenter = $comment->{'reviewer'}{'name'}; if ( $commenter && exists( $aliases{$commenter} ) ) { $commenter = $aliases{$commenter}; } } if ( !$commenter ) { $commenter = $comment->{'reviewer'}{'username'}; if ( $commenter && exists( $aliases{$commenter} ) ) { $commenter = $aliases{$commenter}; } } $commenter =~ s/"/'/g; $commenter =~ s/,/./g; if ( $commenter && $author && $commenter eq $author ) { next; } if ($commenter) { if ( $commenter && exists $patch_commenters{$commenter} ) { $patch_commenters{$commenter}++; } else { $patch_commenters{$commenter} = 1; } } } # Get all the reviewers for all patch revisions my $patchsets = $commit_info->{'patchSets'}; for my $patch (@$patchsets) { if ( !$author ) { $author = $patch->{'author'}{'name'}; if ( $author && exists( $aliases{$author} ) ) { $author = $aliases{$author}; } } my $approvals = $patch->{'approvals'}; for my $approval (@$approvals) { if ( ( !$submitter ) && ( $approval->{'type'} eq "SUBM" ) ) { $submit_epoch = $approval->{'grantedOn'}; $submitter = $approval->{'by'}{'name'}; if ( $submitter && exists( $aliases{$submitter} ) ) { $submitter = $aliases{$submitter}; } } $submitter =~ s/"/'/g; $submitter =~ s/,/./g; if ( $approval->{'type'} eq "Code-Review" ) { my $patch_reviewer = $approval->{'by'}{'name'}; if ($patch_reviewer) { if ( exists $patch_reviewers{$patch_reviewer} ) { $patch_reviewers{$patch_reviewer}++; } else { $patch_reviewers{$patch_reviewer} = 1; } } } } } } else { # Get the info from git my $logline = `git log --pretty="%ct@@@%s@@@%an@@@%aE@@@%cn" $commit_id^..$commit_id --`; $logline =~ m/^(.*)@@@(.*)@@@(.*)@@@(.*)@@@(.*)\n/; ( $submit_epoch, $subject, $author, $author_email, $submitter ) = ( $1, $2, $3, $4, $5 ); if ( exists( $aliases{$author} ) ) { $author = $aliases{$author}; } $owner = $author; if ( $submitter && exists( $aliases{$submitter} ) ) { $submitter = $aliases{$submitter}; } $logline = `git log --pretty= --shortstat $commit_id^..$commit_id --`; if ( $logline =~ m/\s+(\d+)\s+insertion/ ) { $inserted_lines = $1; } if ( $logline =~ m/\s+(\d+)\s+deletion/ ) { $deleted_lines = $1 * -1; } my @loglines = `git log $commit_id^..$commit_id -- | grep '\\sReviewed-by:'`; for my $line (@loglines) { if ( $line =~ m/.*:\s+(.*)\s</ ) { my $patch_reviewer = $1; if ( exists( $aliases{$patch_reviewer} ) ) { $patch_reviewer = $aliases{$patch_reviewer}; } if ($patch_reviewer) { if ( exists $patch_reviewers{$patch_reviewer} ) { $patch_reviewers{$patch_reviewer}++; } else { $patch_reviewers{$patch_reviewer} = 1; } } } } } # Not entirely certain why this is needed, but for a number of patches have been submitted # the submit time in gerrit is set to April 9, 2015. if ( $submit_epoch == 1428586219 ) { my $logline = `git log --pretty="%ct" $commit_id^..$commit_id --`; $logline =~ m/^(.*)\n/; $submit_epoch = $1; } # Add the count and owner to the submitter hash if ( $submitter && exists $submitters{$submitter} && exists $submitters{$submitter}{count} ) { $submitters{$submitter}{count}++; } else { $submitters{$submitter}{count} = 1; $number_of_submitters++; $submitters{$submitter}{"self"} = 0; $submitters{$submitter}{others} = 0; $submitters{$submitter}{name} = $submitter; } if ( $submitter eq $author ) { $submitters{$submitter}{"self"}++; } else { $submitters{$submitter}{others}++; } # Create a readable date my $dt = DateTime->from_epoch( epoch => $submit_epoch ); $dt->set_time_zone('Europe/Paris'); my $submit_time = $dt->strftime('%Y/%m/%d'); if ( !$first_submit_epoch ) { $first_submit_epoch = $submit_epoch; } # Create the list of commenters to print my $commenterlist = ""; foreach my $commenter ( keys %patch_commenters ) { if ( $commenter && exists( $aliases{$commenter} ) ) { $commenter = $aliases{$commenter}; } if ( $commenterlist eq "" ) { $commenterlist = $commenter; } else { $commenterlist .= ", $commenter"; } if ( $commenter && exists $commenters{$commenter} ) { $commenters{$commenter}++; } else { $commenters{$commenter} = 1; } } if ( !$commenterlist ) { $commenterlist = "-"; } # Create the list of reviewers to print my $reviewerlist = ""; foreach my $reviewer ( keys %patch_reviewers ) { if ( exists( $aliases{$reviewer} ) ) { $reviewer = $aliases{$reviewer}; } if ( $reviewerlist eq "" ) { $reviewerlist = $reviewer; } else { $reviewerlist .= ", $reviewer"; } if ( $reviewer && exists $reviewers{$reviewer} ) { $reviewers{$reviewer}++; } else { $reviewers{$reviewer} = 1; } } if ( !$reviewerlist ) { $reviewerlist = "-"; } if ($print_commit_list) { print "$submit_time, $owner, $author, $submitter, $inserted_lines, $deleted_lines, \"$subject\", \"$reviewerlist\" , \"$commenterlist\"\n"; } else { print "$number_of_commits\n"; } $total_added += $inserted_lines; if ( $inserted_lines - $deleted_lines > 100 ) { $patches_over_100_lines++; $total_lines_large_patches += $inserted_lines; } $total_removed += $deleted_lines; if ( exists $owners{$owner} ) { $owners{$owner}++; } else { $owners{$owner} = 1; } if ( $author && exists $authors{$author}{"num"} ) { $authors{$author}{"num"}++; $author_added{$author} += $inserted_lines; $author_removed{$author} += $deleted_lines; $authors{$author}{"earliest_commit"} = $submit_time; } else { $authors{$author}{"num"} = 1; $authors{$author}{"latest_commit"} = $submit_time; $authors{$author}{"earliest_commit"} = $submit_time; $author_added{$author} = $inserted_lines; $author_removed{$author} = $deleted_lines; } if ( $author && ( !exists $authors{$author}{email} || $authors{$author}{email} eq "-" ) ) { if ($author_email) { $authors{$author}{email} = "$author_email"; } elsif ( exists $email_addresses{$author} ) { $authors{$author}{email} = $email_addresses{$author}; } } } my $Days = ( $first_submit_epoch - $submit_epoch ) / 86400; if ( ( $first_submit_epoch - $submit_epoch ) % 86400 ) { $Days += 1; } print "\n* Total Commits: $number_of_commits\n"; printf "* Average Commits per day: %.2f\n", $number_of_commits / $Days; print "* Total lines added: $total_added\n"; printf "* Average lines added per commit: %.2f\n", $total_added / $number_of_commits; print "* Number of patches adding more than 100 lines: $patches_over_100_lines\n"; printf "* Average lines added per small commit: %.2f\n", ( $total_added - $total_lines_large_patches ) / ( $number_of_commits - $patches_over_100_lines ); print "* Total lines removed: $total_removed\n"; printf "* Average lines removed per commit: %.2f\n", $total_removed / $number_of_commits; print "* Total difference between added and removed: " . ( $total_added - $total_removed ) . "\n\n"; print "=== Authors - Number of commits ===\n"; printf "%-30s ,%5s ,%5s ,%6s ,%6s , %-52s ,%6s, %-19s , %s\n", "Author", "Ptchs", "Revws", "Cmnts", "Sbmts", "Email", "Prcnt", "Last commit", "Earliest_commit"; my $number_of_authors = 0; foreach my $author ( sort { $authors{$b}{num} <=> $authors{$a}{num} } ( keys %authors ) ) { my $submissions = 0; if ( $author && exists $submitters{$author} ) { $submissions = $submitters{$author}{count}; } my $review_count = 0; if ( $author && exists $reviewers{$author} ) { $review_count = $reviewers{$author}; } my $comment_count = 0; if ( $author && exists $commenters{$author} ) { $comment_count = $commenters{$author}; } if ( $author && !exists $authors{$author}{"email"} ) { $authors{$author}{"email"} = "-"; } printf "%-30s ,%5d ,%5d ,%6d ,%6d , %-52s ,%5.2f%%, %s , %s\n", $author, $authors{$author}{"num"}, $review_count, $comment_count, $submissions, $authors{$author}{"email"}, $authors{$author}{"num"} / $number_of_commits * 100, $authors{$author}{"latest_commit"}, $authors{$author}{"earliest_commit"}; $number_of_authors++; } print "Total Authors: $number_of_authors\n\n"; print "=== Authors - Lines added ===\n"; foreach my $author ( sort { $author_added{$b} <=> $author_added{$a} } ( keys %author_added ) ) { if ( $author_added{$author} ) { printf "%-30s, %10d, %2.3f%%\n", $author, $author_added{$author}, $author_added{$author} / $total_added * 100; } } print "\n"; print "=== Authors - Lines removed ===\n"; foreach my $author ( sort { $author_removed{$b} <=> $author_removed{$a} } ( keys %author_removed ) ) { if ( $author_removed{$author} ) { printf "%-30s, %10d, %6.3f%%\n", $author, $author_removed{$author} * -1, $author_removed{$author} / $total_removed * 100; } } print "\n"; print "=== Reviewers - Number of patches reviewed ===\n"; my $number_of_reviewers = 0; foreach my $reviewer ( sort { $reviewers{$b} <=> $reviewers{$a} } ( keys %reviewers ) ) { printf "%-30s, %6d, %6.3f%%\n", $reviewer, $reviewers{$reviewer}, $reviewers{$reviewer} / $number_of_commits * 100; $number_of_reviewers++; } print "Total Reviewers: $number_of_reviewers\n\n"; print "=== Submitters - Number of patches submitted ===\n"; printf "%-30s, %6s, %7s, %6s, %7s, %6s, %7s\n", "Name", "#", "total%", "Own", "own%", "Other", "other%"; foreach my $submitter ( sort { $submitters{$b}{count} <=> $submitters{$a}{count} } ( keys %submitters ) ) { printf "%-30s, % 6d, %6.3f%%, %6d, %6.2f%%, %6d, %6.2f%%\n", $submitter, $submitters{$submitter}{count}, $submitters{$submitter}{count} / $number_of_commits * 100, $submitters{$submitter}{"self"}, $submitters{$submitter}{"self"} / $submitters{$submitter}{count} * 100, $submitters{$submitter}{others}, $submitters{$submitter}{others} / $submitters{$submitter}{count} * 100; } print "Total Submitters: $number_of_submitters\n\n"; print "Commits, Ave, Added, Removed, Diff, Authors, Reviewers, Submitters\n"; printf "$number_of_commits, %.2f, $total_added, $total_removed, " . ( $total_added + $total_removed ) . ", $number_of_authors, $number_of_reviewers, $number_of_submitters\n", $number_of_commits / $Days; } #------------------------------------------------------------------------------- #------------------------------------------------------------------------------- sub check_versions { `git cat-file -e $old_version^{commit} 2>/dev/null`; if ( ${^CHILD_ERROR_NATIVE} ) { print "Error: Old version ($old_version) does not exist.\n"; exit 1; } `git cat-file -e $new_version^{commit} 2>/dev/null`; if ( ${^CHILD_ERROR_NATIVE} ) { print "Error: New version ($new_version) does not exist.\n"; exit 1; } } #------------------------------------------------------------------------------- sub get_user { my $url = `git config -l | grep remote.origin.url`; if ( $url =~ /.*url=ssh:\/\/(\w+@[a-zA-Z][a-zA-Z0-9\.]+:\d+)(\/\w+)*/ ) { $URL_WITH_USER = $1; } else { print "Error: Could not get a ssh url with a username from gitconfig.\n"; print " use the -u option to set a url.\n"; exit 1; } } #------------------------------------------------------------------------------- #------------------------------------------------------------------------------- sub get_commits { my @commits = @_; my $submit_time = ""; if ( defined $SKIP_GERRIT_CHECK && $SKIP_GERRIT_CHECK ) { return; } my $ssh = Net::OpenSSH->new( "$URL_WITH_USER", ); $ssh->error and die "Couldn't establish SSH connection to $URL_WITH_USER:" . $ssh->error; print "Using URL: ssh://$URL_WITH_USER\n"; if ( !-d $infodir ) { mkpath($infodir); } for my $commit_id (@commits) { $commit_id =~ s/^\s+|\s+$//g; $submit_time = ""; my $gerrit_review; # Look for last coreboot commit if ( $commit_id eq "7309709742" ) { last; } if ( -f "$infodir/$commit_id" ) { $gerrit_review = 1; } else { $gerrit_review = `git log $commit_id^..$commit_id | grep '\\sReviewed-on:\\s'`; } if ( $gerrit_review && $commit_id && ( !-f "$infodir/$commit_id" ) ) { print "Downloading $commit_id"; my @info = $ssh->capture("gerrit query --format=JSON --comments --files --current-patch-set --all-approvals --submit-records --dependencies commit:$commit_id"); $ssh->error and die "remote ls command failed: " . $ssh->error; my $commit_info = JSON::Util->decode( $info[0] ); my $rowcount = $commit_info->{'rowCount'}; if ( defined $rowcount && ( $rowcount eq "0" ) ) { print " - no gerrit commit for that id.\n"; open( my $HANDLE, ">", "$infodir/$commit_id" ) or die "Error: could not open file '$infodir/$commit_id'\n"; print $HANDLE "No gerrit commit"; close $HANDLE; next; } my $approvals = $commit_info->{'currentPatchSet'}{'approvals'}; for my $approval (@$approvals) { if ( $approval->{'type'} eq "SUBM" ) { $submit_time = $approval->{'grantedOn'}; } } my $dt = ""; if ($submit_time) { $dt = DateTime->from_epoch( epoch => $submit_time ); } else { print " - no submit time for that id.\n"; open( my $HANDLE, ">", "$infodir/$commit_id" ) or die "Error: could not open file '$infodir/$commit_id'\n"; print $HANDLE "No submit time"; close $HANDLE; next; } open( my $HANDLE, ">", "$infodir/$commit_id" ) or die "Error: could not open file '$infodir/$commit_id'\n"; print $HANDLE $info[0]; close $HANDLE; $dt->set_time_zone('Europe/Paris'); print " - submit time: " . $dt->strftime('%Y/%m/%d %H:%M:%S') . "\n"; } elsif ( $commit_id && ( !-f "$infodir/$commit_id" ) ) { print "No gerrit commit for $commit_id\n"; open( my $HANDLE, ">", "$infodir/$commit_id" ) or die "Error: could not open file '$infodir/$commit_id'\n"; print $HANDLE "No gerrit commit"; close $HANDLE; } } print "\n"; } #------------------------------------------------------------------------------- # check_arguments parse the command line arguments #------------------------------------------------------------------------------- sub check_arguments { my $show_usage = 0; GetOptions( 'help|?' => sub { usage() }, 'url|u=s' => \$URL_WITH_USER, 'skip|s' => \$SKIP_GERRIT_CHECK, ); # strip ssh:// from url if passed in. if ( defined $URL_WITH_USER ) { $URL_WITH_USER =~ s|ssh://||; } if (@ARGV) { ( $old_version, $new_version ) = @ARGV; } else { usage(); } } #------------------------------------------------------------------------------- # usage - Print the arguments for the user #------------------------------------------------------------------------------- sub usage { print "gerrit_stats <options> [Old version] [New version]\n"; print "Old version should be a tag (4.1), a branch (origin/4.1), or a commit id\n"; print "New version can be 'HEAD' a branch (origin/main) a tag (4.2), or a commit id\n"; print " Options:\n"; print " u | url [url] url with username.\n"; print "Example: \"$0 -u Gaumless\@review.coreboot.org:29418 origin/4.1 4.2\"\n"; exit(0); } 1;