ikiwiki-upstream - Unnamed repository; edit this file to name it for gitweb.

diff options

Diffstat (limited to 'doc/plugins/meta')

0 files changed, 0 insertions, 0 deletions

class="hl opt">= `latex -version`;

%checkversion = ( www => 3, abacus => 4, pluto => 5, neptune => 8 );

%source = (

        1 => { url => "http://voxel.dl.sourceforge.net/sourceforge/sql-ledger", site => "New York, U.S.A", locale => us },

            2 => { url => "http://easynews.dl.sourceforge.net/sourceforge/sql-ledger", site => "Arizona, U.S.A", locale => us },

        3 => { url => "http://www.sql-ledger.com/source", site => "California, U.S.A", locale => us },

            4 => { url => "http://abacus.sql-ledger.com/source", site => "Toronto, Canada", locale => ca },

        5 => { url => "http://pluto.sql-ledger.com/source", site => "Edmonton, Canada", locale => ca },

        6 => { url => "http://ufpr.dl.sourceforge.net/sourceforge/sql-ledger", site =>"Brazil", locale => br },

        7 => { url => "http://surfnet.dl.sourceforge.net/sourceforge/sql-ledger", site => "The Netherlands", locale => nl },

        8 => { url => "http://neptune.sql-ledger.com/source", site => "Ireland", locale => ie },

        9 => { url => "http://kent.dl.sourceforge.net/sourceforge/sql-ledger", site => "U.K", locale => uk },

        10 => { url => "http://ovh.dl.sourceforge.net/sourceforge/sql-ledger", site => "France", locale => fr },

        11 => { url => "http://mesh.dl.sourceforge.net/sourceforge/sql-ledger", site => "Germany", locale => de },

        12 => { url => "http://citkit.dl.sourceforge.net/sourceforge/sql-ledger", site => "Russia", locale => ru },

        13 => { url => "http://optusnet.dl.sourceforge.net/sourceforge/sql-ledger", site => "Sydney, Australia", locale => au },

        14 => { url => "http://nchc.dl.sourceforge.net/sourceforge/sql-ledger", site => "Taiwan", locale => tw },

        15 => { url => "http://jaist.dl.sourceforge.net/sourceforge/sql-ledger", site => "Japan", locale => jp }

);

$userspath = "users";         # default for new installation

eval { require "ledger-smb.conf"; };

$filename = shift;

chomp $filename;

$newinstall = 1;

# is LWP installed

eval { require LWP::Simple; };

$lwp = !($@);

unless ($lwp || $lynx || $filename) {

die "You must have either lynx or LWP installed or specify a filename.

perl $0 <filename>\n";

}

if ($filename) {

# extract version

  die "Not a LedgerSMB archive\n" if ($filename !~ /^sql-ledger/);

  $version = $filename;

  $version =~ s/sql-ledger-(\d+\.\d+\.\d+).*$/$1/;

}

