Server IP : 195.201.23.43 / Your IP : 3.12.107.192 Web Server : Apache System : Linux webserver2.vercom.be 5.4.0-192-generic #212-Ubuntu SMP Fri Jul 5 09:47:39 UTC 2024 x86_64 User : kdecoratie ( 1041) PHP Version : 7.1.33-63+ubuntu20.04.1+deb.sury.org+1 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals, MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /usr/share/webmin/virtual-server/ |
Upload File : |
#!/usr/bin/perl # Display all custom links for domains, and link categories require './virtual-server-lib.pl'; &ReadParse(); &can_edit_templates() || &error($text{'newlinks_ecannot'}); &ui_print_header(undef, $text{'newlinks_title'}, "", "custom_links"); @tmpls = &list_templates(); @ctmpls = grep { !$_->{'standard'} } @tmpls; # Make the table data @links = &list_custom_links(); @cats = &list_custom_link_categories(); %catmap = map { $_->{'id'}, $_->{'desc'} } @cats; $i = 0; @table = ( ); foreach $l (@links) { $updown = ""; if (%$l) { # Create move up / down links $updown = &ui_up_down_arrows( "move_newlinks.cgi?idx=$i&up=1", "move_newlinks.cgi?idx=$i&down=1", $l ne $links[0], $l ne $links[@links-1], ); } $catdesc = $l->{'cat'} ? $catmap{$l->{'cat'}} : "<i>$text{'newlinks_nocat2'}</i>"; push(@table, [ "<a href='edit_link.cgi?idx=$i'>". $l->{'desc'}."</a>", $l->{'url'}, $l->{'open'} ? $text{'newlinks_new'} : $text{'newlinks_same'}, join(", ", map { $text{'newlinks_'.$_} } grep { $l->{'who'}->{$_} } ('master', 'domain', 'reseller') ), $catdesc, @links > 1 ? ( $updown ) : ( ), ]); $i++; } # Generate the table print &ui_form_columns_table( undef, undef, 0, [ [ "edit_link.cgi?new=1", $text{'newlinks_add'} ] ], undef, [ $text{'newlinks_desc'}, $text{'newlinks_url'}, $text{'newlinks_open'}, $text{'newlinks_who'}, $text{'newlinks_cat'}, @links > 1 ? ( $text{'newlinks_move'} ) : ( ), ], 100, \@table, undef, 0, undef, $text{'newlinks_none'}, ); print &ui_hr(); # Show link category form print "$text{'newlinks_catdesc'}<p>\n"; $i = 0; @table = ( ); @hiddens = ( ); foreach $c (@cats, { }, { }) { push(@table, [ &ui_textbox("desc_$i", $c->{'desc'}, 50, 0, undef, "style='width:100%'") ]); push(@hiddens, [ "id_$i", $c->{'id'} ]); $i++; } print &ui_form_columns_table( "save_linkcats.cgi", [ [ undef, $text{'save'} ] ], 0, undef, \@hiddens, [ $text{'newlinks_catname'} ], undef, \@table, undef, 1); if ($in{'refresh'}) { # Update left frame after changing custom links if (defined(&theme_post_save_domain)) { &theme_post_save_domain($d, 'modify'); } } &ui_print_footer("", $text{'index_return'}); sub shorten_category { local ($desc, $max) = @_; $max ||= 12; if (length($desc) > $max) { return substr($desc, 0, $max-2)."..."; } return $desc; }Private