[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
www/prep/wrappers-and-scripts ftp_convert.pl
From: |
Yavor Doganov |
Subject: |
www/prep/wrappers-and-scripts ftp_convert.pl |
Date: |
Tue, 20 Mar 2007 14:42:32 +0000 |
CVSROOT: /webcvs/www
Module name: www
Changes by: Yavor Doganov <yavor> 07/03/20 14:42:32
Modified files:
prep/wrappers-and-scripts: ftp_convert.pl
Log message:
ÐÑоба.
CVSWeb URLs:
http://web.cvs.savannah.gnu.org/viewcvs/www/prep/wrappers-and-scripts/ftp_convert.pl?cvsroot=www&r1=1.3&r2=1.4
Patches:
Index: ftp_convert.pl
===================================================================
RCS file: /webcvs/www/www/prep/wrappers-and-scripts/ftp_convert.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- ftp_convert.pl 5 Mar 2007 00:27:02 -0000 1.3
+++ ftp_convert.pl 20 Mar 2007 14:42:16 -0000 1.4
@@ -63,7 +63,7 @@
die "Header depth exceeds HTML capabilities.";
}
$printstr=$';
- $printstr=~s/(address@hidden)/<A HREF="mailto:$1">$1<\/A>/g;
+ $printstr=~s/(address@hidden)/<a href="mailto:$1">$1<\/a>/g;
if ($printstr eq "GNU FTP Site Mirror List")
{
@@ -77,17 +77,17 @@
{
if ($list_open)
{
- print "</UL>\n";
+ print "</ul>\n";
$list_open=0;
}
- print "</UL>\n";
+ print "</ul>\n";
}
$start_of_ftp_list=0;
}
- print "<H$headlvl>$printstr</H$headlvl>\n";
+ print "<h$headlvl>$printstr</h$headlvl>\n";
if ($start_of_ftp_list)
{
- print "<UL>\n";
+ print "<ul>\n";
}
$print_current_output=0;
next;
@@ -96,8 +96,8 @@
# Is this a blank line?
if (/^\s*$/)
{
- print "</UL>\n" if $state == 2;
- print "</P>\n" if $state == 1;
+ print "</ul>\n" if $state == 2;
+ print "</p>\n" if $state == 1;
$state = 0;
next;
}
@@ -107,20 +107,20 @@
{
if ($state != 2)
{
- print "<UL>\n";
+ print "<ul>\n";
$state = 2;
}
- print " <LI>";
+ print " <li>";
s/^\t-//;
if (/http:\S+/)
{
- s/(\b\S*http:\S*\b)([\.\s]*)/<A
HREF="$1">$1<\/A>$2/g;
+ s/(\b\S*http:\S*\b)([\.\s]*)/<a
href="$1">$1<\/a>$2/g;
next;
}
if (/ftp\.\S+/)
{
- s/(ftp\.\S*[\[\]]*(?=\s))(\.*\s*)/<A
HREF="ftp:\/\/$1">$1<\/A>$2/g;
+ s/(ftp\.\S*[\[\]]*(?=\s))(\.*\s*)/<a
href="ftp:\/\/$1">$1<\/a>$2/g;
next;
}
next;
@@ -131,12 +131,12 @@
{
if (/http:\S+/)
{
- s/(\b\S*http:\S*\b)([\.\s]*)/<A
HREF="$1">$1<\/A>$2/g;
+ s/(\b\S*http:\S*\b)([\.\s]*)/<a
href="$1">$1<\/a>$2/g;
next;
}
if (/ftp\.\S+/)
{
- s/(\b\S*ftp\.\S*[\[\]]*\b)(\.*\s*)/<A
HREF="ftp:\/\/$1">$1<\/A>$2/g;
+ s/(\b\S*ftp\.\S*[\[\]]*\b)(\.*\s*)/<a
href="ftp:\/\/$1">$1<\/a>$2/g;
next;
}
s:^\t(.*)$:<tt>$1</tt>:;
@@ -151,11 +151,11 @@
# Continent
if ($list_open)
{
- print "</LI>\n</UL>\n";
+ print "</li>\n</li></ul>\n";
$list_open=0;
}
$last_place="";
- print "<LI>$1\n";
+ print "<li>$1\n";
$print_current_output=0;
next;
}
@@ -174,34 +174,34 @@
if ($place ne $last_place)
{
$list_open=0;
- print " </LI>\n</UL>\n";
+ print " </li>\n</ul>\n";
}
}
$last_place=$place;
$list_open=1;
- print " <UL>\n";
- print " <LI>$place\n";
+ print " <ul>\n";
+ print " <li>$place\n";
}
- print " <UL>\n";
+ print " <ul>\n";
foreach $ftpsite (@ftp_sites)
{
($actual_bits,$extra_bits) = ($ftpsite =~
/(\S+)(.*$)/);
if ($ftpsite =~ /(http:\S+)/ )
{
- print " <LI><A
HREF=\"$1\">$1</A>\n";
+ print " <li><a
href=\"$1\">$1</a>\n";
}
elsif ($ftpsite =~ /(ftp:\S+)/ )
{
- print " <LI><A
HREF=\"$1\">$1</A>\n";
+ print " <li><a
href=\"$1\">$1</a>\n";
}
else
{
- print " <LI><A
HREF=\"ftp://$actual_bits\">$actual_bits</A>$extra_bits\n";
+ print " <li><a
href=\"ftp://$actual_bits\">$actual_bits</a>$extra_bits\n";
}
- print " </LI>\n";
+ print " </li>\n";
};
- print " </UL>\n";
+ print " </ul>\n";
}
$print_current_output=0;
next;
@@ -211,22 +211,22 @@
# Now we add in URLs as necessary and send it off.
if ($state == 0)
{
- print "<P>\n";
+ print "<p>\n";
$state = 1;
}
if (/@/)
{
- s/(address@hidden)/<A HREF="mailto:$1">$1<\/A>/g;
+ s/(address@hidden)/<a href="mailto:$1">$1<\/a>/g;
next;
}
if (/http:\S+/)
{
- s/(\b\S*http:\S*\b)([\.\s]*)/<A HREF="$1">$1<\/A>$2/g;
+ s/(\b\S*http:\S*\b)([\.\s]*)/<a href="$1">$1<\/a>$2/g;
next;
}
if (/ftp\.\S+/)
{
- s/(\b\S*ftp\.\S*[\[\]]*\b)(\.*\s*)/<A
HREF="ftp:\/\/$1">$1<\/A>$2/g;
+ s/(\b\S*ftp\.\S*[\[\]]*\b)(\.*\s*)/<a
href="ftp:\/\/$1">$1<\/a>$2/g;
next;
}
- www/prep/wrappers-and-scripts ftp_convert.pl,
Yavor Doganov <=