Viewing file:  index.cgi (2.42 KB) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# index.cgi
# Display burn profiles and icons for global options
require './burner-lib.pl';
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
&help_search_link("cdrecord mkisofs", "man", "doc"));
if (!&has_command($config{'cdrecord'})) {
print "<p>",&text('index_ecdrecord', "<tt>$config{'cdrecord'}</tt>",
"$gconfig{'webprefix'}/config.cgi?$module_name"),"<p>\n";
&ui_print_footer("/", $text{"index"});
exit;
}
print &ui_subheading($text{'index_profiles'});
@allprofiles = &list_profiles();
@profiles = grep { &can_use_profile($_) } @allprofiles;
if (@profiles) {
#&show_button();
@tds = ( "width=5" );
print &ui_form_start("delete_profiles.cgi", "post");
@links = ( &select_all_link("d", 1),
&select_invert_link("d", 1) );
print &ui_links_row(\@links);
print &ui_columns_start([ "",
$text{'index_name'},
$text{'index_type'},
$text{'index_files'} ], 100, 0, \@tds);
foreach $p (@profiles) {
local @cols;
push(@cols, "<a href='edit_profile.cgi?id=$p->{'id'}'>".
"$p->{'name'}</a>");
push(@cols, $text{'index_type'.$p->{'type'}});
if ($p->{'type'} == 1) {
push(@cols, $p->{'iso'});
}
elsif ($p->{'type'} == 4) {
push(@cols, $p->{'sdesc'});
}
else {
$sources = "";
for($i=0; defined($p->{"source_$i"}); $i++) {
$sources .= " | \n" if ($i);
$sources .= $p->{"source_$i"};
}
push(@cols, $sources);
}
print &ui_checked_columns_row(\@cols, \@tds, "d", $p->{'id'});
}
print &ui_columns_end();
print &ui_links_row(\@links);
print &ui_form_end([ [ "delete", $text{'index_delete'} ] ]);
}
elsif (@allprofiles) {
print "<b>$text{'index_noaccess'}</b><p>\n";
}
else {
print "<b>$text{'index_none'}</b><p>\n";
}
&show_button();
if ($access{'global'}) {
print &ui_hr();
@links = ( "edit_mkisofs.cgi", "edit_dev.cgi" );
@titles = ( $text{'mkisofs_title'}, $text{'dev_title'} );
@icons = ( "images/mkisofs.gif", "images/dev.gif" );
&icons_table(\@links, \@titles, \@icons);
}
&ui_print_footer("/", $text{'index'});
sub show_button
{
if ($access{'create'}) {
print "<form action=edit_profile.cgi>\n";
print "<input type=submit value='$text{'index_add'}'>\n";
print "<select name=type>\n";
print "<option value=1 checked> $text{'index_type1'}\n";
print "<option value=2> $text{'index_type2'}\n";
print "<option value=3> $text{'index_type3'}\n";
print "<option value=4> $text{'index_type4'}\n";
print "</select></form>\n";
}
}
|