if (-f "VERSION") {

# get installed version from VERSION file

  open(FH, "VERSION");

  @a = <FH>;

  close(FH);

  $version = $a[0];

  chomp $version;

  $newinstall = !$version;

  if (! -f "ledger-smb.conf") {

    $newinstall = 1;

}

$webowner = "nobody";

$webgroup = "nogroup";

if ($httpd = `find /etc /usr/local/etc -type f -name 'httpd.conf'`) {

  chomp $httpd;

  $webowner = `grep "^User " $httpd`;

  $webgroup = `grep "^Group " $httpd`;

  chomp $webowner;

  chomp $webgroup;

  ($null, $webowner) = split / /, $webowner;

  ($null, $webgroup) = split / /, $webgroup;

}

if ($confd = `find /etc /usr/local/etc -type d -name 'apache*/conf.d'`) {

  chomp $confd;

}

system("tput clear");

if ($filename) {

  $install = "\ninstall $version from (f)ile\n";

}

# check for latest version

&get_latest_version;

chomp $latest_version;

if (!$newinstall) {

  $install .= "\n(r)einstall $version\n";

}

if ($version && $latest_version) {

  if ($version lt $latest_version) {

    $install .= "\n(u)pgrade to $latest_version\n";

}

$install .= "\n(i)nstall $latest_version (from Internet)\n" if $latest_version;

$install .= "\n(d)ownload $latest_version (no installation)" unless $filename;

print qq|

LedgerSMB Accounting and ERP Installation

$install

Enter: |;

$a = <STDIN>;

chomp $a;

exit unless $a;

$a = lc $a;

if ($a !~ /d/) {

  print qq|\nEnter httpd owner [$webowner] : |;

  $web = <STDIN>;

  chomp $web;

  $webowner = $web if $web;

  print qq|\nEnter httpd group [$webgroup] : |;

  $web = <STDIN>;

  chomp $web;

  $webgroup = $web if $web;

}

if ($a ne 'f') {

  system("tput clear");

# choose site

  foreach $item (sort { $a <=> $b } keys %source) {

$i++;

    print qq|$i. $source{$item}{site}\n|;

}

  $site = "1";

  print qq|\nChoose Location [$site] : |;

  $b = <STDIN>;

  chomp $b;

  $site = $b if $b;

}

if ($a eq 'd') {

&download;

}

if ($a =~ /(i|u)/) {

&install;

}

if ($a eq 'r') {

  $latest_version = $version;

&install;

}

if ($a eq 'f') {

&install;

}

exit;

# end main

sub download {

&get_source_code;

}

sub get_latest_version {

  print "Checking for latest version number .... ";

  if ($filename) {

    print "skipping, filename supplied\n";

return;

}

  if ($lwp) {

    foreach $source (qw(pluto www abacus neptune)) {

      $url = $source{$checkversion{$source}}{url};

      print "\n$source{$checkversion{$source}}{site} ... ";

      $latest_version = LWP::Simple::get("$url/latest_version");

      if ($latest_version) {

last;

      } else {

    print "not found";

}

  } else {

    if (!$lynx) {

      print "\nYou must have either lynx or LWP installed";

      exit 1;

}

    foreach $source (qw(pluto www abacus neptune)) {

      $url = $source{$checkversion{$source}}{url};

      print "\n$source{$checkversion{$source}}{site} ... ";

      $ok = `lynx -dump -head $url/latest_version`;

      if ($ok = ($ok =~ s/HTTP.*?200 //)) {

    $latest_version = `lynx -dump $url/latest_version`;

last;

      } else {

    print "not found";

}

    die unless $ok;

}

  if ($latest_version) {

    print "ok\n";

}

sub get_source_code {

  $err = 0;

@order = ();

  push @order, $site;

  for (sort { $a <=> $b } keys %source) {

    push @order, $_;

}

  if ($latest_version) {

# download it

    chomp $latest_version;

    $latest_version = "sql-ledger-${latest_version}.tar.gz";

    print "\nStatus\n";

    print "Downloading $latest_version .... ";

    foreach $key (@order) {

      print "\n$source{$key}{site} .... ";

      if ($lwp) {

    $err = LWP::Simple::getstore("$source{$key}{url}/$latest_version", "$latest_version");

    $err -= 200;

      } else {

    $ok = `lynx -dump -head $source{$key}{url}/$latest_version`;

    $err = !($ok =~ s/HTTP.*?200 //);

    if (!$err) {

      $err = system("lynx -dump $source{$key}{url}/$latest_version > $latest_version");

}

      if ($err) {

print "failed!";

} else {

last;

}

} else {

    $err = -1;

}

  if ($err) {

    die "Cannot get $latest_version";

} else {

    print "ok!\n";

}

  $latest_version;

}

sub install {

  if ($filename) {

    $latest_version = $filename;

} else {

    $latest_version = &get_source_code;

}

&decompress;

  if ($newinstall) {

open(FH, "ledger-smb.conf.default");

    @f = <FH>;

close(FH);

    unless ($latex) {

      grep { s/^\$latex.*/\$latex = 0;/ } @f;

}

open(FH, ">ledger-smb.conf");

    print FH @f;

close(FH);

    $alias = $absolutealias = $ENV{'PWD'};

    $alias =~ s/.*\///g;

    $httpddir = `dirname $httpd`;

    if ($confd) {

      $httpddir = $confd;

}

    chomp $httpddir;

    $filename = "sql-ledger-httpd.conf";

# do we have write permission?

    if (!open(FH, ">>$httpddir/$filename")) {

      open(FH, ">$filename");

      $norw = 1;

}

    $directives = qq|

Alias /$alias $absolutealias/

<Directory $absolutealias>

AllowOverride All

AddHandler cgi-script .pl

Options ExecCGI Includes FollowSymlinks

Order Allow,Deny

Allow from All

</Directory>

<Directory $absolutealias/users>

Order Deny,Allow

Deny from All

</Directory>

    print FH $directives;

    close(FH);

print qq|

This is a new installation.

    if ($norw) {

print qq|

Webserver directives were written to $filename

Copy $filename to $httpddir

      if (!$confd) {

    print qq| and add

# SQL-Ledger

Include $httpddir/$filename

to $httpd

}

      print qq| and restart your webserver!\n|;

      if (!$permset) {

print qq|

WARNING: permissions for templates, users, css and spool directory

could not be set. Login as root and set permissions

# chown -hR :$webgroup users templates css spool

# chmod 771 users templates css spool

}

    } else {

print qq|

Webserver directives were written to

$httpddir/$filename

      if (!$confd) {

    if (!(`grep "^# SQL-Ledger" $httpd`)) {

      open(FH, ">>$httpd");

print FH qq|

# SQL-Ledger

Include $httpddir/$filename

close(FH);

}

if (!$>) {

# send SIGHUP to httpd

    if ($f = `find /var -type f -name 'httpd.pid'`) {

      $pid = `cat $f`;

      chomp $pid;

      if ($pid) {

        system("kill -s HUP $pid");

}

# if this is not root, check if user is part of $webgroup

if ($>) {

    if ($permset = ($) =~ getgrnam $webgroup)) {

      `chown -hR :$webgroup users templates css spool`;

      chmod 0771, 'users', 'templates', 'css', 'spool';

      `chown :$webgroup ledger-smb.conf`;

}

  } else {

# root

`chown -hR 0:0 *`;

    `chown -hR $webowner:$webgroup users templates css spool`;

    chmod 0771, 'users', 'templates', 'css', 'spool';

    `chown $webowner:$webgroup ledger-smb.conf`;

}

  chmod 0644, 'ledger-smb.conf';

  unlink "ledger-smb.conf.default";

&cleanup;

  while ($a !~ /(Y|N)/) {

    print qq|\nDisplay README (Y/n) : |;

    $a = <STDIN>;

    chomp $a;

    $a = ($a) ? uc $a : 'Y';

    if ($a eq 'Y') {

      @args = ("more", "doc/README");

      system(@args);

}

sub decompress {

  die "Error: gzip not installed\n" unless ($gzip);

  die "Error: tar not installed\n" unless ($tar);

&create_lockfile;


context:
space:
mode: