1
#! /bin/sh /usr/share/dpatch/dpatch-run
2
## 50_select-and-input.dpatch by Mario Holbe <Mario.Holbe@RZ.TU-Ilmenau.DE>
4
## All lines beginning with `## DP:' are a description of the patch.
5
## DP: Turn fields into an input box and select box as needed.
8
diff -ur cgiirc-0.5.4.orig/interfaces/default.pm cgiirc-0.5.4/interfaces/default.pm
9
--- cgiirc-0.5.4.orig/interfaces/default.pm 2003-10-31 19:51:24.000000000 +0100
10
+++ cgiirc-0.5.4/interfaces/default.pm 2004-06-19 18:40:14.000000000 +0200
12
($interface eq 'default' ? 'nonjs' : $interface) . "\">\n";
14
<table border="0" cellpadding="5" cellspacing="0">
15
-<tr><td colspan="2" align="center" bgcolor="#c0c0dd"><b>CGI:IRC
17
+<tr><td colspan="2" align="center" bgcolor="#c0c0dd"><b>CGI:IRC Login</b></td></tr>
20
my $item = $$items{$_};
21
next unless defined $item;
22
- print "<tr><td align=\"right\" bgcolor=\"#f1f1f1\">$_</td><td align=\"left\"
23
-bgcolor=\"#f1f1f1\">";
24
+ print "<tr><td align=\"right\" bgcolor=\"#f1f1f1\">$_</td><td align=\"left\" bgcolor=\"#f1f1f1\">";
25
if(ref $item eq 'ARRAY') {
26
- print "<select name=\"$_\" style=\"width: 100%\">";
28
+ if(defined $config->{allow_non_default} and
29
+ $config->{allow_non_default} and not /^Format$/) {
31
+ if($item =~ s/^-DISABLED- //) {
32
+ $tmp = " disabled=\"1\"";
34
+ print "<input type=\"text\" name=\"$_\" value=\"\"$tmp/>";
35
+ print "</td></tr>\n";
36
+ print "<tr><td bgcolor=\"#f1f1f1\"></td><td align=\"left\" bgcolor=\"#f1f1f1\">";
37
+ $js = " onChange=\"$_.value = this.value\"";
40
+ print "<select name=\"$_\" style=\"width: 100%\"$js>";
41
print "<option>$_</option>" for @$item;
43
- }elsif($item eq '-PASSWORD-') {
44
+ } elsif($item eq '-PASSWORD-') {
45
print "<input type=\"password\" name=\"$_\" value=\"\">";
49
if($item =~ s/^-DISABLED- //) {
50
$tmp = " disabled=\"1\"";
51
diff -ur cgiirc-0.5.4.orig/irc.cgi cgiirc-0.5.4/irc.cgi
52
--- cgiirc-0.5.4.orig/irc.cgi 2004-01-29 15:50:27.000000000 +0100
53
+++ cgiirc-0.5.4/irc.cgi 2004-06-19 18:33:33.000000000 +0200
58
+ if(exists $cgi->{"${_}_select"}) {
59
+ if(!defined $cgi->{$_} or $cgi->{$_} eq '') {
60
+ $cgi->{$_} = $cgi->{"${_}_select"};
63
next unless exists $cgi->{$_};
64
$out .= cgi_encode($p{$_}) . '=' . cgi_encode($cgi->{$_}) . '&';