From f49cda89cee41f97a92629f735f7228924214b58 Mon Sep 17 00:00:00 2001
From: Vitaliy Filippov <vitalif@yourcmc.ru>
Date: Wed, 8 Oct 2014 14:35:01 +0400
Subject: [PATCH] long_list.cgi: code style, remove CGI usage

---
 long_list.cgi | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/long_list.cgi b/long_list.cgi
index 7e1f69534..c26d99363 100755
--- a/long_list.cgi
+++ b/long_list.cgi
@@ -1,6 +1,4 @@
 #!/usr/bin/perl -wT
-# -*- Mode: perl; indent-tabs-mode: nil -*-
-#
 # The contents of this file are subject to the Mozilla Public
 # License Version 1.1 (the "License"); you may not use this file
 # except in compliance with the License. You may obtain a copy of
@@ -25,12 +23,12 @@ use strict;
 use lib qw(. lib);
 use Bugzilla;
 
-my $cgi = Bugzilla->cgi;
+my $ARGS = Bugzilla->input_params;
 
 # Convert comma/space separated elements into separate params
-my $buglist = $cgi->param('buglist') || $cgi->param('bug_id') || $cgi->param('id');
-my @ids = split (/[\s,]+/, $buglist);
+my $buglist = $ARGS->{buglist} || $ARGS->{bug_id} || $ARGS->{id};
+my @ids = split /[\s,]+/, $buglist;
+my $ids = join '', map { $_ = "&id=" . $_ } @ids;
 
-my $ids = join('', map { $_ = "&id=" . $_ } @ids);
-
-print $cgi->redirect("show_bug.cgi?format=multiple$ids");
+print Bugzilla->cgi->redirect("show_bug.cgi?format=multiple$ids");
+exit;