Git-Url: http://git.frugalware.org/gitweb/gitweb.cgi?p=pacman-tools.git;a=commitdiff;h=618c48de3e781d176da5b87d302ba85927a74894
commit 618c48de3e781d176da5b87d302ba85927a74894 Author: VMiklos <[EMAIL PROTECTED]> Date: Sat Sep 29 21:26:43 2007 +0200 pud: bye-bye it may be nice for perl addicts, but we are not ones.. only a few pkgs used it and no longer having perl-libwww in chroot-core is also a benefit diff --git a/Makefile b/Makefile index 3766daf..c97e299 100644 --- a/Makefile +++ b/Makefile @@ -68,7 +68,6 @@ install: $(INSTALL) chkdep $(DESTDIR)$(bindir)/chkdep $(INSTALL) mkpkghtml $(DESTDIR)$(bindir)/mkpkghtml $(INSTALL) -m644 mkpkghtml.1 $(DESTDIR)$(man1dir) - $(INSTALL) pud $(DESTDIR)$(bindir) $(INSTALL) genchangelog $(DESTDIR)$(bindir) $(INSTALL) darcs-git.py $(DESTDIR)$(bindir)/darcs-git ln -s darcs-git $(DESTDIR)$(bindir)/dg diff --git a/pud b/pud deleted file mode 100644 index d464b57..0000000 --- a/pud +++ /dev/null @@ -1,123 +0,0 @@ -#!/usr/bin/perl - -=head1 NAME - -pud - up2date helper - -=head1 DESCRIPTION - - pud will match the given perl regular expression to the - contents of the given URL, then print out the regexp's groups. - -=head1 OPTIONS - -=over 4 - -=item B<-s URL> - - Match the regexp to the source of the given URL. - -=item B<-p URL> - - Match the regexp to the parsed html. - -=item B<-e REGEXP> - - The perl regular expression, with groups. - Always use ' or " to enclose! - -=item B<-t seconds> - - Timeout of the URL's query. After the given seconds, the script - returns. - The default timeout is 600. - -=item B<-f format> - - A printf format string, for formatting the output. - -=head1 BUILDING THE REGEXP - - The page is treated as a single line string, but - regexp detects multiple lines (m//sm), so . matches \n, but ^,$ - match start and end of any line. - -=head1 EXAPLES - -pud -s http://frugalware.org -e " frugalware-(.*?)<.*fwclose" - -pud -p http://frugalware.org/ -e '(\d+):(\d+) inc' -f "%d-%d" - -=head1 AUTHOR - -Written by Zsolt Szalai. - -=head1 BUGS - -Report bugs to <[EMAIL PROTECTED]>. - -=head1 COPYRIGHT - -pud may be copied and modified under the terms of the GNU General Public -License v2. - -=cut - -use strict; -use warnings; -no warnings qw(uninitialized); -use LWP; -use LWP::UserAgent; -use Getopt::Std; -use HTML::Parser; - -$Getopt::Std::STANDARD_HELP_VERSION = 1; -our $VERSION = "0.5"; - -sub HELP_MESSAGE(){ - print ' -pud - up2date helper for Frugalware Linux -usage: pud -s|p URL -e PERL_REGEXP [-h] [-f format] [-t timeout] - -'; -} - -my %opts; -getopts('s:p:e:ht:f:', \%opts); - -HELP_MESSAGE() && exit if $opts{h}; -do {HELP_MESSAGE; die '-p or -s ?';} if $opts{p} && $opts{s}; -my $source = $opts{s} || $opts{p} || do {HELP_MESSAGE; die 'No source!';}; -my $regexp = $opts{e} || do {HELP_MESSAGE; die 'No regexp!';}; -my $timeout = $opts{t} || 600; ## default time is 600s -my $format = $opts{f}; - -sub get_source{ - my $source = shift; - my $ua = LWP::UserAgent->new; - $ua->timeout($timeout); - my $response = $ua->get($source); - if ($response->is_success) { - return $response->content if $opts{s}; - my $parsed; - HTML::Parser->new(api_version => 3, - text_h =>[sub {$parsed .= shift}, 'dtext'], - )->parse( $response->content ) || die $!; - return $parsed; - } - else { - die $response->status_line; - } -} - -do {HELP_MESSAGE; die 'Unknown protocol!';} unless $source =~ m!^(?:ht|f)tp://!; - -$regexp = qr/$regexp/sm; - -if (get_source($source) =~ $regexp){ - if ($format){ - printf $format, $1,$2,$3,$4,$5,$6,$7,$8,$9; - } else { - print "$1$2$3$4$5$6$7$8$9\n"; - } -} diff --git a/pud.1 b/pud.1 deleted file mode 100644 index 7590bf6..0000000 --- a/pud.1 +++ /dev/null @@ -1,192 +0,0 @@ -.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.3 -.\" -.\" Standard preamble: -.\" ======================================================================== -.de Sh \" Subsection heading -.br -.if t .Sp -.ne 5 -.PP -\fB\\$1\fR -.PP -.. -.de Sp \" Vertical space (when we can't use .PP) -.if t .sp .5v -.if n .sp -.. -.de Vb \" Begin verbatim text -.ft CW -.nf -.ne \\$1 -.. -.de Ve \" End verbatim text -.ft R -.fi -.. -.\" Set up some character translations and predefined strings. \*(-- will -.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left -.\" double quote, and \*(R" will give a right double quote. | will give a -.\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to -.\" do unbreakable dashes and therefore won't be available. \*(C` and \*(C' -.\" expand to `' in nroff, nothing in troff, for use with C<>. -.tr \(*W-|\(bv\*(Tr -.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p' -.ie n \{\ -. ds -- \(*W- -. ds PI pi -. if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch -. if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch -. ds L" "" -. ds R" "" -. ds C` "" -. ds C' "" -'br\} -.el\{\ -. ds -- \|\(em\| -. ds PI \(*p -. ds L" `` -. ds R" '' -'br\} -.\" -.\" If the F register is turned on, we'll generate index entries on stderr for -.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index -.\" entries marked with X<> in POD. Of course, you'll have to process the -.\" output yourself in some meaningful fashion. -.if \nF \{\ -. de IX -. tm Index:\\$1\t\\n%\t"\\$2" -.. -. nr % 0 -. rr F -.\} -.\" -.\" For nroff, turn off justification. Always turn off hyphenation; it makes -.\" way too many mistakes in technical documents. -.hy 0 -.if n .na -.\" -.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2). -.\" Fear. Run. Save yourself. No user-serviceable parts. -. \" fudge factors for nroff and troff -.if n \{\ -. ds #H 0 -. ds #V .8m -. ds #F .3m -. ds #[ \f1 -. ds #] \fP -.\} -.if t \{\ -. ds #H ((1u-(\\\\n(.fu%2u))*.13m) -. ds #V .6m -. ds #F 0 -. ds #[ \& -. ds #] \& -.\} -. \" simple accents for nroff and troff -.if n \{\ -. ds ' \& -. ds ` \& -. ds ^ \& -. ds , \& -. ds ~ ~ -. ds / -.\} -.if t \{\ -. ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u" -. ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u' -. ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u' -. ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u' -. ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u' -. ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u' -.\} -. \" troff and (daisy-wheel) nroff accents -.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V' -.ds 8 \h'\*(#H'\(*b\h'-\*(#H' -.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#] -.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H' -.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u' -.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#] -.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#] -.ds ae a\h'-(\w'a'u*4/10)'e -.ds Ae A\h'-(\w'A'u*4/10)'E -. \" corrections for vroff -.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u' -.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u' -. \" for low resolution devices (crt and lpr) -.if \n(.H>23 .if \n(.V>19 \ -\{\ -. ds : e -. ds 8 ss -. ds o a -. ds d- d\h'-1'\(ga -. ds D- D\h'-1'\(hy -. ds th \o'bp' -. ds Th \o'LP' -. ds ae ae -. ds Ae AE -.\} -.rm #[ #] #H #V #F C -.\" ======================================================================== -.\" -.IX Title "PUD 1" -.TH PUD 1 "2005-07-28" "perl v5.8.7" "User Contributed Perl Documentation" -.SH "NAME" -pud \- up2date helper -.SH "DESCRIPTION" -.IX Header "DESCRIPTION" -.Vb 2 -\& pud will match the given perl regular expression to the -\& contents of the given URL, then print out the regexp's groups. -.Ve -.SH "OPTIONS" -.IX Header "OPTIONS" -.IP "\fB\-s \s-1URL\s0\fR" 4 -.IX Item "-s URL" -.Vb 1 -\& Match the regexp to the source of the given URL. -.Ve -.IP "\fB\-p \s-1URL\s0\fR" 4 -.IX Item "-p URL" -.Vb 1 -\& Match the regexp to the parsed html. -.Ve -.IP "\fB\-e \s-1REGEXP\s0\fR" 4 -.IX Item "-e REGEXP" -.Vb 2 -\& The perl regular expression, with groups. -\& Always use ' or " to enclose! -.Ve -.IP "\fB\-t seconds\fR" 4 -.IX Item "-t seconds" -.Vb 3 -\& Timeout of the URL's query. After the given seconds, the script -\& returns. -\& The default timeout is 600. -.Ve -.IP "\fB\-f format\fR" 4 -.IX Item "-f format" -.Vb 1 -\& A printf format string, for formatting the output. -.Ve -.SH "BUILDING THE REGEXP" -.IX Header "BUILDING THE REGEXP" -.Vb 3 -\& The page is treated as a single line string, but -\& regexp detects multiple lines (m//sm), so . matches \en, but ^,$ -\& match start and end of any line. -.Ve -.SH "EXAPLES" -.IX Header "EXAPLES" -pud \-s http://frugalware.org \-e \*(L" frugalware\-(.*?)<.*fwclose\*(R" -.Sp -pud \-p http://frugalware.org/ \-e '(\ed+):(\ed+) inc' \-f \*(L"%d\-%d\*(R" -.SH "AUTHOR" -.IX Header "AUTHOR" -Written by Zsolt Szalai. -.SH "BUGS" -.IX Header "BUGS" -Report bugs to <[EMAIL PROTECTED]>. -.SH "COPYRIGHT" -.IX Header "COPYRIGHT" -pud may be copied and modified under the terms of the \s-1GNU\s0 General Public -License v2. _______________________________________________ Frugalware-git mailing list [email protected] http://frugalware.org/mailman/listinfo/frugalware-git
