Tell us what u currently have in copy/paste

Calo

Part of the furniture
Joined
Jan 21, 2004
Messages
2,227
Very old forum "game" aka worthless timespending thread.

anyway mine is:

Eres un@ mas (song of ska-p that i was looking for)
 

Huntingtons

Resident Freddy
Joined
Jan 19, 2004
Messages
10,770
patch.daoc.net:1280/updates/new_isles/mpatch.dat
patch.daoc.net:1280/updates/new_isles/mpatch.dat

:(
 

Brynn

Can't get enough of FH
Joined
Dec 22, 2003
Messages
3,261
motomyszy%2520z%2520marsa_1.jpg
 

Fenderon

Can't get enough of FH
Joined
Jan 7, 2004
Messages
1,673
"This is for real my last template"


(didn't I make a thread like this half a year ago?)

anyway the c/p is from guildforum .. guildie that keeps spamming out templates claiming every single one is the last and final one :)
 

Bush

Fledgling Freddie
Joined
Oct 27, 2004
Messages
71
rofl, i'll get a bann if i show mine. :eek2:
 

Marc

FH is my second home
Joined
Dec 28, 2003
Messages
11,094
A link to a gay porn website that Eggy gave me over msn
 

Greenfingers

Fledgling Freddie
Joined
Jan 14, 2004
Messages
389
.... erhm, the entire webpage I made this morning............. *snipped* it to the Webserver :)
 

eggy

Fledgling Freddie
Joined
Feb 3, 2004
Messages
5,283
Marc said:
A link to a gay porn website that Eggy gave me over msn

