I ran into two bugs. I do not really have experience with the modules
used by Net::Lujoyglamour, but I needed to make these two changes to
make it work.
The first because query->param contained the parameters for me, not -
Show quoted text
>param.
The second because the script already logs the http:// into the
database.
--- Net-Lujoyglamour-0.0.6.1.9/lib/Net/Lujoyglamour/WebApp.pm 2010-10-
13 19:44:56.000000000 +0200
+++ /usr/share/perl5/Net/Lujoyglamour/WebApp.pm 2010-12-25
17:17:34.000000000 +0100
@@ -96,10 +96,10 @@
sub redirect_url {
my $self = shift;
- my $url = $self->param('url');
+ my $url = $self->query->param('url');
my $long_url = $self->schema->get_long_for( $url );
if ( $long_url ) {
- return $self->redirect("http://".$long_url );
+ return $self->redirect($long_url );
} else {
my $tmpl = $self->load_tmpl;
$tmpl->param( domain => $self->param('domain'),
Here's a list of dependencies as provided by Module::ScanDeps in case
these problems are caused by a difference of versions between our
systems:
'AutoLoader' => '5.63',
'CGI' => '3.29',
'CGI::Application' => '4.10',
'CGI::Application::Plugin::DBH' => '4.00',
'CGI::Application::Plugin::DBIx::Class' => '0.100210',
'CGI::Application::Plugin::Redirect' => '1.00',
'CGI::Util' => '1.5_01',
'Carp' => '1.08',
'Carp::Clan' => '6.00',
'Class::Accessor' => '0.31',
'Class::Accessor::Chained::Fast' => 'undef',
'Class::Accessor::Fast' => '0.31',
'Class::Accessor::Grouped' => '0.08001',
'Class::C3' => '0.19',
'Class::C3::Componentised' => '1.0003',
'Class::ISA' => '0.33',
'Class::Inspector' => '1.23',
'Config' => 'undef',
'Cwd' => '3.2701',
'DBI' => '1.605',
'DBI::Const::GetInfo::ANSI' => '2.008696',
'DBI::Const::GetInfo::ODBC' => '2.011373',
'DBI::Const::GetInfoType' => '2.008696',
'DBIx::Class' => '0.08010',
'DBIx::Class::Componentised' => 'undef',
'DBIx::Class::Core' => 'undef',
'DBIx::Class::Cursor' => 'undef',
'DBIx::Class::Exception' => 'undef',
'DBIx::Class::InflateColumn' => 'undef',
'DBIx::Class::PK' => 'undef',
'DBIx::Class::PK::Auto' => 'undef',
'DBIx::Class::Relationship' => 'undef',
'DBIx::Class::Relationship::Accessor' => 'undef',
'DBIx::Class::Relationship::Base' => 'undef',
'DBIx::Class::Relationship::BelongsTo' => 'undef',
'DBIx::Class::Relationship::CascadeActions' => 'undef',
'DBIx::Class::Relationship::HasMany' => 'undef',
'DBIx::Class::Relationship::HasOne' => 'undef',
'DBIx::Class::Relationship::Helpers' => 'undef',
'DBIx::Class::Relationship::ManyToMany' => 'undef',
'DBIx::Class::Relationship::ProxyMethods' => 'undef',
'DBIx::Class::ResultSet' => 'undef',
'DBIx::Class::ResultSetColumn' => 'undef',
'DBIx::Class::ResultSource' => 'undef',
'DBIx::Class::ResultSource::Table' => 'undef',
'DBIx::Class::ResultSourceHandle' => 'undef',
'DBIx::Class::ResultSourceProxy' => 'undef',
'DBIx::Class::ResultSourceProxy::Table' => 'undef',
'DBIx::Class::Row' => 'undef',
'DBIx::Class::Schema' => 'undef',
'DBIx::Class::StartupCheck' => 'undef',
'DBIx::Class::Storage' => 'undef',
'DBIx::Class::Storage::DBI' => 'undef',
'DBIx::Class::Storage::DBI::Cursor' => 'undef',
'DBIx::Class::Storage::Statistics' => 'undef',
'DBIx::Class::Storage::TxnScopeGuard' => 'undef',
'Data::Page' => '2.00',
'Digest::MD5' => '2.36_01',
'Digest::base' => '1.00',
'DynaLoader' => '1.08',
'Exporter' => '5.62',
'Exporter::Heavy' => '5.62',
'Fcntl' => '1.06',
'File::Basename' => '2.76',
'File::Find' => '1.12',
'File::Spec' => '3.2701',
'File::Spec::Unix' => '3.2701',
'FileHandle' => '2.01',
'HTML::Template' => '2.9',
'IO' => '1.23_01',
'IO::File' => '1.14',
'IO::Handle' => '1.27',
'IO::Seekable' => '1.10',
'JSON' => '2.07',
'JSON::XS' => '2.01',
'List::Util' => '1.19',
'MRO::Compat' => '0.09',
'Module::Find' => '0.06',
'Net::Lujoyglamour' => '0.0.6.1.9',
'Net::Lujoyglamour::Result::Url' => '1.005',
'Net::Lujoyglamour::WebApp' => '1.011',
'Regexp::Common' => '2.122',
'Regexp::Common::CC' => '2.100',
'Regexp::Common::SEN' => '2.104',
'Regexp::Common::URI' => '2.110',
'Regexp::Common::URI::RFC1035' => '2.102',
'Regexp::Common::URI::RFC1738' => '2.106',
'Regexp::Common::URI::RFC1808' => '2.102',
'Regexp::Common::URI::RFC2384' => '2.104',
'Regexp::Common::URI::RFC2396' => '2.102',
'Regexp::Common::URI::RFC2806' => '2.102',
'Regexp::Common::URI::fax' => '2.102',
'Regexp::Common::URI::file' => '2.102',
'Regexp::Common::URI::ftp' => '2.103',
'Regexp::Common::URI::gopher' => '2.102',
'Regexp::Common::URI::http' => '2.103',
'Regexp::Common::URI::news' => '2.102',
'Regexp::Common::URI::pop' => '2.102',
'Regexp::Common::URI::prospero' => '2.102',
'Regexp::Common::URI::tel' => '2.102',
'Regexp::Common::URI::telnet' => '2.102',
'Regexp::Common::URI::tv' => '2.102',
'Regexp::Common::URI::wais' => '2.102',
'Regexp::Common::_support' => '2.103',
'Regexp::Common::balanced' => '2.103',
'Regexp::Common::comment' => '2.120',
'Regexp::Common::delimited' => '2.106',
'Regexp::Common::lingua' => '2.107',
'Regexp::Common::list' => '2.105',
'Regexp::Common::net' => '2.108',
'Regexp::Common::number' => '2.110',
'Regexp::Common::profanity' => '2.106',
'Regexp::Common::whitespace' => '2.105',
'Regexp::Common::zip' => '2.116',
'SQL::Abstract' => '1.24',
'SQL::Abstract::Limit' => '0.12',
'Scalar::Util' => '1.19',
'Scope::Guard' => '0.03',
'SelectSaver' => '1.01',
'Storable' => '2.18',
'String::Random' => '0.22',
'Symbol' => '1.06',
'UNIVERSAL' => '1.04',
'XSLoader' => '0.08',
'base' => '2.13',
'constant' => '1.13',
'integer' => '1.00',
'lib' => '0.5565',
'locale' => '1.00',
'mro' => '1.00',
'overload' => '1.06',
'parent' => '0.221',
're' => '0.08',
'strict' => '1.04',
'utf8' => '1.07',
'vars' => '1.01',
'version' => '0.74',
'warnings' => '1.06',
'warnings::register' => '1.01',
This is on a mostly vanilla Debian Lenny installation.
Apart from that, it works fine. Thanks!