Viewing file:  index.cgi (3.48 KB) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# index.cgi
# Display icons for defined PPTP tunnels
require './pptp-client-lib.pl';
$vers = &get_pppd_version(\$out);
&ui_print_header(undef, $text{'index_title'}, undef, "intro", 1, 1, 0, undef, undef, undef,
$vers ? &text('index_version', $vers) : undef);
# Create the PPTP options file if non-existent. This ensures that it can be
# used in the peer scripts, even if it is empty
if (!-r $config{'pptp_options'} && $config{'pptp_options'}) {
&open_tempfile(OPTS, ">>$config{'pptp_options'}");
&close_tempfile(OPTS);
}
if (!&has_command($config{'pptp'})) {
# The PPTP command is not installed
print "<p>",&text('index_epptp', "<tt>$config{'pptp'}</tt>",
"$gconfig{'webprefix'}/config.cgi?$module_name"),"<p>\n";
}
elsif (!$vers) {
# The PPP daemon is not installed
print "<p>",&text('index_epppd', "<tt>pppd</tt>"),"<p>\n";
}
else {
# Show icons
@tunnels = &list_tunnels();
%tunnels = map { $_->{'name'}, 1 } @tunnels;
print &ui_subheading($text{'index_header'});
if (@tunnels) {
@links = map { "edit.cgi?tunnel=$_->{'name'}" } @tunnels;
@titles = map { $_->{'name'} } @tunnels;
@icons = map { "images/tunnel.gif" } @tunnels;
&icons_table(\@links, \@titles, \@icons);
}
else {
print "<b>$text{'index_none'}</b><p>\n";
}
print "<a href='edit.cgi?new=1'>$text{'index_add'}</a><p>\n";
print &ui_hr();
print "<table width=100%>\n";
print "<tr><form action=edit_opts.cgi>\n";
print "<td><input type=submit ",
"value='$text{'index_opts'}'></td>\n";
print "<td>$text{'index_optsdesc'}</td>\n";
print "</form></tr>\n";
@conns = grep { $tunnels{$_->[0]} } &list_connected();
%conns = map { @$_ } @conns;
@notconns = grep { !$conns{$_->{'name'}} } @tunnels;
if (@notconns) {
# Show connect button, if any are disconnected
print "<tr><form action=conn.cgi><td nowrap>\n";
print "<input type=submit value='$text{'index_conn'}'>\n";
print "<select name=tunnel>\n";
foreach $t (@notconns) {
printf "<option %s>%s\n",
$config{'tunnel'} eq $t->{'name'} ? "selected" : "",
$t->{'name'};
}
print "</select>\n";
print $text{'index_pass'}," ",&ui_password("cpass", undef, 10);
print "</td>\n";
print "<td>$text{'index_conndesc'}</td> </form></tr>\n";
}
if (@conns) {
# If any tunnels appear to be active, show disconnect button
print "<tr><form action=disc.cgi><td nowrap>\n";
print "<input type=submit value='$text{'index_disc'}'>\n";
print "<select name=tunnel>\n";
foreach $t (@conns) {
printf "<option %s>%s\n",
$config{'tunnel'} eq $t->[0] ? "selected" : "",
$t->[0];
}
print "</select></td>\n";
print "<td>$text{'index_discdesc'}</td> </form></tr>\n";
}
# Show at-boot button
if (&foreign_check("init") && @tunnels) {
print "<tr>\n";
&foreign_require("init", "init-lib.pl");
$starting = &init::action_status($module_name);
$config{'boot'} = undef if ($starting != 2);
print "<form action=bootup.cgi>\n";
print "<input type=hidden name=starting value='$starting'>\n";
print "<td nowrap><input type=submit value='$text{'index_boot'}'>\n";
print "<select name=tunnel>\n";
printf "<option value='' %s>%s\n",
$config{'boot'} ? "" : "selected",
$text{'index_noboot'};
foreach $t (@tunnels) {
printf "<option value='%s' %s>%s\n",
$t->{'name'},
$t->{'name'} eq $config{'boot'} ?
"selected" : "",
$t->{'name'};
}
print "</select></td>\n";
print "<td>$text{'index_bootdesc'}</td>\n";
print "</form></tr>\n";
}
print "</table>\n";
}
&ui_print_footer("/", $text{'index'});
|