:(

One potential candidate for the region’s first FPSO deployment is believed to be Unocal’s Trident prospect. The field is the world’s deepest offshore hydrocarbon find to date and is said to extend over seven blocks in the Alaminos Canyon area of the western GoM. Its remoteness from any of the region’s pipeline networks makes it a strong candidate for the FPSO solution, although Unocal states that it is considering other options as well. The Trident discovery well was drilled in WD 2,953m on Alaminos Canyon block 903 by Transocean Sedco Forex’s Discoverer Spirit drillship in mid-2001. The rig followed this up with a successful appraisal well in even deeper water (WD 2,967m) in 4Q 2001. The appraisal well was drilled in 68 days at a gross cost of $32 million. A second appraisal well has just been successfully completed. Unocal has a 59.5% stake in the prospect along with Chevron (15%), Ocean Energy (12.75%), Agip (8.55%) and Phillips (4.2%).
 

Ging

Part of the furniture
Joined
Jan 23, 2004
Messages
2,801
; Kix Script NTBackup Success on Windows 2003 Servers

$debug_log = "C:\Utils\ABV\NT\debug.txt"
$Rpt_Log = "D:\Logs\Server\Event Logs\bkupchk.txt"
$GetValue_File = "C:\utils\ABV\\NT\ABV.txt"
$Evt_Log = "C:\Temp\ABV.txt"
$Evt_Log2 = "C:\Temp\ABV2.txt"
$Ver = "ABVNT2.2"

IF Exist($debug_log)
Del $debug_log
EndIf

$msg = "ABV.KIX Version: "+$Ver
Gosub Log_Message

$msg = "Retrieve Variables from Configuration File"
Gosub Log_Message

$GetValue_Config="Sessions"
CALL C:\Utils\Kix\GetVal.kix
IF $GetValue_Error=1
$msg = "ERROR: ABV Script unable to determine configuration variable for "+$GetValue_Config
GOSUB Log_Message
GOSUB Mail_Message
Exit 1
ENDIF
$Backup_Sessions=VAL($GetValue_Value)

$GetValue_Config="Start Time"
CALL C:\Utils\Kix\GetVal.kix
IF $GetValue_Error=1
$msg = "ERROR: ABV Script unable to determine configuration variable for "+$GetValue_Config
GOSUB Log_Message
GOSUB Mail_Message
Exit 1
ENDIF
$Start_Time=VAL($GetValue_Value)

$GetValue_Config="End Time"
CALL C:\Utils\Kix\GetVal.kix
IF $GetValue_Error=1
$msg = "ERROR: ABV Unable to determine configuration variable for "+$GetValue_Config
GOSUB Log_Message
GOSUB Mail_Message
Exit 1
ENDIF
$End_Time=VAL($GetValue_Value)

$msg = "Variables"
Gosub Log_Message
$msg = "Backup Sessions: "+$Backup_Sessions
Gosub Log_Message
$msg = "Start Time: "+$Start_Time
Gosub Log_Message
$msg = "End Time: "+$End_Time
Gosub Log_Message

$msg = "Create Application Log Dump for NTBackup Events"
Gosub Log_Message

IF Exist($Evt_Log)
Del $Evt_Log
EndIf

$cmd = "C:\Utils\NT\dumpel -f " + $Evt_Log + " -l Application -m NTBackup -d 1"
Shell $cmd

IF Exist($Evt_Log)
$msg = "Application Log Dump Complete"
Gosub Log_Message
Else
$msg = "ERROR: ABV Script Application Log Dump Failure"
Gosub Log_Message
Gosub Mail_Message
Exit 1
EndIf

$msg = "Extracting Events During the Specified Backup Window from " + $Start_Time + " to " + $End_Time
Gosub Log_Message

IF Exist($Evt_Log2)
Del $Evt_Log2
EndIf

OPEN (4,$Evt_Log2,5)

$eof = 0
$evt_count = 0
IF OPEN (3,$Evt_Log) = 0
WHILE $eof = 0
$x = READLINE(3)
$eof = @ERROR

IF LEN($x) > 20
$z = INSTR($x,":") - 2
IF $z > 0
$y = VAL(SUBSTR($x,$z,2))
? $y
IF $y >= $Start_Time OR $y < $End_Time
$x = $x + CHR(13) + CHR(10)
WRITELINE (4,$x)
$evt_count = $evt_count + 1
ENDIF
ENDIF
ENDIF
LOOP
CLOSE (3)
ENDIF
CLOSE (4)

IF $evt_count = 0
$msg = "ERROR: Backup Failure (Zero NTBackup Events identified within Application Log"
Gosub Log_Message
Gosub Mail_Message
Exit 1
Else
$msg = "Extraction identified " + $evt_count + " event(s)"
Gosub Log_Message
Endif

$msg = "Verify Backup Session Start Events"
Gosub Log_Message

$FileSearch_File = $Evt_log2
$FileSearch_String = "Begin Backup"
Call C:\Utils\Kix\FSC.kix

If $FileSearch_Found = 0
If $FSC = $Backup_Sessions
$msg = "Specified Backup Session Start Events Identified (" + $FSC + ")"
Gosub Log_Message
Else
$msg = "ERROR: Backup Incomplete (Incorrect Number of Backup Session START Events Identified: "+ $FSC + ")"
Gosub Log_Message
Gosub Mail_Message
Exit 1
EndIf
Else
$msg = "ERROR: Backup Failure (Zero Backup Session START Events Identified0"
Gosub Log_Message
Gosub Mail_Message
Exit 1
Endif

$msg = "Verify Backup Session End Events"
Gosub Log_Message

$FileSearch_File = $Evt_log2
$FileSearch_String = "End Backup"
Call C:\Utils\Kix\FSC.kix

If $FileSearch_Found = 0
If $FSC = $Backup_Sessions
$msg = "Specified Backup Session End Events Identified (" + $FSC + ")"
Gosub Log_Message
Else
$msg = "ERROR: Backup Incomplete (Incorrect Number of Backup Session END Events Identified: "+ $FSC + ")"
Gosub Log_Message
Gosub Mail_Message
Exit 1
EndIf
Else
$msg = "ERROR: Backup Failure (Zero Backup Session END Events Identified)"
Gosub Log_Message
Gosub Mail_Message
Exit 1
Endif

$msg = "Identify NTBackup END Operation Event"
Gosub Log_Message

$eof = 0
$end_op = 0
IF OPEN (3,$Evt_Log2) = 0
WHILE $eof = 0
$x = READLINE(3)
$eof = @ERROR
$l = LEN($x)
$y = INSTR($x,"End Operation:")
IF $y > 0
$x1 = SUBSTR($x, $y+16,$l-($y+16))
$l1 = LEN($x1)
$y1 = INSTR($x1,".")
$end_msg = SUBSTR($x1,1,$y1-1)
$end_op = $end_op + 1
ENDIF
LOOP
CLOSE (3)
ENDIF

If $end_op = 0
$msg = "ERROR: Backup Failure (NTBackup Completion Event has NOT been identified)"
Gosub Log_Message
Gosub Mail_Message
Exit 1
Endif

if $end_msg = "The operation was successfully completed"
$msg = "INFO: Backup Complete (" + $Backup_Sessions + " Backup Sessions)"
Else
$msg = "ERROR: " + $end_msg + " (" + $Backup_Sessions + " Backup Sessions)"
Endif

Gosub Log_Message
Gosub Log_Rpt
Gosub Mail_Message

Exit

:Mail_Message
$cmd="c:\utils\blat\blat.exe -of c:\utils\blat\blatb.txt -body "+chr(34)+$msg+chr(34)
SHELL $cmd
RETURN

:Log_Message
? $msg
$cmd="c:\utils\mm\msgw.exe /m:"+$msg+ " /f:" + $Debug_Log
SHELL $cmd
RETURN

:Log_Rpt
$cmd = "c:\utils\mm\msgw.exe /m:"+$msg+ " /f:" + $Rpt_Log
SHELL $cmd
RETURN





:eek2:
 

Marc

FH is my second home
Joined
Dec 28, 2003
Messages
11,094
Bollox gingger. As if youd have that in your copy and paste while your at "job club".
 

Ging

Part of the furniture
Joined
Jan 23, 2004
Messages
2,801
Marc said:
Bollox gingger. As if youd have that in your copy and paste while your at "job club".


I was stealing it off a competitors server!
 

CorNokZ

Currently a stay at home dad
Joined
Jan 24, 2004
Messages
19,780
Homer J. Simpson - "Beer, the cause of - and solution to - all of life's problems"

lol...
 

Hawkwind

FH is my second home
Joined
Jul 5, 2004
Messages
7,541
Test reports on Airbus A380/tyres. Boring as hell but basically Airbus have fooked up big time, by going cheap and not making the nosewheel steerable.

I know whocares.com.
 

Users who are viewing this thread

Top Bottom