Exported latest revision from sourceforge cvs, discarding history.

documentation/html/ticketServer/bulk.pl

@@ -0,0 +1,41 @@
+#!/usr/bin/perl -w 
+
+
+my $wgetPath = "/usr/bin/wget"; 
+
+my $numArgs = $#ARGV + 1;
+
+if( $numArgs != 4 ) {
+    usage();
+    }
+
+open( LIST_FILE, $ARGV[0] ) or usage();
+
+print "opening $ARGV[0] for reading\n";
+
+while( <LIST_FILE> ) {
+    chomp;
+    print "LINE: $_\n";
+    (my $email, my $name) = split( /,\W*/ );
+    $name =~ s/ /\+/g;
+
+    print "  email = ($email), name = ($name)\n";
+
+    my $url = "http://sleepisdeath.net/ticketServer/server.php?action=sell_ticket&security_data=$ARGV[2]&email=$email&name=$name&reference=manual&tags=$ARGV[1]&security_hash=$ARGV[3]";
+    print "  url = $url\n";
+    $result = `$wgetPath "$url" -q -O -`;
+
+    print "  result = $result\n";
+    }
+
+
+
+sub usage {
+    print "Usage:\n";
+    print "  bulk.pl list_file_name tag_name security_data security_hash\n";
+    print "Example:\n";
+    print "  bulk.pl list.txt april16 abc 9f66c4044d8f39a9c06341b70fa791f6\n";
+    print "List file must have one person per line in the following format:\n";
+    print "  bob\@test.com, Bob Babbs\n";
+    die;
+    }

documentation/html/ticketServer/checkDuplicates.pl

@@ -0,0 +1,47 @@
+#!/usr/bin/perl -w 
+
+
+my $wgetPath = "/usr/bin/wget"; 
+
+my $numArgs = $#ARGV + 1;
+
+if( $numArgs < 2 ) {
+    usage();
+    }
+
+open( LIST_FILE, $ARGV[0] ) or usage();
+
+print "opening $ARGV[0] for reading\n";
+
+my $hits = 0;
+
+while( <LIST_FILE> ) {
+    chomp;
+    # print "LINE: $_\n";
+    (my $email, my $name) = split( /,\W*/ );
+    $name =~ s/ /\+/g;
+
+
+	for( my $argIndex=1; $argIndex<$numArgs; $argIndex++ ) {
+		my $otherListFile = $ARGV[ $argIndex ];
+		
+		my $result = `grep -c $email $otherListFile`;
+
+		if( $result > 0 ) {
+			print "$email, $name\n";
+            $hits ++;
+		    }
+        }
+    }
+
+print "+++ Total hits:  $hits\n";
+
+sub usage {
+    print "Usage:\n";
+    print "  checkDuplicates.pl list_file_name older_list [older_list ...]\n";
+    print "Example:\n";
+    print "  checkDuplicates.pl list.txt fullSail1/list1.txt fullSail2/list2.txt\n";
+    print "List files must have one person per line in the following format:\n";
+    print "  bob\@test.com, Bob Babbs\n";
+    die;
+    }

documentation/html/ticketServer/checkLine

@@ -0,0 +1 @@
+./checkDuplicates.pl fullSail45/list45.txt fullSail44/list44.txt fullSail43/list43.txt fullSail42/list42.txt fullSail41/list41.txt fullSail40/list40.txt fullSail39/list39.txt fullSail38/list38.txt fullSail37/list37.txt fullSail36/list36.txt fullSail35/list35.txt fullSail34/list34.txt fullSail33/list33.txt fullSail32/list32.txt fullSail31/list31.txt fullSail30/list30.txt fullSail29/list29.txt fullSail28/list28.txt fullSail27/list27.txt fullSail26/list26.txt fullSail25/list25.txt fullSail24/list24.txt fullSail23/list23.txt fullSail22/list22.txt fullSail21/list21.txt fullSail20/list20.txt fullSail19/list19.txt fullSail18/list18.txt fullSail17/list17.txt fullSail16/list16.txt fullSail15/list15.txt fullSail14/list14.txt fullSail13/list13.txt fullSail12/list12.txt fullSail11/list11.txt fullSail10/list10.txt fullSail9/list9.txt fullSail8/list8.txt fullSail7/list7.txt fullSail6/list6.txt fullSail5/list5.txt fullSail4/list4.txt fullSail3/list3.txt fullSail2/list2.txt fullSail1/list1.txt

