summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--website/index.mdwn4
-rw-r--r--website/templates/header.mdwn1
2 files changed, 3 insertions, 2 deletions
diff --git a/website/index.mdwn b/website/index.mdwn
index 828ec9f..58c634e 100644
--- a/website/index.mdwn
+++ b/website/index.mdwn
@@ -1,3 +1,5 @@
+[[!template id="header"]]
+
The Monkeysphere project's goal is to extend the web of trust model
and other features of OpenPGP to other areas of the Internet to help
us securely identify each other while we work online.
@@ -9,8 +11,6 @@ yourself and the servers you administer or connect to. OpenPGP keys
are tracked via GnuPG, and managed in the `known_hosts` and
`authorized_keys` files used by OpenSSH for connection authentication.
-[why?](why) | [[download]] | [[documentation|doc]] | [[news]] | [[community]] | [[bugs]]
-
## Conceptual overview ##
Everyone who has used secure shell is familiar with the prompt given
diff --git a/website/templates/header.mdwn b/website/templates/header.mdwn
new file mode 100644
index 0000000..fba9a66
--- /dev/null
+++ b/website/templates/header.mdwn
@@ -0,0 +1 @@
+[why?](why) | [[download]] | [[documentation|doc]] | [[news]] | [[community]] | [[bugs]]
generated by cgit v1.2.3 (git 2.46.0) at 2025-06-02 18:44:06 +0000
d="n_44" class="hl">
  • my $dbh = $form->{dbh};
  • my $query = qq|
  • SELECT accno, description, charttype, gifi_accno,
  • category, link, contra
  • FROM chart
  • WHERE id = ?|;
  • my $sth = $dbh->prepare($query);
  • $sth->execute($form->{id}) || $form->dberror($query);
  • my $ref = $sth->fetchrow_hashref(NAME_lc);
  • for (keys %$ref) { $form->{$_} = $ref->{$_} }
  • $sth->finish;
  • # get default accounts
  • $query = qq|
  • SELECT inventory_accno_id, income_accno_id, expense_accno_id,
  • fxgain_accno_id, fxloss_accno_id
  • FROM defaults|;
  • $sth = $dbh->prepare($query);
  • $sth->execute || $form->dberror($query);
  • $ref = $sth->fetchrow_hashref(NAME_lc);
  • for (keys %$ref) { $form->{$_} = $ref->{$_} }
  • $sth->finish;
  • # check if we have any transactions
  • $query = qq|
  • SELECT trans_id
  • FROM acc_trans
  • WHERE chart_id = ?
  • LIMIT 1|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{id});
  • ($form->{orphaned}) = $sth->fetchrow_array();
  • $form->{orphaned} = !$form->{orphaned};
  • $dbh->commit;
  • }
  • sub save_account {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database, turn off AutoCommit
  • my $dbh = $form->{dbh};
  • $form->{link} = "";
  • foreach my $item ($form->{AR},
  • $form->{AR_amount},
  • $form->{AR_tax},
  • $form->{AR_paid},
  • $form->{AP},
  • $form->{AP_amount},
  • $form->{AP_tax},
  • $form->{AP_paid},
  • $form->{IC},
  • $form->{IC_income},
  • $form->{IC_sale},
  • $form->{IC_expense},
  • $form->{IC_cogs},
  • $form->{IC_taxpart},
  • $form->{IC_taxservice}) {
  • $form->{link} .= "${item}:" if ($item);
  • }
  • chop $form->{link};
  • # strip blanks from accno
  • for (qw(accno gifi_accno)) { $form->{$_} =~ s/( |')//g }
  • foreach my $item (qw(accno gifi_accno description)) {
  • $form->{$item} =~ s/-(-+)/-/g;
  • $form->{$item} =~ s/ ( )+/ /g;
  • }
  • my $query;
  • my $sth;
  • $form->{contra} *= 1;
  • my @queryargs;
  • @queryargs = ($form->{accno}, $form->{description},
  • $form->{charttype}, $form->{gifi_accno},
  • $form->{category}, $form->{"link"},
  • $form->{contra});
  • # if we have an id then replace the old record
  • if ($form->{id}) {
  • $query = qq|
  • UPDATE chart SET accno = ?,
  • description = ?,
  • charttype = ?,
  • gifi_accno = ?,
  • category = ?,
  • link = ?,
  • contra = ?
  • WHERE id = ?|;
  • push @queryargs, $form->{id};
  • } else {
  • $query = qq|
  • INSERT INTO chart
  • (accno, description, charttype,
  • gifi_accno, category, link, contra)
  • VALUES (?, ?, ?, ?, ?, ?, ?)|;
  • }
  • $sth = $dbh->prepare($query);
  • $sth->execute(@queryargs) || $form->dberror($query);
  • $sth->finish;
  • $chart_id = $dbh->quote($form->{id});
  • if (! $form->{id}) {
  • # get id from chart
  • $query = qq|
  • SELECT id
  • FROM chart
  • WHERE accno = ?|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{accno});
  • ($chart_id) = $sth->fetchrow_array();
  • $sth->finish;
  • }
  • if ($form->{IC_taxpart} || $form->{IC_taxservice} || $form->{AR_tax} || $form->{AP_tax}) {
  • # add account if it doesn't exist in tax
  • $query = qq|SELECT chart_id
  • FROM tax
  • WHERE chart_id = $chart_id|;
  • my ($tax_id) = $dbh->selectrow_array($query);
  • # add tax if it doesn't exist
  • unless ($tax_id) {
  • $query = qq|INSERT INTO tax (chart_id, rate)
  • VALUES ($chart_id, 0)|;
  • $dbh->do($query) || $form->dberror($query);
  • }
  • } else {
  • # remove tax
  • if ($form->{id}) {
  • $query = qq|DELETE FROM tax
  • WHERE chart_id = $form->{id}|;
  • $dbh->do($query) || $form->dberror($query);
  • }
  • }
  • # commit
  • my $rc = $dbh->commit;
  • $rc;
  • }
  • sub delete_account {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database, turn off AutoCommit
  • my $dbh = $form->{dbh};
  • my $sth;
  • my $query = qq|
  • SELECT count(*)
  • FROM acc_trans
  • WHERE chart_id = ?|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{id});
  • my ($rowcount) = $sth->fetchrow_array();
  • if ($dbh->selectrow_array($query)) {
  • $form->error(
  • "Cannot delete accounts with associated transactions!"
  • );
  • }
  • # delete chart of account record
  • $query = qq|
  • DELETE FROM chart
  • WHERE id = ?|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{id}) || $form->dberror($query);
  • # set inventory_accno_id, income_accno_id, expense_accno_id to defaults
  • $query = qq|
  • UPDATE parts
  • SET inventory_accno_id = (SELECT inventory_accno_id
  • FROM defaults)
  • WHERE inventory_accno_id = ?|;
  • $sth = $dbh->prepare($query);
  • $dbh->execute($form->{id}) || $form->dberror($query);
  • for (qw(income_accno_id expense_accno_id)){
  • $query = qq|
  • UPDATE parts
  • SET $_ = (SELECT $_
  • FROM defaults)
  • WHERE $_ = ?|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{id}) || $form->dberror($query);
  • $sth->finish;
  • }
  • foreach my $table (qw(partstax customertax vendortax tax)) {
  • $query = qq|
  • DELETE FROM $table
  • WHERE chart_id = ?|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{id}) || $form->dberror($query);
  • $sth->finish;
  • }
  • # commit and redirect
  • my $rc = $dbh->commit;
  • $rc;
  • }
  • sub gifi_accounts {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • my $query = qq|
  • SELECT accno, description
  • FROM gifi
  • ORDER BY accno|;
  • $sth = $dbh->prepare($query);
  • $sth->execute || $form->dberror($query);
  • while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
  • push @{ $form->{ALL} }, $ref;
  • }
  • $sth->finish;
  • $dbh->commit;
  • }
  • sub get_gifi {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • my $sth;
  • my $query = qq|
  • SELECT accno, description
  • FROM gifi
  • WHERE accno = '$form->{accno}'|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{accno}) || $form->dberror($query);
  • ($form->{accno}, $form->{description}) = $sth->fetchrow_array();
  • $sth->finish;
  • # check for transactions
  • $query = qq|
  • SELECT count(*)
  • FROM acc_trans a
  • JOIN chart c ON (a.chart_id = c.id)
  • JOIN gifi g ON (c.gifi_accno = g.accno)
  • WHERE g.accno = ?|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{accno}) || $form->dberror($query);
  • ($numrows) = $dbh->selectrow_array($query);
  • if (($numrows * 1) == 0){
  • $form->{orphaned} = 1;
  • } else {
  • $form->{orphaned} = 0;
  • }
  • $dbh->commit;
  • }
  • sub save_gifi {
  • my ($self, $myconfig, $form) = @_;
  • my $dbh = $form->{dbh};
  • $form->{accno} =~ s/( |')//g;
  • foreach my $item (qw(accno description)) {
  • $form->{$item} =~ s/-(-+)/-/g;
  • $form->{$item} =~ s/ ( )+/ /g;
  • }
  • my @queryargs = ($form->{accno}, $form->{description});
  • # id is the old account number!
  • if ($form->{id}) {
  • $query = qq|
  • UPDATE gifi
  • SET accno = ?,
  • description = ?
  • WHERE accno = ?|;
  • push @queryargs, $form->{id};
  • } else {
  • $query = qq|
  • INSERT INTO gifi (accno, description)
  • VALUES (?, ?)|;
  • }
  • $sth = $dbh->prepare($query);
  • $sth->execute(@queryargs) || $form->dberror;
  • $sth->finish;
  • $dbh->commit;
  • }
  • sub delete_gifi {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • # id is the old account number!
  • $query = qq|
  • DELETE FROM gifi
  • WHERE accno = ?|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{id}) || $form->dberror($query);
  • $sth->finish;
  • $dbh->commit;
  • }
  • sub warehouses {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • $form->sort_order();
  • my $query = qq|
  • SELECT id, description
  • FROM warehouse
  • ORDER BY description $form->{direction}|;
  • $sth = $dbh->prepare($query);
  • $sth->execute || $form->dberror($query);
  • while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
  • push @{ $form->{ALL} }, $ref;
  • }
  • $sth->finish;
  • $dbh->commit;
  • }
  • sub get_warehouse {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • my $sth;
  • my $query = qq|
  • SELECT description
  • FROM warehouse
  • WHERE id = ?|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{id}) || $form->dberror($query);
  • ($form->{description}) = $sth->fetchrow_array($query);
  • $sth->finish;
  • # see if it is in use
  • $query = qq|
  • SELECT count(*)
  • FROM inventory
  • WHERE warehouse_id = ?|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{id});
  • ($form->{orphaned}) = $sth->fetchrow_array($query);
  • if (($form->{orphaned} * 1) == 0){
  • $form->{orphaned} = 1;
  • } else {
  • $form->{orphaned} = 0;
  • }
  • $dbh->commit;
  • }
  • sub save_warehouse {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • my $sth;
  • my @queryargs = ($form->{description});
  • $form->{description} =~ s/-(-)+/-/g;
  • $form->{description} =~ s/ ( )+/ /g;
  • if ($form->{id}) {
  • $query = qq|
  • UPDATE warehouse
  • SET description = ?
  • WHERE id = ?|;
  • push @queryargs, $form->{id};
  • } else {
  • $query = qq|
  • INSERT INTO warehouse (description)
  • VALUES (?)|;
  • }
  • $sth = $dbh->prepare($query);
  • $sth->execute(@queryargs) || $form->dberror($query);
  • $sth->finish;
  • $dbh->commit;
  • }
  • sub delete_warehouse {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • $query = qq|
  • DELETE FROM warehouse
  • WHERE id = ?|;
  • $dbh->prepare($query)->execute($form->{id}) || $form->dberror($query);
  • $dbh->commit;
  • }
  • sub departments {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • $form->sort_order();
  • my $query = qq|SELECT id, description, role
  • FROM department
  • ORDER BY description $form->{direction}|;
  • $sth = $dbh->prepare($query);
  • $sth->execute || $form->dberror($query);
  • while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
  • push @{ $form->{ALL} }, $ref;
  • }
  • $sth->finish;
  • $dbh->commit;
  • }
  • sub get_department {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • my $sth;
  • my $query = qq|
  • SELECT description, role
  • FROM department
  • WHERE id = ?|;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{id});
  • ($form->{description}, $form->{role}) = $sth->fetchrow_array($query);
  • $sth->finish;
  • for (keys %$ref) { $form->{$_} = $ref->{$_} }
  • # see if it is in use
  • $query = qq|
  • SELECT count(*)
  • FROM dpt_trans
  • WHERE department_id = ? |;
  • $sth = $dbh->prepare($query);
  • $sth->execute($form->{id});
  • ($form->{orphaned}) = $sth->fetchrow_array($query);
  • if (($form->{orphaned} * 1) == 0){
  • $form->{orphaned} = 1;
  • } else {
  • $form->{orphaned} = 0;
  • }
  • $dbh->commit;
  • }
  • sub save_department {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • $form->{description} =~ s/-(-)+/-/g;
  • $form->{description} =~ s/ ( )+/ /g;
  • my $sth;
  • my @queryargs = ($form->{description}, $form->{role});
  • if ($form->{id}) {
  • $query = qq|
  • UPDATE department
  • SET description = ?,
  • role = ?
  • WHERE id = ?|;
  • push @queryargs, $form->{id};
  • } else {
  • $query = qq|
  • INSERT INTO department (description, role)
  • VALUES (?, ?)|;
  • }
  • $sth = $dbh->prepare($query);
  • $sth->execute(@queryargs) || $form->dberror($query);
  • $dbh->commit;
  • }
  • sub delete_department {
  • my ($self, $myconfig, $form) = @_;
  • # connect to database
  • my $dbh = $form->{dbh};
  • $query = qq|
  • DELETE FROM department
  • WHERE id = ?|;