Subversion Repositories VORC

Rev

Rev 29 | Rev 56 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 29 Rev 50
Line 1... Line 1...
1 
#!/usr/bin/perl
 1 
#!/usr/bin/perl
Line 2... Line 2...
2 
 
 2 
 
3 
use strict;
 3 
use strict;
4 
use cPanelUserConfig;
 4 
use cPanelUserConfig;
5 
use RollerCon;
 5 
use RollerCon;
6 
use CGI;
 6 
use CGI qw/param cookie header start_html url/;
7 
use CGI::Cookie;
 7 
use CGI::Cookie;
8 
use DBI;
 8 
use DBI;
9 
use HTML::Tiny;
 9 
use HTML::Tiny;
10 
my $h = HTML::Tiny->new( mode => 'html' );
 10 
my $h = HTML::Tiny->new( mode => 'html' );
Line 68... Line 68...
68 
tail
 68 
tail
69 
  print $h->close ("body"), $h->close ("html");
 69 
  print $h->close ("body"), $h->close ("html");
Line 70... Line 70...
70 
 
 70 
 
71 
} else {
 71 
} else {
72 
  print $h->p ("Do you really want to activate $targetuser->{derby_name} (RCid: $targetRCid) to work in the $DEPT->{$targetDept} Department?");
 72 
  print $h->p ("Do you really want to activate $targetuser->{derby_name} (RCid: $targetRCid) to work in the $DEPT->{$targetDept} Department?");
73 
  print $h->form ({ action=>url, method=>"POST" }, [
 73 
  print $h->form ({ action=>url(), method=>"POST" }, [
74 
    $h->input ({ type=>"hidden", name=>"RCid", value=>$targetRCid }),
 74 
    $h->input ({ type=>"hidden", name=>"RCid", value=>$targetRCid }),
75 
    $h->input ({ type=>"hidden", name=>"department", value=>$targetDept }),
 75 
    $h->input ({ type=>"hidden", name=>"department", value=>$targetDept }),
76 
    $h->input ({ type=>"submit", name=>"confirmed", value=>"YES" }), " ",
 76 
    $h->input ({ type=>"submit", name=>"confirmed", value=>"YES" }), " ",
77 
    $h->button ({ onClick=>"window.close();" }, "Cancel")
 77 
    $h->button ({ onClick=>"window.close();" }, "Cancel")