X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=src%2FModules%2FTopic.pl;h=b4c0ae5886d8735bf5275d51882591cc7b99c9be;hb=refs%2Fheads%2Fdpkg;hp=4e8f3d7c4f965a500a526e6425e97a67366c1a0e;hpb=20b2f7570ecd766450052f119dde294f738e659d;p=infobot.git

diff --git a/src/Modules/Topic.pl b/src/Modules/Topic.pl
index 4e8f3d7..b4c0ae5 100644
--- a/src/Modules/Topic.pl
+++ b/src/Modules/Topic.pl
@@ -19,33 +19,35 @@ sub topicDecipher {
     my ($chan) = @_;
     my @results;
 
-    return if (!exists $topic{$chan});
-    return if (!exists $topic{$chan}{'Current'});
+    return if ( !exists $topic{$chan} );
+    return if ( !exists $topic{$chan}{'Current'} );
 
-    foreach (split /\|\|/, $topic{$chan}{'Current'}) {
-	s/^\s+//;
-	s/\s+$//;
+    foreach ( split /\|\|/, $topic{$chan}{'Current'} ) {
+        s/^\s+//;
+        s/\s+$//;
 
-	# very nice fix to solve the null subtopic problem.
-	# if nick contains a space, treat topic as ownerless.
-	if (/^\(.*?\)$/) {
-	    next unless ($1 =~ /\s/);
-	}
+        # very nice fix to solve the null subtopic problem.
+        # if nick contains a space, treat topic as ownerless.
+        if (/^\(.*?\)$/) {
+            next unless ( $1 =~ /\s/ );
+        }
 
-	my $subtopic	= $_;
-	my $owner	= "Unknown";
+        my $subtopic = $_;
+        my $owner    = 'Unknown';
 
-	if (/(.*)\s+\((.*?)\)$/) {
-	    $subtopic	= $1;
-	    $owner	= $2;
-	}
+        if (/(.*)\s+\((.*?)\)$/) {
+            $subtopic = $1;
+            $owner    = $2;
+        }
 
-	if (grep /^\Q$subtopic\E\|\|\Q$owner\E$/, @results) {
-	    &status("Topic: we have found a dupe ($subtopic) in the topic, not adding.");
-	    next;
-	}
+        if ( grep /^\Q$subtopic\E\|\|\Q$owner\E$/, @results ) {
+            &status(
+"Topic: we have found a dupe ($subtopic) in the topic, not adding."
+            );
+            next;
+        }
 
-	push(@results, "$subtopic||$owner");
+        push( @results, "$subtopic||$owner" );
     }
 
     return @results;
@@ -54,66 +56,70 @@ sub topicDecipher {
 ###
 # Usage: &topicCipher(@topics);
 sub topicCipher {
-    return if (!@_);
+    return if ( !@_ );
 
     my @topic;
     foreach (@_) {
-	my ($subtopic, $setby) = split /\|\|/;
+        my ( $subtopic, $setby ) = split /\|\|/;
 
-	if ($setby =~ /^(unknown|)$/i) {
-	    push(@topic, $subtopic);
-	} else {
-	    push(@topic, "$subtopic ($setby)");
-	}
+        if ( $param{'topicAuthor'} eq '1' and ( !$setby =~ /^(unknown|)$/i ) ) {
+            push( @topic, "$subtopic ($setby)" );
+        }
+        else {
+            push( @topic, "$subtopic" );
+        }
     }
 
-    return join(' || ', @topic);
+    return join( ' || ', @topic );
 }
 
 ###
 # Usage: &topicNew($chan, $topic, $updateMsg);
 sub topicNew {
-    my ($chan, $topic, $updateMsg) = @_;
+    my ( $chan, $topic, $updateMsg ) = @_;
     my $maxlen = 470;
 
-    if ($channels{$chan}{t} and !$channels{$chan}{o}{$ident}) {
-	&msg($who, "error: cannot change topic without ops. (channel is +t) :(");
-	return 0;
+    if ( $channels{$chan}{t} and !$channels{$chan}{o}{$ident} ) {
+        &msg( $who,
+            "error: cannot change topic without ops. (channel is +t) :(" );
+        return 0;
     }
 
-    if (defined $topiccmp{$chan} and $topiccmp{$chan} eq $topic) {
-	&msg($who, "warning: action had no effect on topic; no change required.");
-	return 0;
+    if ( defined $topiccmp{$chan} and $topiccmp{$chan} eq $topic ) {
+        &msg( $who,
+            "warning: action had no effect on topic; no change required." );
+        return 0;
     }
 
     # bail out if the new topic is too long.
-    my $newlen = length($chan.$topic);
-    if ($newlen > $maxlen) {
-	&msg($who, "new topic will be too long. ($newlen > $maxlen)");
-	return 0;
+    my $newlen = length( $chan . $topic );
+    if ( $newlen > $maxlen ) {
+        &msg( $who, "new topic will be too long. ($newlen > $maxlen)" );
+        return 0;
     }
 
     $topic{$chan}{'Current'} = $topic;
 
-    if ($cache{topicNotUpdate}{$chan}) {
-	&msg($who, "done. 'flush' to finalize changes.");
-	delete $cache{topicNotUpdate}{$chan};
-	return 1;
+    if ( $cache{topicNotUpdate}{$chan} ) {
+        &msg( $who, "done. 'flush' to finalize changes." );
+        delete $cache{topicNotUpdate}{$chan};
+        return 1;
     }
 
-    if (defined $updateMsg && $updateMsg ne "") {
-	&msg($who, $updateMsg);
+    if ( defined $updateMsg && $updateMsg ne '' ) {
+        &msg( $who, $updateMsg );
     }
 
     $topic{$chan}{'Last'} = $topic;
-    $topic{$chan}{'Who'}  = $orig{who}."!".$uh;
+    $topic{$chan}{'Who'}  = $orig{who} . "!" . $uh;
     $topic{$chan}{'Time'} = time();
 
     if ($topic) {
-	$conn->topic($chan, $topic);
-	&topicAddHistory($chan, $topic);
-    } else {
-	$conn->topic($chan, " ");
+        $conn->topic( $chan, $topic );
+        &topicAddHistory( $chan, $topic );
+    }
+    else {
+        $conn->topic( $chan, ' ' );
     }
 
     return 1;
@@ -122,24 +128,25 @@ sub topicNew {
 ###
 # Usage: &topicAddHistory($chan,$topic);
 sub topicAddHistory {
-    my ($chan, $topic)	= @_;
-    my $dupe		= 0;
+    my ( $chan, $topic ) = @_;
+    my $dupe = 0;
+
+    return 1 if ( $topic eq '' );    # required fix.
 
-    return 1 if ($topic eq "");			# required fix.
+    foreach ( @{ $topic{$chan}{'History'} } ) {
+        next if ( $_ ne '' and $_ ne $topic );
 
-    foreach (@{ $topic{$chan}{'History'} }) {
-	next if ($_ ne "" and $_ ne $topic);
-	# checking length is required.
+        # checking length is required.
 
-	# slightly weird to put a return statement in a loop.
-	return 1;
+        # slightly weird to put a return statement in a loop.
+        return 1;
     }
 
     # WTF IS THIS FOR?
 
     my @topics = @{ $topic{$chan}{'History'} };
-    unshift(@topics, $topic);
-    pop(@topics) while (scalar @topics > 6);
+    unshift( @topics, $topic );
+    pop(@topics) while ( scalar @topics > 6 );
     $topic{$chan}{'History'} = \@topics;
 
     return $dupe;
@@ -151,208 +158,225 @@ sub topicAddHistory {
 
 # cmd: add.
 sub do_add {
-    my ($chan, $args) = @_;
+    my ( $chan, $args ) = @_;
 
-    if ($args eq "") {
-	&help("topic add");
-	return;
+    if ( $args eq '' ) {
+        &help('topic add');
+        return;
     }
 
     # heh, joeyh. 19990819. -xk
-    if ($who =~ /\|\|/) {
-	&msg($who, "error: you have an invalid nick, loser!");
-	return;
+    if ( $who =~ /\|\|/ ) {
+        &msg( $who, 'error: you have an invalid nick, loser!' );
+        return;
     }
 
-    return if ($channels{$chan}{t} and !&hasFlag("T"));
+    return if ( $channels{$chan}{t} and !&hasFlag('T') );
 
     my @prev = &topicDecipher($chan);
-    my $new  = "$args ($orig{who})";
+    my $new;
+
+    # If bot new to chan and topic is blank, it still got a (owner). This is fix
+    if ( $param{'topicAuthor'} eq '1' ) {
+        $new = "$args ($orig{who})";
+    }
+    else {
+        $new = "$args";
+    }
     $topic{$chan}{'What'} = "Added '$args'.";
 
-    if (scalar @prev) {
-	my $str = sprintf("%s||%s", $args, $who);
-	$new = &topicCipher(@prev, $str);
+    if ( scalar @prev ) {
+        my $str = sprintf( "%s||%s", $args, $who );
+        $new = &topicCipher( @prev, $str );
     }
 
-    &topicNew($chan, $new, "");
+    &topicNew( $chan, $new, '' );
 }
 
 # cmd: delete.
 sub do_delete {
-    my ($chan, $args)	= @_;
-    my @subtopics	= &topicDecipher($chan);
-    my $topiccount	= scalar @subtopics;
+    my ( $chan, $args ) = @_;
+    my @subtopics  = &topicDecipher($chan);
+    my $topiccount = scalar @subtopics;
 
-    if ($topiccount == 0) {
-	&msg($who, "No topic set.");
-	return;
+    if ( $topiccount == 0 ) {
+        &msg( $who, 'No topic set.' );
+        return;
     }
 
-    if ($args eq "") {
-	&help("topic del");
-	return;
+    if ( $args eq '' ) {
+        &help('topic del');
+        return;
     }
 
     for ($args) {
-	$_ = sprintf(",%s,", $args);
-	s/\s+//g;
-	s/(first|1st)/1/i;
-	s/last/$topiccount/i;
-	s/,-(\d+)/,1-$1/;
-	s/(\d+)-,/,$1-$topiccount/;
+        $_ = sprintf( ",%s,", $args );
+        s/\s+//g;
+        s/(first|1st)/1/i;
+        s/last/$topiccount/i;
+        s/,-(\d+)/,1-$1/;
+        s/(\d+)-,/,$1-$topiccount/;
     }
 
-    if ($args !~ /[\,\-\d]/) {
-	&msg($who, "error: Invalid argument ($args).");
-	return;
+    if ( $args !~ /[\,\-\d]/ ) {
+        &msg( $who, "error: Invalid argument ($args)." );
+        return;
     }
 
     my @delete;
-    foreach (split ",", $args) {
-	next if ($_ eq "");
+    foreach ( split ',', $args ) {
+        next if ( $_ eq '' );
 
-	# change to hash list instead of array?
-	if (/^(\d+)-(\d+)$/) {
-	    my ($from,$to) = ($1,$2);
-	    ($from,$to) = ($2,$1)	if ($from > $to);
+        # change to hash list instead of array?
+        if (/^(\d+)-(\d+)$/) {
+            my ( $from, $to ) = ( $1, $2 );
+            ( $from, $to ) = ( $2, $1 ) if ( $from > $to );
 
-	    push(@delete, $1..$2);
-	} elsif (/^(\d+)$/) {
-	    push(@delete, $1);
-	} else {
-	    &msg($who, "error: Invalid sub-argument ($_).");
-	    return;
-	}
+            push( @delete, $1 .. $2 );
+        }
+        elsif (/^(\d+)$/) {
+            push( @delete, $1 );
+        }
+        else {
+            &msg( $who, "error: Invalid sub-argument ($_)." );
+            return;
+        }
 
-	$topic{$chan}{'What'} = "Deleted ".join("/",@delete);
+        $topic{$chan}{'What'} = 'Deleted ' . join( "/", @delete );
     }
 
     foreach (@delete) {
-	if ($_ > $topiccount || $_ < 1) {
-	    &msg($who, "error: argument out of range. (max: $topiccount)");
-	    return;
-	}
+        if ( $_ > $topiccount || $_ < 1 ) {
+            &msg( $who, "error: argument out of range. (max: $topiccount)" );
+            return;
+        }
 
-	# skip if already deleted.
-	# only checked if x-y range is given.
-	next unless (defined($subtopics[$_-1]));
+        # skip if already deleted.
+        # only checked if x-y range is given.
+        next unless ( defined( $subtopics[ $_ - 1 ] ) );
 
-	my ($subtopic,$whoby) = split('\|\|', $subtopics[$_-1]);
+        my ( $subtopic, $whoby ) = split( '\|\|', $subtopics[ $_ - 1 ] );
 
-	$whoby = "unknown" if ($whoby eq "");
+        $whoby = 'unknown' if ( $whoby eq '' );
 
-	&msg($who, "Deleting topic: $subtopic ($whoby)");
-	undef $subtopics[$_-1];
+        &msg( $who, "Deleting topic: $subtopic ($whoby)" );
+        undef $subtopics[ $_ - 1 ];
     }
 
     my @newtopics;
     foreach (@subtopics) {
-	next unless (defined $_);
-	push(@newtopics, $_);
+        next unless ( defined $_ );
+        push( @newtopics, $_ );
     }
 
-    &topicNew($chan, &topicCipher(@newtopics), "");
+    &topicNew( $chan, &topicCipher(@newtopics), '' );
 }
 
 # cmd: list
 sub do_list {
-    my ($chan, $args) = @_;
+    my ( $chan, $args ) = @_;
     my @topics = &topicDecipher($chan);
 
-    if (!scalar @topics) {
-	&msg($who, "No topics for \002$chan\002.");
-	return;
+    if ( !scalar @topics ) {
+        &msg( $who, "No topics for \002$chan\002." );
+        return;
     }
 
-    &msg($who, "Topics for \002$chan\002:");
-    &msg($who, "No  \002[\002  Set by  \002]\002 Topic");
+    &msg( $who, "Topics for \002$chan\002:" );
+    &msg( $who, "No  \002[\002  Set by  \002]\002 Topic" );
 
     my $i = 1;
     foreach (@topics) {
-	my ($subtopic, $setby) = split /\|\|/;
+        my ( $subtopic, $setby ) = split /\|\|/;
+
+        my $str = sprintf( " %d. [%-10s] %s", $i, $setby, $subtopic );
 
-	my $str = sprintf(" %d. [%-10s] %s", $i, $setby, $subtopic);
-	# is there a better way of doing this?
-	$str =~ s/ (\[)/ \002$1/g;
-	$str =~ s/ (\])/ \002$1/g;
+        # is there a better way of doing this?
+        $str =~ s/ (\[)/ \002$1/g;
+        $str =~ s/ (\])/ \002$1/g;
 
-	&msg($who, $str);
-	$i++;
+        &msg( $who, $str );
+        $i++;
     }
 
-    &msg($who, "End of Topics.");
+    &msg( $who, "End of Topics." );
 }
 
 # cmd: modify.
 sub do_modify {
-    my ($chan, $args) = @_;
+    my ( $chan, $args ) = @_;
 
-    if ($args eq "") {
-	&help("topic mod");
-	return;
+    if ( $args eq '' ) {
+        &help('topic mod');
+        return;
     }
 
     # a warning message instead of halting. we kind of trust the user now.
-    if ($args =~ /\|\|/) {
-	&msg($who, "warning: adding double pipes manually == evil. be warned.");
+    if ( $args =~ /\|\|/ ) {
+        &msg( $who,
+            "warning: adding double pipes manually == evil. be warned." );
     }
 
     $topic{$chan}{'What'} = "SAR $args";
 
     # SAR patch. mu++
-    if ($args =~ m|^\s*s([/,#])(.+?)\1(.*?)\1([a-z]*);?\s*$|) {
-	my ($delim, $op, $np, $flags) = ($1,$2,$3,$4);
+    if ( $args =~ m|^\s*s([/,#])(.+?)\1(.*?)\1([a-z]*);?\s*$| ) {
+        my ( $delim, $op, $np, $flags ) = ( $1, $2, $3, $4 );
 
-	if ($flags !~ /^(g)?$/) {
-	    &msg($who, "error: Invalid flags to regex.");
-	    return;
-	}
+        if ( $flags !~ /^(g)?$/ ) {
+            &msg( $who, "error: Invalid flags to regex." );
+            return;
+        }
 
-	my $topic = $topic{$chan}{'Current'};
+        my $topic = $topic{$chan}{'Current'};
 
-	### TODO: use m### to make code safe!
-	if (($flags eq "g" and $topic =~ s/\Q$op\E/$np/g) ||
-	    ($flags eq ""  and $topic =~ s/\Q$op\E/$np/)
-	) {
+        ### TODO: use m### to make code safe!
+        if (   ( $flags eq 'g' and $topic =~ s/\Q$op\E/$np/g )
+            || ( $flags eq '' and $topic =~ s/\Q$op\E/$np/ ) )
+        {
 
-	    $_ = "Modifying topic with sar s/$op/$np/.";
-	    &topicNew($chan, $topic, $_);
-	} else {
-	    &msg($who, "warning: regex not found in topic.");
-	}
+            $_ = "Modifying topic with sar s/$op/$np/.";
+            &topicNew( $chan, $topic, $_ );
+        }
+        else {
+            &msg( $who, "warning: regex not found in topic." );
+        }
 
-	return;
+        return;
     }
 
-    &msg($who, "error: Invalid regex. Try s/1/2/, s#3#4#...");
+    &msg( $who, "error: Invalid regex. Try s/1/2/, s#3#4#..." );
 }
 
 # cmd: move.
 sub do_move {
-    my ($chan, $args) = @_;
+    my ( $chan, $args ) = @_;
 
-    if ($args eq "") {
-	&help("topic mv");
-	return;
+    if ( $args eq '' ) {
+        &help('topic mv');
+        return;
     }
 
-    my ($from, $action, $to);
+    my ( $from, $action, $to );
+
     # better way of doing this?
-    if ($args =~ /^(first|last|\d+)\s+(before|after|swap)\s+(first|last|\d+)$/i) {
-	($from, $action, $to) = ($1,$2,$3);
-    } else {
-	&msg($who, "Invalid arguments.");
-	return;
+    if ( $args =~
+        /^(first|last|\d+)\s+(before|after|swap)\s+(first|last|\d+)$/i )
+    {
+        ( $from, $action, $to ) = ( $1, $2, $3 );
+    }
+    else {
+        &msg( $who, "Invalid arguments." );
+        return;
     }
 
-    my @subtopics  = &topicDecipher($chan);
+    my @subtopics = &topicDecipher($chan);
     my @newtopics;
     my $topiccount = scalar @subtopics;
 
-    if ($topiccount == 1) {
-	&msg($who, "error: impossible to move the only subtopic, dumbass.");
-	return;
+    if ( $topiccount == 1 ) {
+        &msg( $who, "error: impossible to move the only subtopic, dumbass." );
+        return;
     }
 
     # Is there an easier way to do this?
@@ -361,124 +385,126 @@ sub do_move {
     $from =~ s/last/$topiccount/i;
     $to   =~ s/last/$topiccount/i;
 
-    if ($from > $topiccount || $to > $topiccount || $from < 1 || $to < 1) {
-	&msg($who, "error: <from> or <to> is out of range.");
-	return;
+    if ( $from > $topiccount || $to > $topiccount || $from < 1 || $to < 1 ) {
+        &msg( $who, "error: <from> or <to> is out of range." );
+        return;
     }
 
-    if ($from == $to) {
-	&msg($who, "error: <from> and <to> are the same.");
-	return;
+    if ( $from == $to ) {
+        &msg( $who, "error: <from> and <to> are the same." );
+        return;
     }
 
     $topic{$chan}{'What'} = "Move $from to $to";
 
-    if ($action =~ /^(swap)$/i) {
-	my $tmp			= $subtopics[$to   - 1];
-	$subtopics[$to   - 1]	= $subtopics[$from - 1];
-	$subtopics[$from - 1]	= $tmp;
+    if ( $action =~ /^(swap)$/i ) {
+        my $tmp = $subtopics[ $to - 1 ];
+        $subtopics[ $to - 1 ]   = $subtopics[ $from - 1 ];
+        $subtopics[ $from - 1 ] = $tmp;
 
-	$_ = "Swapped #\002$from\002 with #\002$to\002.";
-	&topicNew($chan, &topicCipher(@subtopics), $_);
-	return;
+        $_ = "Swapped #\002$from\002 with #\002$to\002.";
+        &topicNew( $chan, &topicCipher(@subtopics), $_ );
+        return;
     }
 
     # action != swap:
     # Is there a better way to do this? guess not.
-    my $i		= 1;
-    my $subtopic	= $subtopics[$from - 1];
+    my $i        = 1;
+    my $subtopic = $subtopics[ $from - 1 ];
     foreach (@subtopics) {
-	my $j = $i*2 - 1;
-	$newtopics[$j] = $_ if ($i != $from);
-	$i++;
+        my $j = $i * 2 - 1;
+        $newtopics[$j] = $_ if ( $i != $from );
+        $i++;
+    }
+
+    if ( $action =~ /^(before|b4)$/i ) {
+        $newtopics[ $to * 2 - 2 ] = $subtopic;
     }
+    else {
 
-    if ($action =~ /^(before|b4)$/i) {
-	$newtopics[$to*2-2] = $subtopic;
-    } else {
-	# action =~ /after/.
-	$newtopics[$to*2] = $subtopic;
+        # action =~ /after/.
+        $newtopics[ $to * 2 ] = $subtopic;
     }
 
-    undef @subtopics;			# lets reuse this array.
+    undef @subtopics;    # lets reuse this array.
     foreach (@newtopics) {
-	next if (!defined $_ or $_ eq "");
-	push(@subtopics, $_);
+        next if ( !defined $_ or $_ eq '' );
+        push( @subtopics, $_ );
     }
 
     $_ = "Moved #\002$from\002 $action #\002$to\002.";
-    &topicNew($chan, &topicCipher(@subtopics), $_);
+    &topicNew( $chan, &topicCipher(@subtopics), $_ );
 }
 
 # cmd: shuffle.
 sub do_shuffle {
-    my ($chan, $args)	= @_;
-    my @subtopics	= &topicDecipher($chan);
+    my ( $chan, $args ) = @_;
+    my @subtopics = &topicDecipher($chan);
     my @newtopics;
 
-    $topic{$chan}{'What'} = "shuffled";
+    $topic{$chan}{'What'} = 'shuffled';
 
-    foreach (&makeRandom(scalar @subtopics)) {
-	push(@newtopics, $subtopics[$_]);
+    foreach ( &makeRandom( scalar @subtopics ) ) {
+        push( @newtopics, $subtopics[$_] );
     }
 
     $_ = "Shuffling the bag of lollies.";
-    &topicNew($chan, &topicCipher(@newtopics), $_);
+    &topicNew( $chan, &topicCipher(@newtopics), $_ );
 }
 
 # cmd: history.
 sub do_history {
-    my ($chan, $args) = @_;
+    my ( $chan, $args ) = @_;
 
-    if (!scalar @{ $topic{$chan}{'History'} }) {
-	&msg($who, "Sorry, no topics in history list.");
-	return;
+    if ( !scalar @{ $topic{$chan}{'History'} } ) {
+        &msg( $who, "Sorry, no topics in history list." );
+        return;
     }
 
-    &msg($who, "History of topics on \002$chan\002:");
-    for (1 .. scalar @{ $topic{$chan}{'History'} }) {
-	my $topic = ${ $topic{$chan}{'History'} }[$_-1];
-	&msg($who, "  #\002$_\002: $topic");
+    &msg( $who, "History of topics on \002$chan\002:" );
+    for ( 1 .. scalar @{ $topic{$chan}{'History'} } ) {
+        my $topic = ${ $topic{$chan}{'History'} }[ $_ - 1 ];
+        &msg( $who, "  #\002$_\002: $topic" );
 
-	# To prevent excess floods.
-	sleep 1 if (length($topic) > 160);
+        # To prevent excess floods.
+        sleep 1 if ( length($topic) > 160 );
     }
 
-    &msg($who, "End of list.");
+    &msg( $who, "End of list." );
 }
 
 # cmd: restore.
 sub do_restore {
-    my ($chan, $args) = @_;
+    my ( $chan, $args ) = @_;
 
-    if ($args eq "") {
-	&help("topic restore");
-	return;
+    if ( $args eq '' ) {
+        &help('topic restore');
+        return;
     }
 
     $topic{$chan}{'What'} = "Restore topic $args";
 
     # following needs to be verified.
-    if ($args =~ /^last$/i) {
-	if (${ $topic{$chan}{'History'} }[0] eq $topic{$chan}{'Current'}) {
-	    &msg($who,"error: cannot restore last topic because it's mine.");
-	    return;
-	}
-	$args = 1;
+    if ( $args =~ /^last$/i ) {
+        if ( ${ $topic{$chan}{'History'} }[0] eq $topic{$chan}{'Current'} ) {
+            &msg( $who, "error: cannot restore last topic because it's mine." );
+            return;
+        }
+        $args = 1;
     }
 
-    if ($args !~ /\d+/) {
-	&msg($who, "error: argument is not positive integer.");
-	return;
+    if ( $args !~ /\d+/ ) {
+        &msg( $who, "error: argument is not positive integer." );
+        return;
     }
 
-    if ($args > $#{ $topic{$chan}{'History'} } || $args < 1) {
-	&msg($who, "error: argument is out of range.");
-	return;
+    if ( $args > $#{ $topic{$chan}{'History'} } || $args < 1 ) {
+        &msg( $who, "error: argument is out of range." );
+        return;
     }
 
     $_ = "Changing topic according to request.";
-    &topicNew($chan, ${ $topic{$chan}{'History'} }[$args-1], $_);
+    &topicNew( $chan, ${ $topic{$chan}{'History'} }[ $args - 1 ], $_ );
 }
 
 # cmd: rehash.
@@ -486,8 +512,8 @@ sub do_rehash {
     my ($chan) = @_;
 
     $_ = "Rehashing topic...";
-    $topic{$chan}{'What'} = "Rehash";
-    &topicNew($chan, $topic{$chan}{'Current'}, $_, 1);
+    $topic{$chan}{'What'} = 'Rehash';
+    &topicNew( $chan, $topic{$chan}{'Current'}, $_, 1 );
 }
 
 # cmd: info.
@@ -495,13 +521,16 @@ sub do_info {
     my ($chan) = @_;
 
     my $reply = "no topic info.";
-    if (exists $topic{$chan}{'Who'} and exists $topic{$chan}{'Time'}) {
-	$reply = "topic on \002$chan\002 was last set by ".
-		$topic{$chan}{'Who'}. ".  This was done ".
-		&Time2String(time() - $topic{$chan}{'Time'}) ." ago".
-		".  Length: ".length($topic{$chan}{'Current'});
-	my $change = $topic{$chan}{'What'};
-	$reply .= ".  Change => $change" if (defined $change);
+    if ( exists $topic{$chan}{'Who'} and exists $topic{$chan}{'Time'} ) {
+        $reply =
+            "topic on \002$chan\002 was last set by "
+          . $topic{$chan}{'Who'}
+          . ".  This was done "
+          . &Time2String( time() - $topic{$chan}{'Time'} ) . ' ago'
+          . ".  Length: "
+          . length( $topic{$chan}{'Current'} );
+        my $change = $topic{$chan}{'What'};
+        $reply .= ".  Change => $change" if ( defined $change );
     }
 
     &performStrictReply($reply);
@@ -514,55 +543,67 @@ sub do_info {
 ###
 # Usage: &Topic($cmd, $args);
 sub Topic {
-    my ($chan, $cmd, $args) = @_;
+    my ( $chan, $cmd, $args ) = @_;
 
-    if ($cmd =~ /^-(\S+)/) {
-	$cache{topicNotUpdate}{$chan} = 1;
-	$cmd = $1;
+    if ( $cmd =~ /^-(\S+)/ ) {
+        $cache{topicNotUpdate}{$chan} = 1;
+        $cmd = $1;
     }
 
-    if ($cmd =~ /^(add)$/i) {
-	&do_add($chan, $args);
+    if ( $cmd =~ /^(add)$/i ) {
+        &do_add( $chan, $args );
 
-    } elsif ($cmd =~ /^(del|delete|rm|remove|kill|purge)$/i) {
-	&do_delete($chan, $args);
+    }
+    elsif ( $cmd =~ /^(del|delete|rm|remove|kill|purge)$/i ) {
+        &do_delete( $chan, $args );
 
-    } elsif ($cmd =~ /^list$/i) {
-	&do_list($chan, $args);
+    }
+    elsif ( $cmd =~ /^list$/i ) {
+        &do_list( $chan, $args );
 
-    } elsif ($cmd =~ /^(mod|modify|change|alter)$/i) {
-	&do_modify($chan, $args);
+    }
+    elsif ( $cmd =~ /^(mod|modify|change|alter)$/i ) {
+        &do_modify( $chan, $args );
 
-    } elsif ($cmd =~ /^(mv|move)$/i) {
-	&do_move($chan, $args);
+    }
+    elsif ( $cmd =~ /^(mv|move)$/i ) {
+        &do_move( $chan, $args );
 
-    } elsif ($cmd =~ /^shuffle$/i) {
-	&do_shuffle($chan, $args);
+    }
+    elsif ( $cmd =~ /^shuffle$/i ) {
+        &do_shuffle( $chan, $args );
 
-    } elsif ($cmd =~ /^(history)$/i) {
-	&do_history($chan, $args);
+    }
+    elsif ( $cmd =~ /^(history)$/i ) {
+        &do_history( $chan, $args );
 
-    } elsif ($cmd =~ /^restore$/i) {
-	&do_restore($chan, $args);
+    }
+    elsif ( $cmd =~ /^restore$/i ) {
+        &do_restore( $chan, $args );
 
-    } elsif ($cmd =~ /^(flush|rehash)$/i) {
-	&do_rehash($chan);
+    }
+    elsif ( $cmd =~ /^(flush|rehash)$/i ) {
+        &do_rehash($chan);
 
-    } elsif ($cmd =~ /^info$/i) {
-	&do_info($chan);
+    }
+    elsif ( $cmd =~ /^info$/i ) {
+        &do_info($chan);
 
-    } else {
-	### CMD: HELP:
-	if ($cmd ne "" and $cmd !~ /^help/i) {
-	    &msg($who, "Invalid command [$cmd].");
-	    &msg($who, "Try 'help topic'.");
-	    return;
-	}
+    }
+    else {
+        ### HELP:
+        if ( $cmd ne '' and $cmd !~ /^help/i ) {
+            &msg( $who, "Invalid command [$cmd]." );
+            &msg( $who, "Try 'help topic'." );
+            return;
+        }
 
-	&help("topic");
+        &help('topic');
     }
 
     return;
 }
 
 1;
+
+# vim:ts=4:sw=4:expandtab:tw=80