Changeset 917

Timestamp:

03/16/02 22:34:31 (11 years ago)

Author:

bradfitz

Message:

formatting clean-ups, and an LJFUNC fix

Files:

• trunk/cgi-bin/ljlib.pl (modified) (8 diffs)

trunk/cgi-bin/ljlib.pl

@@ -596 +596 @@
 # des-url: An optional URL of what the client hit.
 # </LJFUNC>
-sub send_statserv {
+sub send_statserv
+{
     my $user = shift;
     my $ip = shift;
@@ -5352 +5353 @@
 # returns: nothing.
 # </LJFUNC>
-sub text_out {
+sub text_out
+{
     my $rtext = shift;
 
@@ -5369 +5371 @@
 # name: LJ::text_in
 # des: do appropriate checks on input text. Should be called on all
-# user-generated text.
+#      user-generated text.
 # args: text
 # des-text: text to check
 # returns: 1 if the text is valid, 0 if not.
 # </LJFUNC>
-sub text_in {
+sub text_in
+{
     my $text = shift;
     return 1 unless $LJ::UNICODE;
@@ -5394 +5397 @@
 # returns: converted text or undef on error
 # </LJFUNC>
-
-sub text_convert {
+sub text_convert
+{
     my ($dbs, $text, $u, $error) = @_;
 
@@ -5405 +5408 @@
         unless %LJ::CACHE_ENCODINGS;
 
-    if ($u->{'oldenc'} == 0 || 
+    if ($u->{'oldenc'} == 0 ||
         not defined $LJ::CACHE_ENCODINGS{$u->{'oldenc'}}) {
         $$error = 1;
         return undef;
     };
-    
+
     # convert!
     my $name = $LJ::CACHE_ENCODINGS{$u->{'oldenc'}};
@@ -5432 +5435 @@
 # des-char_max: maximum allowed length in chars; if 0, there's no restriction
 # returns: the truncated string.
-
-sub text_trim {
-
+sub text_trim
+{
     my ($text, $byte_max, $char_max) = @_;
     return $text unless $byte_max or $char_max;
@@ -5448 +5450 @@
         last unless $char_max;
         last if $cur + length($1) > $byte_max and $byte_max;
-        $cur += length($1); 
+        $cur += length($1);
         $char_max--;
     }
     return substr($text,0,$cur);
 }
-        
+
 # <LJFUNC>
 # name: LJ::item_toutf8
@@ -5465 +5467 @@
 # des-props: hashref of the item's props
 # returns: nothing.
-
-sub item_toutf8 {
+sub item_toutf8
+{
     my ($dbs, $u, $subject, $text, $props) = @_;
     return unless $LJ::UNICODE;