bagder: curl-www/dl list_entry.cgi, 1.13, 1.14 mktable.pl, 1.17, 1.18 mod_entry.cgi, 1.10, 1.11
[email protected] Sat, 24 Apr 2010 19:45:34 +0000
| Newsgroups | gmane.comp.web.curl.www.cvs |
|---|---|
| Message-ID | <[email protected]> |
--===============0278491193==
Content-Type: text/plain
Content-Transfer-Encoding: quoted-printable
X-MIME-Autoconverted: from 8bit to quoted-printable by giant.haxx.se id o3OJjZKV022025
Update of /cvsroot/curl/curl-www/dl
In directory giant.haxx.se:/var/tmp/cvs-serv21996
Modified Files:
list_entry.cgi mktable.pl mod_entry.cgi=20
Log Message:
keep track and show SSH for each package
Index: mktable.pl
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /cvsroot/curl/curl-www/dl/mktable.pl,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- mktable.pl 7 Apr 2008 17:55:56 -0000 1.17
+++ mktable.pl 24 Apr 2010 19:45:31 -0000 1.18
@@ -45,6 +45,10 @@
# SSL (yes/no)
$r =3D lc($$a{'ssl'}) cmp lc($$b{'ssl'});
}
+ if(!$r) {
+ # SSH (yes/no)
+ $r =3D lc($$a{'ssh'}) cmp lc($$b{'ssh'});
+ }
return $r;
}
=20
@@ -54,7 +58,7 @@
sub top {
my ($os, $aname, $img)=3D@_;
=20
- print "<tr class=3D\"os\"><td class=3D\"ostitle\" colspan=3D\"6\">";
+ print "<tr class=3D\"os\"><td class=3D\"ostitle\" colspan=3D\"7\">";
if($img) {
print "$img$aname$os</td></tr>\n";
}
@@ -65,7 +69,7 @@
=20
}
sub bot {
- print "<tr><td class=3D\"osend\" colspan=3D\"7\"> </td></tr>\n"=
;
+ print "<tr><td class=3D\"osend\" colspan=3D\"8\"> </td></tr>\n"=
;
}
=20
sub show {
@@ -103,7 +107,7 @@
'Version',
'Type',
'SSL',
-# 'Date',
+ 'SSH',
'Provider',
'Size')) {
print "<th>$h</th>\n";
@@ -272,7 +276,9 @@
printf("<td class=3D\"col4\">%s</td>\n",
$$per{'ssl'}eq"Yes"?"<img width=3D\"27\" height=3D\"12\" alt=3D=
\"SSL enabled\" src=3D\"/ssl.png\">":
$$per{'ssl'}eq"No"?"<img width=3D\"27\" height=3D\"12\" alt=3D=
\"SSL disabled\" src=3D\"/nossl.png\">":$$per{'ssl'});
-# printf("<td class=3D\"col5\">%s</td>\n", show($$per{'date'}));
+
+ printf("<td class=3D\"col5\">%s</td>\n",
+ $$per{'ssh'}eq"Yes"?"SSH":" ");
my $em =3D show($$per{'email'});
if($em =3D~ /:\/\//) {
# email is a plain URL
Index: mod_entry.cgi
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /cvsroot/curl/curl-www/dl/mod_entry.cgi,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- mod_entry.cgi 1 Nov 2006 17:10:48 -0000 1.10
+++ mod_entry.cgi 24 Apr 2010 19:45:31 -0000 1.11
@@ -2,13 +2,14 @@
=20
require "stuff.pm";
=20
-# databasf=E4lt:
+# fields in the database
%data=3D("typ"=3D>"entry",
"os"=3D>CGI::param("os"),
"osver"=3D>CGI::param("osver"),
"flav"=3D>CGI::param("flav"),
"cpu"=3D>CGI::param("cpu"),
"ssl"=3D>CGI::param("ssl"),
+ "ssh"=3D>CGI::param("ssh"),
"type"=3D>CGI::param("type"),
"pack"=3D>CGI::param("pack"),
"file"=3D>CGI::param("file"),
@@ -169,6 +170,9 @@
alternative("SSL-enabled", "ssl",
"Yes / No");
=20
+ alternative("SSH-enabled", "ssh",
+ "Yes / No");
+
alternative("Package Type", "type",
"devel / source / bin / docs / OTHER");
=20
Index: list_entry.cgi
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /cvsroot/curl/curl-www/dl/list_entry.cgi,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- list_entry.cgi 24 Jun 2005 21:27:52 -0000 1.13
+++ list_entry.cgi 24 Apr 2010 19:45:31 -0000 1.14
@@ -44,6 +44,7 @@
'Update',
'Type',
'SSL',
+ 'SSH',
'Who',
'Pic',
'Check')) {
@@ -136,7 +137,10 @@
printf("<td>%s</td>",
$$per{'ssl'}eq"Yes"?"SSL":
$$per{'ssl'}eq"No"?" ":$$per{'ssl'});
- # printf("<td>%s</td>", show($$per{'date'}));
+
+ printf("<td>%s</td>",
+ $$per{'ssh'}eq"Yes"?"SSH":
+ $$per{'ssh'}eq"No"?" ":$$per{'ssh'});
=20
printf("<td>%s</a></td>",
($$per{'name'} && $$per{'name'} ne "-")?show($$per{'name'}):"=
");
--===============0278491193==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Disposition: inline
Content-Transfer-Encoding: 7bit
_______________________________________________
curl-www-commits mailing list
[email protected]
http://cool.haxx.se/cgi-bin/mailman/listinfo/curl-www-commits
--===============0278491193==--