1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
#!c:/perl/bin/perl
use strict;
use Globals;
use CGI;
use playlists::playlist;
use Globals qw(%ALLPLATTERS @MUSIC @VIDEO @SHORTCUT $bgcolour);
# Scripting variables
#
my $WEBPAGE = openTemplate("settings");
my $FORMATS;
my $SERVERS;
my $QUERY = CGI::new();
my $exclude = $QUERY->cookie("exclude");
my @AVAILABLE;
# Playlist formats form
opendir(DIR, "./playlists/");
while (my $file = readdir(DIR)) {
if ($file =~ /^ext(.*)\.(pm)$/) {
push (@AVAILABLE, $1);
}
}
closedir DIR;
my $thisformat;
my $desc;
foreach ( @AVAILABLE ) {
if (/playlist/) { next }
$thisformat = $_;
$desc = playlist->new("ext$thisformat")->desc();
$FORMATS.="<tr valign=\"top\"><td><input type=\"radio\" name=\"playlist\" value=\"ext$thisformat\" ".
"onClick=\"setCookie('format', 'ext$thisformat'); \">".
"</td><td><b>$thisformat</b></td><td>$desc</td></tr>\n";
}
$WEBPAGE =~ s/%FORMATS%/$FORMATS/;
$WEBPAGE =~ s/%BGCOLOUR%/$bgcolour/g;
# filetype form
my $query = CGI::new();
my $currExts = $query->cookie('exclTypes');
my $EXTS = createExtForm("Audio", $currExts, @MUSIC).createExtForm("Video", $currExts, @VIDEO).createExtForm("Shortcut", $currExts, @SHORTCUT);
$WEBPAGE =~ s/%EXTS%/$EXTS/;
# server exclusion form
#
foreach( keys %ALLPLATTERS )
{
chomp;
my @THISSERVER = split;
my $CHECKED = 'checked';
if ($SERVERS =~ /"$THISSERVER[0]"/) { next;}
if ($exclude =~ /$THISSERVER[0]/)
{
$CHECKED = '';
}
$SERVERS.= '<input type="checkbox" name="'.$THISSERVER[0].'" onClick="setServers()" '.$CHECKED.'><a href="search.plx?searchFor=artist&inv='.$THISSERVER[0].
'&output=artistlist"><b><i>'.$THISSERVER[0].'</i></b></a><br>';
}
# Put in what we know
#
$WEBPAGE =~ s/%SERVERS%/$SERVERS/g;
# Display the finished Web page
#
print $WEBPAGE;
# Fin
#
close TEMPLATE;
exit;
sub createExtForm() {
my ($TITLE, $CURR, @EXTS) = @_;
my $FORM = "<br><strong>$TITLE:</strong>";
my $ext;
foreach $ext ( @EXTS ) {
my $CHECKED = ' checked';
$CHECKED = '' if ($CURR =~ /$ext,/);
$FORM.=' <input type="checkbox" name="'.$ext.'" onClick="setExts()"'.$CHECKED."><b><i>$ext</i></b> \n";
}
return $FORM."\n";
}
|
