[vhffs-dev] [900] For sure, I was drunk when I did that, because it broke all -> get_type on object, hahaha

[subversion@xxxxxxxxxxxxx]

Revision: 900
Author:   gradator
Date:     2007-09-10 04:45:04 +0000 (Mon, 10 Sep 2007)

Log Message:
-----------
For sure, I was drunk when I did that, because it broke all ->get_type on object, hahaha

Modified Paths:
--------------
    trunk/vhffs-api/src/Vhffs/Services/Cvs.pm
    trunk/vhffs-api/src/Vhffs/Services/DNS.pm
    trunk/vhffs-api/src/Vhffs/Services/Mail.pm
    trunk/vhffs-api/src/Vhffs/Services/MailingList.pm
    trunk/vhffs-api/src/Vhffs/Services/Mysql.pm
    trunk/vhffs-api/src/Vhffs/Services/Pgsql.pm
    trunk/vhffs-api/src/Vhffs/Services/Repository.pm
    trunk/vhffs-api/src/Vhffs/Services/Svn.pm
    trunk/vhffs-api/src/Vhffs/Services/Web.pm


Modified: trunk/vhffs-api/src/Vhffs/Services/Cvs.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Services/Cvs.pm	2007-09-10 04:16:45 UTC (rev 899)
+++ trunk/vhffs-api/src/Vhffs/Services/Cvs.pm	2007-09-10 04:45:04 UTC (rev 900)
@@ -182,10 +182,6 @@
 	$self->{'cvsroot'} = $value;
 }
 
-sub get_type
-{
-	return 'cvs';
-}
 
 
 sub get_dir

Modified: trunk/vhffs-api/src/Vhffs/Services/DNS.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Services/DNS.pm	2007-09-10 04:16:45 UTC (rev 899)
+++ trunk/vhffs-api/src/Vhffs/Services/DNS.pm	2007-09-10 04:45:04 UTC (rev 900)
@@ -1055,11 +1055,6 @@
     return $self->{'ttl'};
 }
 
-sub get_type
-{
-	return 'dns';
-}
-
 sub set_soa_ns
 {
     my $self  = shift;

Modified: trunk/vhffs-api/src/Vhffs/Services/Mail.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Services/Mail.pm	2007-09-10 04:16:45 UTC (rev 899)
+++ trunk/vhffs-api/src/Vhffs/Services/Mail.pm	2007-09-10 04:45:04 UTC (rev 900)
@@ -393,11 +393,6 @@
     return $self->{domain};
 }
 
-sub get_type
-{
-	return 'mail';
-}
-
 sub get_domain
 {
 	my $self = shift;

Modified: trunk/vhffs-api/src/Vhffs/Services/MailingList.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Services/MailingList.pm	2007-09-10 04:16:45 UTC (rev 899)
+++ trunk/vhffs-api/src/Vhffs/Services/MailingList.pm	2007-09-10 04:45:04 UTC (rev 900)
@@ -574,11 +574,6 @@
 
 
 
-sub get_type
-{
-    return 'mailinglist';
-}
-
 sub get_listname
 {
     my $self = shift;

Modified: trunk/vhffs-api/src/Vhffs/Services/Mysql.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Services/Mysql.pm	2007-09-10 04:16:45 UTC (rev 899)
+++ trunk/vhffs-api/src/Vhffs/Services/Mysql.pm	2007-09-10 04:45:04 UTC (rev 900)
@@ -177,11 +177,6 @@
     return $self->{dbname};
 }
 
-sub get_type
-{
-	return 'mysql';
-}
-
 sub get_dbpassword
 {
 	my $self = shift;

Modified: trunk/vhffs-api/src/Vhffs/Services/Pgsql.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Services/Pgsql.pm	2007-09-10 04:16:45 UTC (rev 899)
+++ trunk/vhffs-api/src/Vhffs/Services/Pgsql.pm	2007-09-10 04:45:04 UTC (rev 900)
@@ -181,11 +181,6 @@
 	return $self->{'dbname'};
 }
 
-sub get_type
-{
-	return 'pgsql';
-}
-
 sub get_label {
 	my $self = shift;
 	return $self->{dbname};

Modified: trunk/vhffs-api/src/Vhffs/Services/Repository.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Services/Repository.pm	2007-09-10 04:16:45 UTC (rev 899)
+++ trunk/vhffs-api/src/Vhffs/Services/Repository.pm	2007-09-10 04:45:04 UTC (rev 900)
@@ -227,11 +227,6 @@
 	return $self->{name};
 }
 
-sub get_type
-{
-	return 'repository';
-}
-
 sub get_name
 {
 	my $self = shift;

Modified: trunk/vhffs-api/src/Vhffs/Services/Svn.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Services/Svn.pm	2007-09-10 04:16:45 UTC (rev 899)
+++ trunk/vhffs-api/src/Vhffs/Services/Svn.pm	2007-09-10 04:45:04 UTC (rev 900)
@@ -191,11 +191,6 @@
     return $self->{'reponame'};
 }
 
-sub get_type
-{
-	return 'svn';
-}
-
 sub get_label
 {
     my $self = shift;

Modified: trunk/vhffs-api/src/Vhffs/Services/Web.pm
===================================================================
--- trunk/vhffs-api/src/Vhffs/Services/Web.pm	2007-09-10 04:16:45 UTC (rev 899)
+++ trunk/vhffs-api/src/Vhffs/Services/Web.pm	2007-09-10 04:45:04 UTC (rev 900)
@@ -140,11 +140,6 @@
     return $self->{servername};
 }
 
-sub get_type
-{
-	return 'web';
-}
-
 sub getall
 {
     my ($vhffs, $state, $name, $group) = @_;