]>
git.proxmox.com Git - pve-manager.git/blob - lib/PVE.old/HTMLControls.pm
1 package PVE
::HTMLControls
;
8 my %jsesc = ( "\n" => '\n',
19 $str =~ s/([\\\"\n\r\t\f\b])/$jsesc{$1}/eg;
20 $str =~ s/([\x00-\x07\x0b\x0e-\x1f])/'\\u00' . unpack('H2',$1)/eg;
21 return '"' . $str . '"';
25 my $prefix = shift || 'uid';
29 return $prefix . '_' . $$. '_' .$uidcount;
34 sub create_log_viewer
{
35 my ($lvid, $service, $serviceid, $filterid, $statusid, $trackid) = @_;
37 $service = '' if !$service;
39 # trackid format: UID:$pid:/path/to/executable
41 $trackid = '' if !$trackid;
43 my $myupdater = get_uid
($lvid);
45 my $out = "<script type='text/javascript'><!--\n";
48 var $myupdater = new logViewer ('$lvid', '$service', '$serviceid', '$filterid', '$statusid', '$trackid');
54 $out .= "--></script>\n";
60 my ($lvid, $statusid, $url, $args, $period) = @_;
62 my $myupdater = get_uid
($lvid);
64 $period = 10 if !$period;
66 $statusid = '' if !$statusid;
68 my $jsargs = to_json
($args);
69 my $out = "<script type='text/javascript'><!--\n";
72 var $myupdater = new wsViewer ('$lvid', '$statusid', $period, '$url', $jsargs);
78 $out .= "--></script>\n";
83 sub create_periodic_updater
{
84 my ($lvid, $url, $args, $period) = @_;
86 $period = 10 if !$period;
88 my $jsargs = to_json
($args);
90 $lvid = 'noautoupdate' if !$lvid;
92 my $out = "<script type='text/javascript'><!--\n";
95 new Ajax.PeriodicalUpdater ('$lvid', '$url', {
102 $out .= "--></script>\n";
108 sub create_vzlist_viewer
{
109 my ($lvid, $statusid, $cid) = @_;
111 my $myupdater = get_uid
($lvid);
113 my $out = "<script type='text/javascript'><!--\n";
116 var $myupdater = new vzlistViewer ('$lvid', '$statusid', '$cid');
122 $out .= "--></script>\n";
129 sub create_time_viewer
{
132 my $out = "\n<script type='text/javascript'><!--\n";
135 new timeViewer ('$uid');
138 $out .= "--></script>\n";
143 sub create_command_viewer
{
144 my ($lvid, $statusid, $abortid, $upid) = @_;
146 my $jsvar = get_uid
($lvid);
148 return '' if !defined ($upid);
149 return '' if !defined ($abortid);
151 my $out = "\n<script type='text/javascript'><!--\n";
154 var $jsvar = new commandViewer ('$jsvar', '$lvid', '$upid', '$statusid', '$abortid');
160 $out .= "--></script>\n";