documentation/html/ticketServer/filterLine

@@ -0,0 +1 @@
+./filterOutDuplicates.pl fullSail45/list45.txt fullSail44/list44.txt fullSail43/list43.txt fullSail42/list42.txt fullSail41/list41.txt fullSail40/list40.txt fullSail39/list39.txt fullSail38/list38.txt fullSail37/list37.txt fullSail36/list36.txt fullSail35/list35.txt fullSail34/list34.txt fullSail33/list33.txt fullSail32/list32.txt fullSail31/list31.txt fullSail30/list30.txt fullSail29/list29.txt fullSail28/list28.txt fullSail27/list27.txt fullSail26/list26.txt fullSail25/list25.txt fullSail24/list24.txt fullSail23/list23.txt fullSail22/list22.txt fullSail21/list21.txt fullSail20/list20.txt fullSail19/list19.txt fullSail18/list18.txt fullSail17/list17.txt fullSail16/list16.txt fullSail15/list15.txt fullSail14/list14.txt fullSail13/list13.txt fullSail12/list12.txt fullSail11/list11.txt fullSail10/list10.txt fullSail9/list9.txt fullSail8/list8.txt fullSail7/list7.txt fullSail6/list6.txt fullSail5/list5.txt fullSail4/list4.txt fullSail3/list3.txt fullSail2/list2.txt fullSail1/list1.txt

documentation/html/ticketServer/filterOutDuplicates.pl

@@ -0,0 +1,52 @@
+#!/usr/bin/perl -w 
+
+
+my $wgetPath = "/usr/bin/wget"; 
+
+my $numArgs = $#ARGV + 1;
+
+if( $numArgs < 2 ) {
+    usage();
+    }
+
+open( LIST_FILE, $ARGV[0] ) or usage();
+
+# print "opening $ARGV[0] for reading\n";
+
+my $hits = 0;
+
+while( <LIST_FILE> ) {
+    chomp;
+    # print "LINE: $_\n";
+    (my $email, my $name) = split( /,\W*/ );
+    #$name =~ s/ /\+/g;
+
+
+	my $thisHitCount = 0;
+	for( my $argIndex=1; $argIndex<$numArgs; $argIndex++ ) {
+		my $otherListFile = $ARGV[ $argIndex ];
+		
+		my $result = `grep -c $email $otherListFile`;
+
+		if( $result > 0 ) {
+		    $hits ++;
+			$thisHitCount++;
+		    }
+        }
+	if( $thisHitCount == 0 ) {
+		# not a repeat
+		print "$email, $name\n";
+	    }
+	   
+    }
+
+
+sub usage {
+    print "Usage:\n";
+    print "  filterOutDuplicates.pl list_file_name older_list [older_list ...]\n";
+    print "Example:\n";
+    print "  filterOutDuplicates.pl list.txt fullSail1/list1.txt fullSail2/list2.txt\n";
+    print "List files must have one person per line in the following format:\n";
+    print "  bob\@test.com, Bob Babbs\n";
+    die;
+    }

documentation/html/ticketServer/footer.php

@@ -0,0 +1,6 @@
+
+
+
+</body>
+
+</html>

documentation/html/ticketServer/header.php

@@ -0,0 +1,9 @@
+<html>
+
+<head>
+<title>Sleep Is Death (Geisterfahrer)</title>
+</head>
+
+<body bgcolor="#000000" text="#FFFFFF"
+      link="#ff8800" alink="#ffff00" vlink="#ff8800">
+

documentation/html/ticketServer/makeList.sh

