irssi-scripts/scripts/fserve.pl

683 							my $fsq = $fs_queues[$fs_sends[$sn]->{queue}]->{queue};
686 							foreach (0 .. $#{$fsq}) {
687 								last if (!${$fsq}[$_]->{resends});
691 								if (!$resended_queue && @{$fsq}>0);
695 							splice(@{$fsq}, $resended_queue, 0, { %{$fs_sends[$sn]} });
1066 		my $fsq = $fs_queues[$qn]->{queue};
1067 		foreach (0 .. $#{$fsq}) {
1068 			if (${$fsq}[$_]->{nick} eq $oldnick &&
1069 				${$fsq}[$_]->{server_tag} eq $server_tag) {
1071 				${$fsq}[$_]->{nick} = $nick->{nick};
2473 	my ($slot, $dest, $fsq) = @_;
2478 	unless (defined ${$fsq}[$slot] || defined ${$fsq}[$dest]) {
2484 	my %rec = %{${$fsq}[$slot]};
2485 	splice(@{$fsq}, $slot, 1);
2486 	splice(@{$fsq}, $dest, 0, { %rec });
2561 	my $fsq = $fs_queues[$qn]->{queue};
2564 	foreach (0 .. $#{$fsq}) {
2565 		if (${$fsq}[$_]->{resends}) {
2568 			my $server = Irssi::server_find_tag(${$fsq}[$_]->{server_tag});
2572 				$n = $prio{get_user_flag($server, ${$fsq}[$_]->{nick}, $qn)};
2577 		splice(@{$fsq}, $uprio[$n], 0, splice(@{$fsq}, $_, 1))
2606 	my $fsq = $fs_queues[$qn]->{queue};
2655 		foreach (0 .. $#{$fsq}) {
2656 			if (${$fsq}[$_]->{nick} eq $irc_nick &&
2657 				${$fsq}[$_]->{file} eq $file &&
2658 				${$fsq}[$_]->{server_tag} eq $server_tag) {
2669 	push(@{$fsq}, { queue => $qn, nick => $irc_nick, file => $file,
2690 	my $fsq = $fs_queues[$fs_users{$nick}{queue}]->{queue};
2693 	if (defined ${$fsq}[$slot]) {
2694 		if (${$fsq}[$slot]->{nick} eq $irc_nick &&
2695 			${$fsq}[$slot]->{server_tag} eq $server_tag) {
2696 			my $filename = ${$fsq}[$slot]{file};
2697 			splice(@{$fsq}, $slot, 1);
2720 	my $fsq = $fs_queues[$qn]->{queue};
2731 		for (my $i = $#{$fsq}; $i >= 0; $i--) {
2732 			if (${$fsq}[$i]->{nick} eq $irc_nick &&
2733 				${$fsq}[$i]->{server_tag} eq $server_tag) {
2734 				splice(@{$fsq}, $i, 1);
2754 	my $fsq = $queue->{queue};
2770 	foreach (0 .. $#{$fsq}) {
2772 			": $fs_prefs{clr_hi}${$fsq}[$_]->{nick}$fs_prefs{clr_txt}".
2773 			($m_server?" (${$fsq}[$_]->{server_tag})":"").
2774 			" queued $fs_prefs{clr_hi}${$fsq}[$_]->{file}$fs_prefs{clr_txt}".
2775 			" (".$fs_prefs{clr_hi}.size_to_str(${$fsq}[$_]->{size}).
2777 		if (${$fsq}[$_]->{resends}) {
2778 			$msg .= " (Resend #".${$fsq}[$_]->{resends}.")";
3444 		my $fsq = $fs_queues[$_]->{queue};
3445 		foreach my $slot (0 .. $#{$fsq}) {
3446 			foreach (sort keys %{${$fsq}[$slot]}) {
3452 					print(FILE "$_=>${$fsq}[$slot]->{$_}\0");
3533 			my $fsq;
3539 				$fsq = $fs_queues[$rec{queue}]->{queue};
3541 				$fsq = $fs_queues[0]->{queue};
3547 				foreach (0 .. $#{$fsq}) {
3548 					$place++ if (${$fsq}[$_]->{resends});
3550 				splice(@{$fsq}, $place, 0, { %rec });
3552 				push(@{$fsq}, { %rec });