yet another lj privateur

-1 час времени на плохую документацию библиотечки
-1 час времени на код и тесты

+1 тупой как пробка скрипт, который сделает все записи в вашем жж личными

при запуске первый параметр - логин в жж, второй - пароль в жж

.pl:

  $login = shift;  
  $pass  = shift;

  use LJ::Simple;

  print "Logging in\n";

  my $lj = new LJ::Simple ({  
    user => $login,  
    pass => $pass,  
  });

  (defined $lj)  
    || die "$0: Failed to log into LiveJournal: $LJ::Simple::error\n";

  print "Login succesful\n";

  my ($num_of_items, @items) = $lj->SyncItems(0);

  print "$num_of_items items fetched\n";

  foreach $event (@items) {  
    if ($event->{type} ne 'L') {   
      next;  
    }

    %Entries = ();  
    (defined $lj->GetEntries(\%Entries, undef, "one", $event->{item_id})) ||  
      die "$0: Failed to get entries - $LJ::Simple::error\n";

    $entry = $Entries{$event->{item_id}};  
    $htmlid = $entry->{'__htmlid'};

    $lj->SetProtectPrivate($entry) ||   
    die "$0: Failed to make entry private - $LJ::Simple::error\n";

    $lj->EditEntry($entry) ||  
      die "$0: Failed to edit entry - $LJ::Simple::error\n";

    print "Edited entry $htmlid (posted on $entry->{day}/$entry->{mon}/$entry->{year})\n";  
  }

Артемий Трегубенко,

комментарии