@@ -0,0 +1,45 @@
+
+
+if [[ "$#" < "2" ]] ; then
+  echo "Usage:    makeList.sh listNumber listSourceFile.txt" 
+  echo "Example:  makeList.sh 36 sidSeptember.txt"
+  exit
+fi
+
+mkdir "fullSail$1"
+
+cp "$2" "fullSail$1/list$1.txt"
+
+dos2unix "fullSail$1/list$1.txt"
+
+
+checkLineString="./checkDuplicates.pl "
+filterLineString="./filterOutDuplicates.pl "
+
+for (( c=$1; c>=1; c-- ))
+do
+  checkLineString="$checkLineString fullSail$c/list$c.txt"
+  filterLineString="$filterLineString fullSail$c/list$c.txt"
+done
+
+
+
+echo -n $checkLineString > checkLine 
+echo -n $filterLineString > filterLine 
+
+sh filterLine > "fullSail$1/list$1_filtered.txt"
+
+
+tag="fullSailClass$1"
+
+echo
+
+echo "Make sure that $tag exists as a tag on the server."
+
+echo
+
+echo -n "Then paste server hash of 'abc' here:  "
+
+read hash
+
+./bulk.pl "fullSail$1/list$1_filtered.txt" "$tag" abc "$hash"

documentation/html/ticketServer/settings.php

@@ -0,0 +1,99 @@
+<?php
+
+// Basic settings
+// You must set these for the server to work
+
+$databaseServer = "localhost";
+$databaseUsername = "testUser";
+$databasePassword = "testPassword";
+$databaseName = "test";
+
+// The URL of to the server.php script.
+$fullServerURL = "http://localhost/jcr13/ticketServer/server.php";
+
+
+// The URL of the main, public-face website
+$mainSiteURL = "http://sleepisdeath.net";
+
+
+
+// End Basic settings
+
+
+
+// Customization settings
+
+// Adjust these to change the way the server  works.
+
+
+// Prefix to use in table names (in case more than one application is using
+// the same database).  Two tables are created:  "games" and "columns".
+//
+// If $tableNamePrefix is "test_" then the tables will be named
+// "test_games" and "test_columns".  Thus, more than one server
+// installation can use the same database (or the server can share a database
+// with another application that uses similar table names).
+$tableNamePrefix = "ticketServer_";
+
+
+$enableLog = 1;
+
+// for web-based admin access
+$accessPassword = "secret";
+
+
+// batch size for sending email to all opt-in users
+// useful if your server has a "max emails per hour" limit
+// (My server has a limit of 1000/hour)
+$emailMaxBatchSize = 900;
+
+
+
+
+// maps item purchase tags to dates in New York time
+$allowedDownloadDates = array( "april_9" => "2010-04-09 00:00:00",
+                               "april_12" => "2010-04-12 00:00:00" );
+
+// secret shared with fastspring server, one per purchase tag from above
+$fastspringPrivateKeys = array( "april_9" => "secret A",
+                                "april_12" => "secret B" );
+
+
+// files to serve, from path below
+$fileList = array( "sueFamilyWeb.jpg", "SleepIsDeath_v2_UnixSource.tar.gz" );
+
+$fileDescriptions = array(
+    "Sue's family picture, from the archive.",
+    "Unix (and Mac/Windows) Source Code (<A HREF=\"sourceCompileNotes.shtml\">notes</A>)" );
+
+
+
+// should not be web-accessible
+$downloadFilePath = "/home/jcr13/sidDownloads/";
+
+
+
+// header and footers for various pages
+$header = "include( \"header.php\" );";
+$footer = "include( \"footer.php\" );";
+
+$fileListHeader = $header .
+"echo \"<center><font size=6>Downloads</font></center><br><br>\";";
+
+
+
+
+// parameters for download emails that are sent out
+$siteName = "Sleep Is Death";
+$siteEmailAddress = "jcr13@cornell.edu";
+
+
+
+// number of tickets shown per page in the browse view
+$ticketsPerPage = 6;
+
+
+
+
+
+?>