5,576
edits
Changes
Jump to navigation
Jump to search
Line 489:
Line 489: − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + − + Line 527:
Line 527: − + Line 544:
Line 544: − + Line 555:
Line 555: − + Line 570:
Line 570: − + Line 579:
Line 579: − + Line 599:
Line 599: − + Line 620:
Line 620: − + Line 634:
Line 634: − + Line 655:
Line 655: − + Line 667:
Line 667: − + Line 678:
Line 678: − + Line 690:
Line 690: − +
Create server-manager panels by perl cgi (deprecated) (view source)
Revision as of 16:57, 9 June 2015
, 16:57, 9 June 2015→DB Commands
* examples
* examples
/home/e-smith/configuration
/home/e-smith/configuration
AccessType=dialup
AccessType=dialup
sshd=service|InitscriptOrder|05|status|enabled
sshd=service|InitscriptOrder|05|status|enabled
/home/e-smith/accounts
/home/e-smith/accounts
jim=user|EmailForward|local|LastName|Morrison
jim=user|EmailForward|local|LastName|Morrison
cdrom=system
cdrom=system
cgi-bin=url
cgi-bin=url
jim.morrison=pseudonym|account|jim
jim.morrison=pseudonym|account|jim
$hash ; the file containing the variables
$hash ; the file containing the variables
/home/e-smith/configuration
/home/e-smith/configuration
or /home/e-smith/accounts
or /home/e-smith/accounts
shown as /%conf or /%accounts in the panel perl code
shown as /%conf or /%accounts in the panel perl code
key/value pairs
key/value pairs
$key ; AccessType, cdrom, cgi-bin, jim.morrison
$key ; AccessType, cdrom, cgi-bin, jim.morrison
$new_value ; dialup, system, url
$new_value ; dialup, system, url
key/property|value sets
key/property|value sets
$key ; sshd, jim, jim.morrison
$key ; sshd, jim, jim.morrison
$type ;service, user, pseudonym
$type ;service, user, pseudonym
$prop ;InitscriptOrder, EmailForward, account, status
$prop ;InitscriptOrder, EmailForward, account, status
$new_value ; 05, local, Morrison, jim, enabled
$new_value ; 05, local, Morrison, jim, enabled
$hashref ; see below for explanation
$hashref ; see below for explanation
* explanations
* explanations
# It returns one on success and undef on failure.
# It returns one on success and undef on failure.
#--------------------------------------------------------------------------
#--------------------------------------------------------------------------
sub db_set (%$$;$)
sub db_set (%$$;$)
my ($hash, $key, $new_value, $hashref)
my ($hash, $key, $new_value, $hashref)
# suitable for assigning to a type and properties hash list)
# suitable for assigning to a type and properties hash list)
# or undef if the key does not exist.
# or undef if the key does not exist.
sub db_get (%;$)
sub db_get (%;$)
my ($hash, $key)
my ($hash, $key)
# Takes a reference to a hash and a scalar key and deletes the key. It
# Takes a reference to a hash and a scalar key and deletes the key. It
# returns one on success and undef if the key does not exist.
# returns one on success and undef if the key does not exist.
sub db_delete (%$;)
sub db_delete (%$;)
my ($hash, $key)
my ($hash, $key)
# Takes a reference to a hash, a scalar key and a scalar value and sets
# Takes a reference to a hash, a scalar key and a scalar value and sets
# the type for the key. It returns one on success and undef on failure.
# the type for the key. It returns one on success and undef on failure.
sub db_set_type (%$$;)
sub db_set_type (%$$;)
my ($hash, $key, $type)
my ($hash, $key, $type)
# Takes a reference to a hash and a scalar key and returns the type
# Takes a reference to a hash and a scalar key and returns the type
# associated with the key. It returns undef if the key does not exist.
# associated with the key. It returns undef if the key does not exist.
sub db_get_type (%$;)
sub db_get_type (%$;)
my ($hash, $key)
my ($hash, $key)
# scalar value and sets the property from the value. It returns with
# scalar value and sets the property from the value. It returns with
# the return status of db_set or undef if the key does not exist.
# the return status of db_set or undef if the key does not exist.
sub db_set_prop (%$$$;)
sub db_set_prop (%$$$;)
((
((
# hash of all properties for the key. It returns undef if the key or
# hash of all properties for the key. It returns undef if the key or
# the property does not exist.
# the property does not exist.
sub db_get_prop (%$;$)
sub db_get_prop (%$;$)
my ($hash, $key, $prop)
my ($hash, $key, $prop)
# deletes the property from the value. It returns with the return status
# deletes the property from the value. It returns with the return status
# of db_set or undef if the key or the property do not exist.
# of db_set or undef if the key or the property do not exist.
sub db_delete_prop (%$$;)
sub db_delete_prop (%$$;)
my ($hash, $key, $prop)
my ($hash, $key, $prop)
# the scalar key is provided, it prints key=value for that key. It
# the scalar key is provided, it prints key=value for that key. It
# returns one on success or undef if the key does not exist.
# returns one on success or undef if the key does not exist.
sub db_print (%;$)
sub db_print (%;$)
my ($hash, $key)
my ($hash, $key)
# that key. The value is expanded to show properties. It returns one
# that key. The value is expanded to show properties. It returns one
# on success or undef if the key does not exist.
# on success or undef if the key does not exist.
sub db_show (%;$)
sub db_show (%;$)
my ($hash, $key)
my ($hash, $key)
# the scalar key is provided, it prints key=type for that key. It
# the scalar key is provided, it prints key=type for that key. It
# returns one on success or undef if the key does not exist.
# returns one on success or undef if the key does not exist.
sub db_print_type (%;$)
sub db_print_type (%;$)
my ($hash, $key)
my ($hash, $key)
# provided, it prints prop=value for that key. It returns one on success
# provided, it prints prop=value for that key. It returns one on success
# or undef if the key or property does not exist.
# or undef if the key or property does not exist.
sub db_print_prop (%$;$)
sub db_print_prop (%$;$)
my ($hash, $key, $prop)
my ($hash, $key, $prop)