Update of /cvsroot/netpass/NetPass/lib/NetPass
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22144
Modified Files:
DB.pm
Log Message:
Index: DB.pm
===================================================================
RCS file: /cvsroot/netpass/NetPass/lib/NetPass/DB.pm,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -d -r1.47 -r1.48
--- DB.pm 23 Jun 2005 20:21:07 -0000 1.47
+++ DB.pm 19 Jul 2005 14:47:50 -0000 1.48
@@ -664,6 +664,82 @@
return 0;
}
+=head2 getSideLinks()
+
+Get a list of User Defined SideLinks from the sideLinks table in the database.
+Returns a HASH ref containing the name/url pair on success or C<undef> on
+failure.
+
+=cut
+
+sub getSideLinks {
+ my $self = shift;
+ my $q = qq{SELECT name, url FROM sideLinks};
+
+ my $hr = $self->{'dbh'}->selectall_hashref($q, "name");
+ return undef unless (defined $hr && ref($hr) eq "HASH" );
+
+ return $hr;
+}
+
+=head2 addSideLink(-name => $name, -url => $url)
+
+Add a sidelink to the database with name = $name and url = $url.
+Returns true on success, C<undef> on failure.
+
+=cut
+
+sub addSideLink {
+ my $self = shift;
+ my $parms = parse_parms({
+ -parms => \@_,
+ -required => [ qw(-name -url) ],
+ -defaults => {
+ -name => '',
+ -url => ''
+ }
+ }
+ );
+
+ return undef if !defined $parms;
+ my ($name, $url) = $parms->get('-name', '-url');
+
+ my $q = qq{INSERT INTO sideLinks VALUES(?,?)};
+ my $sth = $self->{'dbh'}->prepare($q);
+
+ return undef if !$sth->execute($name, $url);
+ $sth->finish;
+ return 1;
+}
+
+=head2 delSideLink(-name => $name)
+
+Delete a sidelink from the database with name = $name.
+Returns true on success, C<undef> on failure.
+
+=cut
+
+sub delSideLink {
+ my $self = shift;
+ my $parms = parse_parms({
+ -parms => \@_,
+ -required => [ qw(-name) ],
+ -defaults => {
+ -name => ''
+ }
+ }
+ );
+
+ return undef if !defined $parms;
+ my ($name) = $parms->get('-name');
+
+ my $q = qq{DELETE FROM sideLinks WHERE name = ?};
+ my $sth = $self->{'dbh'}->prepare($q);
+
+ return undef if !$sth->execute($name);
+ $sth->finish;
+ return 1;
+}
=head2 requestMovePort(-switch => switch, -port => port, -vlan => <quarantine | unquarantine>)
|
