Use statecode if state name is too long

1 files changed, 8 insertions, 4 deletions

diff --git a/ara.pl b/ara.pl
index c563e5e..21d9be3 100755
--- a/ara.pl
+++ b/ara.pl
@@ -87,11 +87,15 @@ foreach my $i (0...37) {
             substr( $lastupdatedtime, 0, 2 );
     }
 
-    push @$rows, [
-        # Limit the length to 18 characters, this will cut long state
-        # names.
-        substr( $statewise[0][$i]{'state'}, 0, 18 ),
+    my $state = $statewise[0][$i]{'state'};
+    $state = "India" if
+        $state eq "Total";
+
+    $state = $statewise[0][$i]{'statecode'} if
+        length($state) > 16;
 
+    push @$rows, [
+        $state,
         "$statewise[0][$i]{'confirmed'} (+$statewise[0][$i]{'deltaconfirmed'})" ,
         $statewise[0][$i]{'active'},
         "$statewise[0][$i]{'recovered'} (+$statewise[0][$i]{'deltadeaths'})",