[livejournal] r19288: LJSUP-8584 (ONTD: Top tags for month)

A   trunk/bin/stat/
A   trunk/bin/stat/calculate-recent-logtags.pl

Added: trunk/bin/stat/calculate-recent-logtags.pl
===================================================================
--- trunk/bin/stat/calculate-recent-logtags.pl	                        (rev 0)
+++ trunk/bin/stat/calculate-recent-logtags.pl	2011-06-15 08:08:40 UTC (rev 19288)
@@ -0,0 +1,42 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use lib "$ENV{'LJHOME'}/cgi-bin";
+require 'ljlib.pl';
+
+use Getopt::Long;
+
+my ( $journal_username, $days, $usage );
+
+my $getopt_result = GetOptions(
+    'journal=s'     => \$journal_username,
+    'days=i'        => \$days,
+    'help|usage'    => \$usage
+);
+
+if ( $usage || !$getopt_result || !$journal_username || !$days ) {
+    usage();
+}
+
+my $journalu = LJ::load_user($journal_username);
+unless ($journalu) {
+    die "$journal_username: no such user\n";
+}
+
+my $tags_info = LJ::Tags::calculate_recent_logtags( $journalu, $days );
+my $propval = LJ::text_compress( LJ::JSON->to_json($tags_info) );
+$journalu->set_prop( 'recent_logtags' => $propval );
+
+sub usage {
+    print while ( <DATA> );
+    exit;
+    return;
+}
+
+__DATA__
+Usage:
+
+bin/stat/calculate-recent-logtags.pm --journal ohnotheydidnt --days 30
+bin/stat/calculate-recent-logtags.pm --help


Property changes on: trunk/bin/stat/calculate-recent-logtags.pl
___________________________________________________________________
Added: svn:executable
   + *