.\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.40) .\" .\" Standard preamble: .\" ======================================================================== .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. \*(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- .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" '' . ds C` . ds C' 'br\} .\" .\" Escape single quotes in literal strings from groff's Unicode transform. .ie \n(.g .ds Aq \(aq .el .ds Aq ' .\" .\" If the F register is >0, we'll generate index entries on stderr for .\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index .\" entries marked with X<> in POD. Of course, you'll have to process the .\" output yourself in some meaningful fashion. .\" .\" Avoid warning from groff about undefined register 'F'. .de IX .. .nr rF 0 .if \n(.g .if rF .nr rF 1 .if (\n(rF:(\n(.g==0)) \{\ . if \nF \{\ . de IX . tm Index:\\$1\t\\n%\t"\\$2" .. . if !\nF==2 \{\ . nr % 0 . nr F 2 . \} . \} .\} .rr rF .\" ======================================================================== .\" .IX Title "WWW::Shorten 3pm" .TH WWW::Shorten 3pm "2021-03-15" "perl v5.32.1" "User Contributed Perl Documentation" .\" For nroff, turn off justification. Always turn off hyphenation; it makes .\" way too many mistakes in technical documents. .if n .ad l .nh .SH "NAME" WWW::Shorten \- Interface to URL shortening sites. .SH "SYNOPSIS" .IX Header "SYNOPSIS" .Vb 3 \& #!/usr/bin/env perl \& use strict; \& use warnings; \& \& use WWW::Shorten \*(AqTinyURL\*(Aq; # Recommended \& # use WWW::Shorten \*(AqBitly\*(Aq; # or one of the others \& \& # Individual modules have have their own syntactic variations. \& # See the documentation for the particular module you intend to use for details \& \& my $url = \*(Aqhttps://metacpan.org/pod/WWW::Shorten\*(Aq; \& my $short_url = makeashorterlink($url); \& my $long_url = makealongerlink($short_url); \& \& # \- OR \- \& # If you don\*(Aqt like the long function names: \& \& use WWW::Shorten \*(AqTinyURL\*(Aq, \*(Aq:short\*(Aq; \& my $short_url = short_link($url); \& my $long_url = long_link( $short_url ); .Ve .SH "DESCRIPTION" .IX Header "DESCRIPTION" A Perl interface to various services that shorten URLs. These sites maintain databases of long URLs, each of which has a unique identifier. .SH "DEPRECATION NOTICE" .IX Header "DEPRECATION NOTICE" The following shorten services have been deprecated as the endpoints no longer exist or function: .IP "\(bu" 4 WWW::Shorten::LinkToolbot .IP "\(bu" 4 WWW::Shorten::Linkz .IP "\(bu" 4 WWW::Shorten::MakeAShorterLink .IP "\(bu" 4 WWW::Shorten::Metamark .IP "\(bu" 4 WWW::Shorten::TinyClick .IP "\(bu" 4 WWW::Shorten::Tinylink .IP "\(bu" 4 WWW::Shorten::Qurl .IP "\(bu" 4 WWW::Shorten::Qwer .PP When version \f(CW3.100\fR is released, these deprecated services will not be part of the distribution. .SH "SHORTEN APP" .IX Header "SHORTEN APP" A very simple program called \fIshorten\fR is supplied in the distribution's \fIbin\fR folder. This program takes a \s-1URL\s0 and gives you a shortened version of it. .SH "BUGS, REQUESTS, COMMENTS" .IX Header "BUGS, REQUESTS, COMMENTS" Please submit any issues you might have. We appreciate all help, suggestions, noted problems, and especially patches. .PP * If you know of a shorten service that we don't already have, make your own service and release it as a separate module, like WWW::Shorten::Googl or WWW::Shorten::Bitly. Alternatively, you can let us know and we'll be happy to work it up for you. .SH "AUTHOR" .IX Header "AUTHOR" Iain Truskett \f(CW\*(C`spoon@cpan.org\*(C'\fR .SH "CONTRIBUTORS" .IX Header "CONTRIBUTORS" .IP "\(bu" 4 Alex Page \*(-- for the original \s-1LWP\s0 hacking on which Dave based his code. .IP "\(bu" 4 Ask Bjoern Hansen \*(-- providing WWW::Shorten::Metamark .IP "\(bu" 4 Chase Whitener \f(CW\*(C`capoeirab@cpan.org\*(C'\fR .IP "\(bu" 4 Dave Cross dave@perlhacks.com \*(-- Authored WWW::MakeAShorterLink on which this was based .IP "\(bu" 4 Eric Hammond \*(-- writing WWW::Shorten::NotLong .IP "\(bu" 4 Jon and William (wjr) \*(-- smlnk services .IP "\(bu" 4 Kazuhiro Osawa \f(CW\*(C`yappo@cpan.org\*(C'\fR .IP "\(bu" 4 Kevin Gilbertson (Gilby) \*(-- TinyURL \s-1API\s0 information .IP "\(bu" 4 Martin Thurn \*(-- bug fixes .IP "\(bu" 4 Matt Felsen (mattf) \*(-- shorter function names .IP "\(bu" 4 Neil Bowers \f(CW\*(C`neilb@cpan.org\*(C'\fR .IP "\(bu" 4 \&\s-1PJ\s0 Goodwin \*(-- code for WWW::Shorten::OneShortLink .IP "\(bu" 4 Shashank Tripathi \f(CW\*(C`shank@shank.com\*(C'\fR \*(-- for providing WWW::Shorten::SnipURL .IP "\(bu" 4 Simon Batistoni \*(-- giving the `makealongerlink` idea to Dave. .IP "\(bu" 4 Everyone else we might have missed. .PP In 2004 Dave Cross took over the maintenance of this distribution following the death of Iain Truskett. .PP In 2016, Chase Whitener took over the maintenance of this distribution. .SH "LICENSE AND COPYRIGHT" .IX Header "LICENSE AND COPYRIGHT" Copyright (c) 2002 by Iain Truskett. .PP This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. .SH "SEE ALSO" .IX Header "SEE ALSO" CGI::Shorten, WWW::Shorten::Simple