[livejournal] r18296: LJSUP-7934. Adding more debug info.

U   trunk/bin/misc/set_comm_supermaintainer.pl
U   trunk/cgi-bin/communitylib.pl

Modified: trunk/bin/misc/set_comm_supermaintainer.pl
===================================================================
--- trunk/bin/misc/set_comm_supermaintainer.pl	2011-02-14 11:29:54 UTC (rev 18295)
+++ trunk/bin/misc/set_comm_supermaintainer.pl	2011-02-14 12:02:25 UTC (rev 18296)
@@ -88,8 +88,10 @@
 die "Can't fetch communities list\n" unless $communities;
 
 my $i = 0;
-LJ::start_request();
 foreach my $c_id (@$communities) {
+    LJ::start_request();
+    $i++;
+
     _log '-' x 30, "\n";
 
     my $comm = LJ::load_userid ($c_id);
@@ -202,10 +204,6 @@
             }
         }
     } 
-
-    if ($i++ % 20) {
-        LJ::start_request();
-    }
 }
 
 _log '-' x 30, "\n";

Modified: trunk/cgi-bin/communitylib.pl
===================================================================
--- trunk/cgi-bin/communitylib.pl	2011-02-14 11:29:54 UTC (rev 18295)
+++ trunk/cgi-bin/communitylib.pl	2011-02-14 12:02:25 UTC (rev 18296)
@@ -57,14 +57,25 @@
         $poll = LJ::Poll->create (entry => $entry, whovote => 'all', whoview => 'all', questions => \@q)
             or die "Poll was not created";
 
-        $poll->set_prop ('createdate' => $entry->eventtime_mysql)
-            or die "Can't set prop 'createdate'";
+        eval {
+            $poll->set_prop ('createdate' => $entry->eventtime_mysql)
+                or die "Can't set prop 'createdate'";
 
-        $poll->set_prop ('supermaintainer' => $comm->userid)
-            or die "Can't set prop 'supermaintainer'";
+            $poll->set_prop ('supermaintainer' => $comm->userid)
+                or die "Can't set prop 'supermaintainer'";
 
-        _edit_post (to => $to_journal, comm => $comm, entry => $entry, poll => $poll) 
-            or die "Can't edit post";
+            _edit_post (to => $to_journal, comm => $comm, entry => $entry, poll => $poll) 
+                or die "Can't edit post";
+        };
+
+        ## ugly, but reliable
+        if ($@) {
+            print $$textref;
+            use Data::Dumper;
+            warn Dumper($poll);
+            warn Dumper($to_journal);
+            die $@;
+        }
     }
 
     ## All are ok. Emailing to all maintainers about election.