bagder: curl-www curl.pm, 1.12, 1.13 date.pm, NONE, 1.1 latest.cgi, 1.43, 1.44 latest.pm, 1.54, 1.55 metalink.cgi, 1.8, 1.9
[email protected] Tue, 08 Sep 2009 08:59:03 +0000
| Newsgroups | gmane.comp.web.curl.www.cvs |
|---|---|
| Message-ID | <[email protected]> |
Update of /cvsroot/curl/curl-www
In directory labb:/tmp/cvs-serv16093
Modified Files:
curl.pm latest.cgi latest.pm metalink.cgi
Added Files:
date.pm
Log Message:
fixed for paths at new site
--- NEW FILE: date.pm ---
sub MonthLen {
my ($month, $year) = @_; # month index (1-12)
# year to check (for leap)
while($month>12) {
$month-=12;
}
if($month<1) {
$month=1;
}
@mlens = (31,
28, # checked especially
31,
30,
31,
30,
31,
31,
30,
31,
30,
31);
if( $month eq 2) {
# February mean leap year troubles...
local $len = 28;
if( (int($year/4)*4 eq $year) &&
(!(int($year/100)*100 eq $year) ||
int($year/400)*400 eq $year)) {
$len = 29;
}
return $len;
}
else {
return $mlens[$month-1];
}
}
# Return the month name of the index given
sub MonthName {
my $num=$_[0];
my @mname = ('januari',
'februari',
'mars',
'april',
'maj',
'juni',
'juli',
'augusti',
'september',
'oktober',
'november',
'december' );
while( $num > 12 ) {
$num -= 12;
}
if ($num < 1) {
$num = 1;
}
return $mname[$num-1];
}
# Return the month name of the index given, in english
sub MonthNameEng {
my $num=$_[0];
my @mname = ('January',
'February',
'March',
'April',
'May',
'June',
'July',
'August',
'September',
'October',
'November',
'December' );
while( $num > 12 ) {
$num -= 12;
}
if ($num < 1) {
$num = 1;
}
return $mname[$num-1];
}
# Return the day name of the index given
sub DayName {
my $num=$_[0];
my @dname = ('måndag',
'tisdag',
'onsdag',
'torsdag',
'fredag',
'lördag',
'söndag');
while( $num > 7 ) {
$num -= 7;
}
if ($num < 1) {
$num = 1;
}
return $dname[$num-1];
}
# Return the english day name of the index given
sub DayNameEng {
my $num=$_[0];
my @dname = ('Monday',
'Tuesday',
'Wednesday',
'Thursday',
'Friday',
'Saturday',
'Sunday');
while( $num > 7 ) {
$num -= 7;
}
if ($num < 1) {
$num = 1;
}
return $dname[$num-1];
}
# Display a full range of all months as listview options
# The argument number sets the one to be selected
sub MonthOptions {
my $select = $_[0];
my $i;
my $result="";
for($i=1; $i<=12; $i++) {
my $name = MonthName($i);
if( $i == $select) {
$result=$result."<option value=".$i." SELECTED>$name\n";
}
else {
$result=$result."<option value=".$i.">$name\n";
}
}
return $result;
}
# Display a full range of all months as listview options
# The argument number sets the one to be selected
sub MonthOptionsEng {
my $select = $_[0];
my $i;
my $result="";
for($i=1; $i<=12; $i++) {
my $name = MonthNameEng($i);
if( $i == $select) {
$result=$result."<option value=".$i." SELECTED>$name\n";
}
else {
$result=$result."<option value=".$i.">$name\n";
}
}
return $result;
}
# Display a full range of all (supported) years as listview options
# The argument number sets the one to be selected
sub YearOptions {
my $select = $_[0];
my $i;
my $result="";
my $i;
for($i=0; $i<9; $i++) {
my $year = 1998 + $i;
if( $year == $select) {
$result=$result."<option SELECTED>$year\n";
}
else {
$result=$result."<option>$year\n";
}
}
return $result;
}
# Display a full range of all days as listview options
# The argument number sets the one to be selected
sub DayOptions {
my $select = $_[0];
my $i;
$result="";
for($i=1; $i<32; $i++) {
if( $i == $select) {
$result=$result."<option SELECTED>$i\n";
}
else {
$result=$result."<option>$i\n";
}
}
return $result;
}
sub ThisDay {
my $time = time();
my @thistime=localtime($time);
return $thistime[3];
}
sub ThisMonth {
my $time = time();
my @thistime=localtime($time);
return ++$thistime[4];
}
sub ThisYear {
my $time = time();
my @thistime=localtime($time);
return $thistime[5]+1900;
}
sub TodayNicely {
return &ThisDay." ".&MonthName(&ThisMonth)." ".&ThisYear;
}
sub TodayNicelyEng {
return &MonthNameEng(&ThisMonth)." ".&ThisDay." ".&ThisYear;
}
1;
Index: latest.pm
===================================================================
RCS file: /cvsroot/curl/curl-www/latest.pm,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -d -r1.54 -r1.55
--- latest.pm 9 Mar 2009 09:41:04 -0000 1.54
+++ latest.pm 8 Sep 2009 08:59:00 -0000 1.55
@@ -3,7 +3,8 @@
package latest;
-our $dir="/home/dast/curl_html/download";
+# only used when run in the site
+our $dir="/sites/curl2.haxx.se/download";
our $curl="curl";
# they're all hashed on 'type'
Index: metalink.cgi
===================================================================
RCS file: /cvsroot/curl/curl-www/metalink.cgi,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- metalink.cgi 18 Apr 2008 12:54:35 -0000 1.8
+++ metalink.cgi 8 Sep 2009 08:59:00 -0000 1.9
@@ -19,7 +19,7 @@
my %archtype;
my %where;
-my $md5sum="md5sum";#/home/dast/solaris/bin/md5sum";
+my $md5sum="md5sum";
my $sha1sum="sha1sum";
print "Content-Type: application/metalink+xml\n\n";
Index: latest.cgi
===================================================================
RCS file: /cvsroot/curl/curl-www/latest.cgi,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -d -r1.43 -r1.44
--- latest.cgi 14 Mar 2008 03:05:41 -0000 1.43
+++ latest.cgi 8 Sep 2009 08:59:00 -0000 1.44
@@ -18,7 +18,7 @@
my %archtype;
my %where;
-my $md5sum="md5sum";#/home/dast/solaris/bin/md5sum";
+my $md5sum="md5sum";
my $sha1sum="sha1sum";
print "Content-Type: text/html\n\n";
Index: curl.pm
===================================================================
RCS file: /cvsroot/curl/curl-www/curl.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- curl.pm 19 Oct 2006 11:15:35 -0000 1.12
+++ curl.pm 8 Sep 2009 08:59:00 -0000 1.13
@@ -1,7 +1,7 @@
require "CGI.pm";
-our $root="/home/dast/curl_html";
+our $root="/sites/curl2.haxx.se";
sub stitle {
my ($title)=@_;
_______________________________________________
curl-www-commits mailing list
[email protected]
http://cool.haxx.se/cgi-bin/mailman/listinfo/curl-www-commits