Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 37 lines (30 sloc) 1.105 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
use inc::Module::Install;

name 'Webinject-Gui';
all_from 'lib/Webinject/Gui.pm';
license 'gpl2';

resources(
    'homepage', => 'http://www.webinject.org',
    'bugtracker' => 'http://github.com/sni/Webinject/issues',
    'repository', => 'http://github.com/sni/Webinject',
);

requires 'Webinject' => '1.50';
requires 'Tk' => 0;
requires 'Tk::Stderr' => 0;
requires 'Tk::ROText' => 0;
requires 'Tk::Compound' => 0;
requires 'Tk::ProgressBar::Mac' => 0;
requires 'Tk::NoteBook' => 0;
requires 'Tk::PNG' => 0;

install_script 'bin/webinjectgui.pl';

auto_install;
WriteAll;

open(my $fh, '>>', 'Makefile') or die('cannot write to Makefile');
print $fh <<EOT;
webinjectgui.pl ::
echo '#!/usr/bin/env perl' > ./webinjectgui.pl
echo '# nagios: +epn' >> ./webinjectgui.pl
echo '' >> ./webinjectgui.pl
cat ../Webinject/lib/Webinject.pm lib/Webinject/Gui.pm ./bin/webinjectgui.pl | grep -v '^use Webinject' | grep -v '__END__' >> ./webinjectgui.pl
chmod 755 ./webinjectgui.pl
EOT
close($fh);
Something went wrong with that request. Please try again.