proxmox-mirrors/pve-manager
1
0
Fork 0
mirror of https://git.proxmox.com/git/pve-manager synced 2025-04-28 16:36:30 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

use liburi-perl to get query params

Browse Source
This commit is contained in:
Dietmar Maurer 2013-04-10 06:06:49 +02:00
parent f34ca46009
commit 05c7c27fe4
2 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
bin/pveproxy
View File

@ -15,7 +15,8 @@ use PVE::SafeSyslog;
use PVE::APIDaemon;
use HTTP::Response;
use Encode;
use CGI;
use URI;
use URI::QueryParam;
use File::Find;
use Data::Dumper;
@ -140,7 +141,7 @@ sub get_index {
my ($server, $r, $params) = @_;
my $lang = 'en';
my $username = '';
my $username;
my $token = 'null';
if (my $cookie = $r->header('Cookie')) {
@ -155,11 +156,13 @@ sub get_index {
}
}
my %args = CGI->new($r->url->query)->Vars;
my $args = $r->url->query_form_hash();
my $workspace = defined($args{console}) ?
my $workspace = defined($args->{console}) ?
"PVE.ConsoleWorkspace" : "PVE.StdWorkspace";
$username = '' if !$username;
my $jssrc = <<_EOJS;
if (!PVE) PVE = {};
PVE.UserName = '$username';

2
debian/control.in vendored
View File

@ -3,7 +3,7 @@ Version: @VERSION@-@PACKAGERELEASE@
Section: admin
Priority: optional
Architecture: amd64
Depends: perl5, libtimedate-perl, libauthen-pam-perl, libintl-perl, rsync, libjson-perl, liblockfile-simple-perl, vncterm, qemu-server (>= 1.1-1), libwww-perl (>= 6.04-1), libnet-http-perl (>= 6.06-1), libhttp-daemon-perl, wget, libnet-dns-perl, vlan, ifenslave-2.6 (>= 1.1.0-10), liblinux-inotify2-perl, debconf (>= 0.5) | debconf-2.0, netcat-traditional, pve-cluster (>= 1.0-29), libpve-common-perl, libpve-storage-perl, libterm-readline-gnu-perl, libpve-access-control, libio-socket-ssl-perl, libfilesys-df-perl, libfile-readbackwards-perl, libfile-sync-perl, redhat-cluster-pve, resource-agents-pve, fence-agents-pve, cstream, postfix | mail-transport-agent, libxml-parser-perl, lzop, dtach, libanyevent-perl, libio-compress-perl
Depends: perl5, libtimedate-perl, libauthen-pam-perl, libintl-perl, rsync, libjson-perl, liblockfile-simple-perl, vncterm, qemu-server (>= 1.1-1), libwww-perl (>= 6.04-1), libnet-http-perl (>= 6.06-1), libhttp-daemon-perl, wget, libnet-dns-perl, vlan, ifenslave-2.6 (>= 1.1.0-10), liblinux-inotify2-perl, debconf (>= 0.5) | debconf-2.0, netcat-traditional, pve-cluster (>= 1.0-29), libpve-common-perl, libpve-storage-perl, libterm-readline-gnu-perl, libpve-access-control, libio-socket-ssl-perl, libfilesys-df-perl, libfile-readbackwards-perl, libfile-sync-perl, redhat-cluster-pve, resource-agents-pve, fence-agents-pve, cstream, postfix | mail-transport-agent, libxml-parser-perl, lzop, dtach, libanyevent-perl, libio-compress-perl, liburi-perl
Conflicts: netcat-openbsd, vzdump
Replaces: vzdump
Provides: vzdump