samba/view_users.cgi

   1 #!/usr/local/bin/perl
   2 # view_users.cgi
   3 # Display users connected to a share
   4
   5 require './samba-lib.pl';
   6 &ReadParse();
   7
   8 # check acls
   9
  10 &error_setup("<blink><font color=red>$text{'eacl_aviol'}</font></blink>");
  11 if ($in{share}) { # this may be cracked very easy, don't know how to do better :    # per-share acls ...
  12     # per-share acls ...
  13         &error("$text{'eacl_np'} $text{'eacl_pconn'}")
  14                 unless &can('rv',\%access, $in{share});
  15         }
  16 else {
  17         &error("$text{'eacl_np'} $text{'eacl_pconn_all'}")
  18                 unless $access{'view_all_con'};
  19         }
  20 &ui_print_header(undef, $text{'viewu_index'}, "");
  21
  22 if (!&has_command($config{samba_status_program})) {
  23         print &text('viewu_ecmd', $config{'samba_status_program'}, "$gconfig{'webprefix'}/config.cgi?$module_name");
  24         print "<p>\n";
  25         &ui_print_footer("", $text{'index_sharelist'});
  26         exit;
  27         }
  28
  29 if ($in{share}) {
  30         print &ui_subheading(&text('viewu_list',"<tt>$in{share}</tt>"));
  31         @cons = &list_connections($in{'share'});
  32         }
  33 else {
  34         @cons = &list_connections();
  35         }
  36 @locks = &list_locks();
  37
  38 @rightlinks = ( "<a href='view_users.cgi?$in'>".
  39                 $text{'viewu_refresh'}."</a>" );
  40 if (@cons) {
  41         print &ui_form_start("kill_users.cgi");
  42         print &ui_hidden("share", $in{'share'});
  43         @links = ( &select_all_link("d"),
  44                    &select_invert_link("d") );
  45         print &ui_grid_table([ &ui_links_row(\@links),
  46                                &ui_links_row(\@rightlinks) ], 2, 100,
  47                              [ undef, "align=right" ]);
  48
  49         # Show table header
  50         @tds = ( "width=5" );
  51         print &ui_columns_start([
  52                 "",
  53                 $text{'viewu_pid'},
  54                 $in{'share'} ? ( ) : ( $text{'viewu_share'} ),
  55                 $text{'viewu_user'},
  56                 $text{'viewu_group'},
  57                 $text{'viewu_from'},
  58                 $text{'viewu_time'},
  59                 $text{'viewu_locks'} ], 100, 0, \@tds);
  60
  61         # Show each connected user
  62         foreach $c (@cons) {
  63                 local @cols;
  64                 push(@cols, "<a href=\"kill_user.cgi?share=$in{'share'}&pid=$c->[3]\">".&html_escape($c->[3])."</a>");
  65                 if (!$in{'share'}) {
  66                         push(@cols, &html_escape($c->[0]));
  67                         }
  68                 $p = undef;
  69                 &get_share($c->[0]);
  70                 $p = &getval("path");
  71                 push(@cols, &html_escape($c->[1]));
  72                 push(@cols, &html_escape($c->[2]));
  73                 push(@cols, &html_escape($c->[4]));
  74                 push(@cols, &html_escape($c->[5]));
  75                 local $ulocks;
  76                 @ulocks = grep { $_->[0] == $c->[3] } @locks;
  77                 if ($p) {
  78                         # Limit to files under share
  79                         @ulocks = grep { $_->[4] =~ /^\Q$p\E\// } @ulocks;
  80                         }
  81                 foreach $l (@ulocks) {
  82                         $ulocks .= &html_escape($l->[4])." (".
  83                                    &html_escape($l->[1]).")<br>\n";
  84                         }
  85                 $ulocks ||= $text{'viewu_none'};
  86                 push(@cols, $ulocks);
  87                 print &ui_checked_columns_row(\@cols, \@tds, "d", $c->[3]);
  88                 }
  89         print &ui_columns_end();
  90         print &ui_grid_table([ &ui_links_row(\@links),
  91                                &ui_links_row(\@rightlinks) ], 2, 100,
  92                              [ undef, "align=right" ]);
  93         print &ui_form_end([ [ "kill", $text{'viewu_kill'} ] ]);
  94
  95         print $text{'viewu_msg1'}, "<br>\n";
  96         }
  97 else {
  98         print "<b>$text{'viewu_msg2'}</b>.\n";
  99         print &ui_links_row(\@rightlinks);
 100         }
 101 print "<p>\n";
 102
 103 if ($in{share}) {
 104         &ui_print_footer($in{printer} ? "edit_pshare.cgi?share=$in{share}"
 105                              : "edit_fshare.cgi?share=$in{share}",
 106                 $text{'index_shareconf'},
 107                 "", $text{'index_sharelist'});
 108         }
 109 else { &ui_print_footer("", $text{'index_sharelist'}); }
 110