summary refs log blame commit diff stats
path: root/share/misc/hexchat.spec
blob: 5f28a418edeb09487116bf76fd0957f06684676f (plain) (tree)
4a6ceffb generated by cgit-pink 1.4.1 (git 2.36.1) at 2025-02-25 06:26:05 +0000
span class="p">, $user->{host}; } else { push @info, 'FETCHING'; } push @info, $user->{prefix} eq '@' ? 1 : 0; push @info, $user->{prefix} eq '+' ? 1 : 0; } return @info; } sub IRC::user_list { my ($channel, $server) = @_; my $ctx = Xchat::find_context( $channel, $server ); my $old_ctx = Xchat::get_context; if( $ctx ) { Xchat::set_context( $ctx ); my @users; for my $user ( Xchat::get_list( 'users' ) ) { push @users, $user->{nick}; if( $user->{host} ) { push @users, $user->{host}; } else { push @users, 'FETCHING'; } push @users, $user->{prefix} eq '@' ? 1 : 0; push @users, $user->{prefix} eq '+' ? 1 : 0; push @users, ':'; } Xchat::set_context( $old_ctx ); return @users; } else { return; } } sub IRC::user_list_short { my ($channel, $server) = @_; my $ctx = Xchat::find_context( $channel, $server ); my $old_ctx = Xchat::get_context; if( $ctx ) { Xchat::set_context( $ctx ); my @users; for my $user ( Xchat::get_list( 'users' ) ) { my $nick = $user->{nick}; my $host = $user->{host} || 'FETCHING'; push @users, $nick, $host; } Xchat::set_context( $old_ctx ); return @users; } else { return; } } sub IRC::add_user_list {} sub IRC::sub_user_list {} sub IRC::clear_user_list {} sub IRC::notify_list {} sub IRC::perl_script_list {} 1