afuna: Cat under a blanket. Text: "Cats are just little people with Fur and Fangs" (Default)
afuna ([personal profile] afuna) wrote in [site community profile] changelog2010-03-04 02:03 pm
  • Add Memory
  • Share This Entry

[dw-free] Fix all POD errors.

[commit: http://hg.dwscoalition.org/dw-free/rev/4478dc798e28]

http://bugs.dwscoalition.org/show_bug.cgi?id=2422

Cleanup so there are no errors when trying to generate documentation.

Patch by [personal profile] exor674.

Files modified:
  • cgi-bin/DW/InviteCodes.pm
  • cgi-bin/DW/Routing.pm
  • cgi-bin/DW/Shop/Item.pm
  • cgi-bin/DW/Shop/Item/Account.pm
  • cgi-bin/DW/StatData.pm
  • cgi-bin/DW/Worker/ContentImporter.pm
  • cgi-bin/DW/Worker/ContentImporter/LiveJournal.pm
  • cgi-bin/DW/Worker/ContentImporter/Local/Bio.pm
  • cgi-bin/DW/Worker/ContentImporter/Local/Comments.pm
  • cgi-bin/DW/Worker/ContentImporter/Local/Entries.pm
  • cgi-bin/DW/Worker/ContentImporter/Local/Tags.pm
  • cgi-bin/DW/Worker/ContentImporter/Local/TrustGroups.pm
  • cgi-bin/DW/Worker/ContentImporter/Local/Userpics.pm
  • cgi-bin/LJ/User.pm
  • cgi-bin/LJ/Widget.pm
  • cgi-bin/sysban.pl
--------------------------------------------------------------------------------
diff -r 691929895e5d -r 4478dc798e28 cgi-bin/DW/InviteCodes.pm
--- a/cgi-bin/DW/InviteCodes.pm	Thu Mar 04 05:41:48 2010 -0800
+++ b/cgi-bin/DW/InviteCodes.pm	Thu Mar 04 06:07:47 2010 -0800
@@ -275,7 +275,7 @@ sub use_code {
     return 1; # 1 means success? Needs error return in that case.
 }
 
-=head2 C<< $class->use_promo_code
+=head2 C<< $class->use_promo_code >>
 
 Increments the current_count on the given promo code.
 
diff -r 691929895e5d -r 4478dc798e28 cgi-bin/DW/Routing.pm
--- a/cgi-bin/DW/Routing.pm	Thu Mar 04 05:41:48 2010 -0800
+++ b/cgi-bin/DW/Routing.pm	Thu Mar 04 06:07:47 2010 -0800
@@ -41,11 +41,21 @@ LJ::ModuleLoader->require_subclasses( "D
 
 DW::Routing - Module to allow calling non-BML controller/views.
 
-=head1 SYNOPSIS
-
 =head1 Page Call API
 
 =head2 C<< $class->call( $r, %opts ) >>
+
+Valid options:
+
+=over
+
+=item role - explicitly define the role
+=item username - define the username, implies username role
+=item ssl - this is a SSL page, implies the ssl role
+
+=back
+
+This method should be directly returned by the caller if defined.
 
 =cut
 
@@ -58,6 +68,18 @@ sub call {
 }
 
 =head2 C<< $class->get_call_opts( $r, %opts ) >>
+
+Valid options:
+
+=over
+
+=item role - explicitly define the role
+=item username - define the username, implies username role
+=item ssl - this is a SSL page, implies the ssl role
+
+=back
+
+Returns a call_opts hash, or undefined.
 
 =cut
 
@@ -265,8 +287,6 @@ sub register_string {
 
 =item sub - sub
 
-=over
-
 =item Opts:
 
 =over
@@ -284,6 +304,7 @@ sub register_string {
 =back
 
 =cut
+
 sub register_regex {
     my ( $class, $regex, $sub, %opts ) = @_;
 
@@ -356,9 +377,13 @@ sub username { return $_[0]->{username};
 
 =head1 AUTHOR
 
+=over
+
 =item Andrea Nall <anall@andreanall.com>
 
 =item Mark Smith <mark@dreamwidth.org>
+
+=back
 
 =head1 COPYRIGHT AND LICENSE
 
diff -r 691929895e5d -r 4478dc798e28 cgi-bin/DW/Shop/Item.pm
--- a/cgi-bin/DW/Shop/Item.pm	Thu Mar 04 05:41:48 2010 -0800
+++ b/cgi-bin/DW/Shop/Item.pm	Thu Mar 04 06:07:47 2010 -0800
@@ -377,6 +377,7 @@ promotions. Not exposed/settable via the
 promotions. Not exposed/settable via the shop.
 
 =cut
+
 sub applied      { return $_[0]->{applied};         }
 sub cost         { return $_[0]->{cost};            }
 sub t_email      { return $_[0]->{target_email};    }
diff -r 691929895e5d -r 4478dc798e28 cgi-bin/DW/Shop/Item/Account.pm
--- a/cgi-bin/DW/Shop/Item/Account.pm	Thu Mar 04 05:41:48 2010 -0800
+++ b/cgi-bin/DW/Shop/Item/Account.pm	Thu Mar 04 06:07:47 2010 -0800
@@ -388,7 +388,8 @@ Returns whether this item for a random u
 Returns whether this item for a random user should go to an anonymous user (true)
 or to an identified user (false)
 
-=cut 
+=cut
+
 sub months       { return $_[0]->{months};          }
 sub class        { return $_[0]->{class};           }
 sub permanent    { return $_[0]->months == 99;      }
diff -r 691929895e5d -r 4478dc798e28 cgi-bin/DW/StatData.pm
--- a/cgi-bin/DW/StatData.pm	Thu Mar 04 05:41:48 2010 -0800
+++ b/cgi-bin/DW/StatData.pm	Thu Mar 04 06:07:47 2010 -0800
@@ -160,6 +160,7 @@ Accepts the same arguments as $class->lo
 Accepts the same arguments as $class->load, but returns only the latest row
 
 =cut
+
 sub load_latest {
     my $self = shift;
     my $rows = $self->load( @_ );
diff -r 691929895e5d -r 4478dc798e28 cgi-bin/DW/Worker/ContentImporter.pm
--- a/cgi-bin/DW/Worker/ContentImporter.pm	Thu Mar 04 05:41:48 2010 -0800
+++ b/cgi-bin/DW/Worker/ContentImporter.pm	Thu Mar 04 06:07:47 2010 -0800
@@ -51,6 +51,7 @@ option, followed by a consistent hashref
   }
 
 =cut
+
 sub merge_trust {
     my ( $class, $u, $opts, $friends ) = @_;
     foreach my $friend ( @$friends ) {
@@ -70,6 +71,7 @@ sub merge_trust {
   }
 
 =cut
+
 sub merge_watch {
     my ( $class, $u, $opts, $friends ) = @_;
     foreach my $friend ( @$friends ) {
@@ -164,7 +166,7 @@ sub temp_fail {
     return;
 }
 
-=head2 C<< $class->ok( $import_data, $item, $job, $show )>>
+=head2 C<< $class->ok( $import_data, $item, $job, $show ) >>
 
 Successfully end this import job.
 
diff -r 691929895e5d -r 4478dc798e28 cgi-bin/DW/Worker/ContentImporter/LiveJournal.pm
--- a/cgi-bin/DW/Worker/ContentImporter/LiveJournal.pm	Thu Mar 04 05:41:48 2010 -0800
+++ b/cgi-bin/DW/Worker/ContentImporter/LiveJournal.pm	Thu Mar 04 06:07:47 2010 -0800
@@ -17,6 +17,14 @@
 # The entry and comment fetching code have been copied and modified from jbackup.pl
 
 package DW::Worker::ContentImporter::LiveJournal;
+
+=head1 NAME
+
+DW::Worker::ContentImporter::LiveJournal - Importer worker for LiveJournal-based sites.
+
+=head1 API
+
+=cut
 
 use strict;
 use base 'DW::Worker::ContentImporter';
@@ -40,6 +48,11 @@ sub retry_delay {
     return ( 10, 30, 60, 300, 600 )[$fails];
 }
 
+=head2 C<< $class->remap_groupmask( $data, $allowmask ) >>
+
+Converts a remote groupmask into a local groupmask.
+
+=cut
 
 sub remap_groupmask {
     my ( $class, $data, $allowmask ) = @_;
@@ -71,6 +84,9 @@ sub remap_groupmask {
 
     return $newmask;
 }
+
+=head2 C<< $class->get_feed_account_from_url( $data, $url, $acct ) >>
+=cut
 
 sub get_feed_account_from_url {
     my ( $class, $data, $url, $acct ) = @_;
@@ -133,6 +149,14 @@ sub get_feed_account_from_url {
     return undef;
 }
 
+=head2 C<< $class->get_remapped_userids( $data, $user ) >>
+
+Remaps a remote user to local userids.
+
+( $access_uid, $read_uid )
+
+=cut
+
 sub get_remapped_userids {
     my ( $class, $data, $user ) = @_;
 
@@ -174,6 +198,12 @@ sub get_remapped_userids {
     return ( $oid, $fid );
 }
 
+=head2 C<< $class->remap_username_feed( $data, $username ) >>
+
+Remaps a remote user to a local feed.
+
+=cut
+
 sub remap_username_feed {
     my ( $class, $data, $username ) = @_;
 
@@ -191,6 +221,12 @@ sub remap_username_feed {
 
     return $acct;
 }
+
+=head2 C<< $class->remap_username_friend( $data, $username ) >>
+
+Remaps a remote user to a local OpenID user.
+
+=cut
 
 sub remap_username_friend {
     my ( $class, $data, $username ) = @_;
@@ -244,11 +280,23 @@ sub remap_username_friend {
     }
 }
 
+=head2 C<< $class->remap_lj_user( $data, $event ) >>
+
+Remaps lj user tags to point to the remote site.
+
+=cut
+
 sub remap_lj_user {
     my ( $class, $data, $event ) = @_;
     $event =~ s/(<lj[^>]+?(user|comm|syn)=["']?(.+?)["' ]?>)/<lj site="$data->{hostname}" $2="$3">/gi;
     return $event;
 }
+
+=head2 C<< $class->get_lj_session( $opts ) >>
+
+Returns a LJ session cookie.
+
+=cut
 
 sub get_lj_session {
     my ( $class, $imp ) = @_;
@@ -260,7 +308,7 @@ sub get_lj_session {
     return $r->{ljsession};
 }
 
-=head2 C<< $class->get_xpost_map( $user, $hashref )
+=head2 C<< $class->get_xpost_map( $user, $hashref ) >>
 
 Returns a hashref mapping jitemids to crossposted entries.
 
@@ -302,6 +350,12 @@ sub get_xpost_map {
 
     return \%map;
 }
+
+=head2 C<< $class->find_matching_acct( $u, $data ) >>
+
+Finds the External Account ID, if this user is set up to xpost.
+
+=cut
 
 sub find_matching_acct {
     my ( $class, $u, $data ) = @_;
@@ -363,6 +417,12 @@ sub xmlrpc_call_helper {
     return $res->result;
 }
 
+=head2 C<< $class->call_xmlrpc( $opts, $mode, $hash ) >>
+
+Call XMLRPC request.
+
+=cut
+
 sub call_xmlrpc {
     # also a way to help people do xmlrpc stuff easily.  this method actually does the
     # challenge response stuff so we never send the user's password or md5 digest over
@@ -396,6 +456,14 @@ sub call_xmlrpc {
 
     return $res;
 }
+
+=head2 C<< $class->get_foaf_from( $url ) >>
+
+Get FOAF data.
+
+Returns ( \%items, \@interests, \@schools ).
+
+=cut
 
 sub get_foaf_from {
     my ( $class, $url ) = @_;
@@ -484,4 +552,24 @@ sub get_foaf_from {
     return ( \%items, \@interests, \@schools );
 }
 
+=head1 AUTHORS
+
+=over
+
+=item Andrea Nall <anall@andreanall.com>
+
+=item Mark Smith <mark@dreamwidth.org>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2009 by Dreamwidth Studios, LLC.
+
+This program is free software; you may redistribute it and/or modify it under
+the same terms as Perl itself. For a copy of the license, please reference
+'perldoc perlartistic' or 'perldoc perlgpl'.
+
+=cut
+
 1;
diff -r 691929895e5d -r 4478dc798e28 cgi-bin/DW/Worker/ContentImporter/Local/Bio.pm
--- a/cgi-bin/DW/Worker/ContentImporter/Local/Bio.pm	Thu Mar 04 05:41:48 2010 -0800
+++ b/cgi-bin/DW/Worker/ContentImporter/Local/Bio.pm	Thu Mar 04 06:07:47 2010 -0800
@@ -76,5 +76,25 @@ sub merge_bio_items {
     }
 }
 
+=head1 AUTHORS
+
+=over
+
+=item Andrea Nall <anall@andreanall.com>
+
+=item Mark Smith <mark@dreamwidth.org>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2009 by Dreamwidth Studios, LLC.
+
+This program is free software; you may redistribute it and/or modify it under
+the same terms as Perl itself. For a copy of the license, please reference
+'perldoc perlartistic' or 'perldoc perlgpl'.
+
+=cut
+
 
 1;
diff -r 691929895e5d -r 4478dc798e28 cgi-bin/DW/Worker/ContentImporter/Local/Comments.pm
--- a/cgi-bin/DW/Worker/ContentImporter/Local/Comments.pm	Thu Mar 04 05:41:48 2010 -0800
+++ b/cgi-bin/DW/Worker/ContentImporter/Local/Comments.pm	Thu Mar 04 06:07:47 2010 -0800
@@ -26,7 +26,7 @@ DW::Worker::ContentImporter::Local::Comm
 
 These functions are part of the Saving API for comments.
 
-=head2 C<< $class->get_comment_map( $user, $hashref )
+=head2 C<< $class->get_comment_map( $user, $hashref ) >>
 
 Returns a hashref mapping import_source keys to jtalkids
 
@@ -158,5 +158,24 @@ sub insert_comment {
     return LJ::Talk::Post::enter_imported_comment( $u, $parent, $item, $comment, $date, \$errref );
 }
 
+=head1 AUTHORS
+
+=over
+
+=item Andrea Nall <anall@andreanall.com>
+
+=item Mark Smith <mark@dreamwidth.org>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2009 by Dreamwidth Studios, LLC.
+
+This program is free software; you may redistribute it and/or modify it under
+the same terms as Perl itself. For a copy of the license, please reference
+'perldoc perlartistic' or 'perldoc perlgpl'.
+
+=cut
 
 1;
diff -r 691929895e5d -r 4478dc798e28 cgi-bin/DW/Worker/ContentImporter/Local/Entries.pm
--- a/cgi-bin/DW/Worker/ContentImporter/Local/Entries.pm	Thu Mar 04 05:41:48 2010 -0800
+++ b/cgi-bin/DW/Worker/ContentImporter/Local/Entries.pm	Thu Mar 04 06:07:47 2010 -0800
@@ -28,7 +28,7 @@ DW::Worker::ContentImporter::Local::Entr
 
 These functions are part of the Saving API for entries.
 
-=head2 C<< $class->get_entry_map( $user, $hashref )
+=head2 C<< $class->get_entry_map( $user, $hashref ) >>
 
 Returns a hashref mapping import_source keys to jitemids
 
@@ -164,5 +164,24 @@ sub post_event {
     # flow will never get here
 }
 
+=head1 AUTHORS
+
+=over
+
+=item Andrea Nall <anall@andreanall.com>
+
+=item Mark Smith <mark@dreamwidth.org>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2009 by Dreamwidth Studios, LLC.
+
+This program is free software; you may redistribute it and/or modify it under
+the same terms as Perl itself. For a copy of the license, please reference
+'perldoc perlartistic' or 'perldoc perlgpl'.
+
+=cut
 
 1;
diff -r 691929895e5d -r 4478dc798e28 cgi-bin/DW/Worker/ContentImporter/Local/Tags.pm
--- a/cgi-bin/DW/Worker/ContentImporter/Local/Tags.pm	Thu Mar 04 05:41:48 2010 -0800
+++ b/cgi-bin/DW/Worker/ContentImporter/Local/Tags.pm	Thu Mar 04 06:07:47 2010 -0800
@@ -40,5 +40,24 @@ sub merge_tags {
     }
 }
 
+=head1 AUTHORS
+
+=over
+
+=item Andrea Nall <anall@andreanall.com>
+
+=item Mark Smith <mark@dreamwidth.org>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2009 by Dreamwidth Studios, LLC.
+
+This program is free software; you may redistribute it and/or modify it under
+the same terms as Perl itself. For a copy of the license, please reference
+'perldoc perlartistic' or 'perldoc perlgpl'.
+
+=cut
 
 1;
diff -r 691929895e5d -r 4478dc798e28 cgi-bin/DW/Worker/ContentImporter/Local/TrustGroups.pm
--- a/cgi-bin/DW/Worker/ContentImporter/Local/TrustGroups.pm	Thu Mar 04 05:41:48 2010 -0800
+++ b/cgi-bin/DW/Worker/ContentImporter/Local/TrustGroups.pm	Thu Mar 04 06:07:47 2010 -0800
@@ -76,5 +76,25 @@ sub merge_trust_groups {
     return \%map;
 }
 
+=head1 AUTHORS
+
+=over
+
+=item Andrea Nall <anall@andreanall.com>
+
+=item Mark Smith <mark@dreamwidth.org>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2009 by Dreamwidth Studios, LLC.
+
+This program is free software; you may redistribute it and/or modify it under
+the same terms as Perl itself. For a copy of the license, please reference
+'perldoc perlartistic' or 'perldoc perlgpl'.
+
+=cut
+
 
 1;
diff -r 691929895e5d -r 4478dc798e28 cgi-bin/DW/Worker/ContentImporter/Local/Userpics.pm
--- a/cgi-bin/DW/Worker/ContentImporter/Local/Userpics.pm	Thu Mar 04 05:41:48 2010 -0800
+++ b/cgi-bin/DW/Worker/ContentImporter/Local/Userpics.pm	Thu Mar 04 06:07:47 2010 -0800
@@ -175,5 +175,25 @@ sub import_userpic {
     return $ret;
 }
 
+=head1 AUTHORS
+
+=over
+
+=item Andrea Nall <anall@andreanall.com>
+
+=item Mark Smith <mark@dreamwidth.org>
+
+=back
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 2009 by Dreamwidth Studios, LLC.
+
+This program is free software; you may redistribute it and/or modify it under
+the same terms as Perl itself. For a copy of the license, please reference
+'perldoc perlartistic' or 'perldoc perlgpl'.
+
+=cut
+
 
 1;
diff -r 691929895e5d -r 4478dc798e28 cgi-bin/LJ/User.pm
--- a/cgi-bin/LJ/User.pm	Thu Mar 04 05:41:48 2010 -0800
+++ b/cgi-bin/LJ/User.pm	Thu Mar 04 06:07:47 2010 -0800
@@ -89,12 +89,13 @@ use LJ::S2Theme;
 ###  99. Miscellaneous Legacy Items
 
 
-
-
-
 ########################################################################
 ### 1. Creating and Deleting Accounts
 
+=head1 LJ::User Methods
+
+=head2 Creating and Deleting Accounts
+=cut
 
 sub can_expunge {
     my $u = shift;
@@ -379,9 +380,11 @@ sub who_invited {
 }
 
 
-
 ########################################################################
 ###  2. Statusvis and Account Types
+
+=head2 Statusvis and Account Types
+=cut
 
 sub get_previous_statusvis {
     my $u = shift;
@@ -592,10 +595,11 @@ sub statusvisdate_unix {
 }
 
 
-
 ########################################################################
 ### 3. Working with All Types of Account
 
+=head2 Working with All Types of Account
+=cut
 
 # this will return a hash of information about this user.
 # this is useful for JavaScript endpoints which need to dump
@@ -843,6 +847,8 @@ sub unset_remote
 ########################################################################
 ### 4. Login, Session, and Rename Functions
 
+=head2 Login, Session, and Rename Functions
+=cut
 
 # returns a new LJ::Session object, or undef on failure
 sub create_session
@@ -1128,6 +1134,8 @@ sub _logout_common {
 ########################################################################
 ### 5. Database and Memcache Functions
 
+=head2 Database and Memcache Functions
+=cut
 
 sub begin_work {
     my $u = shift;
@@ -1627,6 +1635,9 @@ sub writer {
 ########################################################################
 ### 6. What the App Shows to Users
 
+=head2 What the App Shows to Users
+=cut
+
 # format unixtimestamp according to the user's timezone setting
 sub format_time {
     # FIXME: this function is unused as of Aug 2009 - kareila
@@ -1745,6 +1756,8 @@ sub tosagree_verify {
 ########################################################################
 ### 7. Userprops, Caps, and Displaying Content to Others
 
+=head2 Userprops, Caps, and Displaying Content to Others
+=cut
 
 sub add_to_class {
     my ($u, $class) = @_;
@@ -1993,12 +2006,13 @@ sub clear_prop {
     return 1;
 }
 
-=head2 C<< $self->clear_daycounts( @security ) >>
+=head3 C<< $self->clear_daycounts( @security ) >>
 Clears the day counts relevant to the entry security
 
 security is an array of strings: "public", a number (allowmask), "private"
 
 =cut
+
 sub clear_daycounts
 {
     my ( $u, @security ) = @_;
@@ -2658,6 +2672,9 @@ sub _lazy_migrate_infoshow {
 ########################################################################
 ### 8. Formatting Content Shown to Users
 
+=head2 Formatting Content Shown to Users
+=cut
+
 sub ajax_auth_token {
     return LJ::Auth->ajax_auth_token( @_ );
 }
@@ -2894,6 +2911,8 @@ sub set_bio {
 ########################################################################
 ### 9. Logging and Recording Actions
 
+=head2 Logging and Recording Actions
+=cut
 
 # <LJFUNC>
 # name: LJ::User::dudata_set
@@ -2952,6 +2971,8 @@ sub log_event {
 ########################################################################
 ### 10. Banning-Related Functions
 
+=head2 Banning-Related Functions
+=cut
 
 sub ban_user {
     my ($u, $ban_u) = @_;
@@ -3005,7 +3026,8 @@ sub unban_user_multi {
 ### 11. Birthdays and Age-Related Functions
 ###   FIXME: Some of these may be outdated when we remove under-13 accounts.
 
-
+=head2 Birthdays and Age-Related Functions
+=cut
 
 # Users age based off their profile birthdate
 sub age {
@@ -3327,6 +3349,8 @@ sub usersearch_age_with_expire {
 ########################################################################
 ### 12. Comment-Related Functions
 
+=head2 Comment-Related Functions
+=cut
 
 # get recent talkitems posted to this user
 # args: maximum number of comments to retrieve
@@ -3424,6 +3448,8 @@ sub num_comments_received {
 ########################################################################
 ### 13. Community-Related Functions and Authas
 
+=head2 Community-Related Functions and Authas
+=cut
 
 sub can_manage {
     return LJ::can_manage( @_ );
@@ -3636,6 +3662,8 @@ sub trusts_or_has_member {
 ########################################################################
 ### 14. Adult Content Functions
 
+=head2 Adult Content Functions
+=cut
 
 # defined by the user
 # returns 'none', 'concepts' or 'explicit'
@@ -3735,6 +3763,8 @@ sub should_show_in_search_results {
 ########################################################################
 ###  15. Email-Related Functions
 
+=head2 Email-Related Functions
+=cut
 
 sub delete_email_alias {
     my $u = shift;
@@ -3909,6 +3939,9 @@ sub validated_mbox_sha1sum {
 
 ########################################################################
 ###  16. Entry-Related Functions
+
+=head2 Entry-Related Functions
+=cut
 
 # front-end to recent_entries, which forces the remote user to be
 # the owner, so we get everything.
@@ -4212,6 +4245,9 @@ sub third_party_notify_list_remove {
 
 ########################################################################
 ###  17. Interest-Related Functions
+
+=head2 Interest-Related Functions
+=cut
 
 # $opts is optional, with keys:
 #    forceids => 1   : don't use memcache for loading the intids
@@ -4446,6 +4482,8 @@ sub set_interests {
 ########################################################################
 ###  18. Jabber-Related Functions
 
+=head2 Jabber-Related Functions
+=cut
 
 # Hide the LJ Talk field on profile?  opt_showljtalk needs a value of 'N'.
 sub hide_ljtalk {
@@ -4555,6 +4593,9 @@ sub show_ljtalk {
 
 ########################################################################
 ###  19. OpenID and Identity Users
+
+=head2 OpenID and Identity Users
+=cut
 
 # returns a true value if user has a reserved 'ext' name.
 sub external {
@@ -4744,6 +4785,9 @@ sub rename_identity {
 ########################################################################
 ###  20. Page Notices Functions
 
+=head2 Page Notices Functions
+=cut
+
 sub dismissed_page_notices {
     my $u = shift;
 
@@ -4807,6 +4851,9 @@ sub has_dismissed_page_notice {
 
 ########################################################################
 ###  21. Password Functions
+
+=head2 Password Functions
+=cut
 
 sub can_receive_password {
     my ($u, $email) = @_;
@@ -4934,6 +4981,8 @@ sub revoke_priv_all {
 ########################################################################
 ###  24. Styles and S2-Related Functions
 
+=head2 Styles and S2-Related Functions
+=cut
 
 sub journal_base {
     my $u = shift;
@@ -5032,6 +5081,8 @@ sub view_priv_check {
 ########################################################################
 ###  25. Subscription, Notifiction, and Messaging Functions
 
+=head2 Subscription, Notifiction, and Messaging Functions
+=cut
 
 # this is the count used to check the maximum subscription count
 sub active_inbox_subscription_count {
@@ -5249,6 +5300,9 @@ sub subscriptions {
 
 ########################################################################
 ### 26. Syndication-Related Functions
+
+=head2 Syndication-Related Functions
+=cut
 
 # retrieve hash of basic syndicated info
 sub get_syndicated {
@@ -5273,6 +5327,9 @@ sub get_syndicated {
 
 ########################################################################
 ###  27. Tag-Related Functions
+
+=head2 Tag-Related Functions
+=cut
 
 # can $u add existing tags to $targetu's entries?
 sub can_add_tags_to {
@@ -5342,6 +5399,9 @@ sub tags {
 
 ########################################################################
 ###  28. Userpic-Related Functions
+
+=head2 Userpic-Related Functions
+=cut
 
 # <LJFUNC>
 # name: LJ::User::activate_userpics
@@ -5607,6 +5667,10 @@ use Carp;
 ########################################################################
 ###  1. Creating and Deleting Accounts
 
+=head1 LJ Methods
+
+=head2 Creating and Deleting Accounts (LJ)
+=cut
 
 # <LJFUNC>
 # name: LJ::create_account
@@ -5674,6 +5738,8 @@ sub random_cluster {
 ########################################################################
 ###  2. Working with All Types of Accounts
 
+=head2 Working with All Types of Accounts (LJ)
+=cut
 
 # <LJFUNC>
 # name: LJ::canonical_username
@@ -6152,6 +6218,8 @@ sub want_userid
 ########################################################################
 ###  3. Login, Session, and Rename Functions
 
+=head2 Login, Session, and Rename Functions (LJ)
+=cut
 
 # returns the country that the remote IP address comes from
 # undef is returned if the country cannot be determined from the IP
@@ -6338,6 +6406,8 @@ sub unset_remote
 ########################################################################
 ###  5. Database and Memcache Functions
 
+=head2 Database and Memcache Functions (LJ)
+=cut
 
 # $dom: 'L' == log, 'T' == talk, 'M' == modlog, 'S' == session,
 #       'R' == memory (remembrance), 'K' == keyword id,
@@ -6690,6 +6760,9 @@ sub _set_u_req_cache {
 
 ########################################################################
 ###  6. What the App Shows to Users
+
+=head2 What the App Shows to Users (LJ)
+=cut
 
 # <LJFUNC>
 # name: LJ::get_timezone
@@ -6895,6 +6968,9 @@ sub ljuser
 ########################################################################
 ###  7. Userprops, Caps, and Displaying Content to Others
 
+=head2 Userprops, Caps, and Displaying Content to Others (LJ)
+=cut
+
 # <LJFUNC>
 # name: LJ::get_bio
 # des: gets a user bio, from DB or memcache.
@@ -7277,6 +7353,8 @@ sub set_userprop
 ########################################################################
 ###  8. Formatting Content Shown to Users
 
+=head2 Formatting Content Shown to Users (LJ)
+=cut
 
 # Returns HTML to display user search results
 # Args: %args
@@ -7415,6 +7493,9 @@ sub user_search_display {
 ########################################################################
 ###  9. Logging and Recording Actions
 
+=head2 Logging and Recording Actions (LJ)
+=cut
+
 # <LJFUNC>
 # name: LJ::infohistory_add
 # des: Add a line of text to the [[dbtable[infohistory]] table for an account.
@@ -7555,6 +7636,9 @@ sub rate_log
 ########################################################################
 ###  12. Comment-Related Functions
 
+=head2 Comment-Related Functions (LJ)
+=cut
+
 # <LJFUNC>
 # name: LJ::delete_all_comments
 # des: deletes all comments from a post, permanently, for when a post is deleted
@@ -7600,6 +7684,8 @@ sub delete_all_comments {
 ########################################################################
 ###  13. Community-Related Functions and Authas
 
+=head2 Community-Related Functions and Authas (LJ)
+=cut
 
 sub can_delete_journal_item {
     return LJ::can_manage(@_);
@@ -7725,6 +7811,9 @@ sub get_postto_list {
 ########################################################################
 ###  15. Email-Related Functions
 
+=head2 Email-Related Functions (LJ)
+=cut
+
 sub set_email {
     my ($userid, $email) = @_;
 
@@ -7746,6 +7835,9 @@ sub set_email {
 
 ########################################################################
 ###  17. Interest-Related Functions
+
+=head2 Interest-Related Functions (LJ)
+=cut
 
 sub interest_string_to_list {
     my $intstr = shift;
@@ -7803,6 +7895,9 @@ sub validate_interest_list {
 ########################################################################
 ###  19. OpenID and Identity Functions
 
+=head2 OpenID and Identity Functions (LJ)
+=cut
+
 # create externally mapped user.
 # return uid of LJ user on success, undef on error.
 # opts = {
@@ -7915,6 +8010,9 @@ sub get_extuser_uid
 ########################################################################
 ###  21. Password Functions
 
+=head2 Password Functions (LJ)
+=cut
+
 # Checks if they are flagged as having a bad password and redirects
 # to changepassword.bml.  If returl is on it returns the URL to
 # redirect to vs doing the redirect itself.  Useful in non-BML context
@@ -7959,6 +8057,9 @@ sub set_password {
 
 ########################################################################
 ###  22. Priv-Related Functions
+
+=head2 Priv-Related Functions (LJ)
+=cut
 
 # <LJFUNC>
 # name: LJ::load_user_privs
@@ -8000,6 +8101,8 @@ sub load_user_privs
 ########################################################################
 ###  24. Styles and S2-Related Functions
 
+=head2 Styles and S2-Related Functions (LJ)
+=cut
 
 # returns undef on error, or otherwise arrayref of arrayrefs,
 # each of format [ year, month, day, count ] for all days with
@@ -8577,6 +8680,9 @@ sub make_journal
 ########################################################################
 ###  28. Userpic-Related Functions
 
+=head2 Userpic-Related Functions (LJ)
+=cut
+
 # <LJFUNC>
 # name: LJ::userpic_count
 # des: Gets a count of userpics for a given user.
diff -r 691929895e5d -r 4478dc798e28 cgi-bin/LJ/Widget.pm
--- a/cgi-bin/LJ/Widget.pm	Thu Mar 04 05:41:48 2010 -0800
+++ b/cgi-bin/LJ/Widget.pm	Thu Mar 04 06:07:47 2010 -0800
@@ -828,7 +828,11 @@ Wrapper around BML::decl_params().
 
 Wrapper around LJ::form_auth().
 
+=back
+
 =head2 AJAX-Related Methods
+
+=over 4
 
 =item C<js>
 
@@ -842,7 +846,11 @@ used to create a JavaScript variable tha
 used to create a JavaScript variable that holds the widget JavaScript object in
 it.
 
+=back
+
 =head2 Flags for Widgets
+
+=over 4
 
 =item C<ajax>
 
@@ -858,7 +866,11 @@ Returns if a widget supports authas auth
 Returns if a widget supports authas authentication or not (in GET or POST).  Can
 be subclassed.
 
+=back
+
 =head2 Form Utility Methods
+
+=over 4
 
 =item C<start_form>
 
@@ -913,7 +925,11 @@ if C<handle_post> is being used.
 
 The prefix that's added on to form element names to make them widget-specific.
 
+=back
+
 =head2 Translation String Methods
+
+=over 4
 
 =item C<ml_key>
 
diff -r 691929895e5d -r 4478dc798e28 cgi-bin/sysban.pl
--- a/cgi-bin/sysban.pl	Thu Mar 04 05:41:48 2010 -0800
+++ b/cgi-bin/sysban.pl	Thu Mar 04 06:07:47 2010 -0800
@@ -18,6 +18,10 @@ no warnings 'uninitialized';
 no warnings 'uninitialized';
 
 package LJ;
+
+=head1 Methods
+
+=cut
 
 # <LJFUNC>
 # name: LJ::sysban_check
@@ -276,13 +280,14 @@ sub _db_sysban_populate_full {
 }
 
 
-=h2 C<< LJ::sysban_populate_full_by_value( $value, @types ) >>
+=head2 C<< LJ::sysban_populate_full_by_value( $value, @types ) >>
 
 List all sysbans for the given value, of the specified types. This can be used, for example, to limit the sysban to only the privs that this user can see.
 Returns a hashref of hashes in the format:
     what => { expire => expiration, note => note, banid => banid }
 
 =cut
+
 sub sysban_populate_full_by_value {
     my ( $value, @types ) = @_;
     return LJ::_db_sysban_populate_full_by_value( $value, @types );
--------------------------------------------------------------------------------
  • Add Memory
  • Share This Entry
(0 comments)

Post a comment in response:

This account has disabled anonymous posting.
If you don't have an account you can create one now.
HTML doesn't work in the subject.
More info about formatting

If you are unable to use this captcha for any reason, please contact us by email at support@dreamwidth.org

 
Notice: This account is set to log the IP addresses of everyone who comments.
Links will be displayed as unclickable URLs to help prevent spam.