[Sandweb-commit] CVS: sandweb/bin sandweb.cgi,1.68,1.69

[Rob H. <for...@us...>]

Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv31478/bin

Modified Files:
	sandweb.cgi 
Log Message:
added templates for create_file, create_folder and upload

for these to work, there need to be 1) methods in File class
to carry out these actions and 2) more "if" statements in the
file subroutine of sandweb.cgi to catch the create command




Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.68
retrieving revision 1.69
diff -U2 -r1.68 -r1.69
--- sandweb.cgi	2001/11/22 08:28:59	1.68
+++ sandweb.cgi	2001/11/22 09:35:38	1.69
@@ -9,4 +9,5 @@
 use SandWeb::Repository;
 use SandWeb::Browse;
+use SandWeb::File;
 
 # Debugging
@@ -283,6 +284,10 @@
 }
 
+# file operations such as file/folder creation, viewing and editing
+# happen in this subroutine. A file object is created and used.
+#
 sub file {
 	my %args = @_;
+
 	my $cookie = $args{'cookie'};
         unless ($cookie) {
@@ -316,10 +321,11 @@
 	my $file_type;
 
-	if (! -f "$location/$filename" ) {
-		set_error = "File does not exist!";
-		browse_menu();
+	if ($filename) {
+		if (! -f "$location/$filename" ) {
+			set_error = "File does not exist!";
+			browse_menu();
+		}
 	}
 
-	use SandWeb::File;
 	my $file = SandWeb::File->new(
                	'filename' => $filename,
@@ -378,4 +384,55 @@
 			MENU_TITLE => 'SandWeb',
 			SUBMENU_TITLE => 'edit file',
+			FOOTER => '',
+			CONTENT => $content,
+			ERROR => $error, 
+		);
+		exit 0;
+	}
+	elsif ( $command eq 'create_file' ) {
+		my $content = $ui->create_file( 
+			PROGNAME => $progname,
+			LOCATION => $location,
+		);
+
+		print header( -cookie => $cookie );
+		$ui->print_screen(
+			TITLE=> 'SandWeb : Create File',
+			MENU_TITLE => 'SandWeb',
+			SUBMENU_TITLE => 'create file',
+			FOOTER => '',
+			CONTENT => $content,
+			ERROR => $error, 
+		);
+		exit 0;
+	}
+	elsif ( $command eq 'create_folder' ) {
+
+		my $content = $ui->create_folder( 
+			PROGNAME => $progname,
+			LOCATION => $location,
+		);
+
+		print header( -cookie => $cookie );
+		$ui->print_screen(
+			TITLE=> 'SandWeb : Create Folder',
+			MENU_TITLE => 'SandWeb',
+			SUBMENU_TITLE => 'create folder',
+			FOOTER => '',
+			CONTENT => $content,
+			ERROR => $error, 
+		);
+		exit 0;
+	}
+	elsif ( $command eq 'upload' ) {
+		my $content = $ui->upload_file( 
+			LOCATION => $location,
+			PROGNAME => $progname,
+		);
+		print header( -cookie => $cookie );
+		$ui->print_screen(
+			TITLE=> 'SandWeb : Upload File',
+			MENU_TITLE => 'SandWeb',
+			SUBMENU_TITLE => 'upload file',
 			FOOTER => '',
 			CONTENT => $content,